ICQ 6+7 PW Recovery by skilled (VB)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by to.Index, 15 Aug 2010.

  1. to.Index

    to.Index Member

    Joined:
    3 Jul 2010
    Messages:
    41
    Likes Received:
    22
    Reputations:
    5
    ICQ 6+7 PW Recovery by skilled (VB Source)

    полный код в архиве

    PHP:
    '****************************************************************
    '
    *  Module     mICQ
    '*  Author     : skilled
    '
    *  Contact    :
    '*     ICQ    : 665514
    '
    *     MSN    skilled1337@hotmail.com
    '*
    '
    *  Leave Credits if 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
     
    #1 to.Index, 15 Aug 2010
    Last edited: 15 Aug 2010
Loading...
Similar Threads - Recovery skilled
  1. whexp
    Replies:
    12
    Views:
    7,330