8 replies to this topic

[fatetmpmgecs]

Primero que todo he llegado a este foro de delphi y he encontrado muchos articulos interesantes y por eso me anime a solicitar un poco de guia.

 

Estoy tratando de hookear algunas function con KOLDetours de una dll, no tengo mucho conocimiento sobre delphi.

 

Para ilustrar un poco mi contexto:

 

dll ejemplo de la funcion que quiero hookear

delphi

library dll_target;
 
uses
  SysUtils,
  Classes;
 
function fun(a: integer): integer; stdcall;
begin
     Result := a + 1;
end;
 
exports
       fun;
end.

dll proxy:

delphi

library dll_proxy;
uses
  SysUtils,
  Classes,
  KOLDetours;
 
function fun(a: integer): integer; stdcall external 'dll_target.dll';
function fun_proxy(a: integer): integer; stdcall;
begin
     Result := a + 2;
end;
begin
 InterceptCreate(@fun, @fun_proxy);
end.

app

delphi

function fun(a: integer): integer; stdcall external 'dll_target.dll';
begin
fun(1);
end. 

Como se ve estoy tratando de hookear a fun cuando es llamada en app, la compilacion sucede sin imprevistos pero a la hora de inyectar(CreateRemoteThread) la dll se presenta un mensaje de violacion de acceso.

 

Otra duda que tengo es necesario usar la misma version de delphi de la dll original?, Gracias.

[escafandra]

Bien venido fatetmpmgecs,
 

Como se ve estoy tratando de hookear a fun cuando es llamada en app, la compilacion sucede sin imprevistos pero a la hora de inyectar(CreateRemoteThread) la dll se presenta un mensaje de violacion de acceso.

 
Otra duda que tengo es necesario usar la misma version de delphi de la dll original?, Gracias.

Parece que tu problema se inicia con la inyección de la dll. Existen varios métodos y el que tu quieres usar en con CreateRemoteThread pero no has puesto nada del código que te da el error.
En el foro tienes información sobre el uso de CreateRemoteThread para inyectar una dll. Mira esto: InjectCRT

Sobre el asunto de si puedes inyectar una dll de diferentes versiones de delphi, te respondo que por supuesto, como si se escribió en otro lenguaje, pero si tienen una limitación. No puedes inyectar una dll escrita para 64 bits en una aplicación de 32 bits y viceversa.

 

Saludos.

[fatetmpmgecs]

Gracias escafandra por introducirme, el error es:

 

 

 

Version:1.0 StartHTML:0000000105 EndHTML:0000000710 StartFragment:0000000538 EndFragment:0000000674

The instruction at 0x4DABDAE referenced memory at 0x60BB28. The memory could not be written -> 0060BB28 (exc.code c0000005, tid 2940)

 

0x60BB28

php

dll_target.dll:0060BB28 dll_target_fun proc near
dll_target.dll:0060BB28
dll_target.dll:0060BB28 arg_0= dword ptr  8
dll_target.dll:0060BB28
dll_target.dll:0060BB28 push    ebp
dll_target.dll:0060BB29 mov     ebp, esp
dll_target.dll:0060BB2B mov     eax, [ebp+arg_0]
dll_target.dll:0060BB2E inc     eax
dll_target.dll:0060BB2F pop     ebp
dll_target.dll:0060BB30 retn    4
dll_target.dll:0060BB30 dll_target_fun endp

0x4DABDAE

php

dll_proxy.dll:04DABDAE mov     byte ptr [edx], 0E9h
dll_proxy.dll:04DABDB1 inc     edx
dll_proxy.dll:04DABDB2 mov     esi, edx
dll_proxy.dll:04DABDB4 dec     esi
dll_proxy.dll:04DABDB5 add     esi, 5
dll_proxy.dll:04DABDB8 sub     ecx, esi
dll_proxy.dll:04DABDBA mov     [edx], ecx
dll_proxy.dll:04DABDBC add     edx, 4
dll_proxy.dll:04DABDBF sub     eax, 5
dll_proxy.dll:04DABDC2 test    eax, eax
dll_proxy.dll:04DABDC4 jle     short loc_4DABDCF

Creo que es cuando trata de escribir el salto en la funcion, lo que no habia dicho era que me toco cambiar L1202 en koldetours

delphi

VirtualProtect(Code,Size,Permission,Result);

por

php

var
backup: Pointer;   
...
VirtualProtect(Code,Size,Permission,backup);
Result := Longword(backup)

por que en delphi4 no me compilaba, puede que sea por eso.

 

Aun que con la duda que me resolvistes puedo tratar con otras libs por que me limitaba a delphi4 (y muchas libs no son compatibles alparecer) o incluso  otro lenguaje como sugieres pero ya que no se mucho delphi voy aprovechar para aprender un poco, solo que obtendre otra version mas reciente que no me presente tantos errores al compilar.

 

Tambien tengo otra duda, he visto en algunas partes que implementan este codigo que tan necesario es en delphi?

delphi

procedure DllEntry(pReason:DWORD);
begin
   case pReason of
     DLL_PROCESS_ATTACH: CreateIntercepts();
     DLL_PROCESS_DETACH: RemoveIntercepts();
     DLL_THREAD_ATTACH:;
     DLL_THREAD_DETACH:;
   end;
