Mensajes

Voy a disparar al aire pero para mi es porque una vez parchada la api en la segunda llamada "falla" porque no encuentra la cadena.
Por ende tendrias que llamar a DeObfuscateAPI una sola vez al inicio y despues utilizar la api normalmente.

La respuesta es simple, le estas asignando a una constante un valor que NO es constante.

Aburridooo hasta la medula, hice un modulito para leer archivos nk2 (son los que guardan los datos para ser utilizados en el autocompletar de outlook), el modulo es funcional, lee todos los datos correctamente lo unico que tira todo en el debug y no en estructuras o cosas asi.

Código [Seleccionar] Expandir

http://www.2shared.com/file/MrpOZ4Jm/NK2.html

Dos acalaraciones, primero los strings son unicode en memoria asi que strptr es el inicio y de ahi en mas la posicion es caracter * 2, el segundo parametro en este caso (asc("Z")) es el byte que vas a poner en la memoria.

Código [Seleccionar] Expandir

   Dim CADENA          As String
   Dim dirCAD          As Long
   Dim Valor           As String

CADENA = "ABCDEFGH"
Valor = "Z"
dirCAD = StrPtr(CADENA)


PutMem1 dirCAD + 2, Asc("Z")
Debug.Print CADENA

Es un hash, no se puede descifrar http://en.wikipedia.org/wiki/Hash_function pero podes usar algun servicio online o algun programa con rainbow tables que te permita averiguar la sentencia original.

Edit: ops era con longs xD

Código [Seleccionar] Expandir

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Function ShiftL(ByVal bVal As Byte, ByVal lNumOfBits As Long) As Byte
   Dim lRet As Long
   lRet = bVal * (2 ^ lNumOfBits)
   CopyMemory ShiftL, lRet, 1
End Function

Private Function ShiftR(ByVal bVal As Byte, ByVal lNumOfBits As Long) As Byte
   ShiftR = bVal \ (2 ^ lNumOfBits)
End Function

Modifica

Código [Seleccionar] Expandir

Private Type KEYBDINPUT
  wVk As Integer
  wScan As Integer
  dwFlags As Long
  time As Long
  dwExtraInfo As Long
End Type

Private Type GENERALINPUT
  dwType As Long
  xi as KEYBDINPUT '<------ aca
End Type

eso tendria que arreglarlo si solamente queres el keyboard

Simplemente para confirmar lo de Karcrack, los string en VB son BSTR y son algo asi

Size/string/terminator
4 bytes/null & char/null & null

Si miran el codigo siguiente van a ver que da como resultado 8, 0p0a0p0a

Código [Seleccionar] Expandir

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Private Sub Form_Load()
    Dim s As String
    s = "papa"
    Dim lSize As Long
    CopyMemory lSize, ByVal StrPtr(s) - 4, 4
    Debug.Print lSize
End Sub


Feliz Navidad!

Código [Seleccionar] Expandir

On Error GoTo error
Dim a As String
a = (Environ("tmp") & "\tmp.reg")
MsgBox a
Shell "regedit.exe /s " & a '<---------- a es una variable no parte del string
Exit Sub
error:
MsgBox "error"