elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Estamos en la red social de Mastodon


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [HELP] How to use & invoke API function "MulDiv"
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: [HELP] How to use & invoke API function "MulDiv"  (Leído 9,068 veces)
SantaMorte

Desconectado Desconectado

Mensajes: 6



Ver Perfil
Re: [HELP] How to use & invoke API function "MulDiv"
« Respuesta #10 en: 8 Mayo 2012, 17:49 pm »

i mean can i call this api with callapibyname function (with out declaration)?

Yes it's possible


En línea

x64core


Desconectado Desconectado

Mensajes: 1.908


Ver Perfil
Re: [HELP] How to use & invoke API function "MulDiv"
« Respuesta #11 en: 8 Mayo 2012, 18:44 pm »

deberían bloquear estos temas donde escriben en ingles, no lo digo por Karcrack sino por
los que inician los temas, aquí se escribe español/castellano, no ingles  >:(
Si quieren ayuda entonces que usen el Put0 traductor de google al menos  ::)


En línea

Swellow

Desconectado Desconectado

Mensajes: 77


Ver Perfil
Re: [HELP] How to use & invoke API function "MulDiv"
« Respuesta #12 en: 10 Junio 2012, 21:46 pm »

Strptr Can Be Fully Replaced Without Any Problems
KarCrack made some error Try This :D

'KERNEL32
Private Declare Function VarPtr__ Lib "KERNEL32" Alias "MulDiv" (ByRef a As Any, Optional ByVal b As Long = 1, Optional ByVal c As Long = 1) As Long
'MSVBVM60
Private Declare Sub GetMem4 Lib "MSVBVM60" (ByVal lPtr As Long, ByRef ret As Long)
'USER32
Private Declare Function MessageBoxW Lib "USER32" (ByVal hWnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
 
Private Sub Form_Load()
    Dim cadena      As String
    Dim ptr1        As Long
    Dim ptr2        As Long
 
    cadena = "karcrack"
 
    ptr1 = StrPtr(cadena)
    'StrPtr__
    Call GetMem4(VarPtr__(cadena) + 8, ptr2)
 
    MsgBox (ptr1 = ptr2)
 
    Call MessageBoxW(0, ptr2, 0, 0)
    Call MessageBoxW(0, ptr1, 0, 0)
End Sub

STPRT Get the BSTR Address(where the string is stored) so is simple get it

Readmemory(Varptr + 8) = BSTR

enjoy

This won't work on every situation I just tried.
En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Ayuda] modificar "start page" en "internet explorer" con "batch"
Scripting
taton 7 17,255 Último mensaje 20 Septiembre 2006, 01:45 am
por taton
problema "procedimiento sub o function no definido"
Programación Visual Basic
.:UND3R:. 4 7,157 Último mensaje 15 Junio 2011, 20:41 pm
por .:UND3R:.
recursos visual basic, """"""proceso inmortal"""""
Análisis y Diseño de Malware
Dark4ngel 7 14,121 Último mensaje 3 Noviembre 2011, 10:42 am
por Dark4ngel
[JS] "a.charAt is not a function", ¿por qué?
Scripting
Linton 6 5,570 Último mensaje 4 Septiembre 2013, 19:32 pm
por Linton
Me arroja error "Sub or function not defined" « 1 2 »
Programación Visual Basic
antihelio 12 5,639 Último mensaje 12 Febrero 2015, 18:37 pm
por engel lex
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines