File patchen

[kuba]

Hallo,

vielen, vielen Dank !!!

Es funktioniert prima, anbei der "Patcher"

KUBA

PS: winexec ersetzt durch FileSetReadOnly('c:\ntldr', False);

[Andreas13]

Zitat von kuba:

Hallo,
vielen, vielen Dank !!!
Es funktioniert prima, anbei der "Patcher"
...;

Hallo Community,
ich versuche den betagten "Patcher" (nof8_982.zip aus dem Jahr 2009) von Kuba zum Laufen zu bringen, aber der Code läßt sich selbst mit meinem recht alten XE5 (aus 2013) nicht kompilieren.
Hat jemand von Euch eine angepaßte Version davon?

Danke im Voraus!
Viele Grüße
Andreas

[Klaus01]

.. das liegt an dem hier:

SearchFor := StrAlloc(Length(SearchString) + 1); searchFor ist ein pAnsiChar
StrAlloc liefert ein pWideChar

vielleicht funktioniert es so:
SearchFor := pAnsiChar(StrAlloc(Length(SearchString) + 1)); Grüße
Klaus

[Andreas13]

Vielen Dank, Klaus!
Das war's.

Viele Grüße
Andreas

[Andreas13]

Ja das Programm läuft zwar (natürlich mit harmlosen Testdateien), aber es wird gar nichts gepatcht: Weder eine Exe, noch eine simple TXT-Datei.

Weiß jemand einen Rat?
Danke im Voraus!

Viele Grüße
Andreas

[himitsu]

Zitat von Klaus01:

vielleicht funktioniert es so:
SearchFor := pAnsiChar(StrAlloc(Length(SearchString) + 1));

Das mag vielleicht "erstmal" so halbwegs gehen, aber richtig ist es so
SearchFor := AnsiStrAlloc(Length(SearchString) + 1); .

Außerdem noch StrPCopy zu StrPCopyA usw.

[Andreas13]

Danke Himitsu,
es wird schon besser!
StrPCopyA kennt XE5 noch nicht (oder vielleicht nicht mehr?), aber
ich habe:

Delphi-Quellcode:

StrPCopy(..)   durch   System.AnsiStrings.StrPCopy(..)
StrEnd(..)             durch   System.AnsiStrings.StrEnd(..)
StrDispose(..)         durch   System.AnsiStrings.StrDispose(..)

ersetzt und benutzt. Damit konnte ich eine TXT-Datei erfolgreich patchen, nicht jedoch eine EXE, auch nicht dann, wenn der neue String dieselbe Länge hatte wie der alte in der EXE.

[himitsu]

Hab den Code nicht komplett angesehn, aber ich denke mal er wird immer abrauchen, sobald ein #0 vorkommt, was in der EXE garantiert der Fall sein wird.

[KodeZwerg]

Im Anhang ein total simpler byte patcher.

Delphi-Quellcode:

       Offsets : ARRAY [1..8] OF LONGINT = ($2e57, $2e58, $42b4, $42b5, $63a4, $67bf, $68ff, $6c4e);
     OrgValues : ARRAY [1..8] OF BYTE = ($7c, $0f, $7c, $18, $85, $85, $8d, $75);
     NewValues : ARRAY [1..8] 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 kompiliert und noch das tut was es soll.
Vielleicht hilft es Dir?