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)