如何修改第三方exe，用vb6.0写的

sblsongdongf 2015-02-13 10:49:33

我从网上下载了一个工具软件。我知道它是用vb做的。
它每次登录都要输入密码。如何绕过这个密码呢？

我想到的思路有3个
1、用某种工具修改此程序的启动对象，改成主窗体。
2、用反编译工具查看源码，看密码是怎么生成的。但是vb decompiler pro反编译的结果中很多符号看不懂
3、暴力破解。不断尝试。这个太耗时了

反编译的结果
Private Sub cmdOK_Click() '41E460
Dim var_24 As TextBox
Dim var_00420434 As Global
loc_0041E4A0: var_eax = Me.AddRef 'Ignore this
loc_0041E4C9: var_eax = frmLogin.txtPassword 'Ignore this
loc_0041E4D4: Set var_24 = frmLogin.txtPassword 'Ignore this
loc_0041E4E3: var_1C = txtPassword.Text
loc_0041E509: var_eax = call Proc_1_1_41CA50(esi+00000038h, var_1C, Me)
loc_0041E513: var_20 = call Proc_1_1_41CA50(esi+00000038h, var_1C, Me)
loc_0041E52D: edi = (var_24 = var_20) + 1
loc_0041E548: If (var_24 = var_20) + 1 Then
loc_0041E5BB: var_eax = Unknown_VTable_Call[edi+000002B0h]
loc_0041E60C: Set var_24 = Me
loc_0041E61A: var_eax = Global.Unload var_24
loc_0041E621: If Global.Unload var_24 < 0 Then
loc_0041E62F: GoTo loc_0041E6E4
loc_0041E634: End If
loc_0041E66A: var_44 = "登录"
loc_0041E680: var_34 = "密码错误，请重试!"
loc_0041E6AB: Call undef 'Ignore this '__vbaFreeVarList(00000004, var_34, var_44, var_54, var_64, var_00420434, var_004059CC, 00000010h, var_18, var_68)
loc_0041E6B7: var_eax = frmLogin.txtPassword 'Ignore this
loc_0041E6C2: Set var_24 = frmLogin.txtPassword 'Ignore this
loc_0041E6CD: var_eax = txtPassword.SetFocus
loc_0041E6D7: If txtPassword.SetFocus >= 0 Then GoTo loc_0041E6EB
loc_0041E6E4: 'Referenced from: 0041E62F
loc_0041E6E5: txtPassword.SetFocus = CheckObj(var_24, var_00404BE4, 516)
loc_0041E6EB: End If
loc_0041E6FC: GoTo loc_0041E736
loc_0041E72C: Call undef 'Ignore this '__vbaFreeVarList(00000004, var_34, var_44, var_54, var_64)
loc_0041E735: Exit Sub
loc_0041E736: 'Referenced from: 0041E6FC
End Sub

...全文