來個小小ＣＭ最好別暴力，有明碼！簡單鍛鍊下
算法簡單，可以追碼！別太暴力我怕…………name长度大于3
name最后两个字符是vb
code为:
name左数第一个字符的ascii码+name第三个字符的ascii码+name第二个字符到大写字母的ascii码
也就是name为:aaavb
code为979765
loc_00402639: If (Len(CrackMe.Text1.Text) > 3) Then
loc_004026F8: Set var_28 = CrackMe.Text1
loc_00402705: var_AC = var_28
loc_004027D7: Set var_28 = CrackMe.Text1
loc_004027E4: var_AC = var_28
loc_0040287A: var_802C = CStr(Asc(CStr(Left(CrackMe.Text1.Text, 1)))) & CStr(Asc(CStr(Mid(var_28.Text, 3, 1)))) & CStr(Asc(CStr(Ucase(Mid(var_28.Text, 2, 1)))))
loc_00402885: var_18 = var_802C
loc_0040295C: If (Right(CrackMe.Text1.Text, 2) <> "vb") Then
loc_00402983: var_80 = "錯誤!"
loc_004029B6: MsgBox("密碼錯誤！", 16, var_80, 10, 10)
loc_004029D5: GoTo loc_00402BA0
loc_004029DA: End If
loc_00402A57: If (CrackMe.Text2.Text = var_18) + 1 Then
loc_00402A75: var_48 = "正確"
loc_00402A87: var_38 = "登錄成功！"
loc_00402A9B: MsgBox(var_38, 64, var_48, var_58, var_68)
loc_00402AB3: call ebx(00000004h, var_38, var_48, var_58, var_68, 00000030h, var_48, var_58, var_68, var_38, var_48, var_58, var_68, Me, 0, 0)
loc_00402ABA: GoTo loc_00402BA0
loc_00402ABF: End If 罗萨 发表于 2020-4-29 14:01
name长度大于3
name最后两个字符是vb
code为:
话说这是什么工具啊，没怎么接触过VB的程序 Li1y 发表于 2020-4-29 14:07
话说这是什么工具啊，没怎么接触过VB的程序
VB Decompiler 罗萨 发表于 2020-4-29 14:01
name长度大于3
name最后两个字符是vb
code为:
支持一下，我用的VB Decompiler 10.1看出来有点是乱的，您的这个是新版本？ weikun444 发表于 2020-4-29 14:12
支持一下，我用的VB Decompiler 10.1看出来有点是乱的，您的这个是新版本？
嗯 我这个是11.1的 罗萨 发表于 2020-4-29 14:01
name长度大于3
name最后两个字符是vb
code为:
這也太赤赤裸裸吧!就跟看源碼一樣 莱沙 发表于 2020-4-29 14:55
這也太赤赤裸裸吧!就跟看源碼一樣
文件总共就20k,闭着眼都能分析了:lol 罗萨 发表于 2020-4-29 15:06
文件总共就20k,闭着眼都能分析了
主要是方便小白{:1_893:} 0040295C /EB 7C jmp short CrackMe.004029DA
00402A57 90 nop
00402A58 90 nop
页:
[1]
2