Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi konstanten in kompilierter exe ändern (https://www.delphipraxis.net/55559-konstanten-kompilierter-exe-aendern.html)

Premutos 23. Okt 2005 12:06


konstanten in kompilierter exe ändern
 
hi, weiss jmd ob es möglich ist das wenn ich eine exe habe diese nach einer konstante oä. durchsuche und diese dann überschreibe? habe nichts passendes im gefunden !

Olli 23. Okt 2005 12:13

Re: konstanten in kompilierter exe ändern
 
Das ist natürlich generell möglich, jedoch nicht während die EXE läuft.

Einfach im Code deine Konstante irgendwie kenntlich machen ("magic numbers") und dann eben in der Datei suchen und überschreiben.

Premutos 23. Okt 2005 12:25

Re: konstanten in kompilierter exe ändern
 
gibts dazu irgendwo demos oä. habe so etwas noch nie gemacht

Olli 23. Okt 2005 12:36

Re: konstanten in kompilierter exe ändern
 
Zitat:

Zitat von Premutos
gibts dazu irgendwo demos oä. habe so etwas noch nie gemacht

Keine Ahnung, ob es zu diesem Thema Demos gibt. Suche doch einfach mal danach wie man mit Binärdateien umgeht um in diese zu schreiben oder aus diesen zu lesen. Sobald du das hast, mußt du dir nur noch eine Magic-Number ausdenken (kann auch ein String sein) und diesen dann suchen. Beispiel:
Delphi-Quellcode:
var
Bla:record
Magic:array[0..7] of Char;
MeinWert: DWORD;
end = (
Magic: 'blablubb';
MeinWert: $11223344;
);
In deinem Code suchst du dann nach dem Vorkommen von 'blablubb' in der EXE und voila weißt du, daß direkt auf diesen "String" dein Wert folgt, den du dann ändern kannst.

Ein wenig Phantasie brauchst du eben nur ;)

Premutos 23. Okt 2005 17:28

Re: konstanten in kompilierter exe ändern
 
habe im inet folgendes beispiel gefunden:

Code:
var s,altstring,neustring:string;
   f:file;
   l:integer;
begin


 s := 'negativ';
 altstring :='negativ';
 neustring:='positiv';
  assignFile(f, 'test.exe');
   reset(f,1);
 for l := 0 to filesize(f)-length(altstring)-1 do
   begin
     Application.ProcessMessages;
    seek(f,l);
      blockread(f,altstring[1],length(altstring));
      if altstring = s then
        begin
       seek(f,l);
         blockwrite(f,neustring[1],length(neustring));
        label1.caption := 'Stelle gefunden und gepatcht!';
      end;
   Application.ProcessMessages;
   end;
 closeFile(f);
end;
das funktioniert prima!
sollte man sonst noch was beachten ?

Olli 23. Okt 2005 17:33

Re: konstanten in kompilierter exe ändern
 
Wenn die EXE eine Checksumme haben will (Delphi-EXEn wollen das meist nicht) dann mußt du die noch neu berechnen. Dazu bietet MS diverse Funktionen an (Image Helper API, glaube ich).

Und du solltest wissen, was passiert wenn der String mehrfach vorkommt (daher bevorzuge ich "Magic Numbers", also eindeutige "Signaturen" zum Markieren).

TeronG 23. Okt 2005 17:43

Re: konstanten in kompilierter exe ändern
 
Wofür brauchst du das eigentlich?
Update?
Ich würd doch die Konstante einfach in ne ini machen .... (seeehhhr einfach ^^) :gruebel:


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz