(PureBasic) Quoted-Printable Encode/Decode a String

PureBasic example to quoted-printable encode and decode a string.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

    ; This example requires 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's a string in Icelandic using non us-ascii chars:
    s.s = "Ég get etið gler án þess að meiða mig."

    CkCrypt2::setCkCryptAlgorithm(crypt, "none")
    CkCrypt2::setCkEncodingMode(crypt, "quoted-printable")

    ; Quoted-printable encode/decode the iso-8859-1
    ; representation of the string.  Notice how each
    ; Icelandic char is represented by 1 byte:
    CkCrypt2::setCkCharset(crypt, "iso-8859-1")
    qp.s = CkCrypt2::ckEncryptStringENC(crypt,s)
    Debug "iso-8859-1:"
    Debug qp
    decoded.s = CkCrypt2::ckDecryptStringENC(crypt,qp)
    Debug decoded

    ; Now do the same using utf-8. Notice how each
    ; Icelandic char is represented by 2 bytes in utf-8:
    CkCrypt2::setCkCharset(crypt, "utf-8")
    qp.s = CkCrypt2::ckEncryptStringENC(crypt,s)
    Debug "utf-8:"
    Debug qp
    decoded.s = CkCrypt2::ckDecryptStringENC(crypt,qp)
    Debug decoded


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure