追码（等级5）

ICEY

成功截图：

编译程序：Visual Studio 2019

xp无法运行。

一个有点阴间的CM。追码比爆破简单。

破解提示（刮刮乐）：编写用到了 链表 ，内联汇编，hook 。

下载：

yrd2014

大致分析了下，开局直接搜索文本没有发现成功了一类的提示信息，程序秘钥长度为10位，长度不够则直接显示错误。
1.大致算法
取秘钥第一位+第二位+第三位+0X14 得到计算后的结果，总计计算6位秘钥获得最终结果，其中0X14类似于每一位的密码。
1-6位对应0X14，0X26，0X12，0X5，0X23，0X2E。


2.结果比较
逐字节比较计算出来的结果，如果有一个字节与程序内正确结果不符则直接跳失败。
从计算出来结果可以看出，其实秘钥计算后得出的就是“成功了”这三个字的16进制代码，最后比较也就是程序逐字节比较结果代码是否与这三个字的16进制文本相符。
简单的说你输入秘钥最终经过计算就是为了得到“成功了”这三个字，小菜分析各位大佬轻喷


改了算法胡乱填一组秘钥就完事了

winddyj

吃完饭回来，发现才算了1/10，太多了，放弃了，直接终止掉
跑码注册机VB代码如下：

[Visual Basic] 纯文本查看 复制代码

Private Sub Command1_Click()
   Path = App.Path & "\注册码.txt"
   For a = 48 To 57
       For b = 48 To 57
            c = 179 - 20 - a - b
            d = 201 - 38 - b - c
            e = 185 - 18 - c - d
            f = 166 - 5 - d - e
            g = 193 - 35 - e - f
            For h = 48 To 57
               For i = 48 To 57
                  j = 46 + f + g + h + i - 203
                  If j > 35 And j < 126 Then
                      x = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j)
                      Open (Path) For Append As #1
                      Print #1, x
                      Close #1
                  End If
               Next i
            Next h
       Next b
   Next a
End Sub

winddyj

我有点佩服自己了，跟着跑了一遍，发现蒙中了6个数

fanvalen

差评我win7x64 win10x64都没运行成功 我从vc2003-2019库都装了依然不行
提示vcruntime140d.dll.缺少

ICEY

fanvalen 发表于 2021-3-15 21:41
差评我win7x64 win10x64都没运行成功 我从vc2003-2019库都装了依然不行
提示vcruntime140d.dll.缺少

刚刚换了一个库编译，已经重新上传了，现在你试试？

bilibin

这个东西我自己编写必须用vs吗

winddyj

估计楼主自己都没想过，注册码能有多少种组合吧？
昨晚实在是瞌睡，追出码看懂算法就睡了，这会有空写了个跑码的注册机
估计还没跑完1%，就已经上千种组合了，这还是把前几位都故意指定成了数字的结果
00?4491704
00?4491715
00?4491726
00?4491737
00?4491748
00?4491759
02=4671702
02=4671713
02=4671724
02=4671735
02=4671746
02=4671757
02=4671768
这会软件还在跑着卡住中，一会跑完把注册机代码放上来

heilang99

直接改的算法

吾爱蛋蛋

heilang99 发表于 2021-3-16 22:26
直接改的算法

怎么该锕