(Tcl) 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.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set crypt [new_CkCrypt2]

# 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.

CkCrypt2_put_EncodingMode $crypt "hex"
set s [CkCrypt2_genRandomBytesENC $crypt 8]
puts "Uppercase Hex: $s"

CkCrypt2_put_EncodingMode $crypt "hex_lower"
set s [CkCrypt2_genRandomBytesENC $crypt 8]
puts "Lowercase Hex: $s"

CkCrypt2_put_EncodingMode $crypt "base64"
set s [CkCrypt2_genRandomBytesENC $crypt 8]
puts "Base64: $s"

CkCrypt2_put_EncodingMode $crypt "base64url"
set s [CkCrypt2_genRandomBytesENC $crypt 8]
puts "Base64Url: $s"

CkCrypt2_put_EncodingMode $crypt "base58"
set s [CkCrypt2_genRandomBytesENC $crypt 8]
puts "Base58: $s"

CkCrypt2_put_EncodingMode $crypt "base32"
set s [CkCrypt2_genRandomBytesENC $crypt 8]
puts "Base32: $s"

CkCrypt2_put_EncodingMode $crypt "decList"
set s [CkCrypt2_genRandomBytesENC $crypt 8]
puts "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

delete_CkCrypt2 $crypt