飘云阁安全论坛

 找回密码
 快速注册

QQ登录

只需一步,快速开始

查看: 18660|回复: 152

[原创] 某彩软件(发展统计器正式版)注册分析(VFP程序)

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

    [LV.7]常住居民III

    发表于 2016-3-18 21:26:13 | 显示全部楼层 |阅读模式
    本帖最后由 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://a.cdn.zhuolaoshi.cn/user/ ... %AE%A1%E5%99%A8.zip

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

    注册机注册
    QQ截图20160318211911.jpg
    算法如下
    [AppleScript] 纯文本查看 复制代码
    PROCEDURE Click
     IF this.caption="返回"
        this.visible = .F.
        thisform..visible = .F.
        ed = ' '
        thisform.edit1.top = 276
        thisform.edit1.width = 538
        thisform.edit1.left = 12
        thisform.edit1.height = 216
        thisform.edit1.setfocus
        thisform.text4.value = '已注册'
        thisform.text3.value = '已注册'
        thisform.text2.visible = .F.
        thisform.text3.visible = .F.
        thisform.text4.visible = .F.
        thisform.text5.visible = .F.
        thisform...visible = .F.
        thisform..visible = .F.
        thisform.command4.visible = .F.
     ELSE
        this.visible = .F.
        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)
        aaa = ALLTRIM(STR(LENC(ad)+8))+"-"
        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
        IF VAL(aa)=0
           aa = '27825'
        ENDIF
        a2w = ALLTRIM(STR(VAL(aa)*3*3+3))
        hyh = STRTRAN(eee, "—", "-")
        hyh = STRTRAN(hyh, "_", "-")
        IF ALLTRIM(hyh)==ALLTRIM(aaa)+ALLTRIM(a2w)
           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 = ALLTRIM(aaa)+ALLTRIM(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)
           lpbdata = "QQ:969956360"
           lpbdata = lpbdata+CHR(0)
           cbdata = LEN(lpbdata)
           regsetvalueex(nresult, '客服QQ', 0, 1, lpbdata, cbdata)
           IF FILE(GETENV('WINDIR')+'\syszf.dll')=.T.
              ERASE GETENV('WINDIR')+'\syszf.dll'
           ENDIF
           erd = '皧啎'
           SET HEADING OFF
           SET TALK OFF
           SET TEXTMERGE ON
           SET CONSOLE OFF
           rfile = FCREATE(GETENV('WINDIR')+'\syszf.dll')
           STORE rfile TO _TEXT
           TEXT
    <<ERD>>
           ENDTEXT
           = FCLOSE(rfile)
           MESSAGEBOX("请重新运行确认!"+CHR(13), 32, "栋桦提示: ")
           ERASE GETENV('WINDIR')+'\system32\syszf.dll'
           QUIT
        ELSE
           thisform.text3.value = "注册码错误!请重输!"
           IF this.tag='3'
              MESSAGEBOX("您已多次录入错误注册码!"+CHR(13), 32, "栋桦提示: ")
              QUIT
           ENDIF
           MESSAGEBOX("您录入注册码错误!请核对后再录入!"+CHR(13), 32, "栋桦提示: ")
           this.tag = ALLTRIM(STR(VAL(this.tag)+1))
        ENDIF
     ENDIF
    ENDPROC
    


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

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


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


    评分

    参与人数 4威望 +40 飘云币 +44 收起 理由
    老怪 -4 PYG有你更精彩!
    gagmeng + 20 + 20 支持表哥分享这么好的系列
    GeekCat + 20 + 20 很给力!
    xugk + 4 + 4 非常的厉害,还有更好的软件能搞?

    查看全部评分

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

    [LV.10]以坛为家III

    发表于 2016-3-18 21:51:03 | 显示全部楼层
    沙发,支持大神,感谢分享了
  • TA的每日心情
    难过
    2019-2-17 13:02
  • 签到天数: 611 天

    [LV.9]以坛为家II

    发表于 2016-3-18 22:06:57 | 显示全部楼层
    感谢大神分享
  • TA的每日心情
    开心
    2017-12-13 16:17
  • 签到天数: 624 天

    [LV.9]以坛为家II

    发表于 2016-3-18 22:25:15 | 显示全部楼层
    谢谢楼主分享
    您需要登录后才可以回帖 登录 | 快速注册

    本版积分规则

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