飘云阁安全网

 找回密码
 加入我们

QQ登录

只需一步,快速开始

查看: 34133|回复: 356

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

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

    [LV.7]常住居民III

    发表于 2016-2-29 23:07:51 | 显示全部楼层 |阅读模式
    本帖最后由 yosen2001 于 2017-3-7 16:23 编辑

    同类软件 姊妹篇

    某彩软件注册分析(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的程序,是一款某彩软件,
    翻看了一下贴子,这类VFP的程序破解的是早在N多年前才会用,现在怎么还是有人用?
    于是找了半天,没有找到相关的教程,作为一个对VFP有点了解但又不深入的人,还是
    找下前辈们留下的足迹

    下载地址
    http://a.cdn.zhuolaoshi.cn/user/ ... %AE%9D%E5%85%B8.zip

    下下来分析了一会儿,发现是个DEMO
    QQ截图20160229230703.jpg
    后来一网友发了正式版给我,于是就开始脱壳,分析,找出了真正的注册部分
    QQ截图20160229230618.jpg
    代码如下
    [Visual Basic] 纯文本查看 复制代码
    PROCEDURE Click
     thisform.pa.page9.text3.setfocus
     aa = ''
     a2w = ''
     ad = ''
     aaa = ''
     IF thisform..tag='d2o'
        DECLARE STRING GetSerialNumber IN MSRDO2o.DLL INTEGER
        ad = getserialnumber(0)
        CLEAR DLLS
        ad = RTRIM(ad)
        aaa = ALLTRIM(STR(LENC(ad)+11))+"-"
        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' .OR. 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)+11))+"-"
           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)+11))+"-"
           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)*6*5+5))
     hyh = STRTRAN(eee, "—", "-")
     hyh = STRTRAN(hyh, "_", "-")
     IF ALLTRIM(hyh)==aaa+a2w
        this.caption = "成 功"
        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), 32, "栋桦提示: ")
        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
    **
    


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


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

    评分

    参与人数 11威望 +88 飘云币 +84 收起 理由
    a583091790 + 4 + 4 发现挂掉了失效了
    x_x + 4 赞一个!
    老怪 + 4 赞一个!
    某某 + 4 谁告诉我怎么下载啊
    xugk + 4 + 4 非常的厉害,还有更好的软件能搞?
    JZL + 8 + 8 很给力!
    smallhorse + 8 + 8 赞一个!
    cfc1680 + 8 + 8 赞一个!
    gagmeng + 8 + 8 表哥带我飞
    GeekCat + 8 表哥V578,求带我一起飞

    查看全部评分

  • TA的每日心情
    开心
    2019-2-27 15:18
  • 签到天数: 205 天

    [LV.7]常住居民III

     楼主| 发表于 2016-3-17 13:39:52 | 显示全部楼层
    a583091790 发表于 2016-3-17 10:42
    大神,已私信你提供正式版程序文件

    收到,有空时看下,这几天有点小忙。。
    回复 支持 1 反对 0

    使用道具 举报

  • TA的每日心情
    开心
    2019-2-27 15:18
  • 签到天数: 205 天

    [LV.7]常住居民III

     楼主| 发表于 2016-3-14 20:54:13 | 显示全部楼层
    木头哥 发表于 2016-3-14 06:19
    yosen2001   我向你道歉   已解决  可以用了     能把他整站全和谐不

    他整站没有正式版程序,如果你能提供,我可以抽空研究一下。因为他整站下载的全是DEMO

    点评

    大神,已私信你提供正式版程序文件  详情 回复 发表于 2016-3-17 10:42
    回复 支持 1 反对 0

    使用道具 举报

  • TA的每日心情
    开心
    2022-6-14 21:20
  • 签到天数: 193 天

    [LV.7]常住居民III

    发表于 2016-2-29 23:28:15 | 显示全部楼层
    很好的一个软件            
  • TA的每日心情
    开心
    2016-2-29 23:41
  • 签到天数: 1 天

    [LV.1]初来乍到

    发表于 2016-2-29 23:45:31 | 显示全部楼层
    先看看先吧                                         
  • TA的每日心情
    开心
    昨天 23:00
  • 签到天数: 1948 天

    [LV.Master]伴坛终老

    发表于 2016-2-29 23:50:19 | 显示全部楼层
    看看有用不?
  • TA的每日心情
    开心
    2016-9-26 00:55
  • 签到天数: 69 天

    [LV.6]常住居民II

    发表于 2016-3-1 01:35:33 | 显示全部楼层
    这是什么彩票的
  • TA的每日心情
    无聊
    昨天 06:03
  • 签到天数: 1908 天

    [LV.Master]伴坛终老

    发表于 2016-3-1 05:09:46 | 显示全部楼层
    楼主牛人啊,老实说,我看不懂
  • TA的每日心情
    无聊
    2019-3-25 06:30
  • 签到天数: 1096 天

    [LV.10]以坛为家III

    发表于 2016-3-1 07:14:25 | 显示全部楼层
    现在还在用VFP编程的人太少了。
  • TA的每日心情
    擦汗
    2019-3-1 23:51
  • 签到天数: 559 天

    [LV.9]以坛为家II

    发表于 2016-3-1 07:35:46 | 显示全部楼层
    谢谢楼主分享
    您需要登录后才可以回帖 登录 | 加入我们

    本版积分规则

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

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

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