(AutoIt) Generating Random ASCII Strings

Demonstrates how to generate random us-ascii strings.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; All Chilkat classes can be unlocked at once at the beginning of a program
; by calling UnlockBundle.  It requires a Bundle unlock code.
$oChilkatGlob = ObjCreate("Chilkat.Global")
Local $bSuccess = $oChilkatGlob.UnlockBundle("Anything for 30-day trial.")
If ($bSuccess <> True) Then
    ConsoleWrite($oChilkatGlob.LastErrorText & @CRLF)
    Exit
EndIf

$oFortuna = ObjCreate("Chilkat.Prng")

Local $bDigits
Local $bLowercase
Local $bUppercase

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

Local $i

ConsoleWrite("-- only lowercase alpha (a-z)" & @CRLF)
For $i = 1 To 10
    ; Generate 20-character strings.
    ConsoleWrite($oFortuna.RandomString(20,$bDigits,$bLowercase,$bUppercase) & @CRLF)
Next

; Allow both lowercase and uppercase alpha chars
$bUppercase = True
ConsoleWrite("-- lower and uppercase alpha (a-zA-Z)" & @CRLF)
For $i = 1 To 10
    ; Generate 20-character strings.
    ConsoleWrite($oFortuna.RandomString(20,$bDigits,$bLowercase,$bUppercase) & @CRLF)
Next

; Allow digits (0-9)
$bDigits = True
ConsoleWrite("-- digits and lower/uppercase alpha (0-9a-zA-Z)" & @CRLF)
For $i = 1 To 10
    ; Generate 20-character strings.
    ConsoleWrite($oFortuna.RandomString(20,$bDigits,$bLowercase,$bUppercase) & @CRLF)
Next

; Allow only digits (0-9)
$bUppercase = False
$bLowercase = False
ConsoleWrite("-- only digits (0-9)" & @CRLF)
For $i = 1 To 10
    ; Generate 20-character strings.
    ConsoleWrite($oFortuna.RandomString(20,$bDigits,$bLowercase,$bUppercase) & @CRLF)
Next