(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    ; Write the integer in 8 bytes using little-endian byte-order and return as hex
    bLittleEndian.i = 1
    s.s = CkCrypt2::ckEncodeInt(crypt,value,8,bLittleEndian,"hex")
    ; The output is: 5634120000000000
    Debug s

    ; Now use big-endian...
    bLittleEndian = 0
    s = CkCrypt2::ckEncodeInt(crypt,value,8,bLittleEndian,"hex")
    ; The output is: 0000000000123456
    Debug s

    ; Instead of hex, get the 8 bytes using base64.
    s = CkCrypt2::ckEncodeInt(crypt,value,8,bLittleEndian,"base64")
    ; The output is: AAAAAAASNFY=
    Debug s


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure