(VBScript) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")

' 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
outFile.WriteLine(s)

' Now use big-endian...
bLittleEndian = 0
s = crypt.EncodeInt(value,8,bLittleEndian,"hex")
' The output is: 0000000000123456
outFile.WriteLine(s)

' Instead of hex, get the 8 bytes using base64.
s = crypt.EncodeInt(value,8,bLittleEndian,"base64")
' The output is: AAAAAAASNFY=
outFile.WriteLine(s)

outFile.Close