坏づ铥铥 发表于 2008-4-28 23:51:32

莪也很菜,看不懂那些东西.只是找到两个关键跳,改了一下.用户名字用字母的注册码我用数字 .嘎嘎
...只能暴破了..../:010
好象可以用调用这个注册成功的图片的方法,请大虾们用这个方法搞一下.写出过程...谢谢了///

孤独刺客 发表于 2008-5-1 01:17:12

ＶＢ破解实际也挺简单的
用ＶＢ工具找出关键点就可以了

unpack 发表于 2008-5-1 22:58:27

偶不才   也小小的爆破了下呵呵

言申言舌 发表于 2008-5-1 23:00:52

来看看，和各位学习一下

ptsos 发表于 2008-5-3 14:26:36

下载下来好好研究一下。

x80x88 发表于 2008-5-5 16:12:26

又是VB，没劲跟真码，爆了/:010
0041FACD    66:85C0         test    ax, ax
0041FAD0    0F84 A5000000   je      0041FB7B                         ; 最后的校验

[ 本帖最后由 x80x88 于 2008-5-5 16:18 编辑 ]

萧萧黄叶 发表于 2008-5-8 11:02:24

hflywolf 发表于 2008-5-10 18:59:53

原帖由 孤漂江湖狼 于 2008-4-19 12:20 发表 https://www.chinapyg.com/images/common/back.gif
    学习破解有一段时间了，看到论坛很多人编写CRACKER，就动手自己写了一个，欢迎大家来破解，可以爆破，但提倡写算法注册机。成功的发个图祝贺一下，也欢迎大家提意见！VB

我也来玩玩........

算法分析
固定字符串“OZXYBFJKTSWCADLR”
NUM1=取用户名各位的ASCALL值
NUM2=取固定字符串各位的ASCALL值
NUM1与NUM2相加再减去64（即十六进制的40），
得到的数值再转回字符。然后连接起来
就是最终的注册码。
贴上VbKeyGen注册算法部份Dim I As Integer
Dim user As String
Dim key As String

    For I = 1 To Len(用户名)
       user= Chr(Asc(Mid(Ucase(用户名), I, 1)) + Asc(Mid("OZXYBFJKTSWCADLR", I, 1)) - 64)
       key = key & user
    Next I

[ 本帖最后由 hflywolf 于 2008-6-8 15:50 编辑 ]

haier1 发表于 2008-5-10 22:23:24

我也来测试下自己的水平!

萧萧黄叶 发表于 2008-5-13 13:48:10

页: 1 [2] 3 4
查看完整版本: VB写的CRACKME,大家快来破解啊！！