Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Miseryk en 8 Octubre 2010, 08:27 am



Título: [Ayuda] Callings Sub y Functions
Publicado por: Miseryk en 8 Octubre 2010, 08:27 am
Hola, quería saber si me podrían guiar con este tema:

Yo inyecto una dll en un programa, el programa tiene muchas funciónes y procedimientos, como hago para llamarlos desde la dll inyectada? alguna idea? Desde ya muchas gracias por resolver y aclarar mis dudas en los posts. :D ;-) :laugh: ;-) :laugh:

Ej: del ejecutable.

Option Explicit

Private Sub Command1_Click()
Dim var As Long

var = VarPtr(Valor(1, 1))

MsgBox var & " (" & Hex(var) & ")"
End Sub

Public Function Valor(ByVal v1 As Long, ByVal v2 As Long) As Long
Valor = v1 + v2
End Function

Esto hice para saber el address de la función.


Título: Re: [Ayuda] Callings Sub y Functions
Publicado por: fary en 8 Octubre 2010, 20:52 pm
Fijate si te sirve la api CallWindowProc.

salu2!



Título: Re: [Ayuda] Callings Sub y Functions
Publicado por: BlackZeroX en 9 Octubre 2010, 02:56 am
Hola, quería saber si me podrían guiar con este tema:

Yo inyecto una dll en un programa, el programa tiene muchas funciónes y procedimientos, como hago para llamarlos desde la dll inyectada? alguna idea? Desde ya muchas gracias por resolver y aclarar mis dudas en los posts. :D ;-) :laugh: ;-) :laugh:

Ej: del ejecutable.

Option Explicit

Private Sub Command1_Click()
Dim var As Long

var = VarPtr(Valor(1, 1))

MsgBox var & " (" & Hex(var) & ")"
End Sub

Public Function Valor(ByVal v1 As Long, ByVal v2 As Long) As Long
Valor = v1 + v2
End Function

Esto hice para saber el address de la función.

lo que haces hay no es devolver la dirección del proceso, devuelves la dirrecion de variable de RESULTADO del Proceso

si quieres saber la dirrecion del Proceso, Funcion, u otra cosa similar

En un Modulo (Bas)

Código
  1.  
  2. Option Explicit
  3.  
  4. Sub main()
  5. Dim ThisAddress&
  6.    ThisAddress& = Adrs&(AddressOf procesoX)
  7.    MsgBox ThisAddress& & " - (" & Hex(ThisAddress&) & ")"
  8. End Sub
  9.  
  10. Public Function Adrs(ByVal Addrs As Long) As Long
  11.    Adrs& = Addrs&
  12. End Function
  13.  
  14. Public Function procesoX(ParamArray ParametrosX() As Variant) As String
  15.  
  16. End Function
  17.  
  18.  

Dulce Infierno Lunar!¡.


Título: Re: [Ayuda] Callings Sub y Functions
Publicado por: Miseryk en 9 Octubre 2010, 21:25 pm
Wow, muchisimas gracias.  ;-)


Título: Re: [Ayuda] Callings Sub y Functions
Publicado por: Miseryk en 11 Octubre 2010, 23:55 pm
Hola, quería saber si me podrían guiar con este tema:

Yo inyecto una dll en un programa, el programa tiene muchas funciónes y procedimientos, como hago para llamarlos desde la dll inyectada? alguna idea? Desde ya muchas gracias por resolver y aclarar mis dudas en los posts. :D ;-) :laugh: ;-) :laugh:

Ej: del ejecutable.

Option Explicit

Private Sub Command1_Click()
Dim var As Long

var = VarPtr(Valor(1, 1))

MsgBox var & " (" & Hex(var) & ")"
End Sub

Public Function Valor(ByVal v1 As Long, ByVal v2 As Long) As Long
Valor = v1 + v2
End Function

Esto hice para saber el address de la función.

lo que haces hay no es devolver la dirección del proceso, devuelves la dirrecion de variable de RESULTADO del Proceso

si quieres saber la dirrecion del Proceso, Funcion, u otra cosa similar

En un Modulo (Bas)

Código
  1.  
  2. Option Explicit
  3.  
  4. Sub main()
  5. Dim ThisAddress&
  6.    ThisAddress& = Adrs&(AddressOf procesoX)
  7.    MsgBox ThisAddress& & " - (" & Hex(ThisAddress&) & ")"
  8. End Sub
  9.  
  10. Public Function Adrs(ByVal Addrs As Long) As Long
  11.    Adrs& = Addrs&
  12. End Function
  13.  
  14. Public Function procesoX(ParamArray ParametrosX() As Variant) As String
  15.  
  16. End Function
  17.  
  18.  

Dulce Infierno Lunar!¡.


Y como puedo hacer ahora para llamar esta funcion desde una dll (Injected) :), desde ya muchisimas gracias :)