AutoIt

Generating Repeatable Random Data for Testing/Debugging

See more PRNG Examples

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

Local $bSuccess = False

;  This example assumes the Chilkat API to have been previously unlocked.
;  See Global Unlock Sample for sample code.

$bSuccess = False

$oFortuna = ObjCreate("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.
$bSuccess = $oFortuna.AddEntropy("01020304","hex")
$bSuccess = $oFortuna.AddEntropy("hello world","ascii")

;  Generate some random data:
Local $strRandHex = $oFortuna.GenRandom(16,"hex")
Local $strRandBase64 = $oFortuna.GenRandom(22,"base64")
Local $strRandBase58 = $oFortuna.GenRandom(32,"base58")

ConsoleWrite("hex random bytes: " & $strRandHex & @CRLF)
ConsoleWrite("base64 random bytes: " & $strRandBase64 & @CRLF)
ConsoleWrite("base58 random bytes: " & $strRandBase58 & @CRLF)

;  Try it again with a different object to verify that the same results are obtained:
$oFortuna2 = ObjCreate("Chilkat.Prng")

$bSuccess = $oFortuna2.AddEntropy("01020304","hex")
$bSuccess = $oFortuna2.AddEntropy("hello world","ascii")

$strRandHex = $oFortuna2.GenRandom(16,"hex")
$strRandBase64 = $oFortuna2.GenRandom(22,"base64")
$strRandBase58 = $oFortuna2.GenRandom(32,"base58")

ConsoleWrite("hex random bytes: " & $strRandHex & @CRLF)
ConsoleWrite("base64 random bytes: " & $strRandBase64 & @CRLF)
ConsoleWrite("base58 random bytes: " & $strRandBase58 & @CRLF)