Visual Basic 6.0

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. Visual Basic 6.0

Dim crypt As New ChilkatCrypt2

' 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"
Dim s As String
s = crypt.GenRandomBytesENC(8)
Debug.Print "Uppercase Hex: " & s

crypt.EncodingMode = "hex_lower"
s = crypt.GenRandomBytesENC(8)
Debug.Print "Lowercase Hex: " & s

crypt.EncodingMode = "base64"
s = crypt.GenRandomBytesENC(8)
Debug.Print "Base64: " & s

crypt.EncodingMode = "base64url"
s = crypt.GenRandomBytesENC(8)
Debug.Print "Base64Url: " & s

crypt.EncodingMode = "base58"
s = crypt.GenRandomBytesENC(8)
Debug.Print "Base58: " & s

crypt.EncodingMode = "base32"
s = crypt.GenRandomBytesENC(8)
Debug.Print "Base32: " & s

crypt.EncodingMode = "decList"
s = crypt.GenRandomBytesENC(8)
Debug.Print "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