B4X

Generating Random Password

See more PRNG Examples

Demonstrates how to generate random passwords. B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

success = False

Dim fortuna As ChilkatPrng
fortuna.Initialize

'  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 Int
For i = 1 To 10
    Log(fortuna.RandomPassword(8, bDigit, bUpperAndLower, otherChars, excludeChars))
Next