用一个很老的软件做的CM，无壳，纯代码编的

52pojieys

之前有人反映说一搜字符串就出来了 太简单了 现在加大点难度 |
直接搜字符串出不来了



根据时间用一定算法转换成动态密码 密码是6位数字

不加壳，对新手友好

酸爽泡面

正确验证码


nop关键条

weikun444

取当前日期后两位，加当前时间小时，后边取余部分（01或02）不是太清楚，一旦显示成功破解了，输入任意内容均显示“密码正确，请退出”之类的。
00402144处下断，EAX即为真码！

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

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

CDCBB

可以跟出来

byh3025

直接暂停法来到这里

Ghy410

膜拜大佬

15555559119

大佬，这个是破解什么的；可以用来做探索者、YJK类的注册机么？

52pojieys

weikun444 发表于 2022-6-9 15:50
取当前日期后两位，加当前时间小时，后边取余部分（01或02）不是太清楚，一旦显示成功破解了，输入任意内容 ...

基本正确 强

goastship

明码比较