um einen ganz leichten
API hook zu erstellen (ohne das man die vorherige funtkion wieder callen kann):
Delphi-Quellcode:
function myfunc(a,b,c,d: pchar); stdcall;
begin
//...
end;
var p: pointer;
old: cardinal;
begin
p := GetProcAddress(GetModuleHandle('user32.dll'),'MessageBoxA'); //dynamische adresse holen
if VirtualProtect(p,5,PAGE_EXECUTE_READWRITE,old) then //schreibzugrif holen
begin
pbyte(integer(p)+0)^ := $E9; //$E9 opcode für jump, gewohnheit, pbyte(p)^ := $E9 geht auch
pinteger(integer(p)+1) ^ := integer(@myfunc)-integer(p)-5; //distanz berechnen
end;
end;
will man von adresse 4200 zu 4300 springen so wird gerechnet:
4300 -4200-5 = 95
wenn man das als integer macht wie im obigen beispiel bruach man sich um negative distanzen nicht mehr kümmern,
das funktioniert wegen dem überlauf schon so (bzw integer kann auch negative zahlen darstellen)