PureBasic

Example: Crypt2.EncodeString method

Demonstrates how to call the EncodeString method. PureBasic

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

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

    s.s = "Hello World"

    Debug CkCrypt2::ckEncodeString(crypt,s,"utf-8","hex")
    ; Output: 48656C6C6F20576F726C64

    Debug CkCrypt2::ckEncodeString(crypt,s,"utf-16","hex")
    ; Output: 480065006C006C006F00200057006F0072006C006400

    Debug CkCrypt2::ckEncodeString(crypt,s,"utf-8","base64")
    ; Output: SGVsbG8gV29ybGQ=

    s = "électricité"

    Debug CkCrypt2::ckEncodeString(crypt,s,"utf-8","hex")
    ; Output: C3A96C6563747269636974C3A9

    Debug CkCrypt2::ckEncodeString(crypt,s,"windows-1252","hex")
    ; Output: E96C6563747269636974E9

    Debug CkCrypt2::ckEncodeString(crypt,s,"windows-1252","hex_lower")
    ; Output: e96c6563747269636974e9

    Debug CkCrypt2::ckEncodeString(crypt,s,"utf-8","url")
    ; Output: %C3%A9lectricit%C3%A9


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure