(Visual FoxPro) Generating Random ASCII Strings

Demonstrates how to generate random us-ascii strings.

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

LOCAL loChilkatGlob
LOCAL lnSuccess
LOCAL loFortuna
LOCAL lnBDigits
LOCAL lnBLowercase
LOCAL lnBUppercase
LOCAL i

* All Chilkat classes can be unlocked at once at the beginning of a program
* by calling UnlockBundle.  It requires a Bundle unlock code.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Global')
loChilkatGlob = CreateObject('Chilkat.Global')
lnSuccess = loChilkatGlob.UnlockBundle("Anything for 30-day trial.")
IF (lnSuccess <> 1) THEN
    ? loChilkatGlob.LastErrorText
    RELEASE loChilkatGlob
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Prng')
loFortuna = CreateObject('Chilkat.Prng')

* Generate random strings having only lowercase chars (a-z)
* Disallow digits and uppercase and only allow lowercase
lnBDigits = 0
lnBUppercase = 0
lnBLowercase = 1

? "-- only lowercase alpha (a-z)"
FOR i = 1 TO 10
    * Generate 20-character strings.
    ? loFortuna.RandomString(20,lnBDigits,lnBLowercase,lnBUppercase)
NEXT

* Allow both lowercase and uppercase alpha chars
lnBUppercase = 1
? "-- lower and uppercase alpha (a-zA-Z)"
FOR i = 1 TO 10
    * Generate 20-character strings.
    ? loFortuna.RandomString(20,lnBDigits,lnBLowercase,lnBUppercase)
NEXT

* Allow digits (0-9)
lnBDigits = 1
? "-- digits and lower/uppercase alpha (0-9a-zA-Z)"
FOR i = 1 TO 10
    * Generate 20-character strings.
    ? loFortuna.RandomString(20,lnBDigits,lnBLowercase,lnBUppercase)
NEXT

* Allow only digits (0-9)
lnBUppercase = 0
lnBLowercase = 0
? "-- only digits (0-9)"
FOR i = 1 TO 10
    * Generate 20-character strings.
    ? loFortuna.RandomString(20,lnBDigits,lnBLowercase,lnBUppercase)
NEXT

RELEASE loChilkatGlob
RELEASE loFortuna