[Source] Inyeccion Dll en VB

[~~]

1-podrias publicar ese codigo de inyeccion para C# (es posible eso?)

Buscalo por el foro de Net, q ya está posteado de todas maneras el 90% del code son apis, no te costará mucho traducirlo tu mismo

2-se puede crear un DLL (dinamico) con C#

Si, si se puede crear una dll, pero no te valdrá para inyectar, ya q usa codigo MSIL, no codigo nativo como puede usar C/C++

3- osea si quiero crear mi libreria (*.DLL) y inyectarlo con C# (*.exe) a una cierta aplicacion... tengo que crear todas mis funciones en modo c++?

Si, puedes inyectar desde C#, pero la dll mejor q la hagas en C/C++ (sabiendo C# no te costará nada hacerrla en C++ )

Salu2

[cobein]

Bueno al parecer no paran de discutir acerca de esto aca les dejo un ejemplo de un programa que inyecta una dll para modificar el aspecto del escritorio, esta todo hecho en VB y compilado con el mismo.

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=65301&lngWId=1

[carolmuriel]

he aqui un ejemplo que solucionara muchas de sus dudas esta probado por lo tanto funciona asi que bueno no es mio pero se que esta hecho a la perfeccion

http://foro.elhacker.net/index.php/topic,188986.0.html

de un user de aqui mismo

[Freeze.]

Aqui traigo una duda:

Tengo esto en la dll:

Código (vb) [Seleccionar] Expandir


Option Explicit
Public Function DLLMain( _
       ByVal lhModule As Long, _
       ByVal lReason As Long, _
       ByVal lReserved As Long) As Long
   
    Select Case lReason
        Case DLL_PROCESS_ATTACH: Call RemomoveDll
    End Select
   
    DLLMain = 0
   
End Function
Private Sub Main(): End Sub
Private Sub RemomoveDll()
    Dim hLib As Long
    hLib = GetModuleHandle("DllInject")
    If Not hLib = ilNULL Then FreeLibrary (hLib)
End Sub
Public Sub Mensaje(texto As String)
MsgBox texto
End Sub


Y esto en el proyecto:

Código (vb) [Seleccionar] Expandir


Private Declare Function Mensaje Lib "lol.dll" (texto As String)
Private Sub Form_Load()
Mensaje "hola"
End Sub


Me dice que no encuentra el entry point en la dll. Según todo lo que lei en este post dice que este es el entry point:

Código (vb) [Seleccionar] Expandir


Public Function DLLMain( _
       ByVal lhModule As Long, _
       ByVal lReason As Long, _
       ByVal lReserved As Long) As Long
   
    Select Case lReason
        Case DLL_PROCESS_ATTACH: Call RemomoveDll
    End Select
   
    DLLMain = 0
   
End Function


Tengo esa duda porque pense que ese era el entry point y veo que no :S

[cobein]

Primero tenes que compilar la dll de manera especial con algun control de compilador, y segundo tenes que exportar la funcion, en este caso "Mensaje".

Lee el post que hice, el mismo de donde sacaste el ejemplo que lo explica en pocas palabras.

Tu code tendria que quedar asi.

Código (vb) [Seleccionar] Expandir

Option Explicit
Public Function DLLMain( _
       ByVal lhModule As Long, _
       ByVal lReason As Long, _
       ByVal lReserved As Long) As Long

    DLLMain = 1

End Function

Public Sub Mensaje(texto As String)
MsgBox texto
End Sub

[Freeze.]

A que te refieres cuando dices:

"control de compilador"
"Exportar la Funcion"

¿Supongo que ya lo hize o no?

[cobein]

Necesitas un add-in para vb (hay otros tipos) que te permita, antes de llamar al linker, modificar la linea de comandos de vb cuando compila. De esa forma vas a poder crear librerias similares a las de C++ o cualquier otro lenguaje y vas a poder llamar mediante apis a las funciones que esta misma exporte.

Podes usar VBadvance, C2 o por aca en este mismo tema hay uno del ElGuille para compilar.

[Freeze.]

Ok, muchas gracias.

[invisible_hack]

Jajaja oye Hendrix muy bueno lo de...CopyLeft...ajajajaajaj....en vez de CopyRigth..

No, ahora en serio, excelente code, si me lo permites lo posteare en mi foro....con los respectivos creditos claro...

Saludos

[Hendrix]

El CopyLeft no me lo invente yo como parodia...el copyleft existe

http://es.wikipedia.org/wiki/Copyleft

Un Saludo