DataFlex

Quoted-Printable Encode/Decode a String

See more Encryption Examples

_LANGUAGE_ example to quoted-printable encode and decode a string. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    String s
    String sQp
    String sDecoded
    String sQp
    String sDecoded

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

    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End

    // Here's a string in Icelandic using non us-ascii chars:
    Move "Ég get etið gler án þess að meiða mig." To s

    Set ComCryptAlgorithm Of hoCrypt To "none"
    Set ComEncodingMode Of hoCrypt To "quoted-printable"

    // Quoted-printable encode/decode the iso-8859-1
    // representation of the string.  Notice how each
    // Icelandic char is represented by 1 byte:
    Set ComCharset Of hoCrypt To "iso-8859-1"
    Get ComEncryptStringENC Of hoCrypt s To sQp
    Showln "iso-8859-1:"
    Showln sQp
    Get ComDecryptStringENC Of hoCrypt sQp To sDecoded
    Showln sDecoded

    // Now do the same using utf-8. Notice how each
    // Icelandic char is represented by 2 bytes in utf-8:
    Set ComCharset Of hoCrypt To "utf-8"
    Get ComEncryptStringENC Of hoCrypt s To sQp
    Showln "utf-8:"
    Showln sQp
    Get ComDecryptStringENC Of hoCrypt sQp To sDecoded
    Showln sDecoded


End_Procedure