RTL Fehler beheben - System.pas

[himitsu]

Klar, zu verraten, was das Problem ist .... stell dir mal vor andere würden dir sagen können joar/nöööö/hmmmm/....



Ach ja, ....

früher konnte man das Schreibgeschützt mal wieder deaktivieren (Editor-KontextMenü, bzw. unten in der Statusleiste des Editors)
Aber Speichern knallt natürlich dennoch. (außer man startet Delphi als Admin)

Oder einfach die Änderungen mit einem anderen editor (als Admin).

Oder die Datei wo anders speichern und dann im Explorer rüber kopieren. (da fragt dann das UAC)



Aber alles egal, denn Der Kompiler nimmt (standardmäßig) niemals diese PAS.
* Delphi-Quellcodes sind nur im Suchpfad des Editors (z.B. für den Debugger)
* nur die vorkompilierten DCUs sind im Suchpfad für den Compiler
* und wenn man mit Packages kompiliert, dann wird nur die BPL genommen (rtl280.bpl)




Die System.pas ins Programmverzeichnis legen hilft auch nur bedingt, denn die anderen vorkompilierten Delphi-DCUs gehen ja quasi dennoch auf die originale System-Unit. (denk ich mal)

[Union]

Code:

SET BDSDIR=C:\Program Files (x86)\Embarcadero\Studio\20.0
REM RELEASE
"%BDSDIR%\bin\dcc32.exe" -$C- -$D- -$L- -$O- -$R+ -$W+ -CG -H -M -Q -V- -W^ -Z -Y --no-config System.pas
REM DEBUG
"%BDSDIR%\bin\dcc32.exe" -$C- -$D+ -$L- -$O- -$R+ -$W+ -CG -H -M -Q -V- -W^ -Z -Y -NUdebug --no-config System.pas

Es entstehen jeweils System, Sysinit. Die Pfade sind ggf. anzupassen, Beispiel ist für 10.3.
Generell rate ich DRINGEND davon ab. Ich habe das inzwischen über Hooks / Adresspatch gelöst (@_Writestring <- @EigenesWritestring).

[arcticwolf]

Da bin ich wohl nicht ganz alleine mit meinem Problem. Ich habe jedoch nichts bei Embarcadero gefunden, dass jemand den Fehler schon mal gemeldet hätte!?

Zitat von Union:

Generell rate ich DRINGEND davon ab.

Ja, ich habe auch nicht wirklich Lust da rumzupfuschen und am Ende womöglich andere Fehler zu provozieren.

Für mich persönlich ist das keine Problem ich habe dafür auch Workarrounds.

Write(IntToStr(i).PadLeft(5));
Oder was auch immer.

Aber bei meiner "Console Library" kann das zu Problemen führen, wenn alter Legacy-Code damit compiliert wird der eben

Code:

Write(i:5)

o.ä. enthält. Und ich kann nicht jedem Nutzer sagen, dass er sein Delphi patchen soll/muss, wenn er meine Library verwenden möchte.

Zitat:

Ich habe das inzwischen über Hooks / Adresspatch gelöst (@_Writestring <- @EigenesWritestring).

Das hört sich interessant an, wie genau funktioniert das? Wie kann ich mich da dazwischen hängen?

[himitsu]

Zitat:

Write(i:5)

Das hier ist ja auch noch CompilerMagic, wo der Compiler das eine "Write" auf einen/mehrere einzelne Befehle verteilt/umleitet.


Im Grunde erstellt man eine neue Funktion, mit dem gewünschten Inhalt.

Dann werden die ersten Bytes (meistens 5) in der originalen Funktion überschrieben, z.B. mit einem JMP (Assembler-Jump) zur neuen Funktion.
(vorher noch den Schreibschutz des Arbeitsspeichers, an dieser Stelle deaktivieren und nachher wieder herstellen)

Es gibt dafür auch mehrere Hook-Frameworks/Funktionen/..., von verschiedensten Leuten, falls man es nicht manuell machen will.

Aufwändiger wird es z.B. bei "externen" Funktionen der WinAPI, wo man stattdessen die Importtabelle (Zeiger) umschreiben kann, anstatt die Funktion selbst zu überschreiben. (muß man nur aufpassen, wenn man auch noch andere DLLs/Packages hat, die auch darauf zugreifen sollen)
Oder eben auch, wenn man selber mit Laufzeitpackages arbeitet, dann das sind ja auch nur DLLs, wo @DieGewünschteFunktion auf die ImportTabelle zeigt (welche aus vielen JMP-Befehlen besteht) und eben nicht direkt auf die Funktion.

[Union]

Zitat von arcticwolf:

Das hört sich interessant an, wie genau funktioniert das? Wie kann ich mich da dazwischen hängen?

1. Adressen der alten und neuen Funktion referenzieren (z.b. @System._writestring, @MyUnit.MyWriteString)
2. offset ermitteln (Integer(@MyUnit.MyWriteString) - Integer(@System._writestring) - 5). Die 5 sind der JMP Befehl sowie die vier Byte des Pointers.
3. $E9 + (offset and 255) + ((offset shr 8) and 255) + ((offset shr 16)) and 255 + ((offset shr 24) and 255) bilden. Das ergibt dann ein JMP rel32 auf die neue Funktionsadresse
4. Diese Bytefolge an die Adresse der alten Funktion setzen (move)

