新手破解练习Crackme160之135 - RepZ

VB的程序, 直接使用VB Decompiler反编译程序, 没有点击事件, 只有系列号的change事件:

Private Sub PWSerialTxt_Change() '4025D0
  'Data Table: 401B94
  Dim var_A8 As Variant
  loc_40241C: If (Me.PWNameTxt.Text = vbNullString) Then
  loc_40241F:   Exit Sub
  loc_402420: End If
  loc_402426: global_52 = vbNullString
  loc_40244C: For var_98 = 1 To CInt(Len(Me.PWNameTxt.Text)): var_8A = var_98 'Integer
  loc_402481:   var_C8 = Right(Left(CVar(Me.PWNameTxt.Text), CLng(var_8A)), 1)
  loc_4024D5:   global_52 = CStr(Right(CVar(Asc(CStr(var_C8))), 2)) & global_52
  loc_4024DF: Next var_98 'Integer
  loc_402524: If (CVar(Me.PWSerialTxt.Text) = Left(global_52, &HA)) Then
  loc_402534:   Me.Command1.Caption = "==R/E/G/I/S/T/E/R/E/D=="
  loc_4025A5:   var_A8 = CVar("Congratulations !" & Chr$(&HD) & "You just CrAcKeD the cRACKME !!" & Chr$(&HD) & Chr$(&HD) & "mAIL me : crui_ser@hotmail.com") 'String
  loc_4025A8:   MsgBox(var_A8, &H40, "Congratulations !", var_C8, var_124)
  loc_4025CF: End If
  loc_4025CF: Exit Sub
End Sub

代码很简单, 直接改为VBS即可执行, keygen.vbs

user = inputbox("请输入用户名")
code = ""
ulen = Len(user)
for i=1 to ulen
  code = CStr(Right(CStr(Asc(mid(user,i,1))),2)) & code
next
if Len(code) < 10 then
  msgbox "用户名长度不足,请重试!"
else
  msgbox "用户名: " & user & chr(13) & chr(10) & "系列号: " & code, 0, "注册机"
end if

运行示例:
用户名: 12345
系列号: 5352515049

 
 
 
这是160个软件part1
这是160个软件part2

1~160每个破解过程,在吾爱破解论坛都有高手破解过了,也有整理好现成的, 我这边主要就是自己动手操作的过程,与他们的不太一样
附上高手们的连接: 点击前往查看
使用的工具连接(工具有点多有点大,可以先下OD,其它的后面慢慢下) 点击前往下载

新人入门教程"玩玩破解，写给新人看" 点击前往查看
我就是从这里开始的,对我这样的小白感觉超级友好~

下面是我的OD的界面布局,我觉得这4个是最常用的界面,其它的我基本上没用到~