Mega Code Archive
Generate Memorable Passwords
<![CDATA[
Public Class MainClass
Public Function GeneratePassword(ByVal Length As Integer) As String
Dim blnOnVowel As Boolean
Dim strTempLetter As String
Dim strPassword As String
Dim intCount As Integer
For intCount = 1 To Length
If blnOnVowel = False Then
strTempLetter = CType(Choose(CType(GetRandomNumber(1, 3), Double), _
"B", "D", "F"), String)
strPassword += strTempLetter
blnOnVowel = True
Else
strTempLetter = CType(Choose(CType(GetRandomNumber(1, 5), Double), "A", "E", "I", "O", "U"), String)
strPassword += strTempLetter
blnOnVowel = False
End If
Next
Return strPassword
End Function
Dim objRandom As New System.Random(CType((System.DateTime.Now.Ticks Mod System.Int32.MaxValue), Integer))
Public Function GetRandomNumber(Optional ByVal Low As Integer = 1, Optional ByVal High As Integer = 100) As Integer
Return objRandom.Next(Low, High + 1)
End Function
Public Sub Main()
System.Console.WriteLine(GeneratePassword(5))
End Sub
End Class
]]>