User546194788 posted
I used code below to generate a random password.
How to code a function or sub to check if the password user input is met password requirement?
Public Function GetPassword(Optional ByVal Len As Integer = 6) As String
If Len < 6 Then
MsgBox("Minimum password length is 6 characters", MsgBoxStyle.OkOnly, "Minimum Length Reset")
Len = 6
End If
Dim pass As String = String.Empty
Dim nums As String() = "2 3 4 5 6 7 8 9".Split(" ") 'Omit 1 & 0
Dim lettU As String() = "A B C D E F G H J K L M N P Q R S T U V W X Y Z".Split(" ") 'Omit i,I,o & O
Dim lettL As String() = "A B C D E F G H J K M N P Q R S T U V W X Y Z".ToLower.Split(" ") 'Omit i,I,l, L,o & O
Dim chars As String() = "(-) @ # $ % * {-} [-] - _ ^ < > + = ~ /\".Split(" ") 'omit ? / \ ( ) ' " . , ; : &
Dim passRan() As Array = {nums, lettU, lettL, chars}
Dim min As Integer = 0
Dim max As Integer = passRan.Length 'this will include the length
Dim rnd As Integer = 0
Dim sb As New List(Of String)
For l As Integer = 0 To Len - passRan.Length - 1
'select the set to pick from ensuring you have a character from each set
If l = 0 Then
For p As Integer = 0 To passRan.Length - 1
'pick a random position in the selected set
max = passRan(p).Length
rnd = GetRandom(min, max)
sb.Add(passRan(p)(rnd))
Next
End If
'select the set to pick from by random
max = passRan.Length
rnd = GetRandom(min, max)
For p As Integer = 0 To passRan.Length - 1
'pick a random position in the selected set
If p = rnd Then
max = passRan(p).Length
rnd = GetRandom(min, max)
sb.Add(passRan(p)(rnd))
Exit For
End If
Next
Next
'shuffle the result
Dim R As New List(Of String)
R = sb.ToList
For Int As Integer = 0 To Len - 1
Dim curr As Integer = GetRandom(min, R.Count)
pass &= R(curr)
R.RemoveAt(curr)
Next
Return pass
End Function
