(Visual FoxPro) Generating Repeatable Random Data for Testing/Debugging

Demonstrates how to use the Fortuna PRNG to generate random-looking but repeatable non-random data for the purpose of testing and debugging.

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

LOCAL loChilkatGlob
LOCAL lnSuccess
LOCAL loFortuna
LOCAL lcStrRandHex
LOCAL lcStrRandBase64
LOCAL lcStrRandBase58
LOCAL loFortuna2

* 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')

* Normally an application would seed the PRNG with entropy from
* some real random source.  However, sometimes we want the same
* random sequence of bytes for testing and debugging purposes.
* This a reason why GetEntropy and AddEntropy are two different methods.
* An application could omit the call to GetEntropy, and instead pass
* non-random data to AddEntropy. For example:

* Seed the PRNG with non-entropy, so we get a repeatable sequence.
* Note: AddEntropy can be called any number of times.
lnSuccess = loFortuna.AddEntropy("01020304","hex")
lnSuccess = loFortuna.AddEntropy("hello world","ascii")

* Generate some random data:
lcStrRandHex = loFortuna.GenRandom(16,"hex")
lcStrRandBase64 = loFortuna.GenRandom(22,"base64")
lcStrRandBase58 = loFortuna.GenRandom(32,"base58")

? "hex random bytes: " + lcStrRandHex
? "base64 random bytes: " + lcStrRandBase64
? "base58 random bytes: " + lcStrRandBase58

* Try it again with a different object to verify that the same results are obtained:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Prng')
loFortuna2 = CreateObject('Chilkat.Prng')

lnSuccess = loFortuna2.AddEntropy("01020304","hex")
lnSuccess = loFortuna2.AddEntropy("hello world","ascii")

lcStrRandHex = loFortuna2.GenRandom(16,"hex")
lcStrRandBase64 = loFortuna2.GenRandom(22,"base64")
lcStrRandBase58 = loFortuna2.GenRandom(32,"base58")

? "hex random bytes: " + lcStrRandHex
? "base64 random bytes: " + lcStrRandBase64
? "base58 random bytes: " + lcStrRandBase58

RELEASE loChilkatGlob
RELEASE loFortuna
RELEASE loFortuna2