写个CM加自己写的壳来骗骗小白

JuncoJet · 发表于 2020-4-2 14:05

本来可以叠加壳的，但想想还是不了。本意测试下自己的壳。密码同源码密码。

顺便推广下
AntiDbg.VB6 专用加密壳
https://www.52pojie.cn/thread-1146819-1-1.html
(出处: 吾爱破解论坛)

细水流长 · 发表于 2020-4-2 15:54

提示: 作者被禁止或删除内容自动屏蔽

zhang0459 · 发表于 2020-4-2 17:12

大佬威武

xjun · 发表于 2020-4-2 17:49

Anti Debugger Code:
0018F9D4 | 64:A1 30000000          | mov eax,dword ptr fs:[30]                   |
0018F9DA | 8B40 10                | mov eax,dword ptr ds:[eax+10]                |
0018F9DD | 8B40 68                | mov eax,dword ptr ds:[eax+68]                |
0018F9E0 | C3                      | ret                                           |

Steal OEP:
0018F9E4 | 68 08124000             | push 工程1 - 副本.401208                      |
0018F9E9 | FF15 1C104000          | call dword ptr ds:[<&ThunRTMain>]             |

Check Code:
Private Sub Command1_Click() '401B6C
  'Data Table: 40173C
  Dim var_EC As Variant
  Dim var_C4 As Variant
  loc_401A80: On Error Goto loc_401B3F
  loc_401ABC: var_EC = CVar(Me.Text1.Text) 'String
  loc_401AC3: var_C4 = CVar(Me.Text1) 'Address
  loc_401AE7: var_D4 = IIf((CDbl(0) <> CDbl((CDbl(Me.Text1.Text) - CDbl(5200)))), CVar("0x" & Me.Text1.Text), var_C4)
  loc_401B12: If CBool((var_EC / var_D4)) Then
  loc_401B2E: MsgBox("验证成功！", &H40, var_C4, var_D4, var_EC)
  loc_401B3E: End If
  loc_401B3E: Exit Sub
  loc_401B3F: ' Referenced from: 401A80
  loc_401B58: MsgBox("验证失败！", &H40, var_C4, var_D4, var_EC)
  loc_401B68: Exit Sub
End Sub

Password:
5200

Unpacked File:

PS：
主要原理是利用导入表模块可以优先于程序OEP之前加载进行反调试操作后，调用偷取的OEP代码执行。其二是把入口点改为0，可以anti到一些年久失修的调试器

处女-大龙猫 · 发表于 2020-4-2 18:08

这么好骗吗,
还真被骗了

min_ch · 发表于 2020-4-2 21:01

学习了，谢谢！

13188929198 · 发表于 2020-4-3 13:45

骗骗，有被谢到。

贾东平 · 发表于 2020-4-3 14:23

楼主这个是什么啊。

zgrlhl · 发表于 2020-4-3 14:38

正解5200 学习了

帐号		自动登录	找回密码
密码			注册[Register]

细水流长细水流长当前离线好友阅读权限 0 听众最后登录 1970-1-1 头像被屏蔽	细水流长发表于 2020-4-2 15:54 提示: 作者被禁止或删除内容自动屏蔽
细水流长细水流长当前离线好友阅读权限 0 听众最后登录 1970-1-1 头像被屏蔽	【吾爱破解论坛总版规】 - [让你充分了解吾爱破解论坛行为规则]
	回复支持举报

[CrackMe] 写个CM加自己写的壳来骗骗小白

本帖子中包含更多资源

本帖子中包含更多资源

免费评分