Crackme2007专辑中逍遥风专题b2c_2k5 KeygenMe文章写注册机一枚，破文分析详见地址： http://bbs.pediy.com/showthread.php?threadid=30483
注册机VB代码如下
Private Function CalNameNum(NameStr As String, NameLength As Integer) As Long
Dim NameNum As Long
Dim NameCharValue As Integer
Dim i As Integer
NameNum = 0
CalNameNum = 0
NameCharValue = 0
For i = 1 To NameLength
NameCharValue = Asc(Mid(NameStr, i, 1))
NameNum = NameNum + NameCharValue
Next i
NameNum = NameNum - 1024 - NameLength
CalNameNum = 50064 - NameNum
End Function
Private Sub cal_Click()
If Len(Text1.Text) >= 5 Then
Text2.Text = Hex(CalNameNum(Text1.Text, Len(Text1.Text))) + "BF56"
Else
s = MsgBox("长度小于5", vbOKOnly, "提示")
End If
End Sub
Private Sub Text1_GotFocus()
Text1.Text = ""
Text2.Text = ""
End Sub
只需要在窗体上拖放2个文本框，2个LABEL，1个按钮即可
Crackme2007专辑中逍遥风专题ACG TRIAL Crackme1.0文章写注册机一枚，破文分析详见地址： http://bbs.pediy.com/showthread.php?threadid=32849
注册机VB代码如下
Private Function CalNameNum(NameStr As String, NameLength As Integer) As Long
Dim NameNum As Long
Dim NameCharValue As Integer
Dim i As Integer
NameNum = 0
CalNameNum = 0
NameCharValue = 0
For i = 1 To NameLength
NameCharValue = Asc(Mid(NameStr, i, 1))
NameNum = NameNum + NameCharValue
Next i
NameNum = (NameNum * 8) Xor 333221
CalNameNum = (497639 - NameNum) Xor 34762
End Function
Private Sub cal_Click()
If Len(Text1.Text) >= 5 Then
Text2.Text = CalNameNum(Text1.Text, Len(Text1.Text))
Else
s = MsgBox("长度小于5", vbOKOnly, "提示")
End If
End Sub
Private Sub Text1_GotFocus()
Text1.Text = ""
Text2.Text = ""
End Sub
同样只需要在窗体上拖放2个文本框，2个LABEL，1个按钮即可
