(PureBasic) Re-Encode (How to convert encodings)

Demonstrates how to convert a string from one encoding to another.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

    ; This example assumes the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

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

    ; Here are some bytes as a hex string
    hex.s = "4142434445462140232425"

    ; The ReEncode method converts a string from one encoding to another.
    ; Valid encodings are "url", "base64", "qp", "hex", "modbase64", "base64url", "base32", "base58",
    ; and any of the encodings listed here:  http://cknotes.com/chilkat-binary-encoding-list

    ; Convert from hex to base64
    b64.s = CkCrypt2::ckReEncode(crypt,hex,"hex","base64")
    Debug "base64: " + b64

    ; Convert from base64 to base32
    b32.s = CkCrypt2::ckReEncode(crypt,b64,"base64","base32")
    Debug "base32: " + b32

    ; Convert from base32 back to hex
    hex = CkCrypt2::ckReEncode(crypt,b32,"base32","hex")
    Debug "hex: " + hex


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure