AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

RawByteString in Exe modifizieren

Ein Thema von DieDolly · begonnen am 6. Feb 2020 · letzter Beitrag vom 9. Feb 2020
Antwort Antwort
Seite 1 von 2  1 2   
DieDolly

Registriert seit: 22. Jun 2018
1.454 Beiträge
 
#1

RawByteString in Exe modifizieren

  Alt 6. Feb 2020, 20:59
Ich komme leider nicht weiter. Ich habe eine ausführbare Datei die an irgendeiner Stelle einen const RawByteString deklariert hat.
Den Inhalt dieses Strings kann ich auch wiederfinden, wenn ich die Exedatei in ein Bytes Array schreibe und dann mit TEncoding.ANSI.GetString() in eine Txt-Datei schreibe.

Das Problem ist aber, dass ich es nicht schaffe diesen String richtig zu ersetzen. Eine Exe-Datei 1 soll diesen RawByteString in der Exe-Datei 2 ersetzen.
Der String wird ersetzt aber der neue String, also der, der durch den alten ersetzt wird, wird auch an den Anfang der Datei geschrieben und ich habe keine Ahnung warum.

Delphi-Quellcode:
 const MyRawByte: RawByteString = '___ABCD';

 RawByteTmp:= MyRawByte;
 RawBytePos := Pos(string(RawByteTmp), StringOf(ByteStream.Bytes) + 3; // 3 = die 3 Unterstriche. Die UNterstriche bleiben bestehen. Nur das ABC wird ersetzt.

 // Das Ersetzen passiert hier
 ReplaceWith := 'EFGH';
 Move(ReplaceWith[1], ByteStream.Bytes[RawBytePos - 1], 4); // 4 = die Länge des Strings der ersetzt wird, hier ABCD
 ByteStream.SaveToFile('newfile.exe');
Das funktioniert soweit ja auch und ABCD wird durch DEFG in der fertigen Exe ersetzt. Aber warum wird EFGH auch an Position 0 der Datei geschrieben?
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.263 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#2

AW: RawByteString in Exe modifizieren

  Alt 7. Feb 2020, 07:52
Bau uns doch bitte eine Projektgruppe mit zwei Konsolenprojekten A und B, in dem B dann entsprechend die EXE A modifiziert.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
35.398 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: RawByteString in Exe modifizieren

  Alt 7. Feb 2020, 08:48
Was ist ReplaceWith für ein Typ? (ich hoffe doch auch irgendeiner ANSI-Typen)

Und im POS würde ich den String nicht casten, denn dann bekommst du die Position im Unicode-String, anstatt im Original, auch wenn RawByteString zumindestens CodrpageConvertierungen umgewandelt werden sollty, also die Ord(Char) sollten gleich bleiben und demnach die Indize theoretisch gliech bleiben.


Besser über die String-Helper gehen, denn dort sind Indize immer 0-basiert.
Bei den Strings selber liegt Low(string) normal bei 1, aber in den NextGen-Compilern (Android, iOS, ...) fängt der String standardmäßig bei 0 an. (so wie normale Arrays)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
freimatz

Registriert seit: 20. Mai 2010
711 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

AW: RawByteString in Exe modifizieren

  Alt 7. Feb 2020, 10:19
Weil bei Pos die Fehlerbehandlung fehlt?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
35.398 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: RawByteString in Exe modifizieren

  Alt 7. Feb 2020, 13:03
Abgesehn davon:
Warum kein RessourceString?

Delphi-Quellcode:
resourcestring
  deineKonstante = 'asdfasdfsda'; // wird über einen "zufälligen" String-Index in den Ressourcen gespeichert
bei Verwendung dieser Konstante wird intern LoadString vewendet

oder über den Ressourcen-Manager von Delphi (in die *.res jedes Projekte)
oder über eine eigene RC/RES-Datei
> hier jeweils über MSDN-Library durchsuchenLoadString bzw. MSDN-Library durchsuchenLoadResource/MSDN-Library durchsuchenFindResource/... den String laden



und dann entweder selber mit MSDN-Library durchsuchenUpdateResource oder über einen der vielen Resource-Editoren (teilweise lassen sie sich auch via Parameter steuern) diese Ressorce ändern, ohne bösswillig den "Programmcode" zu verändern.

und sowas lässt sich auch zur Laufzeit anpassen
* z.B. durch hooken der Load-Funktion (wird z.B. von einigen Lokalisierungskomponenten verwendet, um eine andere Sprache zu laden)
* oder über zusätzliche Dateien (z.B. siehe die .DE-Dateien neben den .BPL der Delphi-Packages)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
freimatz

Registriert seit: 20. Mai 2010
711 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: RawByteString in Exe modifizieren

  Alt 7. Feb 2020, 13:07
Warum? Vermutlich weil die "Exe-Datei 2" gar nicht von ihm ist.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
35.398 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: RawByteString in Exe modifizieren

  Alt 7. Feb 2020, 13:54
Nee nee, die Liebe Dolly macht sowas doch nicht.
Fremde Dateien hacken ist aber böse.
(vor allem wenn es gegen die Lizenzbedingen verstoßen könnte)



Sowas wie TEncoding.ANSI.xyz ist sowieso das Schlimmste, was man einer Binärdatei antun kann.

Wenn schon mit Unicode rumgepfuscht wird, dann besser ohne Zeichenübersetzungen.
Delphi-Quellcode:
E := TMBCSEncoding.Create($FFFF, 0, 0); // $FFFF ist auch die CodePage, welche der RawByteString benutzt
E.GetString();
Ansonsten gibt es viele Wege, um Binärdaten auch binär zu behandeln.
Delphi-Quellcode:
var R: RawByteString;
M := TFileStream.Create('.\file.exe');
SetLength(R, M.Size);
M.ReadBuffer(R[1], M.Size);
...
Und dann besser niemals mit Unicode-Funktionen darauf zugreigen
Pos und Copy gibt es standardmäßig überladen, auch als "ANSI"-Version (für AnsiString und seine Verwandten ala RawByteString)
und ansonsten gibt es auch noch die Unit AnsiStrings.

--

M := TMemoryStream.Create;
M.LoadFromFile('.\file.exe'));
...
M.Memory // ein Pointer auf den Dateiinhalt
...
M.SaveToFile('.\newfile.exe'));
M.Free;

