Icq6 Pws auslesen

[Sawyer]

Mit einer DirectoryInfo die Ordner die in "C:\Documents and Settings\Administrator\My Documents\ICQ" sind durchlaufen , am besten mit einer for Each schleife.
Innerhalb der schleife prüfst du ab , ob der aktuelle Ordner mit einer zahl anfängt , und am besten wie lang der Name des aktuellen Ordners ist.

So kannst du Prüfen ob es sich um eine ICQ Nummer handelt , dann kannst du die nummern ja in eine Textdatei speichern.
Gibt aber sicher elegantere Methoden um die Problematik zu Lösen.

MfG

[sunny-boy3]

hab gerade die owner.mdb in einer listbox geladen da k0ommt ja nur kauderwelch raus habe gerade gelesen das man den inhalt derr owner mdb in uint64 konvertieren muß weiß jemand wie ich den listbox inhalt in uint 64 convertiert bekomme


Habe es mit ListBox1.Items = Convert.toUint64 versucht aber dfas geht nicht




hab das it der batch probiert funktioniert iwie nicht

[inmate]

Das Passwort liegt hinter Storage passwort in der ownder.mdb
Als erstes musst du es base64 decoden , dann in Hex umwandeln und die ersten 32 Zeichen nehmen.Dann hasste den MD5 Hash.

Infos sind von Krusty

[sunny-boy3]

Das Passwort liegt hinter Storage passwort in der ownder.mdb
Als erstes musst du es base64 decoden , dann in Hex umwandeln und die ersten 32 Zeichen nehmen.Dann hasste den MD5 Hash.

Infos sind von Krusty

habe das ganze jetzt in base 64 konvertiert wie mache ich daraus jetztb den md5? besser gesagt wie wandel ich das jetzt in hex um?

[br00_pwn]

hier was kleines von mir, wie du die icq-nummern des rechners ermitteln kannst

Dim nrfolder As String = "C:\Documents and Settings\Administrator\My Documents\ICQ"
        Dim sFiles() As String = System.IO.Directory.GetFiles(nrfolder)
        Dim sDirs() As String = System.IO.Directory.GetDirectories(nrfolder)

        For Each ordner As String In sDirs
            TextBox1.Text &= System.IO.Path.GetFileName(ordner) & vbCrLf
        Next

[Sawyer]

@br00_pwn

Ich will nicht Klugscheißern , aber Pfade sollte man nicht Hardcoden , sondern immer Dynamisch ermitteln

MfG

[br00_pwn]

Klugscheißer

[sunny-boy3]

hier was kleines von mir, wie du die icq-nummern des rechners ermitteln kannst

Dim nrfolder As String = "C:\Documents and Settings\Administrator\My Documents\ICQ"
        Dim sFiles() As String = System.IO.Directory.GetFiles(nrfolder)
        Dim sDirs() As String = System.IO.Directory.GetDirectories(nrfolder)

        For Each ordner As String In sDirs
            TextBox1.Text &= System.IO.Path.GetFileName(ordner) & vbCrLf
        Next

Das sieht doch schonmal geil aus

Jetzt bleibt nurnoch die frage offen wie ich die base 64 in hex bekomme

[neocrom]

Das Passwort liegt hinter Storage passwort in der ownder.mdb
Als erstes musst du es base64 decoden , dann in Hex umwandeln und die ersten 32 Zeichen nehmen.Dann hasste den MD5 Hash.

Infos sind von Krusty

SOa .. da mir ja im ICQ thread keiner Antwortet poste ihc hier


was willst du denn Bitte in der Owner.mdb (die wird btw vorne große geschrieben) base64 decoden? Die ist erstmal komplett in deutsch wenn du die lädts ... schau dir bitte noch mal meinen Thread an inmate: http://free-hack.com/showthread.php?t=44974

... ich brauche HILFE ich bin so kurz vor der Lösung stealer bis jetzt fud und alles funzt nur das essentielle das md5 raussuchen im Controll panel das läuft net

[br00_pwn]

dann hier nochmal was, was du dir anschauen solltest

Imports System
Imports System.Text
Namespace ConsoleApplication1
* * Class Program
* * * * Private Shared Sub Main(ByVal args As String())
* * * * * * Dim base64String As String = "SGFsbG8gV2VsdCE="
* * * * * * Dim text As String = Base64ToString(base64String)
* * * * * * Dim hexString As String = StringToHexString(text)
* * * * End Sub
* * * * 
* * * * Private Shared Function Base64ToString(ByVal base64String As String) As String
* * * * * * Dim buffer As Byte() = Convert.FromBase64String(base64String)
* * * * * * Return Encoding.[Default].GetString(buffer)
* * * * End Function
* * * * 
* * * * Private Shared Function StringToHexString(ByVal inputString As String) As String
* * * * * * Dim sb As New StringBuilder()
* * * * * * For Each c As Char In inputString
* * * * * * * * sb.Append("0x")
* * * * * * * * sb.Append(Convert.ToString(c, 16))
* * * * * * * * sb.Append(" ")
* * * * * * Next
* * * * * * 
* * * * * * Return sb.ToString()
* * * * End Function
* * End Class
End Namespace

Private Function EncryptString(ByVal lpString As String)
        Dim local() As Byte = System.Text.Encoding.Default.GetBytes(lpString)
        Return Convert.ToBase64String(local)
    End Function

    Private Function DecryptString(ByVal lpString As String)
        Return Convert.FromBase64String(lpString)
    End Function