(Lianja) Generating Random ASCII Strings

Demonstrates how to generate random us-ascii strings.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// All Chilkat classes can be unlocked at once at the beginning of a program
// by calling UnlockBundle.  It requires a Bundle unlock code.
loChilkatGlob = createobject("CkGlobal")
llSuccess = loChilkatGlob.UnlockBundle("Anything for 30-day trial.")
if (llSuccess <> .T.) then
    ? loChilkatGlob.LastErrorText
    release loChilkatGlob
    return
endif

loFortuna = createobject("CkPrng")

// Generate random strings having only lowercase chars (a-z)
// Disallow digits and uppercase and only allow lowercase
llBDigits = .F.
llBUppercase = .F.
llBLowercase = .T.

? "-- only lowercase alpha (a-z)"
for i = 1 to 10
    // Generate 20-character strings.
    ? loFortuna.RandomString(20,llBDigits,llBLowercase,llBUppercase)
next

// Allow both lowercase and uppercase alpha chars
llBUppercase = .T.
? "-- lower and uppercase alpha (a-zA-Z)"
for i = 1 to 10
    // Generate 20-character strings.
    ? loFortuna.RandomString(20,llBDigits,llBLowercase,llBUppercase)
next

// Allow digits (0-9)
llBDigits = .T.
? "-- digits and lower/uppercase alpha (0-9a-zA-Z)"
for i = 1 to 10
    // Generate 20-character strings.
    ? loFortuna.RandomString(20,llBDigits,llBLowercase,llBUppercase)
next

// Allow only digits (0-9)
llBUppercase = .F.
llBLowercase = .F.
? "-- only digits (0-9)"
for i = 1 to 10
    // Generate 20-character strings.
    ? loFortuna.RandomString(20,llBDigits,llBLowercase,llBUppercase)
next


release loChilkatGlob
release loFortuna