來個小小ＣＭ最好別暴力，有明碼！簡單鍛鍊下

莱沙

算法簡單，可以追碼！別太暴力我怕…………

罗萨

name长度大于3
name最后两个字符是vb
code为:
name左数第一个字符的ascii码+name第三个字符的ascii码+name第二个字符到大写字母的ascii码
也就是name为:aaavb
code为979765

[Visual Basic] 纯文本查看 复制代码

  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

Li1y

罗萨 发表于 2020-4-29 14:01
name长度大于3
name最后两个字符是vb
code为:

话说这是什么工具啊，没怎么接触过VB的程序

罗萨

Li1y 发表于 2020-4-29 14:07
话说这是什么工具啊，没怎么接触过VB的程序

VB Decompiler

weikun444

罗萨 发表于 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,闭着眼都能分析了

莱沙

罗萨 发表于 2020-4-29 15:06
文件总共就20k,闭着眼都能分析了

主要是方便小白

991547436

0040295C     /EB 7C         jmp short CrackMe.004029DA
00402A57      90            nop
00402A58      90            nop