Hallo,
ich habe mein eigenes kleines Brute Force Programm geschrieben (nicht für Böse zwecke gedacht) aber ich habe noch ein paar Schwierigkeiten.
1. Wenn das Programm läuft, kann man es nicht mehr öffnen ich glaube das liebt an "for" kann man das ändern?
2. Button 1 belegt Passwörter mit einer Länge, Button 2 belegt 2 Passwort längen.....aber ich hätte auch gerne ein Button der Verschiedene Passwort Längen überprüft!
Code:
Vielen Dank im vorraus
Liebe Grüße
Valli
ich habe mein eigenes kleines Brute Force Programm geschrieben (nicht für Böse zwecke gedacht) aber ich habe noch ein paar Schwierigkeiten.
1. Wenn das Programm läuft, kann man es nicht mehr öffnen ich glaube das liebt an "for" kann man das ändern?
2. Button 1 belegt Passwörter mit einer Länge, Button 2 belegt 2 Passwort längen.....aber ich hätte auch gerne ein Button der Verschiedene Passwort Längen überprüft!
Code:
VB.NET-Quellcode
- Public Class Form1
- Dim Chars() As String = {"A", "a", "B", "b", "C", "c", "D", "d", "E", "e", "F", "f", "G", "g", "H", "I", "i", "J", "j", "K", "k", "L", "l", "M", "m", "N", "n", "O", "o", "P", "p", "Q", "q", "R", "r", "S", "s", "T", "t", "U", "u", "V", "v", "W", "X", "x", "Y", "y", "Z", "z"}
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- For Each c1 As Char In Chars
- TextBox2.Text = c1
- If TextBox1.Text = c1 Then
- TextBox3.Text = c1
- Exit For
- End If
- Next
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- For Each c1 As Char In Chars
- For Each c2 As Char In Chars
- TextBox2.Text = c1 & c2
- If TextBox1.Text = c1 & c2 Then
- TextBox3.Text = c1 & c2
- Exit For
- End If
- Next
- Next
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- For Each c1 As Char In Chars
- For Each c2 As Char In Chars
- For Each c3 As Char In Chars
- If TextBox1.Text = c1 & c2 & c3 Then
- TextBox3.Text = c1 & c2 & c3
- Exit For
- End If
- Next
- Next
- Next
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- For Each c1 As Char In Chars
- For Each c2 As Char In Chars
- For Each c3 As Char In Chars
- For Each c4 As Char In Chars
- If TextBox1.Text = c1 & c2 & c3 & c4 Then
- TextBox3.Text = c1 & c2 & c3 & c4
- Exit For
- End If
- Next
- Next
- Next
- Next
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- For Each c1 As Char In Chars
- For Each c2 As Char In Chars
- For Each c3 As Char In Chars
- For Each c4 As Char In Chars
- For Each c5 As Char In Chars
- TextBox2.Text = c1 & c2 & c3 & c4 & c4
- If TextBox1.Text = c1 & c2 & c3 & c4 & c5 Then
- TextBox3.Text = c1 & c2 & c3 & c4 & c5
- Exit For
- End If
- Next
- Next
- Next
- Next
- Next
- End Sub
- End Class
Vielen Dank im vorraus
Liebe Grüße
Valli