Forum: Sonstige Fragen zu Delphi
Delphi
by KodeZwerg,
27. Jan 2023
Nice! Es freut mich das du happy bist, viel Spaß mit dem ganzen :angel:
Forum: Sonstige Fragen zu Delphi
Delphi
by KodeZwerg,
27. Jan 2023
Ok, nur keine Panik! :lol:
Im Anhang ist eine .res datei namens "AsInvoker.res", kopiere diese in dein Projekt Verzeichnis.
Ändere das hier {$R *.res} nach das hier {$R AsInvoker.res}
Theoretisch sollte es funktionieren aber da ich kein XE besitze kann ich es nicht überprüfen!
Forum: Sonstige Fragen zu Delphi
Delphi
by KodeZwerg,
27. Jan 2023
Hier das ganze nochmal, sorry keine UI, alles unter der Console.
Als Ziel nahm ich einfach mein vorigen Post als Kompilat in der Hoffnung das er bei Dir exakt so ist wie bei mir.
program Patcher;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, System.Classes;
Forum: Sonstige Fragen zu Delphi
Delphi
by KodeZwerg,
26. Jan 2023
Ich habe keine Ahnung wozu Du es debuggen möchtest aber wenn, dann start Delphi auch als Administrator.
Es gibt doch nur diese drei Konstanten die der code durchläuft also ist das einzige was zu "debuggen" ist, die Konstante :D
Ich schreib Dir morgen mal was aktuelleres per FileStream und Forms und ohne Admin und zum debuggen etc :lol:
Forum: Sonstige Fragen zu Delphi
Delphi
by KodeZwerg,
26. Jan 2023
Gern geschehen!
Das erzeugte Kompilat als Administrator ausführen.
xyz.exe gibt es nicht, das sollte nur ein rudimentäres Beispiel darstellen.
Der ablauf?
Datei xyz.exe öffnen, per "Seek" zu einem Offset springen und den Wert einlesen/auswerten/patchen, entweder wird ein Patch eingespielt oder entfernt oder gemeckert das es weder original noch dem Patch entspricht.
Heutzutage würde ich...
Forum: Sonstige Fragen zu Delphi
Delphi
by KodeZwerg,
26. Jan 2023
Im Anhang ein total simpler byte patcher.
Offsets : ARRAY OF LONGINT = ($2e57, $2e58, $42b4, $42b5, $63a4, $67bf, $68ff, $6c4e);
OrgValues : ARRAY OF BYTE = ($7c, $0f, $7c, $18, $85, $85, $8d, $75);
NewValues : ARRAY OF BYTE = ($90, $90, $90, $90, $84, $84, $85, $eb);
darüber wird der ablauf gesteuert.
Geschrieben vor einer Ewigkeit, gerade nur mal kurz getestet ob es...