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

; All Chilkat classes can be unlocked at once at the beginning of a program
; by calling UnlockBundle.  It requires a Bundle unlock code.
$oChilkatGlob = ObjCreate("Chilkat.Global")
Local $bSuccess = $oChilkatGlob.UnlockBundle("Anything for 30-day trial.")
If ($bSuccess <> True) Then
    ConsoleWrite($oChilkatGlob.LastErrorText & @CRLF)
    Exit
EndIf

$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)