(Tcl) Encode Integer to Hex or Base64 using N Bytes

Demonstrates how to write an integer to N bytes (little-endian or big-endian) and return the bytes in any encoding such as hex, base64, etc.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set crypt [new_CkCrypt2]

# 1193046 decimal is equal to 0x123456 hex.
set value 1193046

# Write the integer in 8 bytes using little-endian byte-order and return as hex
set bLittleEndian 1
set s [CkCrypt2_encodeInt $crypt $value 8 $bLittleEndian "hex"]
# The output is: 5634120000000000
puts "$s"

# Now use big-endian...
set bLittleEndian 0
set s [CkCrypt2_encodeInt $crypt $value 8 $bLittleEndian "hex"]
# The output is: 0000000000123456
puts "$s"

# Instead of hex, get the 8 bytes using base64.
set s [CkCrypt2_encodeInt $crypt $value 8 $bLittleEndian "base64"]
# The output is: AAAAAAASNFY=
puts "$s"

delete_CkCrypt2 $crypt