Cargar dinamicamente una dll en VB6

[[escafandra]]

He estado fuera de casa en estos días y no he podido contestar.

No deberías tener problemas para inyectar una dll en cualquier proceso que corra en windows, siempre que respetes la compilación en 32bits ó 64 bits, según sea el caso. Aquí tienes una forma de hacerlo. Es independiente del lenguaje original, por lo tanto es igual que el binario provenga de BV u otro.

El hecho de que ciertas APIs no figuren en la IAT del proceso a inyectar, no quiere decir que no las puedas usar. Todo proceso carga Kernel32.dll, para más curiosidad revisa esto: Shellcode en C compatible con distintas inyecciones

Saludos.

[aguml]

al final lo hice de otra manera. Como la aplicacion corre dentro de un loader debugger, lo que hago es usar VirtualAllocEx y solicito memoria para copiar las funciones de la dll. Luego pongo unos bps donde deseo y desde esas zonas injerto los push necesarios, el call correspondiente y el retn. De todos modos me interesa mucho tu codigo pero tengo una duda. En xp si en un pc llamas a una api, siempre obtendrás el mismo hmodule pero, segun tengo entendido, a partir de Vista ya no es asi y puede cambiar entre ejecuciones y veo que LoadLibrary lo obtienes en tu proceso ¿No daria problemas en Vista/7/8?

[[escafandra]]

Las inyecciones en win32 sea WinXP, Vista, Win7 o Win8 funcionan localizando la API LoadLibrary, o cualquiera desde el proceso inyector. Pero tienes razón en que MS$ puede cambiar la política de la localización de las direcciones de la API. Para solventar el problema, realicé este ejemplo de shellcode que localiza el BaseAddress de kernel32.dll. Seoane lo hizo de esta otra manera. Así conoceremos las direcciones de las API desde el mismo proceso anfitrión, y no desde el inyector.


Saludos.

[aguml]

claro,lo que varia es la posicion base donde se carga la dll pero si puedes ejecutar esas funciones desde el anfitrion pues resuelves el problema. Ahora mismo estoy encamado con fiebre pero cuando me encuentre mejor los miro con mas detenimiento ya que en delphi no me entero mucho. Otra cosa amigo, si uso VirtualAllocEx, cuando se cierra la aplicacion a la que le he asignado la memoria ¿Se libera sola la memoria o tengo que hacerlo yo a mano con VirtualFreeEx? Segun veo con Cheat engine, cuando se cierra la aplicacion la memoria se vuelve inaccesible pero no lo tengo claro.

[[escafandra]]

Lo suyo y lo limpio es liberar la memoria cuando ya no la quieres.

Saludos.

[aguml]

Bueno, al final lo que estaba haciendo no me iba bien del todo ya que en unas funciones de la dll funcionaba y en otras crasheaba creo que porque como solo copio las funciones pues al ejecutarse supongo que buscaba alguna cosa de la dll y booom.
Lo estoy intentando pasar todo para usarlo con lo que pusiste y de momento para cargar la dll tengo esto:

Código PHP:

void __fastcall TFormMain::OnEntryPoint(DWORD Address)
{
   // Inyecta la dll
   AnsiString dll = "DLLHack.dll";
   HANDLE  hThread = 0;
   DWORD   ExitCode = 0;
   LPTHREAD_START_ROUTINE hLib;

   // Localizo memoria en el espacio de direcciones de la víctima
   void*  Buffer = VirtualAllocEx((HANDLE)Depurador->GetHProcess(), NULL, dll.Length()+1, MEM_COMMIT|MEM_RESERVE,PAGE_READWRITE);

   if(Buffer){
      if(Depurador->WriteMemory((unsigned long)Buffer, dll.c_str(), dll.Length()+1)){
         hLib = (LPTHREAD_START_ROUTINE)Depurador->GetAddressAPIByName("Kernel32.dll", "LoadLibraryA");
         if(hLib){
            hThread =:: CreateRemoteThread(Depurador->GetHProcess(), NULL, 0, hLib, Buffer, 0, 0);
            if(hThread){
               WaitForSingleObject(hThread, INFINITE ); // Espero a que se cree el Thread
               GetExitCodeThread(hThread, &ExitCode);   // Termino el Thread
               CloseHandle(hThread);                    // Cierro el Handle hThread
            }
         }
      }
      // libero la memoria localizada...
      VirtualFreeEx((HANDLE)Depurador->GetHProcess(), Buffer, 0, MEM_RELEASE); // Libero memoria
   }
} 


Como corre dentro de un depurador, tengo metodos para obtener la direccion de las apis dentro del proceso y otras cosas mas.
El problema que tengo es que se queda congelado en el WaitForSingleObject aunque si lo miro con el Cheat Engine puedo ver como se ha creado el hilo. ¿que puedo hacer para solucionar eso?

[[escafandra]]

Probablemente es un problema en el depurador, intenta esto:

Código PHP:

.............................
         if(hLib){
            CloseHandle(CreateRemoteThread(Depurador->GetHProcess(), NULL, 0, hLib, Buffer, 0, 0));
         }
........................ 


Saludos.