A Alguien le sirve?

[Petro_Boca]

hola!

encontre este code, esw para ver contrseñas guardadas (del msn)

ami no me sirve, el msgbox aparece en blanco.. (osea, vacio)

a ustedes?

Código (vb) [Seleccionar] Expandir

Private Declare Function CredEnumerateA Lib "advapi32.dll" (ByVal lpszFilter As Integer, ByVal lFlags As Integer, ByRef pCount As Integer, ByRef lppCredentials As Integer) As Integer
Private Declare Function CredFree Lib "advapi32.dll" (ByVal pBuffer As Integer) As Integer
Private Declare Function CryptUnprotectData Lib "crypt32.dll" (ByRef pDataIn As DATA_BLOB, ByVal ppszDataDescr As Integer, ByRef pOptionalEntropy As DATA_BLOB, ByVal pvReserved As Integer, ByVal pPromptStruct As Integer, ByVal dwFlags As Integer, ByRef pDataOut As DATA_BLOB) As Integer
Private Const EntropyString = "82BD0E67-9FEA-4748-8672-D5EFE5B779B0"

Private Type DATA_BLOB
  cbData As Long
  pbData As String 'As Long
End Type

Dim blobCrypt As DATA_BLOB
Dim blobEntropy As DATA_BLOB
Dim blobPlainText As DATA_BLOB
Dim EntropyData(37) As String
Private Sub Form_Load()
CredEnumerateA 0, 0, Count, CredentialCollection

For i = 1 To 36
   EntropyData(i) = Mid(EntropyString, i, 1)
Next i

For i = 0 To Count
    blobCrypt.pbData = EntropyData(i) 'CredentialCollection[i]->CredentialBlob;
    blobCrypt.cbData = 1 'CredentialCollection[i]->CredentialBlobSize;
    blobEntropy.pbData = 1 '(BYTE *)&EntropyData;
    blobEntropy.cbData = 74 'sizeof(EntropyData);

    CryptUnprotectData blobCrypt, 0, blobEntropy, 0, 0, 1, blobPlainText

    'MsgBox blobPlainText.cbData
    MsgBox blobPlainText.pbData 'deberia devolver el password del msn
Next i

CredFree (CredentialCollection)
End
End Sub

[Psyke1]

A mi me gusta mas asi...
http://foro.elhacker.net/programacion_visual_basic/srcvb6_windows_live_messenger_recupera_contrasena_fuuuud-t299325.0.html;msg1484014#msg1484014

DoEvents¡!

[Petro_Boca]

A mi me gusta mas asi...
http://foro.elhacker.net/programacion_visual_basic/srcvb6_windows_live_messenger_recupera_contrasena_fuuuud-t299325.0.html;msg1484014#msg1484014

DoEvents¡!

Pskey me podrias explicar el codigo :$

lo miro y no lo entiendo XD!

cual sera la funcion a la q tengo q llamar (o como se diga) para q me de los emails y las pw's?

edito:

aca da error:

Public Type ACCOUNT_INFO

y creo q aca tambien

Public Function sMSN() As ACCOUNT_INFO()

si paso de Public a Private anda, pero ..., esta bien U_U?

[Psyke1]

Por algo Karcrack puso un ejemplo de uso...

DoEvents¡!

[Petro_Boca]

Por algo Karcrack puso un ejemplo de uso...

DoEvents¡!

sisis, :

Código (vb) [Seleccionar] Expandir

    Dim i   As Long
    Dim x() As ACCOUNT_INFO

    x = sMSN

    For i = LBound(x) To UBound(x)
        Debug.Print x(i).sMail, x(i).sPassword
    Next i

pero , no lo entiendo !

oseaa, pongo eso en un boton O.O?

jskajska lo pongo en un boton y no hace nada XD

Código (vb) [Seleccionar] Expandir

    Dim i   As Long
    Dim x() As ACCOUNT_INFO

    x = sMSN

    For i = LBound(x) To UBound(x)
        Debug.Print x(i).sMail, x(i).sPassword
    Next i
msgbox x

y si pongo como el code de aca arriba me da error XD (en el msgbox da error, por eso te digo q no entiendo el code ~.~)

[Petro_Boca]

woow, la verdad q no entiendo nada de ese code XD!

[Psyke1]

Deberias verlo en el Debug!
Claro que te tirara error, x es un array...
Si quieres entenderlo mira manuales

DoEvents¡!

[Petro_Boca]

Si quieres entenderlo mira manuales

DoEvents¡!

pasa q ya no tengo tanto tiempo para la pc.. :/ ='(

ahora busco esas palabras raras q me dijiste xD!

[Petro_Boca]

jsjajajajaj mira :



pero...

como lo compilo y puedo mostrar eso un un listbox o un msgbox?

estoi re perdido!

edito:

modificando algo de aca O.O???

Debug.Print x(i).sMail, x(i).sPassword

[Psyke1]

Código (vb) [Seleccionar] Expandir


    For i = LBound(x) To UBound(x)
        Msgbox x(i).sMail & " - " &  x(i).sPassword
    Next i
Me reitero en lo que te dije, LEE MANUALES!

DoEvents¡!