Tutorial's von A - Z (www.Knuddels.de.ch.at.MFC) - [Vb.Net

[Vb.Net | TuT] Bruter

Hay!
Ich zeige euch jetzt nicht wie ihr einen kompletten Bruter macht, sondern nur die Passwörter einlest, etc.

So fangen wir an:
dieser Code ist für eine ConsolenAnwendung.

Code:

Dim user, list, Path, pw As String
        Dim lines As String()
        Dim i As Integer = 0

Erklärung:
5 Strings (user, list, path, pw, lines) dekladieren.
1 Integer (i) dekladieren

Code:

Console.WriteLine("Name der Passwortliste angeben(Standart: pw.txt)")
            list = Console.ReadLine

Erklärung:
Nach der PW-Liste fragen und die Antwort in "list" speichern.

Code:

Try
            Path = System.AppDomain.CurrentDomain.BaseDirectory & "/" & list
            lines = IO.File.ReadAllLines(Path)
        Catch ex As Exception
            Console.Beep()
            Console.WriteLine(ex.Message)
            Console.ReadLine()
        End Try

Erklärung:
Versuchen, die Liste zu öffnen und der String "lines" ist jetzt dass was in der txt steht.

Code:

Console.WriteLine("Passwörter in " & list & ": " & lines.Count)

Erklärung:
Schreiben, wie viele Passwörter in der Liste sind.

Code:

Console.WriteLine("Gebe bitte den zu hackenden Nick an:")
        user = Console.ReadLine

Erklärung:
Es wird nach dem Nick gefragt, der dann in "user" geschrieben wird.

Code:

While Brute(user, pw) = False
            If i < lines.Count - 1 Then
                i += 1
                pw = lines(i)
                Console.WriteLine("(" & i & "/" & lines.Count & ") PW: " & pw)
            Else
                Console.WriteLine("Kein passendes Passwort gefunden!")
                Console.ReadKey()
            End If
        End While

Erklärung:
Solange der Nick und das Passwort nicht übereinstimmen wird "(1/100) PW: asdf" geschrieben. Der Index (i) steigt um eins und das nächste Passwort ist der Index (i) in der PasswortListe.
Wenn die Liste das Ende erreicht hat und kein Passwort gefunden wurde wird geschrieben: "Kein passendes Passwort gefunden!"

Code:

If Brute(user, lines(i)) = True Then
            pw = lines(i)
            Console.Beep()
            Console.Beep()
            Console.Beep()
            Console.Beep()
            Console.WriteLine()
            Console.WriteLine()
            Console.WriteLine(vbCr & "Erfolgreich gebrutet:")
            Console.WriteLine("Benutzername: " & user)
            Console.WriteLine("Passwort: " & pw)
            Dim sw As IO.StreamWriter = New StreamWriter(System.AppDomain.CurrentDomain.BaseDirectory & "/found.txt", True)
            sw.WriteLine()
            sw.WriteLine("Benutzername: " & user)
            sw.WriteLine("Passwort: " & pw)
            sw.WriteLine()
            sw.Close()
            Console.ReadLine()
        Else

        End If

Wenn dann erfolgreich gebrutet wurde, wird der Benutzername und dann Passwort ausgegeben, dann wird eine neue .txt erstellt (found.txt)
In die wird dann Nick & PW geschrieben.

Das wars auch schon.
Ihr müsst nun natürlich noch eine Lücke finden und eine Function erstellen:

Code:

Public Function Brute(ByVal Username As String, ByVal Password As String) As Boolean

End Function

P.S.: Es geht natürlich auch mit anderen Internetseiten, braucht halt nur Sicherheitslücken

Achtung: Ich hafte nicht für eventuell entstehende Schäden!

(c) KoRn