GeneratePassword

Class GeneratePassword
    Shared Function Main() As Integer
        Dim passwordlength As String
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789?!"
        Dim r As Random
        Dim i As Integer
        Console.WriteLine("-- Passwort-Generator --")
        Console.WriteLine("Choose the Password length")
        passwordlength = Console.ReadLine()
        Dim passwordChars() As Char = New Char(passwordLength - 1) {}
        Dim charIndex As Integer
        For i As Integer = 0 To passwordLength - 1
            charIndex = r.Next(s.Length)
            passwordChars(i) = s(charIndex)
        Next
        Dim password As New String(passwordChars)
    End Function
End Class