用一个很老的软件做的CM，无壳，纯代码编的
之前有人反映说一搜字符串就出来了 太简单了 现在加大点难度 |直接搜字符串出不来了{:301_997:}
根据时间用一定算法转换成动态密码 密码是6位数字
不加壳，对新手友好
本帖最后由 酸爽泡面 于 2022-6-9 13:44 编辑
正确验证码
nop关键条
本帖最后由 weikun444 于 2022-6-9 16:18 编辑
取当前日期后两位，加当前时间小时，后边取余部分（01或02）不是太清楚，一旦显示成功破解了，输入任意内容均显示“密码正确，请退出”之类的。
00402144处下断，EAX即为真码！
Private Sub Command1_Click() '401E40
loc_00401EC3: If Me.SaveProp 'Ignore this <> 0 Then GoTo loc_00401F3B
loc_00401F15: MsgBox(" 密码正确 请退出！", 0, var_40, var_50, 10)
loc_00401F36: GoTo loc_00402274
loc_00401F3B: 'Referenced from: 00401EC3
loc_00401F3E: var_eax = Me.Cls
loc_00401FAD: var_50 = "00"
loc_00401FBF: var_60 = Format(Day(Now), var_50)
loc_00402027: var_18 = var_60 & Format(Hour(Now), "00")
loc_00402073: var_40 = Hour(Now)
loc_004020AD: call Mod(var_50, var_C0, var_40, 00000001h, 00000001h, 00000001h, 00000001h, Me, %x1 = Now)
loc_004020DA: If (Mod(var_50, var_C0, var_40, 00000001h, 00000001h, 00000001h, 00000001h, Me, %x1 = Now) = 1) = 0 Then GoTo loc_004020E7
loc_004020E5: GoTo loc_004020F0
loc_004020E7: 'Referenced from: 004020DA
loc_004020FB: var_18 = var_18 & "02"
loc_0040211E: var_1C = Text1.Text
loc_00402153: ebx = (var_1C = var_18) + 1
loc_0040215F: var_eax = %fobj
loc_00402168: If (var_1C = var_18) + 1 = 0 Then GoTo loc_00402189
loc_00402175: Print %w
loc_00402184: GoTo loc_00402272
loc_00402189: 'Referenced from: 00402168
loc_004021EF: MsgBox("密码错误！", 0, "提示", var_50, var_60)
loc_00402229: var_eax = Text1.SetFocus
loc_0040224A: var_eax = %fobj
loc_00402263: SendKeys "{Home}+{End}", 10
loc_00402272: 'Referenced from: 00402184
loc_00402274: 'Referenced from: 00401F36
loc_0040227C: GoTo loc_004022C9
loc_0040228A: var_eax = %fobj
loc_004022C8: Exit Sub
loc_004022C9: 'Referenced from: 0040227C
End Sub 可以跟出来 直接暂停法来到这里
膜拜大佬 大佬，这个是破解什么的；可以用来做探索者、YJK类的注册机么？ weikun444 发表于 2022-6-9 15:50
取当前日期后两位，加当前时间小时，后边取余部分（01或02）不是太清楚，一旦显示成功破解了，输入任意内容 ...
基本正确 强{:1_921:}{:1_921:}{:1_921:} 明码比较
页:
[1]
2