飘云阁安全网

 找回密码
 加入我们

QQ登录

只需一步,快速开始

查看: 22384|回复: 146

[原创] 某彩软件(3D彩票公式机)注册分析(VFP程序)

  [复制链接]
  • TA的每日心情
    开心
    2019-2-27 15:18
  • 签到天数: 205 天

    [LV.7]常住居民III

    发表于 2016-3-19 17:34:34 | 显示全部楼层 |阅读模式
    本帖最后由 yosen2001 于 2017-3-7 16:22 编辑

    同类软件 姊妹篇

    某彩软件注册分析(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这个下下来是正式版,哪个好心人备份一个到网盘

    QQ截图20160319105130.jpg

    注册机注册界面
    QQ截图20160319105057.jpg


    注册算法如下:
    [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以上系统,请用管理员运行软件,否则得不到正确的机器码,也注册不了
    不解释,不保证,不负责,这是三无产品,请谨慎下载~
    注册机下载
    游客,如果您要查看本帖隐藏内容请回复



    评分

    参与人数 6威望 +36 飘云币 +24 收起 理由
    Lineage5778 + 4 可惜!注册机失效了!能从新上传吗?非常感.
    zuohaoda + 4 感谢发布原创作品,PYG有你更精彩!
    xugk + 4 + 4 感谢发布原创作品!
    飞天 + 4 + 4 赞一个!
    a583091790 + 4 感谢发布原创作品!膜拜
    GeekCat + 16 + 16 PYG有你更精彩!

    查看全部评分

  • TA的每日心情
    奋斗
    2017-3-10 02:58
  • 签到天数: 221 天

    [LV.7]常住居民III

    发表于 2016-3-19 18:46:34 | 显示全部楼层
    现在真的整站搞掉了,谢谢
    回复 支持 1 反对 0

    使用道具 举报

  • TA的每日心情
    奋斗
    2017-7-28 16:14
  • 签到天数: 391 天

    [LV.9]以坛为家II

    发表于 2016-3-19 18:19:54 | 显示全部楼层
    现在真的整站搞掉了,谢谢,另外那个极限有空看看
  • TA的每日心情
    慵懒
    2022-8-2 17:00
  • 签到天数: 497 天

    [LV.9]以坛为家II

    发表于 2016-3-19 19:36:33 | 显示全部楼层
    这个不错,支持一了
  • TA的每日心情
    开心
    2022-4-25 07:57
  • 签到天数: 13 天

    [LV.3]偶尔看看II

    发表于 2016-3-19 20:01:24 | 显示全部楼层
    好贵的价格 只能先看看了
  • TA的每日心情
    郁闷
    2022-6-29 14:00
  • 签到天数: 631 天

    [LV.9]以坛为家II

    发表于 2016-3-19 20:18:04 | 显示全部楼层
    PYG有你更精彩!感谢大神分享
  • TA的每日心情
    开心
    前天 10:27
  • 签到天数: 1437 天

    [LV.10]以坛为家III

    发表于 2016-3-19 23:12:33 | 显示全部楼层
    楼主一口气做出全系列的来,辛苦了,谢谢!学习!
  • TA的每日心情
    开心
    2019-2-23 20:45
  • 签到天数: 303 天

    [LV.8]以坛为家I

    发表于 2016-3-20 11:42:32 | 显示全部楼层
    谢谢大师的无私奉献,论坛有你更精彩!
  • TA的每日心情
    奋斗
    昨天 15:46
  • 签到天数: 1453 天

    [LV.10]以坛为家III

    发表于 2016-3-20 13:15:59 | 显示全部楼层
    又是一锅端,感谢分享
    您需要登录后才可以回帖 登录 | 加入我们

    本版积分规则

    小黑屋|手机版|Archiver|粤公网安备 44010602010026号|飘云阁安全网 ( 粤ICP备15107817号-2 )

    Powered by Discuz! Copyright © 2001-2022, Tencent Cloud.

    快速回复 返回顶部 返回列表