多谢发贴子和不断完善这个帖子的人，让我们这些菜鸟受益非浅呀！

呵呵，学习了！

花了一个上午时间,看了楼主的大大的文章之后

然后自个用OD跟了一下,找到了注册码,但输入到程序中还是显示没通过
没道理呀,明明是明码比较的,怎么会这样呀

是不是在因为OD里显示的是16进制,而要把注册码转为10进制才可以通过呀

计算太浪费时间 ，我看还是爆破比较好 ，就像脱壳时候完美还原IAT一样，太麻烦了 我还是喜欢爆破

不错，学习起算法来，还真得从头学起。哈哈。
我的
computer
BS-23AE2AE9-3516

如果是明码比较的话，不用爆破呀，也不用计算，这多好，还是喜欢明码比较的软件。

Dim i As Integer
Dim tmp As Long
Dim PART1 As String
Dim PART2 As String
'---------------------------------

If KeyAscii = Asc(vbCrLf) Then

username = Text1.Text

'---------------------------------
For i = 1 To Len(username)
tmp = tmp + (Asc(Mid(username, i, 1)) * 4)
Next
PART2 = CStr(tmp)
'---------------------------------

On Error Resume Next
'---------------------------------
Dim a, b
b = &H654789

For i = Len(username) To 1 Step -1
b = b - 1
a = b * 2     '理论上是可以的。但是VB中会溢出
b = b + a     '溢出了以后VB就不计算了
b = b - 1     '所以计算不出来
Debug.Print Hex(b)
Next

PART1 = Hex(b)
'---------------------------------

Text1.Text = "BS-" & PART1 & "-" & PART2

End If
End Sub

PS：小弟我最近在学习MASM32，有没有入门的书各位推荐一下

我自己也跟了下，写注册机可能没这么强大，跟了个注册码。。

回复31楼的，你用VB写这个注册机，变量不能用LONG，有可能会溢出的，VB其实还有比他更大的数据类型！我记得是变体类型的一种。

支持原创~~

楼主，链接里的网站域名转让了。。。