delphi 使用INT3进行HOOK处理

原理：设置异常捕获，然后将需要HOOK的代码直接修改成INT3即可

用的一个关键的API：SetUnhandledExceptionFilter

//异常处理函数

function MyInt3(CONST P:EXCEPTION_POINTERS):Integer;cdecl;

var

add:Pointer;

begin

OutputDebugString(PChar(inttohex(P.ExceptionRecord.ExceptionCode,2)));

Add:=p.ExceptionRecord.ExceptionAddress;

OutputDebugString(PChar(Format('Address:%x ',[Cardinal(Add)])));

inc(p.ContextRecord.Eip);

result:=-1;

end;

执行 SetUnhandledExceptionFilter(@MyInt3);

为了防止DELPHI自身捕获到异常，先要对其进行清除

asm

@Loop:

mov eax,fs:[0]

cmp dword ptr [eax],$FFFFFFFF

je @SEHCleared

mov eax,[eax]

mov fs:[0],eax

jmp @Loop

@SEHCleared:

end;

来源：http://blog.csdn.net/yoie01/article/details/8702257

推荐分享