Bobby35
06.09.2010, 20:35
Hallo F-H,
ich habe ein Problem. Und zwar ich hab mir nen Passwort generator in VB.net mit Hilfe eines Freundes geschrieben. Nur wenn ich mir dass Passwort generieren möchte nimmt er nur die Zahlen und davon auch z.B. nur die 5. Nach einem Weiteren Test gingen nur die Kleinbuchstaben. Nach einen weiteren Test gingen nur die Großbuchstaben. (habe Zahlen sowie Klein & Großbuchstaben als Auswahl genommen)
Kann mir jemand sagen was des Problem is?
Programm zum Coden: Mircosoft Visual Basic 2010 Express
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text.Trim
If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False Then
MessageBox.Show("Du musst mindestens eine Methode auswählen um dein Passwort zu generieren", "Warnung", MessageBoxButtons.OK)
End If
If Val(NumericUpDown1.Text) < 3 Then
MessageBox.Show("Du brauchst eine Minimumlänge von 3.", "Warnung", MessageBoxButtons.OK)
Exit Sub
End If
If Val(NumericUpDown1.Text) > 100 Then
MessageBox.Show("YOUR Dein Passwart darf nur zwischen 3 - 100 Zeichen lang sein.", "Warnung", MessageBoxButtons.OK)
Exit Sub
End If
TextBox1.Text = GenerateCode()
End Sub
Public Function GenerateCode()
Dim intRnd As Integer
Dim intStep As Integer = Nothing
Dim strname As String
Dim intlength As Integer
Dim strinputstring As String = ""
Dim Zahlen As String = "1234567890"
Dim Kleinbuchstaben As String = "abcdefghijklmnopqrstuvwxyz"
Dim Großbuchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim intnamelength As String = 1
If CheckBox1.Checked Then strinputstring &= Zahlen
If CheckBox2.Checked Then strinputstring &= Kleinbuchstaben
If CheckBox3.Checked Then strinputstring &= Großbuchstaben
intlength = Len(strinputstring)
Integer.Tryparse(NumericUpDown1.Text, intlength)
Randomize()
strname = ""
For inStep = 1 To intlength
intRnd = Int(Rnd() + intlength) + 1
strname = strname & Mid(strinputstring, intRnd, 1)
Next
Return strname
End Function
End Class
lg
Bobby
ich habe ein Problem. Und zwar ich hab mir nen Passwort generator in VB.net mit Hilfe eines Freundes geschrieben. Nur wenn ich mir dass Passwort generieren möchte nimmt er nur die Zahlen und davon auch z.B. nur die 5. Nach einem Weiteren Test gingen nur die Kleinbuchstaben. Nach einen weiteren Test gingen nur die Großbuchstaben. (habe Zahlen sowie Klein & Großbuchstaben als Auswahl genommen)
Kann mir jemand sagen was des Problem is?
Programm zum Coden: Mircosoft Visual Basic 2010 Express
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text.Trim
If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False Then
MessageBox.Show("Du musst mindestens eine Methode auswählen um dein Passwort zu generieren", "Warnung", MessageBoxButtons.OK)
End If
If Val(NumericUpDown1.Text) < 3 Then
MessageBox.Show("Du brauchst eine Minimumlänge von 3.", "Warnung", MessageBoxButtons.OK)
Exit Sub
End If
If Val(NumericUpDown1.Text) > 100 Then
MessageBox.Show("YOUR Dein Passwart darf nur zwischen 3 - 100 Zeichen lang sein.", "Warnung", MessageBoxButtons.OK)
Exit Sub
End If
TextBox1.Text = GenerateCode()
End Sub
Public Function GenerateCode()
Dim intRnd As Integer
Dim intStep As Integer = Nothing
Dim strname As String
Dim intlength As Integer
Dim strinputstring As String = ""
Dim Zahlen As String = "1234567890"
Dim Kleinbuchstaben As String = "abcdefghijklmnopqrstuvwxyz"
Dim Großbuchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim intnamelength As String = 1
If CheckBox1.Checked Then strinputstring &= Zahlen
If CheckBox2.Checked Then strinputstring &= Kleinbuchstaben
If CheckBox3.Checked Then strinputstring &= Großbuchstaben
intlength = Len(strinputstring)
Integer.Tryparse(NumericUpDown1.Text, intlength)
Randomize()
strname = ""
For inStep = 1 To intlength
intRnd = Int(Rnd() + intlength) + 1
strname = strname & Mid(strinputstring, intRnd, 1)
Next
Return strname
End Function
End Class
lg
Bobby