Einzelnen Beitrag anzeigen

brechi

Registriert seit: 30. Jan 2004
823 Beiträge
 
#8

AW: Hilfe bei dynamischer Sprungberechnung

  Alt 6. Jan 2013, 20:43
Ne nur den von cheatproject.

Um direkt 5 Bytes zu schreiben sollte es so gehen:

Delphi-Quellcode:
type
  TJumpRec = packed record
     Jmp: Byte;
     Distance: Cardinal;
  end;

procedure Hook(ToAddress, FromAddress: pointer);
var
  jmpRec: TJmprec;
begin
  jmprec.jmp := $E9;
  jmprec.Distance := Cardinal(ToAddress) - Cardinal(FromAddress) - 5;

  WriteProcessMemory(..., @jmprec, SizeOf(jmprec), ...)
  Mit Zitat antworten Zitat