Einzelnen Beitrag anzeigen

hedie

Registriert seit: 12. Dez 2005
Ort: Schweiz
1.024 Beiträge
 
Delphi XE6 Starter
 
#16

Re: EXE Patchen -- Error: verletzt untere Grenzen

  Alt 1. Jan 2008, 13:31
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...
Miniaturansicht angehängter Grafiken
olly_679.jpg  
Claudio
Tu was du nicht lassen kannst
- http://endasmedia.ch
  Mit Zitat antworten Zitat