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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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")
set chilkatGlob = CreateObject("Chilkat.Global")
success = chilkatGlob.UnlockBundle("Anything for 30-day trial.")
If (success <> 1) Then
    outFile.WriteLine(chilkatGlob.LastErrorText)
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Prng")
set fortuna = 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.
success = fortuna.AddEntropy("01020304","hex")
success = fortuna.AddEntropy("hello world","ascii")

' Generate some random data:
strRandHex = fortuna.GenRandom(16,"hex")
strRandBase64 = fortuna.GenRandom(22,"base64")
strRandBase58 = fortuna.GenRandom(32,"base58")

outFile.WriteLine("hex random bytes: " & strRandHex)
outFile.WriteLine("base64 random bytes: " & strRandBase64)
outFile.WriteLine("base58 random bytes: " & strRandBase58)

' 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")
set fortuna2 = CreateObject("Chilkat.Prng")

success = fortuna2.AddEntropy("01020304","hex")
success = fortuna2.AddEntropy("hello world","ascii")

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

outFile.WriteLine("hex random bytes: " & strRandHex)
outFile.WriteLine("base64 random bytes: " & strRandBase64)
outFile.WriteLine("base58 random bytes: " & strRandBase58)

outFile.Close