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
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