EXE Patchen -- Error: verletzt untere Grenzen

[Garfield]

Zitat von hedie:

Was muss ich dann in meinem Delphi Programm eintragen, ...

Den Ansatz hat Dir SirThornberry gegeben:

Zitat von SirThornberry:

Bei 32bit kann die Speichereadresse auch nur 32bit sein was einem DWORD entspricht. Dementsprechend ist dein Offset-Wert definitiv falsch. Du kannst nicht eine Stelle bei 32bit patchen welche 32bit überschreitet.

Du arbeitest mit Cardinal = 32bit. Du benötigst aber Int64 = 64bit.

[hedie]

Also meinst dz dami, das das hier

Zitat von hedie:

004452A8 |. C605 24214B00 01 MOV BYTE PTR DS:[4B2124],1

Das blaue, soll nach dem Programm aufruf in Adresse 004452A8 stehen.

64 Bit Programm Code ist?

Wenn ja, stimmt nicht. Ich habe 32 Bit Windows und das Programm is auch 32 Bit

Noch ne andere Frage... es bestünde auch die Möglichkeit die stelle einfach zu Noopen (also mit NOP's zu füllen)

Dazu müsste ich AB! Adresse 004452A8 7 NOP's einfügen...

Ich hab das mal so versucht

Delphi-Quellcode:

    dwFileOffset := RvaToFileOffset(lpBuffer, $004452A8);
    UpdateOffset(lpBuffer, dwFileOffset, $90909090);


    //LoadFile(opendialog1.FileName, lpBuffer, dwFileSize);
    dwFileOffset := RvaToFileOffset(lpBuffer, $004452AC);
    UpdateOffset(lpBuffer, dwFileOffset , $909090);

Ich dachte mir, anstelle alles kompliziert in einem schritt einzutragen, mache ich das einfach hintereinander

Wenn ich den code schlussendlich ausführe, werden zwar die NOP's eingetragen ABER!

a) nur 5 stat 7
b) der unetere Code wird entfernt also alles ab der einfüge Adresse verschwindet... was bei OllyDBG nicht der fall ist

Ich bin echt ratlos...

[Garfield]

Ich merke gerade, SirThornberry's Einwurf war nicht ganz korrekt. Die Speicheradresse ist DWord nur der Wert eben nicht.

Zitat von hedie:

64 Bit Programm Code ist?

Nein, der bleibt bei 32bit. Es ging um den Datentyp.

Zitat von hedie:

Delphi-Quellcode:

procedure UpdateOffset(var lpBuffer: Pointer; dwFileOffset: Cardinal; Value: DWORD); overload; 
begin 
  PDWORD(Cardinal(lpBuffer) + dwFileOffset)^ := Value; 
end;

UpdateOffset(lpBuffer, dwFileOffset, $01004B212405C6);

Deine Procedure nimmt maximal DWord, Du übergibst aber Int64.

[hedie]

Also muss ich die Procedure für Int64 abändern richtig?

Würde das so funktionieren?

Delphi-Quellcode:

procedure UpdateOffset(var lpBuffer: Pointer; dwFileOffset: Cardinal; Value: Int64); overload; 
begin 
  PDWORD(Cardinal(lpBuffer) + dwFileOffset)^ := Value; 
end;

[Apollonius]

Du musst dann aber entsprechend nach PInt64 statt nach PDWORD casten.

[hedie]

Ooops stimmt

also so??

Delphi-Quellcode:

procedure UpdateOffset(var lpBuffer: Pointer; dwFileOffset: Cardinal; Value: Int64); overload; 
begin 
  PInt64(Cardinal(lpBuffer) + dwFileOffset)^ := Value; 
end;

/////////////Edit

Ich hab den code mal an die anderen Proceduren angehängt (also unten drunter)

Danach habe ich mit diesem Code eingelesen

Delphi-Quellcode:

    dwFileOffset := RvaToFileOffset(lpBuffer, $004452A8); // Adresse einlesen
      UpdateOffset(lpBuffer, dwFileOffset, $01004B212405C6); // Neues Offset

Jedoch hat es nur teilweise geklappt:

Die bytes wurden richtig eingetragen sprich an der richtigen stelle
aber es hat sonst irgendwas verschoben...

Aber seht selbst

Oben im bild vorher unten nachher

Es sollte ja nur die zeile bei adresse 004452A8 updaten, statdessen hat es sonst was gemacht

ich hoffe ihr seht den fehler den ich gemacht habe...

[Garfield]

Dieses Bild und das aus dem ersten Beitrag zeigen dasselbe!?

[hedie]

Ja grunsätzlich schon

aber diesmal hab ich es noch n bisschen besser markiert....

Aber ich kann mir nicht erklären wo der fehler liegt...

Habt ihr ne idee?

[Garfield]

Jetzt ist es Int64 = 64bit = 8 Byte

Zitat von hedie:

Delphi-Quellcode:

    dwFileOffset := RvaToFileOffset(lpBuffer, $004452A8); // Adresse einlesen
      UpdateOffset(lpBuffer, dwFileOffset, $01004B212405C6); // Neues Offset

01 00 4B 21 24 05 C6 - Das sind nur 7 Byte. Eventuell aufteilen in 4, 2 und 1 Byte?

[hedie]

Ich weiss nicht wie ich das aufteilen soll....

Bin in diesem gebiet noch totaler anfänger

Oder wird so aufgeteilt?

Delphi-Quellcode:

   dwFileOffset := RvaToFileOffset(lpBuffer, $004452A8);
      UpdateOffset(lpBuffer, dwFileOffset, $C6);

dwFileOffset := RvaToFileOffset(lpBuffer, $004452A8);
      UpdateOffset(lpBuffer, dwFileOffset, $2405);

dwFileOffset := RvaToFileOffset(lpBuffer, $004452A8);
      UpdateOffset(lpBuffer, dwFileOffset, $01004B21);