Den Aufruf in die initialization setzen, oder wenn das zu spät ist eine statische Klasse erstellen die das im class constructor macht.

Siehe auch https://c9x.me/x86/html/file_module_x86_id_147.html

[Stevie]

Hab ein paar Runtime Patches in Spring4d - kann man sich hier angucken (auch, wie das für x64 funktioniert, allerdings nur unter Windows so machbar)
Wie man die Adresse von ansonsten nicht referenzierbaren Funktionen aus System.pas bekommt, kann man hier auf Stackoverflow nachlesen.
In ganz seltenen Fällen kommt man nicht direkt an eine Funktion, wenn sie nur im Implementationteil einer Unit ist, da muss man sich dann mit nem bytecode Scan helfen - das findet man auch im oben verlinkten Sourcecode.

[Union]

Stefan, geil! Du hast Sogar die virtual Jumps ($25FF) gehandelt!

[Stevie]

Zitat von Union:

Stefan, geil! Du hast Sogar die virtual Jumps ($25FF) gehandelt!

Ehre, wem Ehre gebührt, das hat mir Andreas Hausladen mal vor Jahren beigebracht

[arcticwolf]

Vielen Dank Stefan!

Es ist tatsächlich so, dass sich die Funktionen aus der System.pas, wie zum Beispiel "_WriteLong" oder "_WriteString", nicht direkt aufrufen lassen. Also habe ich es wie folgt versucht und das scheint auch zu funktionieren.

Delphi-Quellcode:

function GetWriteLongAddress: Pointer;
asm
  {$ifdef CPU64}
    mov rax,offset System.@WriteLong
  {$else}
    mov eax,offset System.@WriteLong
  {$endif}
end;

function GetWriteStringAddress: Pointer;
asm
  {$ifdef CPU64}
    mov rax,offset System.@WriteString
  {$else}
    mov eax,offset System.@WriteString
  {$endif}
end;

Ich möchte einen Fehler in der Funktion _WriteLong korrigieren:

Delphi-Quellcode:

function _WriteLong(var t: TTextRec; val, width: Integer): Pointer;
var
  S: _ShortStr;
begin
  // Str(val:0, S);     Fehler
  Str(Val:width, S); // Korrigiert
  Result := _WriteString(t, S, width);
end;

Im Anschluß muss der richtige Wert wieder an die nicht direkt aufrufbare Funktion _WriteString aus der System.pas übergeben werden. Also dachte ich, nichts leichter als das und habe folgendes versucht:

Delphi-Quellcode:

Type TFuncWriteString = Function(var t: TTextRec; const s: ShortString; width: Integer) : Pointer;

Const FuncWriteString : TFuncWriteString = Nil;

// Fixed Function WriteLong form System.pas
function WriteLongFixed(var t: TTextRec; val, width: Integer): Pointer;
var
  S: ShortString;
begin
  Str(val:width, S);
  Result := FuncWriteString(t, S, width);
end;

procedure RedirectFunction(OrgProc, NewProc: Pointer);
type
  TJmpBuffer = packed record
    Jmp: Byte;
    Offset: Integer;
  end;
var
  n: UINT_PTR;
  JmpBuffer: TJmpBuffer;
begin
  JmpBuffer.Jmp := $E9;
  JmpBuffer.Offset := PByte(NewProc) - (PByte(OrgProc) + 5);
  if not WriteProcessMemory(GetCurrentProcess, OrgProc, @JmpBuffer, SizeOf(JmpBuffer), n) then
    RaiseLastOSError;
end;

procedure ApplyPatch;
begin
  FuncWriteString := GetWriteStringAddress;
  RedirectFunction(GetWriteLongAddress, @WriteLongFixed);
end;

Bei folgender Zeile wirft der Compiler den Fehler "E2009 Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'" aus.
FuncWriteString := GetWriteStringAddress;

Delphi-Quellcode:

    // Aus System.pas
    function _WriteString(var t: TTextRec; const s: _ShortStr; width: Integer): Pointer;
    begin
      Result := _WriteLString(t, s, width);
    end;

    // Meine Deklaration (siehe oben)
    Function(var t: TTextRec; const s: ShortString; width: Integer) : Pointer;

Wobei _ShortStr nur ein Alias für ShortString ist. Ergo sehe ich das Problem nicht!?

FuncWriteString := @GetWriteStringAddress; Funktioniert (lässt sich compilieren) und im Debug-Modus springt Delphi dann auch in meine Funktion WriteLongFixed (Redirect funktioniert also). Der Aufruf von FuncWriteString wird dann jedoch mit einem IoError 103 quittiert.

Wie muss ich die Funktion _WriteString aus der System.pas richtig aufrufen/addresieren, damit das funktioniert? Ich stehe auf dem Schlauch.

[himitsu]

Oder dieses komische Zeugs lassen wie es ist
und statt dieser "uralten" Pascal-Funktionen z.B. den TStringStream oder TFile.WriteAllText oder TStringList oder TFileStream oder oder oder ... verwenden.


Jupp, _ShortStr ist ein "Ersatz" in der System.pas, da es in den Mobilen Compilern (iOS, Android) keinen ShortString gibt/gab.