end;
 
begin
  DllProc:= @DllEntry;
  DllEntry(DLL_PROCESS_ATTACH);
end.

Muchas Gracias!.

Edited by fatetmpmgecs, 24 February 2022 - 10:48 PM.

[escafandra]

Tambien tengo otra duda, he visto en algunas partes que implementan este codigo que tan necesario es en delphi?

delphi

procedure DllEntry(pReason:DWORD);
begin
   case pReason of
     DLL_PROCESS_ATTACH: CreateIntercepts();
     DLL_PROCESS_DETACH: RemoveIntercepts();
     DLL_THREAD_ATTACH:;
     DLL_THREAD_DETACH:;
   end;
end;
 
begin
  DllProc:= @DllEntry;
  DllEntry(DLL_PROCESS_ATTACH);
end.

En ocasiones el desarrollador de la dll necesita que se ejecute cierto código cuando es cargada por un proceso o cuando es descargada. En el caso de un hook con inyección dll,  querremos realizarlo al cargar la librería. 

 

No es necesario escribir todo lo que muestras sino sólo DLL_PROCESS_ATTACH para arrancar el hook y DLL_PROCESS_DETACH si quieres liberar el hook al liberar la dll. 

 

Saludos.

[fatetmpmgecs]

En ocasiones el desarrollador de la dll necesita que se ejecute cierto código cuando es cargada por un proceso o cuando es descargada. En el caso de un hook con inyección dll,  querremos realizarlo al cargar la librería. 

 

No es necesario escribir todo lo que muestras sino sólo DLL_PROCESS_ATTACH para arrancar el hook y DLL_PROCESS_DETACH si quieres liberar el hook al liberar la dll. 

 

Saludos.

 

Ok, en mi caso no creo que necesite implemetarlo ya que no ocupo liberar la dll despues de cargada, Gracias por responder!.

[fatetmpmgecs]

Ya pude inyectar!, era por lo que habia comentado de la parte que tuve que cambiar de koldetours era:

delphi

VirtualProtect(Code,Size,Permission,@Result); //LondWord(Result) por @Result

El parametro guarda los derechos actuales del espacio de memoria, en C seria &old_protect y en delphi @old_protect solo para aclarar a quien le sirva. 

[egostar]

Ya pude inyectar!, era por lo que habia comentado de la parte que tuve que cambiar de koldetours era:

delphi

VirtualProtect(Code,Size,Permission,@Result); //LondWord(Result) por @Result

El parametro guarda los derechos actuales del espacio de memoria, en C seria &old_protect y en delphi @old_protect solo para aclarar a quien le sirva. 

 

Excelente, gracias por compartir. 

 

Saludos

 

PD, Lo marco como resuelto.

[escafandra]

Ya pude inyectar!, era por lo que habia comentado de la parte que tuve que cambiar de koldetours era:

delphi

VirtualProtect(Code,Size,Permission,@Result); //LondWord(Result) por @Result

El parametro guarda los derechos actuales del espacio de memoria, en C seria &old_protect y en delphi @old_protect solo para aclarar a quien le sirva.

 

 
Una aclaración sobre el tema, hay que distinguir entre inyectar y hacer un hook.
 
La inyección de código se refiere a colocar código ageno al proceso en su espacio de direcciones. Se inyecta bien con una dll o de forma directa (sobre esto tienes dos tutoriales en el foro).
 
Cuando hablamos de hook (detours) nos referimos a interceptar una API o función del proceso desviando su código hacia otro código previamente inyectado. Windows dispone de otros tipos de hook en su propia API previstas en el S.O. que permiten interceptar teclado, ratón, mensajes y otras cosas, pero no son objeto de este hilo.
 
Es este segundo proceso en el que es necesario ajustar los permisos de memoria y preferiblemente con VirtualProtectEx. Aquí tienes un tutorial de cómo realizar un hook a la API sin herramientas externas y a bajo nivel: 
HOOK a la API en delphi y en C (trampolín)
 
Saludos.

[fatetmpmgecs]

 
Una aclaración sobre el tema, hay que distinguir entre inyectar y hacer un hook.
 
La inyección de código se refiere a colocar código ageno al proceso en su espacio de direcciones, para luego obligar al proceso a ejecutar ese código inyectado. Se inyecta bien con una dll o de forma directa (sobre esto tienes dos tutoriales en el foro).
 
Cuando hablamos de hook (detours) nos referimos a interceptar una API o función del proceso desviando su código hacia otro código previamente inyectado. Windows dispone de otros tipos de hook en su propia API previstas en el S.O. que permiten interceptar teclado, ratón, mensajes y otras cosas, pero no son objeto de este hilo.
 
Es es este segundo proceso en el que es necesario ajustar los permisos de memoria y preferiblemente con VirtualProtectEx. Aquí tienes un tutorial de cómo realizar un hook a la API sin herramientas externas y a bajo nivel: 
HOOK a la API en delphi y en C (trampolín)
 
Saludos.

 

 ... Probare APIHook parace mas ligera gran aporte!.