Autor
|
Tema: Obtener puntero de funcion dentro de un form o class. (Leído 13,398 veces)
|
F3B14N
Desconectado
Mensajes: 47
|
Hola, estoy tratando de obtener el puntero de una funcion que esta dentro de un form o class. La cual no puedo mover a un modulo y usar AddressOf porque es usada por varios hilos, necesito cada funcion independiente. Pero para hacer ello tiene que estar dentro de un class o form, y no puedo obtener su puntero Intente esto: http://www.programmersheaven.com/mb/VBasic/237946/237949/re-hot-to-find-the-address-of-a-function/Call CallWindowProc(ByVal GetDWORD(ObjPtr(Me) + ((FunctionIndex - 1) * 4) + 12), 0, 0, 0, 0)
Agradeceria de su ayuda
|
|
« Última modificación: 29 Abril 2011, 04:42 am por F3B14N »
|
En línea
|
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Lo estas haciendo bien, para obtener el puntero has de leer la vTable.... Pero estas leyendo mal el puntero... el puntero a la funcion no se encuentra en el Offset 0xC, sino en el 0x1C... es decir, el puntero estaría aquí: ObjPtr(oObjeto) + (Indice * 4) + &H1C Creo que así podrás obtener el puntero
|
|
|
En línea
|
|
|
|
F3B14N
Desconectado
Mensajes: 47
|
Lo estas haciendo bien, para obtener el puntero has de leer la vTable.... Pero estas leyendo mal el puntero... el puntero a la funcion no se encuentra en el Offset 0xC, sino en el 0x1C... es decir, el puntero estaría aquí: ObjPtr(oObjeto) + (Indice * 4) + &H1C Creo que así podrás obtener el puntero Gracias por tu respuesta karcrack, no lo logré, probé de estas dos formas y mas variantes tambien, pero parece que el puntero no es el correcto. clsOption Explicit Public Function llamame(ByVal jj, ByVal dd, ByVal tt, ByVal jaja) As Long MsgBox "hola" End Function Public Sub oo() Dim dd As Long Dim jj As Long dd = GetDWORD(ObjPtr(Me)) jj = GetDWORD(dd + (1 * 4) + &H1C) MsgBox jj Call CallWindowProc(ByVal jj, 0, 0, 0, 0) End Sub Private Function GetDWORD(ByVal lAddr As Long) As Long Call NtWriteVirtualMemory(-1, GetDWORD, ByVal lAddr, 4, ByVal 0&) End Function
clsOption Explicit Public Function llamame(ByVal jj, ByVal dd, ByVal tt, ByVal jaja) As Long MsgBox "hola" End Function Public Sub oo() Dim dd As Long dd = GetDWORD(ObjPtr(Me) + (1 * 4) + &H1C) MsgBox dd Call CallWindowProc(ByVal dd, 0, 0, 0, 0) End Sub Private Function GetDWORD(ByVal lAddr As Long) As Long Call NtWriteVirtualMemory(-1, GetDWORD, ByVal lAddr, 4, ByVal 0&) End Function
El intento dos devuelve 3 . Las apis usadas las puse en otro modulo, y a ese class lo llame desde un form. Voy a informarme de la vTable, pero no hay nada mejor que una ayuda de un experto Saludos
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
El indice de la primera funcion es 0... de todas formas ahora abro el OllyDbg y le doy un vistazo
|
|
|
En línea
|
|
|
|
F3B14N
Desconectado
Mensajes: 47
|
El indice de la primera funcion es 0... de todas formas ahora abro el OllyDbg y le doy un vistazo Ya habia probado con 0 tambien, pero no va Option Explicit Private Declare Function NtWriteVirtualMemory Lib "NTDLL" (ByVal hProcess As Long, ByRef lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Function llamame() MsgBox "hola" End Function Public Sub oo() Dim lVTE As Long Dim lPtr As Long lVTE = GetDWORD(ObjPtr(Me)) lPtr = GetDWORD(lVTE + &H1C) Call CallWindowProc(ByVal lPtr, 0, 0, 0, 0) End Sub Private Function GetDWORD(ByVal lAddr As Long) As Long Call NtWriteVirtualMemory(-1, GetDWORD, ByVal lAddr, 4, ByVal 0&) End Function
lPtr parece ser el puntero correcto. Pero da error 'No se establecio la variable object', pareciera que ObjPtr devuelve el puntero de la clase no inicializada, en vez de la clase establecida en el objecto y a eso se debe ese error!!? El ejemplo de cobein, sobreescribe por el puntero a un ShellCode y por eso no hay error!? Será posible esto?
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Has de tener en cuenta que la forma en la que se llaman las funciones de las clases no es push,push,call... (Que es como el CallWindowProc hace) si no que son cosas raras de COM y yo-que-se Es decir, aunque consigas el puntero correcto no lo podras llamar asi... Al menos hasta donde yo se
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. Quisas ayuden estos.... Cls Ctl En ambos se hace una sub-clasificacion pero hara eso se debe obtener el puntero a la función... pero bueno hay esta el código, igual ayuda en algo. por otro lado un tienes la funcion CallByname de vb6 y tambien tienes la libreria TLI. Dulces Lunas!¡.
|
|
« Última modificación: 30 Abril 2011, 22:02 pm por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
Nadie destripo el clsSubClass de Paul Caton (la version modificada por LaVolpe muy usado por Leandro y por mi)?? . En la cual hay una funcion scb_GetCallBackAddr (o similar, estoy en el movil) y scb_ReleaseCallback que justamente devuelven un "AddressOf" del ordinal (nro de funcion en orden descendente, la ultima es 1, la anteultima es 2 y asi) de un objeto (por defecto es el que lo llama) y ademas solo hay que especificar el nro de parametros (se hace magia interna con Asm). Lo unico es que todos los parametros deben ser tipo long y la funcion debe devolver long tambien (los parametros en su mayoria son punteros si es que no son numericos). Cuando tenga internet en casa (por eso estoy muy desaparecido ) subire un ejemplo y varios proyectos que tengo listos
|
|
|
En línea
|
|
|
|
F3B14N
Desconectado
Mensajes: 47
|
Nadie destripo el clsSubClass de Paul Caton (la version modificada por LaVolpe muy usado por Leandro y por mi)?? . En la cual hay una funcion scb_GetCallBackAddr (o similar, estoy en el movil) y scb_ReleaseCallback que justamente devuelven un "AddressOf" del ordinal (nro de funcion en orden descendente, la ultima es 1, la anteultima es 2 y asi) de un objeto (por defecto es el que lo llama) y ademas solo hay que especificar el nro de parametros (se hace magia interna con Asm). Lo unico es que todos los parametros deben ser tipo long y la funcion debe devolver long tambien (los parametros en su mayoria son punteros si es que no son numericos). Cuando tenga internet en casa (por eso estoy muy desaparecido ) subire un ejemplo y varios proyectos que tengo listos Creo que hablás de esto: http://siccs.googlecode.com/svn-history/r2/trunk/classes/ClsRueda.cls. Ya habia logrado solucionarlo, pero muy buen codigo. Quizas le sirva a alguien. Saludos y muchas gracias
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
puntero a funcion
Programación C/C++
|
kondrag_X1
|
2
|
3,571
|
30 Abril 2011, 19:49 pm
por leogtz
|
|
|
F1 - Problema con puntero a Función C#
.NET (C#, VB.NET, ASP)
|
Maurice_Lupin
|
0
|
2,173
|
17 Mayo 2012, 16:14 pm
por Maurice_Lupin
|
|
|
Como obtener posicion mouse dentro de scrollpane?
Java
|
juancaa
|
2
|
3,758
|
25 Junio 2012, 11:44 am
por juancaa
|
|
|
copiar contenido dentro de un div class con webbrowser?
.NET (C#, VB.NET, ASP)
|
housedir
|
1
|
2,814
|
6 Agosto 2012, 22:58 pm
por seba123neo
|
|
|
[Resuelto] Obtener dentro de función referencia a llamante
PHP
|
Usuario Invitado
|
2
|
2,250
|
20 Enero 2015, 20:37 pm
por Usuario Invitado
|
|