KeyGenMe:Crack入门系列
keygenme_01的注册机
Private Sub Command1_Click()
Dim M As Double
Dim N As Integer
N = 1
For i = 1 To Len(Text1.Text)
    N = N + Asc(Mid(Text1.Text, i, 1)) * i
Next i
M = N * &H17496
Text2.Text = M
End Sub
keygenme_02的注册机
Private Sub Command1_Click()
Dim M As Double
Dim N As Double
N = 1
For i = 1 To Len(Text1.Text)
    N = N + Asc(Mid(Text1.Text, i, 1))
Next i
M = N * &H310
M = M Xor 648213125
Text2.Text = M
End Sub

keygenme_03的注册机
Private Sub Command1_Click()
Dim M As Long
Dim N As Integer
Dim MmodN As Double
Dim Ans As Long
Dim S As String
Dim CODE As String
S = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
N = 1
For i = 1 To Len(Text1.Text)
    N = N + Asc(Mid(Text1.Text, i, 1)) * i
Next i
M = N * &H147D5
Do
MmodN = (M Mod &H24) + 1
CODE = CODE & Mid(S, MmodN, 1)
Ans = M / 3
M = Ans
Loop While Ans > 0
Text2.Text = CODE
End Sub

请高手指点关于这个Crackme中的SEH,多谢!!!!
多谢,偶试试看,不过还是感谢你哦

请高手指点关于这个Crackme中的SEH,多谢!!!!
还有好人没有啊,非得逼人自杀吗. ,高手帮忙啦

学破解就破解这个软件开始吧！[推荐]
这个太容易,主要是能做出注册机来最好了

请高手指点关于这个Crackme中的SEH,多谢!!!!
大哥,这没加壳啊