--

B := TFile.ReadAllBytes('file');
... // B = ein Byte-Array
TFile.WriteAllBytes('newfile', B);

--

R := TFile.OpenText('file'); // bzw. direkt TStreamReader.Create
W := TFile.CreateText('file'); // bzw. TStreamWriter.Create
// geht nicht, weil hier der Encoding-Parameter fehlt,
// aber

E := TMBCSEncoding.Create($FFFF, 0, 0);
S := TFile.ReadAllText('file', E);
...
E.Free;

uvm.
Leider gibt es Pos/PosEx unverständlicher Weise nicht für normale Arrays.
Es gibt StrPos-Funktionen für PAnsiChar, die man auf Pointer/Arrays loslassen könnte, aber bei der ersten #0 brechen die ab.
Also bleibt nur selber was basteln.

Aber so oder so ist es immer besser Binärdaten niemals in Text-Strings zu speichern
und stattdessen "ordentlich" mit Streams oder Pointer bzw. ByteArrays zu arbeiten.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu ( 7. Feb 2020 um 13:58 Uhr)
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.454 Beiträge
 
#8

AW: RawByteString in Exe modifizieren

  Alt 7. Feb 2020, 17:16
Ich sehe gerade alles hat jetzt seine Richtigkeit. Der Fehler lag an der Ausgabe. Die Ausgabe war nur für mich. Ich hab mich schon gewundert, wo die 4 zusätzlichen KB herkamen!
Zur Klarstellung. Ich bearbeite hier ausschließlich meine eigenen Dateien!

Zitat:
E := TMBCSEncoding.Create($FFFF, 0, 0); // $FFFF ist auch die CodePage, welche der RawByteString benutzt
E.GetString();
Wenn ich das so nutze, erhalte ich EEncodingError. Der Fehler kommt, sobald ich E := TMBCSEncoding.Create($FFFF, 0, 0); irgendwo schreibe.

Geändert von DieDolly ( 7. Feb 2020 um 17:42 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
35.398 Beiträge
 
Delphi 10.3 Rio
 
#9

AW: RawByteString in Exe modifizieren

  Alt 7. Feb 2020, 18:42
Mist, Windows weigert sich. (früher ging das mal )
Das MSDN-Library durchsuchenGetCPInfo im Constructor zickt rum, aber die anschließenden MSDN-Library durchsuchenMultiByteToWideChar arbeiten problemlos mit $FFFF.

Ich sehe in der Liste aber grade keine passenden CodePage https://docs.microsoft.com/de-de/win...ge-identifiers

Nja, man kann sich TEncoding auch selbst ableiten und dort eine 1-1-Übersetzung zusammenbauen.
Oder TMBCSEncoding erst mit einer anderen CodePage erstellen und anschließend böswillig die CodePage überschreiben.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu ( 7. Feb 2020 um 18:56 Uhr)
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.454 Beiträge
 
#10

AW: RawByteString in Exe modifizieren

  Alt 8. Feb 2020, 16:21
Ich habe jetzt ein Teilergebnis.
Es muss wohl irgendwas mit str := TEncoding.ANSI.GetString(ByteStream.Bytes) ... zu tun haben. Auf einem System mit türkischem Windows, aber englishcer Benutzeroberfläche kommt da nicht das raus, was rauskommen soll. Ich kopiere eine bestimmte Anzahl Zeichen von einer Position A an bis zu einer Position B. Das funktioniert in 99% der Fälle einwandfrei nur hier scheinbar nicht. Es handelt sich übrigens um einen Kunden-PC.

Normalerweise soll eine normale Zeichenkette mit Zeichen von a bis z und 0 bis 9 rauskommen. Länge, sagen wir mal, 48 Zeichen. Ist aber egal wie lang.
Auf dem Kunden-PC kommt das raus, was im Bild zu sehen ist.

Hilft hier vielleicht ASCII statt ANSI weiter? Ich kann das Problem leider nicht reproduzieren. Der Kunde sagt auch selber, dass es auf dem einen PC auftaucht und auf dem anderen nicht.
Ich habe das Problem jetzt aber durch andere, benutzerfreundliche Mittel beseitigt.
Miniaturansicht angehängter Grafiken
2020-02-08-17_20_46.png  

Geändert von DieDolly ( 8. Feb 2020 um 21:31 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf