某彩软件(3D彩票公式机)注册分析（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的程序，直接下载下来，看看了，不是个DEMO，因为这个是某坛友提供的。
由于上次有经验了，呵呵，所以花了二分钟看了下它的算法，改了下，就是注册机了，哈哈


下载地址
http://share.weiyun.com/d6767331b8e89f991c85ccb160b7d5d0这个下下来是正式版，哪个好心人备份一个到网盘



注册机注册界面



注册算法如下：

[AppleScript] 纯文本查看 复制代码

PROCEDURE Click
 SET HEADING OFF
 SET CONSOLE OFF
 SET SAFETY OFF
 SET TALK OFF
 aa = ''
 IF 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(())
 ENDIF
 ad = RTRIM(ad)
 IF ad<>'ZZK'
    aaa = ALLTRIM(STR(LENC(ad)+33))+"-"
    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(getidesn())
    ad = RTRIM(ad)
    aaa = ALLTRIM(STR(LENC(ad)+33))+"-"
    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
 IF ad='ZZK'
    QUIT
 ENDIF
 IF VAL(aa)=0
    aa = '27825'
 ENDIF
 a2w = ALLTRIM(STR(VAL(aa)*6*4+2))
 hyh = STRTRAN(eee, "—", "-")
 hyh = STRTRAN(hyh, "_", "-")
 IF ALLTRIM(hyh)==aaa+a2w
    this.caption = "成 功"
    IF FILE(GETENV('WINDIR')+'\system32\syssd.dll')=.T.
       ERASE GETENV('WINDIR')+'\system32\syssd.dll'
    ENDIF
    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\栋桦工作室\3D彩票公式机'
    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, "栋桦提示： ")
    owsh = CREATEOBJECT("wscript.shell")
    owsh.run("3djsj.exe")
    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

Win7以上系统，请用管理员运行软件，否则得不到正确的机器码，也注册不了
不解释，不保证，不负责，这是三无产品，请谨慎下载~
注册机下载

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

木头哥

现在真的整站搞掉了，谢谢

xugk

现在真的整站搞掉了，谢谢，另外那个极限有空看看

zxcvb147mn

这个不错，支持一了

sd173

好贵的价格 只能先看看了

a583091790

PYG有你更精彩！感谢大神分享

kill

楼主一口气做出全系列的来，辛苦了，谢谢！学习！

hzjke

很感谢啊！！！

玩童的记忆

谢谢大师的无私奉献，论坛有你更精彩！

非诚勿扰

又是一锅端，感谢分享