飄云閣(PYG官方)

 找回密碼
 加入論壇

QQ登錄

只需一步,快速開始

掃一掃,訪問微社區

查看: 15654|回復: 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程序)
    http://www.dldamj.live/thread-82800-1-1.html
    某彩軟件(發展統計器正式版)注冊分析(VFP程序)
    http://www.dldamj.live/thread-83056-1-1.html
    某彩軟件(公式搜集器)注冊分析(VFP程序)
    http://www.dldamj.live/thread-83057-1-1.html
    某彩軟件(公式驗證器)注冊分析(VFP程序)
    http://www.dldamj.live/thread-83058-1-1.html
    某彩軟件(3D彩票王)注冊分析(VFP程序)
    http://www.dldamj.live/thread-83067-1-1.html
    某彩軟件(3D彩票公式機)注冊分析(VFP程序)
    http://www.dldamj.live/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 = "[email protected]"
        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 很給力!

    查看全部評分

    分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友 微信微信
    收藏收藏3 轉播轉播 分享分享 分享淘帖 頂 踩 掃碼贊助 微信分享
  • 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

    7#
    發表于 2016-3-18 22:20:03 | 只看該作者
    謝謝樓主分享
  • TA的每日心情
    奮斗
    2017-7-28 16:14
  • 簽到天數: 391 天

    [LV.9]以壇為家II

    8#
    發表于 2016-3-18 22:20:29 | 只看該作者
    這個不錯啊
  • TA的每日心情
    難過
    2019-2-17 13:02
  • 簽到天數: 611 天

    [LV.9]以壇為家II

    9#
    發表于 2016-3-18 22:43:51 | 只看該作者
    感謝樓主分享
  • TA的每日心情
    開心
    2018-12-16 15:29
  • 簽到天數: 39 天

    [LV.5]常住居民I

    10#
    發表于 2016-3-18 22:49:40 | 只看該作者
    給力,謝謝分享
    您需要登錄后才可以回帖 登錄 | 加入論壇

    本版積分規則

    關閉

    站長推薦上一條 /1 下一條

    快速回復 返回頂部 返回列表
    pk10开奖结果历史记录