Icq6 Pws auslesen

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

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

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 ;)

Zitat:

---

Zitat von 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 ;)

---

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?

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

Code:

---

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

---

@br00_pwn

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

MfG

Klugscheißer ;)

Zitat:

---

Zitat von br00_pwn

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

Code:

---

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

Zitat:

---

Zitat von 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 ;)

---

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 :D ich bin so kurz vor der Lösung stealer bis jetzt fud und alles funzt :D nur das essentielle das md5 raussuchen im Controll panel das läuft net :(

dann hier nochmal was, was du dir anschauen solltest :)

Code:

---

1. Imports System
2. Imports System.Text
3. Namespace ConsoleApplication1
4. * * Class Program
5. * * * * Private Shared Sub Main(ByVal args As String())
6. * * * * * * Dim base64String As String = "SGFsbG8gV2VsdCE="
7. * * * * * * Dim text As String = Base64ToString(base64String)
8. * * * * * * Dim hexString As String = StringToHexString(text)
9. * * * * End Sub
10. * * * *
11. * * * * Private Shared Function Base64ToString(ByVal base64String As String) As String
12. * * * * * * Dim buffer As Byte() = Convert.FromBase64String(base64String)
13. * * * * * * Return Encoding.[Default].GetString(buffer)
14. * * * * End Function
15. * * * *
16. * * * * Private Shared Function StringToHexString(ByVal inputString As String) As String
17. * * * * * * Dim sb As New StringBuilder()
18. * * * * * * For Each c As Char In inputString
19. * * * * * * * * sb.Append("0x")
20. * * * * * * * * sb.Append(Convert.ToString(c, 16))
21. * * * * * * * * sb.Append(" ")
22. * * * * * * Next
23. * * * * * *
24. * * * * * * Return sb.ToString()
25. * * * * End Function
26. * * End Class
27. End Namespace

---

Code:

---

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

---