ICQ 6+7 PW Recovery by skilled (VB Source) полный код в архиве PHP: '**************************************************************** '* Module : mICQ '* Author : skilled '* Contact : '* ICQ : 665514 '* MSN : skilled1337@hotmail.com '* '* Leave Credits if u use this snippet to skilled '* '* Usage : MsgBox ICQ '**************************************************************** Public Function ICQ() As String On Error Resume Next Dim sICQPath As String Dim sFolderBuffer As String Dim sFolders() As String Dim i As Integer Dim sTmpBuffer As String Dim lPos As Long Dim sMD5Hash As String Dim nFile As Integer Dim arrFile() As Byte nFile = FreeFile Dim sFullPath As String Dim sName(1) As String sName(0) = "Owner.mdb" sName(1) = "Owner.qdb" sICQPath = Environ("appdata") & "\ICQ\" sFolderBuffer = GetSubDirs(sICQPath) sFolders = Split(sFolderBuffer, "|") For i = 1 To UBound(sFolders) - 1 If IsNumeric(sFolders(i)) = True Then sFullPath = sICQPath & sFolders(i) & "\" & sName(0) If Dir(sFullPath) = "" Then sFullPath = sICQPath & sFolders(i) & "\" & sName(1) End If If Dir(sFullPath) <> "" Then Open sFullPath For Binary As #nFile ReDim arrFile(LOF(nFile) - 1) Get #nFile, , arrFile Close #nFile sTmpBuffer = StrConv(arrFile, vbUnicode) lPos = InStr(sTmpBuffer, makeString("StoredPassword")) sMD5Hash = "" If lPos > 0 Then sTmpBuffer = Mid$(sTmpBuffer, lPos) sTmpBuffer = Replace$(sTmpBuffer, Chr(0), vbNullString) sTmpBuffer = Replace$(sTmpBuffer, Chr(132), vbNullString) sMD5Hash = Left(StringToHex(DecodeStr64(Mid(sTmpBuffer, 17, 44))), 32) End If If sMD5Hash <> "" Then ICQ = ICQ & "UIN : " & sFolders(i) & vbCrLf & "MD5 : " & sMD5Hash & vbCrLf & String(25, "=") & vbCrLf Else ICQ = ICQ & "UIN : " & sFolders(i) & vbCrLf & "Passwort nich gespeichert." & vbCrLf & String(25, "=") & vbCrLf End If End If End If Next End Function letitbit.net turbobit.net