(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$crypt = chilkat::CkCrypt2->new();

# 1193046 decimal is equal to 0x123456 hex.
$value = 1193046;

# Write the integer in 8 bytes using little-endian byte-order and return as hex
$bLittleEndian = 1;
$s = $crypt->encodeInt($value,8,$bLittleEndian,"hex");
# The output is: 5634120000000000
print $s . "\r\n";

# Now use big-endian...
$bLittleEndian = 0;
$s = $crypt->encodeInt($value,8,$bLittleEndian,"hex");
# The output is: 0000000000123456
print $s . "\r\n";

# Instead of hex, get the 8 bytes using base64.
$s = $crypt->encodeInt($value,8,$bLittleEndian,"base64");
# The output is: AAAAAAASNFY=
print $s . "\r\n";