[SF Coders] Password Generator

[milopeach]

Here is my version, uses random characters and a Select Case to make the password as random as possible.

I made it because most use the string array and it;s easier to use ASCII codes. You can also replace the whole Select Case and IF statements with a

PHP Code:

_Password += Chr(Random.Next(33, 126)) 


Which will give you a bit of everything if you don't want to make it selectable.

Function:

Spoiler (Click to View)

PHP Code:

Public Function GeneratePassword(ByVal Length As Integer)
        Dim Random As New Random
        Dim NextChar As Integer = Random.Next(0, 6)
        Dim _Password As String = String.Empty

        While True
            If _Password.Length > Length Then Exit While

            If CheckBox1.Checked Then
                Select Case NextChar
                    Case 0
                        _Password += Chr(Random.Next(65, 90)) 'Uppercase Letters
                    Case 1
                        _Password += Chr(Random.Next(97, 122)) 'Lowercase Letters
                End Select
            End If
            If CheckBox2.Checked Then
                Select Case NextChar
                    Case 5
                        _Password += Chr(Random.Next(48, 57)) 'Numbers
                End Select
            End If
            If CheckBox3.Checked Then
                Select Case NextChar
                    Case 2
                        _Password += Chr(Random.Next(33, 47)) 'Symbols(0)
                    Case 3
                        _Password += Chr(Random.Next(58, 64)) 'Symbols(1)
                    Case 4
                        _Password += Chr(Random.Next(91, 96)) 'Symbols(2)
                End Select
            End If
            NextChar = Random.Next(0, 6)
        End While
        Return _Password
    End Function 


Usage:

PHP Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = GeneratePassword(NumericUpDown1.Value)
    End Sub 


Screenshot: