VB.net Problem mit Code.

[Bobby35]

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