(Xojo Plugin) Generating Random ASCII Strings

Demonstrates how to generate random us-ascii strings.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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.CkGlobal
Dim success As Boolean
success = chilkatGlob.UnlockBundle("Anything for 30-day trial.")
If (success <> True) Then
    System.DebugLog(chilkatGlob.LastErrorText)
    Return
End If

Dim fortuna As New Chilkat.Prng

Dim bDigits As Boolean
Dim bLowercase As Boolean
Dim bUppercase As Boolean

// Generate random strings having only lowercase chars (a-z)
// Disallow digits and uppercase and only allow lowercase
bDigits = False
bUppercase = False
bLowercase = True

Dim i As Int32

System.DebugLog("-- only lowercase alpha (a-z)")
For i = 1 To 10
    // Generate 20-character strings.
    System.DebugLog(fortuna.RandomString(20,bDigits,bLowercase,bUppercase))
Next

// Allow both lowercase and uppercase alpha chars
bUppercase = True
System.DebugLog("-- lower and uppercase alpha (a-zA-Z)")
For i = 1 To 10
    // Generate 20-character strings.
    System.DebugLog(fortuna.RandomString(20,bDigits,bLowercase,bUppercase))
Next

// Allow digits (0-9)
bDigits = True
System.DebugLog("-- digits and lower/uppercase alpha (0-9a-zA-Z)")
For i = 1 To 10
    // Generate 20-character strings.
    System.DebugLog(fortuna.RandomString(20,bDigits,bLowercase,bUppercase))
Next

// Allow only digits (0-9)
bUppercase = False
bLowercase = False
System.DebugLog("-- only digits (0-9)")
For i = 1 To 10
    // Generate 20-character strings.
    System.DebugLog(fortuna.RandomString(20,bDigits,bLowercase,bUppercase))
Next