Delphi-System-Funktion ersetzen

[himitsu]

Ist gut und schön und im Prinzip funktioniert es,

wenn man den Zeiger zur Funktion kennt/bekommt.
Und das ist mein Hauptproblem ... an den komm ich nicht ran.

Delphi-Quellcode:

begin
  p := @_IntfCast;
  p := @IntfCast;
  p := @System._IntfCast;
  p := @System.IntfCast;
end;

asm
  call _IntfCast;
  call IntfCast;
  call System._IntfCast;
  call System.IntfCast;
end;

Es heißt immer _IntfCast oder IntfCast sei unbekannt.

[shmia]

Also bei meinem Delphi 5 kommt vor den Funktionen IntfClear() und IntfCast() die Funktion LoadResString();
Man könnte nun den Zeiger auf LoadResString() anfordern und einen festen Offset dazuaddieren.
Um an den Offset zu kommen muss man sich die Adressen der Funktionen im CPU-Fenster anzeigen lassen und voneinander abziehen.
Das ist natürlich sehr unsauber aber der Zweck heiligt die Mittel.

Delphi-Quellcode:

// Codebeispiel um die Funktion IntfCast zu finden
procedure TForm1.ButtonTestClick(Sender: TObject);
var
   i : IDispatch;
   t : IUnknown;
begin
   // Breakpoint
   asm
      int 3
   end;
   // CPU-Fenster anzeigen lassen und per Singlestep weiter bis @IntfCast gehen
   i := t as IDispatch;
end;

[guinnes]

Das wird wohl an der Compiler-Magic liegen.

In einem Contruct wie BlaBla := Fu as Bar sollte die Funktion aufgerufen werden ( Kann man ja im integrierten Disassembler überprüfen )

Mist, zu langsam

[Thom]

Delphi-Quellcode:

function GetIntfCastAddr: Pointer;
asm
  lea eax,System.@IntfCast;
end;

[himitsu]

Zitat von Thom:

Delphi-Quellcode:

function GetIntfCastAddr: Pointer;
asm
  lea eax,System.@IntfCast;
end;

Hatte zwar schon einige Varianten durchprobiert.
Ich würde dich abknutschen, aber ich glaub ich laß das.

Delphi-Quellcode:

var
  PIntfCast: Pointer;

begin
  RedirectProcedureCall(Pointer($004099E8), @ExtendedIntfCast);

  RedirectProcedureCall(Pointer(NativeInt(@TInterfacedObject.AfterConstruction) - 60), @ExtendedIntfCast);

  asm
    LEA EAX, System.@IntfCast
    MOV &PIntfCast, EAX
  end;
  RedirectProcedureCall(PIntfCast, @ExtendedIntfCast);

Da ich diese Funktion auch demnächte veröffentlichen würde (in 'ner Unit verpackt), gefällt mir Letzeres natürlich besser.
(muß dann nur noch irgendwann mal sehn, wie das mit Win64 und Co. aussieht)

[Bummi]

@himitsu
das sieht irgendwie abenteuerlich um nicht zu sagen bedrohlich aus

[himitsu]

Was davon?

[Bummi]

alles, aber das dürfte daran liegen dass ich Dir nicht mehr folgen kann