Delphi的简单数据执行保护示例代码

作者: 只怕再见是故人
发布时间: 2024-04-18 06:30:02 (1天前)

2 条回复

1#
回复此人
只怕再见是故人 | 2020-08-04 15-44

这段代码可以完成工作： ``` procedure DoJump(Address: Pointer); asm JMP Address end; const X: Byte=$C3;//RET op code procedure TriggerDEP; begin DoJump(@X); end; ``` 在生成的可执行文件中，X存储位置被视为数据。或者，您可以尝试执行位于堆栈上的代码： ``` procedure DoJump(Address: Pointer); asm JMP Address end; procedure TriggerDEP; var X: Byte; begin X := $C3; DoJump(@X); end; ``` 当DEP处于活动状态时，这两个都会引发访问冲突异常。如果需要确保DEP处于活动状态，例如从32位进程（可选）中进行激活，请调用此函数： ``` procedure EnableDEP; const PROCESS_DEP_ENABLE: DWORD=$00000001; var SetProcessDEPPolicy: function(dwFlags: DWORD): BOOL; stdcall; begin SetProcessDEPPolicy := GetProcAddress(GetModuleHandle(kernel32), 'SetProcessDEPPolicy'); if Assigned(SetProcessDEPPolicy) then begin SetProcessDEPPolicy(PROCESS_DEP_ENABLE); end; end; ```

编辑

登录后才能参与评论