(VB.NET UWP/WinRT) Generating Random ASCII Strings

Demonstrates how to generate random us-ascii strings.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' 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

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 Integer

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

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

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

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