Delphi 防破解与加壳保护：让你的软件不被逆向、不被篡改

不管你做的是登录器、工具软件、收费系统只要不想被人随便破解、篡改、去广告这一篇必须吃透。一、为什么要做软件保护你的登录器被人破解随便跳过验证直接进游戏你的收费工具被人去广告、改内存、无限试用关键配置、账号密码被抓包、被反编译看到明文软件被修改版权、二次打包倒卖Delphi 写的 EXE 结构清晰不加保护 裸奔随便一个入门逆向工具就能拆开。二、基础保护UPX 压缩 资源混淆UPX 是最常用、最轻量、几乎不影响运行的压缩加壳工具。1. 使用 UPX 加壳下载upx.exe把你的 exe 拖到 upx 上执行命令plaintextupx -9 你的程序.exe体积变小增加静态反编译难度不会被杀软误报相对2. 代码层面去掉调试信息在 Project - Options - Linking 中关闭 Debug information关闭 Map file关闭 TD32 debug info让逆向者看不到符号、函数名、变量名。三、中级保护反调试检测是否被 OD、X64DBG 打开这是登录器、收费软件必备。只要检测到调试器直接退出或报错。核心代码可直接复制delphi// 检测调试器是否存在 function IsDebuggerPresent: Boolean; stdcall; external kernel32; // 检测远程调试 function CheckRemoteDebuggerPresent(hProcess: THandle; var DebuggerPresent: BOOL): BOOL; stdcall; external kernel32; // 主程序启动时调用 procedure CheckDebug; var bDebug: BOOL; begin // 方式1 if IsDebuggerPresent then begin MessageBox(0, 异常调试行为, 警告, MB_ICONSTOP); Halt; end; // 方式2 CheckRemoteDebuggerPresent(GetCurrentProcess, bDebug); if bDebug then begin MessageBox(0, 检测到调试器, 错误, MB_ICONERROR); Halt; end; end;在FormCreate最开始调用delphiCheckDebug;四、高级保护关键代码花指令 内存校验防止别人 NOP 掉你的验证逻辑、跳过登录。1. 花指令干扰反汇编在登录验证、关键函数前后插入无用代码delphiasm nop nop push eax pop eax inc ecx dec ecx end;让 IDA、OD 无法正常识别函数边界。2. 自身文件校验防修改计算程序自身 MD5如果被修改就退出delphifunction GetFileMD5(const FileName: string): string; var MD5: TIdHashMessageDigest5; FS: TFileStream; begin MD5 : TIdHashMessageDigest5.Create; FS : TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); try Result : MD5.HashStreamAsHex(FS); finally FS.Free; MD5.Free; end; end; procedure CheckFileIntegrity; const MY_MD5 你自己编译后的MD5; begin if GetFileMD5(Application.ExeName) MY_MD5 then begin MessageBox(0, 程序已被篡改, 警告, 0); Halt; end; end;五、防内存修改关键变量加密不要明文存登录状态管理员权限试用次数充值金额简单 XOR 加密示例qkwnnd.cn/rfclwfunction EncryptInt(Value: Integer; Key: Integer): Integer; begin Result : Value xor Key; end; // 使用 var IsAdmin: Integer; // 不直接用 Boolean // 赋值 IsAdmin : EncryptInt(1, $5678ABCD); // 判断 if EncryptInt(IsAdmin, $5678ABCD) 1 then Caption : 管理员 else Caption : 普通用户;内存里永远是乱码不会被 “一键修改”。六、防抓包网络请求加密如果你做登录器、验证工具HTTP 明文必被抓包。至少做到三层请求参数 JSON 加密加时间戳防止重放加 sign 签名防止篡改qkwnnd.cn/jjnrs// 简单示例 procedure TForm1.Button1Click(Sender: TObject); var User, Pwd, TimeStamp, Sign, Key: string; begin User : edtUser.Text; Pwd : edtPwd.Text; TimeStamp : IntToStr(Trunc(Now * 100000)); Key : my_server_secret_2025; // 签名规则用户名密码时间戳密钥 Sign : GetMD5(User Pwd TimeStamp Key); // 发送时带上 sign 和 timestamp // 服务器验证 sign 一致才通过 end;七、商用级保护方案最稳如果你做的是收费软件 / 传奇登录器 / 付费工具推荐组合代码混淆 花指令反调试 反 HOOKUPX 加壳VMProtect 或 Themida 虚拟化最强保护联网验证 机器码绑定注意 Themida/VM 保护过强可能导致部分杀软误报qkwnnd.cn/vmeia需要权衡。八、总结最重要的 3 句话不加壳的 Delphi 程序 完全不设防反调试 内存加密 挡住 90% 小白破解关键验证一定要放服务器不要本地判断