(VB.NET) Generating Random Password

Demonstrates how to generate random passwords.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' All Chilkat classes can be unlocked at once at the beginning of a program
' by calling UnlockBundle.  It requires a Bundle unlock code.
Dim chilkatGlob As New Chilkat.Global
Dim success As Boolean = chilkatGlob.UnlockBundle("Anything for 30-day trial.")
If (success <> True) Then
    Debug.WriteLine(chilkatGlob.LastErrorText)
    Exit Sub
End If


Dim fortuna As New Chilkat.Prng

' Set this equal to True if the generated password must include at least one digit (0-9)
Dim bDigit As Boolean = True

' Set this equal to True if the generated password must include both uppercase and lowercase chars.
Dim bUpperAndLower As Boolean = True

' The generated password must contain one of the following non-alphanumeric chars.
Dim otherChars As String = "@#$%*"

' Exclude chars that appear similar to others:
Dim excludeChars As String = "iIlLoO0"

' Generate 8-character passwords:
Dim i As Integer
For i = 1 To 10
    Debug.WriteLine(fortuna.RandomPassword(8,bDigit,bUpperAndLower,otherChars,excludeChars))
Next