设为首页收藏本站官方微博

飘云阁(PYG官方论坛)

 找回密码
 加入论坛

QQ登录

只需一步,快速开始

扫一扫,访问微社区

[x86]PYG官方Dll优雅破解补丁制作工具[x64]PYG官方DLL优雅破解补丁制作工具[x86]PYG官方Exe优雅破解补丁制作工具飘云阁工具包(已更新第4季)PYG十周年第十一期软件安全教学视频
查看: 4924|回复: 120

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

  [复制链接]
  • TA的每日心情

    2018-4-8 17:36
  • 签到天数: 194 天

    [LV.7]常住居民III

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

    同类软件 姊妹篇

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


    这个还是个VFP的程序,直接下载下来,看看了,不是个DEMO,因为这个是某坛友提供的。
    由于上次有经验了,呵呵,所以花了二分钟看了下它的算法,改了下,就是注册机了,哈哈


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

    QQ截图20160319173843.jpg

    注册机注册界面

    QQ截图20160319173954.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(getidesn())
     ENDIF
     ad = RTRIM(ad)
     IF ad<>'ZZK'
        aaa = ALLTRIM(STR(LENC(ad)+41))+"-"
        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)+41))+"-"
        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)*7*7+81))
     hyh = STRTRAN(eee, "—", "-")
     hyh = STRTRAN(hyh, "_", "-")
     IF ALLTRIM(hyh)==aaa+a2w
        this.caption = "成 功"
        IF FILE(HOME(2)+'data\wd.dll')=.T.
           ERASE HOME(2)+'data\wd.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("d3dwsj.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以上系统,请用管理员运行软件,否则得不到正确的机器码,也注册不了
    不解释,不保证,不负责,这是三无产品,请谨慎下载~
    注册机下载
    游客,如果您要查看本帖隐藏内容请回复

    评分

    参与人数 5威望 +8 飘云币 +6 收起 理由
    tony2526 + 1 PYG有你更精彩!
    xugk + 1 + 1 感谢发布原创作品!
    飞天 + 1 + 1 赞一个!
    a583091790 + 1 我只想说,这些姊妹全让你干了....
    GeekCat + 4 + 4 PYG有你更精彩!

    查看全部评分

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

    [LV.9]以坛为家II

    发表于 2016-3-19 18:23:16 | 显示全部楼层
    看来今年生意都不好,股票也不行,搞搞彩票看能不能中啊
  • TA的每日心情
    奋斗
    2017-3-10 02:58
  • 签到天数: 221 天

    [LV.7]常住居民III

    发表于 2016-3-19 18:46:47 | 显示全部楼层
    现在真的整站搞掉了,谢谢
  • TA的每日心情

    11 小时前
  • 签到天数: 845 天

    [LV.10]以坛为家III

    发表于 2016-3-19 18:51:16 | 显示全部楼层
    谢谢楼主分享
  • TA的每日心情
    慵懒
    2017-9-17 10:07
  • 签到天数: 49 天

    [LV.5]常住居民I

    发表于 2016-3-19 19:35:19 | 显示全部楼层
    好软件,谢谢楼主了
  • TA的每日心情

    昨天 13:09
  • 签到天数: 589 天

    [LV.9]以坛为家II

    发表于 2016-3-19 20:17:47 | 显示全部楼层
    PYG有你更精彩! 真的是全家福了 来,咦...
  • TA的每日心情

    昨天 13:09
  • 签到天数: 589 天

    [LV.9]以坛为家II

    发表于 2016-3-19 20:21:17 | 显示全部楼层
    收藏了,心血来潮玩几注可以开来玩玩有用没
  • TA的每日心情

    昨天 13:09
  • 签到天数: 589 天

    [LV.9]以坛为家II

    发表于 2016-3-19 20:39:02 | 显示全部楼层
    这很恐怖哦,整站全家福KO了,倒闭会不?,这样疯传下去~~  谢谢楼主无私分享
    您需要登录后才可以回帖 登录 | 加入论坛

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|飘云阁安全论坛 ( 粤ICP备15107817号-2|友情赞助  

    GMT+8, 2018-6-25 17:49

    Powered by Discuz! X3.3 Licensed

    © 2001-2017 Comsenz Inc.

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