DLL Injector Source Code

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.8.1
    Author: Naker90

    Script Function:
    Inyecta una DLL en un proceso en ejecucion

    Testeado en W7 x32 y x64

    Agradecimientos a M3 & Pink

    Ejemplo de uso:
    InjectDLL('C:\Users\Naker90\Desktop\Mensaje.dll', 'calc.exe')

#ce ----------------------------------------------------------------------------

Func InjectDLL($sDLLPath, $sProcess)

    Const $PROCESS_ALL_ACCESS = 0x1F0FFF
    Const $MEM_RESERVE = 0x00001000
    Const $PAGE_READWRITE = 0x40

    ;Obtenemos el PID del proceso a injectar
    Local $sProcessID = ProcessExists($sProcess)

    ;Si el PID es 0, ejecutamos el proceso y obtenemos el PID de este
    If $sProcessID = 0 Then
        ShellExecute($sProcess)
        ;Damos tiempo para que se abra el proceso, si no se da el tiempo de espera el proceso se cuelga
        Sleep(500)
        $sProcessID = ProcessExists($sProcess)
    EndIf

    ;Abrimos el objeto del proceso existente
    Local $sOpen = DllCall('Kernel32.dll', 'handle', 'OpenProcess', 'dword', $PROCESS_ALL_ACCESS, 'bool', False, 'dword', $sProcessID)
    ;depuramos para saber si existe algun error
    If Not ($sOpen[0]) Then
        MsgBox(64, 'ERROR', 'Hubo un error abriendo el proceso ' & $sProcess)
    EndIf

    ;Reservamos memoria en el objeto del proceso que abrimos anteriormente
    Local $sStruct = DllStructCreate('byte[' & BinaryLen($sDLLPath) & ']')
    Local $sMemory = DllCall('Kernel32.dll', 'handle', 'VirtualAllocEx', 'handle', $sOpen[0], 'ptr', 0, 'ULONG_PTR', DllStructGetSize($sStruct), 'dword', $MEM_RESERVE, 'dword', $PAGE_READWRITE)
    ;depuramos para saber si existe algun error
    If Not ($sMemory[0]) Then
        MsgBox(64, '', 'Hubo un error reservando memoria')
    EndIf

    ;Escribimos en el espacio de memoria obtenido anteriormente la ruta de la DLL
    Local $sWriteMemory = DllCall('Kernel32.dll', 'int', 'WriteProcessMemory', 'handle', $sOpen[0], 'ptr', $sMemory[0], 'str', $sDLLPath, 'ULONG_PTR', DllStructGetSize($sStruct), 'ULONG_PTR', 0)
    ;depuramos para saber si existe algun error
    If Not ($sWriteMemory[0]) Then
        MsgBox(64, '', 'Hubo un error en la escritura en memoria')
    EndIf

    ;Obtenemos la direccion de LoadLibrary, para ello utilizamos GetProcAdress.
    Local $sGetModuleHandle = DllCall('Kernel32.dll', 'handle', 'GetModuleHandleA', 'str', 'Kernel32.dll')
    Local $sGetProcAdress = DllCall('Kernel32.dll', 'handle', 'GetProcAddress', 'dword', $sGetModuleHandle[0], 'str', 'LoadLibraryA')
    ;depuramos para saber si existe algun error
    If Not ($sGetProcAdress[0]) Then
        MsgBox(64, '', 'Hubo un error obteniendo la direccion de LoadLibrary')
    EndIf

    ;Lanzamos un hilo con CreateRemoteThread, dando como punto de entrada la direccion de LoadLibrary
    Local $sRemoteThread = DllCall('Kernel32.dll', 'Bool', 'CreateRemoteThread', 'int', $sOpen[0], 'ptr', 0, 'ULONG_PTR', 0, 'ptr', $sGetProcAdress[0], 'ptr', $sMemory[0], 'dword', 0, 'dword', 0)
    ;depuramos para saber si existe algun error
    If Not ($sRemoteThread[0]) Then
        MsgBox(64, '', 'Hubo un error lanzando el hilo')
    EndIf

    ;Esperamos hasta que el objeto este señalado (0x7FFFFFFF = INFINITE)
    Local $sWait = DllCall('Kernel32.dll', 'ptr', 'WaitForSingleObject', 'handle', $sRemoteThread[0], 'dword', 0x7FFFFFFF)

    ;Una vez terminada la inyeccion cerramos los handles abiertos
    Local $sClose1 = DllCall('Kernel32.dll', 'int', 'CloseHandle', 'handle', $sOpen[0])
    Local $sClose2 = DllCall('Kernel32.dll', 'int', 'CloseHandle', 'handle', $sMemory[0])
    ;Volbemos a depurar
    If Not ($sClose1[0]) And ($sClose2[0]) Then
        MsgBox(64, '', 'Error cerrando los handles')
    EndIf

    If $sRemoteThread[0] = False Then
        MsgBox(64, '', 'Error Injectando la DLL')
    Else
        MsgBox(64, '', 'DLL Injectada con exito')
    EndIf
EndFunc   ;==>InjectDLL