Generate Memorable Passwords : Password « Development « VB.Net

1. VB.Net
2. Development
3. Password

Generate Memorable Passwords

  

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

   
    
  

Related examples in the same category