自己整个CM一个

蚊香

[s:39]呵呵~~ 将比较简单的运算兜转了几回~~~
由于是VB的缘故 可能新手朋友搞起算法来有点昏~~~

下载: http://www.xpi386.com/other/crackme.rar

封心锁爱

汗~~我就不会算法。。继续学习

小生我菜菜

转得头晕，总算转出来了 [s:39][s:39][s:39]

蚊香

[s:43][s:43] PPT发分析让咱菜鸟开下眼界[s:39]

小生我怕怕

只要注册名是8位就可以直接追出注册码,明码比较,如果注册码超过8位或者不等于8位就算追出注册码也是错误的

wgz001

小生牛哇！！！ 得楼上提示追的注册码

蚊香

用户名：这注册码到底是什么呢
注册码：-78597-71BF315F82

[s:43]

小生我怕怕

引用第6楼蚊香于2008-09-18 11:40发表的:
用户名：这注册码到底是什么呢
注册码：-78597-71BF315F82

[s:43]

在里面有看到MD5换算,对算法不明白!

wgz001

看来这问题很复杂哦
[s:43]

蚊香

'添加两个文本框'添加MD5模块Private Sub Text1_Change()Dim Name, str1, str2, str3 As StringDim L, i, J As IntegerDim sn1, sn2, sn3, sn4 As LongName = CStr(Text1.Text)L = Len(Name) 'L=用户名位数If L = 0 Or L Mod 2 <> 0 Or L < 8 Or L > 24 Then '预设用户名条件Text2.Text = "用户名位数必须为8-24之间的偶数"ElseFor i = 1 To Lsn1 = sn1 + Asc(Mid(Name, i, 1)) 'sn1=用户名ASCII之和Next iFor J = 2 To Lsn2 = sn2 + Asc(Mid(Name, J, 1)) 'sn2=用户名偶数位ASCII之和J = J + 1Next Jsn3 = sn1 - sn2 'sn3=用户名奇数位ASCII之和sn4 = sn2 * (L / 2)str1 = MD5(CStr(sn4)) 'MD5运算str2 = StrReverse(str1) '倒序str3 = Mid(str2, 11, 10) '取倒序后的11-20位str4 = CStr(sn3) & "-" & str3Text2.Text = str4End IfEnd Sub