VBScript

Example: Crypt2.GenRandomBytesENC method

Shows how to use the GenRandomBytesENC method to generate a specified number of random bytes and return them as a binary encoded string, such as in base64 or hex format. VBScript

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

set crypt = CreateObject("Chilkat.Crypt2")

' Example of a some of the binary encodings supported by Chilkat.

' Internally uses the Fortuna cryptographically secure random number generation algorithm
' auto-seeded from a secure source of entropy that depends on the OS.

crypt.EncodingMode = "hex"
s = crypt.GenRandomBytesENC(8)
outFile.WriteLine("Uppercase Hex: " & s)

crypt.EncodingMode = "hex_lower"
s = crypt.GenRandomBytesENC(8)
outFile.WriteLine("Lowercase Hex: " & s)

crypt.EncodingMode = "base64"
s = crypt.GenRandomBytesENC(8)
outFile.WriteLine("Base64: " & s)

crypt.EncodingMode = "base64url"
s = crypt.GenRandomBytesENC(8)
outFile.WriteLine("Base64Url: " & s)

crypt.EncodingMode = "base58"
s = crypt.GenRandomBytesENC(8)
outFile.WriteLine("Base58: " & s)

crypt.EncodingMode = "base32"
s = crypt.GenRandomBytesENC(8)
outFile.WriteLine("Base32: " & s)

crypt.EncodingMode = "decList"
s = crypt.GenRandomBytesENC(8)
outFile.WriteLine("Decimal List: " & s)

' Sample Output:

' Uppercase Hex: 1BA0E87915C3B429
' Lowercase Hex: 1e1638a1c7996c58
' Base64: 1lV0I/su5lg=
' Base64Url: Zq7DU0nukLk
' Base58: foUVWUjAT6e
' Base32: LHV5RV4HRCLW2===
' Decimal List: 168,55,214,82,93,154,191,164

outFile.Close