Dynamisches Array erweitern

[sILeNt heLLsCrEAm]

Schonmal Danke für eure Antworten...

In meinem Beispiel/Source ist derzeit NopsCC ein statisches Array of Byte und sieht folgendermaßen aus:
NopsCC: array [0..0] of byte = ($90); Ich hab mir die Ganze Sache über Nacht nochmal durch den Kopf gehen gehen lassen. Und die logischste oder beste Methode ist wohl die das ich den berechneten Jump in ein dynamisches Array konvertieren und an dieses Array wiederum die entsprechende Anzahl an Nops Anhänge... Quasi nach folgendem Schema...

Delphi-Quellcode:

CalculatedJMP = $E95F3C4412
ConvertedJMP: array [0...4] of byte ($E9, $5F, $3C, $44, $12)

Und da wiederum halt die Anzahl an Nops (No Operations) anfügen. Und dann wird das komplette Array, welches ja prinzipiell immer eine Mindestlänge von 5 Bytes hat, der API WriteProcess übergeben und so komplett geschrieben...
Vielleicht kann mir da einer einen Tipp geben wie man das bewerkstelligt Integer in ein dynamisches Array zu wandeln und eben weitere Zeichen/Ziffern/Zahlen anzufügen...

Gruß
sILeNt

[Blup]

Ich würde so vorgehen:

Delphi-Quellcode:

procedure WriteJump(var APos; ACommand: Byte; AAdress: Cardinal);
begin
  PByte(@APos)[0] := ACommand;
  PByte(@APos)[1] := Byte(AAdress shr 24);
  PByte(@APos)[2] := Byte(AAdress shr 16);
  PByte(@APos)[3] := Byte(AAdress shr  8);
  PByte(@APos)[4] := Byte(AAdress       );
end;

var
  Buffer: TBytes;
const
  NOP: Byte = $90;
  JMP: Byte = $E9;
begin
  {Speicherbereich im lokalen Adressraum anlegen}
  SetLength(Buffer, 100);
  {komplett mit NOP füllen}
  FillChar(Buffer[0], Length(Buffer), NOP);
  {Jump eintragen}
  WriteJump(Buffer[0], JMP, $5F3C4412);
  {in den Zielbereich des anderen Prozess kopieren}
  WriteProcessMemory(ProcOpen, Pointer(Adresse), @Buffer[0], Length(Buffer), Wert);
end;