飘云阁(PYG官方)

 找回密码
 加入论坛

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 15658|回复: 334

[原创] 某彩软件(公式验证器)注册分析(VFP程序)

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

    [LV.7]常住居民III

    发表于 2016-3-18 21:47:30 | 显示全部楼层 |阅读模式
    本帖最后由 yosen2001 于 2017-3-7 16:24 编辑

    同类软件 姊妹篇

    某彩软件注册分析(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://a.cdn.zhuolaoshi.cn/user/ ... %AF%81%E5%99%A8.zip

    下下来是个DEMO,要下载正式版才可以有全部功能,下载地址后本贴尾部。。为支持表哥,特发此贴,哈哈


    注册机注册


    算法代码如下
    [AppleScript] 纯文本查看 复制代码
    PROCEDURE Click
     thisform.pa.page7.text3.setfocus
     aa = ''
     IF thisform..tag="d2o" .OR. thisform..tag="D2O"
        DECLARE STRING GetSerialNumber IN MSRDO2o.DLL INTEGER
        ad = getserialnumber(0)
        CLEAR DLLS
        ad = RTRIM(ad)
        aaa = ALLTRIM(STR(LENC(ad)+4))+"-"
        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"
           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)+4))+"-"
           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)+4))+"-"
           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)*7*7+7))
     hyh = STRTRAN(eee, "—", "-")
     hyh = STRTRAN(hyh, "_", "-")
     IF ALLTRIM(hyh)==aaa+a2w
        this.caption = "成 功"
        IF FILE(GETENV('WINDIR')+'\system32\sysyz.dll')=.T.
           ERASE GETENV('WINDIR')+'\system32\sysyz.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\栋桦工作室\公式验证器'
        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), "栋桦提示: ")
        QUIT
     ELSE
        IF this.tag='3'
           MESSAGEBOX("您已多次录入错误注册码!"+CHR(13), "栋桦提示: ")
           QUIT
        ENDIF
        MESSAGEBOX("您录入注册码错误!请核对后再录入!"+CHR(13), "栋桦提示: ")
        this.tag = ALLTRIM(STR(VAL(this.tag)+1))
     ENDIF
    ENDPROC
    


    Win7以上系统,请用管理员运行软件,否则得不到正确的机器码,也注册不了

    看得懂的自然就懂,不懂的还是不懂
    正式版下载
    游客,如果您要查看本帖隐藏内容请回复


    不解释,不保证,不负责,这是三无产品,请谨慎下载~
    注册机下载
    游客,如果您要查看本帖隐藏内容请回复



    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?加入论坛

    x

    评分

    参与人数 8威望 +44 飘云币 +44 收起 理由
    pzx998 + 4 它更新了,用老版注册不了呀,楼主能不能搞.
    一只小菜鸟 + 4 我的哥他现在更新了,只要一更新就不能注册.
    数字物语 + 4 已经注册不了啦,给**罗,下次要早点下
    x_x + 4
    tree_fly + 20 赞一个!注册机源码都出来了。
    GeekCat + 20 + 20 赞一个!
    xugk + 4 + 4 非常的厉害,还有更好的软件能搞?
    a583091790 + 4 很给力!

    查看全部评分

  • TA的每日心情
    奋斗
    2019-3-24 09:56
  • 签到天数: 767 天

    [LV.10]以坛为家III

    发表于 2016-3-18 21:53:22 | 显示全部楼层
    感谢表哥分享精彩,顶起来
  • TA的每日心情
    难过
    2019-2-17 13:02
  • 签到天数: 611 天

    [LV.9]以坛为家II

    发表于 2016-3-18 22:02:40 | 显示全部楼层
    三无产品,请谨慎下载
  • TA的每日心情
    难过
    2019-2-17 13:02
  • 签到天数: 611 天

    [LV.9]以坛为家II

    发表于 2016-3-18 22:02:43 | 显示全部楼层
    三无产品,请谨慎下载
  • TA的每日心情
    奋斗
    2019-10-1 22:15
  • 签到天数: 722 天

    [LV.9]以坛为家II

    发表于 2016-3-18 22:16:10 | 显示全部楼层
    thanks,very powerful!
  • TA的每日心情
    开心
    2017-12-13 16:17
  • 签到天数: 624 天

    [LV.9]以坛为家II

    发表于 2016-3-18 22:20:03 | 显示全部楼层
    谢谢楼主分享
  • TA的每日心情
    奋斗
    2017-7-28 16:14
  • 签到天数: 391 天

    [LV.9]以坛为家II

    发表于 2016-3-18 22:20:29 | 显示全部楼层
    这个不错啊
  • TA的每日心情
    难过
    2019-2-17 13:02
  • 签到天数: 611 天

    [LV.9]以坛为家II

    发表于 2016-3-18 22:43:51 | 显示全部楼层
    感谢楼主分享
  • TA的每日心情
    开心
    2018-12-16 15:29
  • 签到天数: 39 天

    [LV.5]常住居民I

    发表于 2016-3-18 22:49:40 | 显示全部楼层
    给力,谢谢分享
    您需要登录后才可以回帖 登录 | 加入论坛

    本版积分规则

    关闭

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

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