(PowerBuilder) 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

integer li_rc
oleobject loo_ChilkatGlob
integer li_Success
oleobject loo_Fortuna
string ls_StrRandHex
string ls_StrRandBase64
string ls_StrRandBase58
oleobject loo_Fortuna2

// All Chilkat classes can be unlocked at once at the beginning of a program
// by calling UnlockBundle.  It requires a Bundle unlock code.
loo_ChilkatGlob = create oleobject
li_rc = loo_ChilkatGlob.ConnectToNewObject("Chilkat_9_5_0.Global")
if li_rc < 0 then
    destroy loo_ChilkatGlob
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_ChilkatGlob.UnlockBundle("Anything for 30-day trial.")
if li_Success <> 1 then
    Write-Debug loo_ChilkatGlob.LastErrorText
    destroy loo_ChilkatGlob
    return
end if

loo_Fortuna = create oleobject
li_rc = loo_Fortuna.ConnectToNewObject("Chilkat_9_5_0.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.
li_Success = loo_Fortuna.AddEntropy("01020304","hex")
li_Success = loo_Fortuna.AddEntropy("hello world","ascii")

// Generate some random data:
ls_StrRandHex = loo_Fortuna.GenRandom(16,"hex")
ls_StrRandBase64 = loo_Fortuna.GenRandom(22,"base64")
ls_StrRandBase58 = loo_Fortuna.GenRandom(32,"base58")

Write-Debug "hex random bytes: " + ls_StrRandHex
Write-Debug "base64 random bytes: " + ls_StrRandBase64
Write-Debug "base58 random bytes: " + ls_StrRandBase58

// Try it again with a different object to verify that the same results are obtained:
loo_Fortuna2 = create oleobject
li_rc = loo_Fortuna2.ConnectToNewObject("Chilkat_9_5_0.Prng")

li_Success = loo_Fortuna2.AddEntropy("01020304","hex")
li_Success = loo_Fortuna2.AddEntropy("hello world","ascii")

ls_StrRandHex = loo_Fortuna2.GenRandom(16,"hex")
ls_StrRandBase64 = loo_Fortuna2.GenRandom(22,"base64")
ls_StrRandBase58 = loo_Fortuna2.GenRandom(32,"base58")

Write-Debug "hex random bytes: " + ls_StrRandHex
Write-Debug "base64 random bytes: " + ls_StrRandBase64
Write-Debug "base58 random bytes: " + ls_StrRandBase58


destroy loo_ChilkatGlob
destroy loo_Fortuna
destroy loo_Fortuna2