某彩软件注册分析（VFP程序）

yosen2001

同类软件 姊妹篇

某彩软件注册分析（VFP程序）
https://www.chinapyg.com/thread-82800-1-1.html
某彩软件(发展统计器正式版)注册分析（VFP程序）
https://www.chinapyg.com/thread-83056-1-1.html
某彩软件(公式搜集器)注册分析（VFP程序）
https://www.chinapyg.com/thread-83057-1-1.html
某彩软件(公式验证器)注册分析（VFP程序）
https://www.chinapyg.com/thread-83058-1-1.html
某彩软件(3D彩票王)注册分析（VFP程序）
https://www.chinapyg.com/thread-83067-1-1.html
某彩软件(3D彩票公式机)注册分析（VFP程序）
https://www.chinapyg.com/thread-83066-1-1.html


表哥分析一款VFP的程序，是一款某彩软件，
翻看了一下贴子，这类VFP的程序破解的是早在N多年前才会用，现在怎么还是有人用？
于是找了半天，没有找到相关的教程，作为一个对VFP有点了解但又不深入的人，还是
找下前辈们留下的足迹

下载地址
http://a.cdn.zhuolaoshi.cn/user/ ... %AE%9D%E5%85%B8.zip

下下来分析了一会儿，发现是个DEMO

后来一网友发了正式版给我，于是就开始脱壳，分析，找出了真正的注册部分

代码如下

[Visual Basic] 纯文本查看 复制代码

PROCEDURE Click
 thisform.pa.page9.text3.setfocus
 aa = ''
 a2w = ''
 ad = ''
 aaa = ''
 IF thisform..tag='d2o'
    DECLARE STRING GetSerialNumber IN MSRDO2o.DLL INTEGER
    ad = getserialnumber(0)
    CLEAR DLLS
    ad = RTRIM(ad)
    aaa = ALLTRIM(STR(LENC(ad)+11))+"-"
    ad = RIGHT(ad, 8)
    FOR i = 1 TO 8
       IF ISDIGIT(ad)=.T.
          aa = aa+LEFT(ad, 1)
       ELSE
          IF ISALPHA(ad)=.T.
             aa = aa+ALLTRIM(STR(MOD(ASC(ad), 10)))
          ENDIF
       ENDIF
       ad = RIGHT(ad, 8-i)
    ENDFOR
 ELSE
    IF thisform..tag='do' .OR. thisform..tag='DO'
       LOCAL owmi, as, object, olocal, as, object, ohardware, as, object, object1, as, object, lccpuid, lcmac, lchdid, lcserial
       owmi = CREATEOBJECT("WbemScripting.SWbemLocator")
       olocal = owmi.connectserver(".", "root\cimv2")
       ohardware = olocal.execquery("SELECT * FROM Win32_Processor")
       FOR EACH object1 IN ohardware
          lccpuid = object1.properties_('ProcessorId').value
          EXIT
       ENDFOR
       ad = ALLTRIM(lccpuid)
    ELSE
       ad = ALLTRIM(getidesn())
    ENDIF
    ad = RTRIM(ad)
    IF ad<>'ZZK'
       aaa = ALLTRIM(STR(LENC(ad)+11))+"-"
       ad = RIGHT(ad, 8)
       FOR i = 1 TO 8
          IF ISDIGIT(ad)=.T.
             aa = aa+LEFT(ad, 1)
          ENDIF
          ad = RIGHT(ad, 8-i)
       ENDFOR
    ELSE
       ad = ALLTRIM(())
       ad = RTRIM(ad)
       aaa = ALLTRIM(STR(LENC(ad)+11))+"-"
       ad = RIGHT(ad, 8)
       FOR i = 1 TO 8
          IF ISDIGIT(ad)=.T.
             aa = aa+LEFT(ad, 1)
          ENDIF
          ad = RIGHT(ad, 8-i)
       ENDFOR
    ENDIF
 ENDIF
 IF ad='ZZK'
    QUIT
 ENDIF
 IF VAL(aa)=0
    aa = '27825'
 ENDIF
 a2w = ALLTRIM(STR(VAL(aa)*6*5+5))
 hyh = STRTRAN(eee, "—", "-")
 hyh = STRTRAN(hyh, "_", "-")
 IF ALLTRIM(hyh)==aaa+a2w
    this.caption = "成 功"
    DECLARE INTEGER RegOpenKey IN Win32API INTEGER, STRING @, INTEGER @
    DECLARE INTEGER RegCreateKey IN Win32API INTEGER, STRING @, INTEGER @
    DECLARE INTEGER RegSetValueEx IN Win32API INTEGER, STRING, INTEGER, INTEGER, STRING, INTEGER
    csubkey = 'Software\栋桦工作室\彩票至尊宝典'
    nresult = 0
    IF regopenkey(BITSET(0, 31)+2, @csubkey, @nresult)<>0
       regcreatekey(BITSET(0, 31)+2, csubkey, @nresult)
    ENDIF
    lpbdata = aaa+a2w
    lpbdata = lpbdata+CHR(0)
    cbdata = LEN(lpbdata)
    regsetvalueex(nresult, 'ID', 0, 1, lpbdata, cbdata)
    lpbdata = "ZZKDDF@126.com"
    lpbdata = lpbdata+CHR(0)
    cbdata = LEN(lpbdata)
    regsetvalueex(nresult, 'E-mail', 0, 1, lpbdata, cbdata)
    MESSAGEBOX("请重新运行确认！"+CHR(13), 32, "栋桦提示： ")
    QUIT
 ELSE
    IF this.tag='3'
       MESSAGEBOX("您已多次录入错误注册码！"+CHR(13), 32, "栋桦提示： ")
       QUIT
    ENDIF
    MESSAGEBOX("您录入注册码错误！请核对后再录入！"+CHR(13), 32, "栋桦提示： ")
    this.tag = ALLTRIM(STR(VAL(this.tag)+1))
 ENDIF
ENDPROC
**

看得懂的自然就懂，不懂的还是不懂
正式版下载

游客，如果您要查看本帖隐藏内容请回复

不解释，不保证，不负责，这是三无产品，请谨慎下载~
注册机下载

游客，如果您要查看本帖隐藏内容请回复

yosen2001

a583091790 发表于 2016-3-17 10:42
大神，已私信你提供正式版程序文件

收到，有空时看下，这几天有点小忙。。

yosen2001

木头哥 发表于 2016-3-14 06:19
yosen2001   我向你道歉   已解决  可以用了     能把他整站全和谐不

他整站没有正式版程序，如果你能提供，我可以抽空研究一下。因为他整站下载的全是DEMO

ND198

很好的一个软件            

nd19888

先看看先吧                                         

lhb9900

看看有用不?

adyian

多谢分享

lwtzxb

这是什么彩票的

ZMLoveLH

楼主牛人啊，老实说，我看不懂

yunfeng

现在还在用VFP编程的人太少了。

menglv

谢谢楼主分享

lpjc_zms

牛B，顶。。。。。。。。。。。。