Hi,
ich bin gerade dabei mir einen möglicht Performance starken Bruteforcer zu coden.
Klar gibt es sowas schon aber es reizt mich halt das selber zu machen.
Ich habe hier im Forum bereits folgendes gefunden:
Thread 193102
funktioniert auch soweit wenn ich den code in c#.net compiliere. Mein Problem an der Sache ist das ich das Frondend schon in
VB programmiert habe und jetzt das Backend implementiert werden soll.
Ich habe mir den Code soweit in
VB übersetzt, allerdings bekomm ich eine Fehlermeldung nach dem 5. durchlauf.
Leider (liegt vll auch an der Uhrzeit) finde ich das Problem nicht warum der bei den Rechenoperationen einen Fehler macht.
/edit Portiert von
Thread 193102:
/edit Korrigierter Code
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim loweralpha As String = "0123456789"
Dim wordlengh As Integer = CInt(TextBox3.Text)
For i As Integer = 1 To wordlengh
bruteforce(loweralpha, i)
Next
End Sub
Private Sub bruteforce(ByVal charset As String, ByVal lengh As Integer)
Dim startw As Long = 0
Dim endw As Long = CLng(Math.Pow(charset.Length, lengh))
Dim d(lengh + 1) As Long
Dim charsetarray() = charset.ToCharArray
Dim charsetlengh As Integer = charset.Length
Dim s As New StringBuilder
For i As Integer = lengh To 0 Step -1
d(i) = CLng(Math.Pow(charsetlengh, i))
Next
Do While startw < endw
s.Remove(0, s.Length)
Dim mw As Long = startw
For i As Integer = lengh To 0 Step -1
Dim w As Integer = CInt(mw d(i))
If i = lengh Then
If w <> 0 Then
s.Append(charsetarray(w))
End If
Else
s.Append(charsetarray(w))
End If
mw = mw - (w * d(i))
Next
t_out.AppendText(s.ToString & vbCrLf)
Application.DoEvents()
startw = startw + 1
Loop
End Sub
Screen der Fehlermeldung
ich habe keine Ahnung warum der sich verrechnet ... in C# funktioniert es einwandfrei.
vielleicht könnt Ihr mir weiterhelfen danke schonmal im vorraus.