Assembler -> HexCode

[brechi]

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)