PureBasic

Decimal Integer List Encoding

See more Encryption Examples

The "decList" encoding was added in Chilkat v9.5.0.66 to encode and decode binary bytes from comma-separated decimal integers. PureBasic

IncludeFile "CkBinData.pb"
IncludeFile "CkStringBuilder.pb"

Procedure ChilkatExample()

    ; Note: This example requires Chilkat v9.5.0.66 or greater.

    byteVals.s = "84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46"

    ; Demonstrate encoding/decoding comma-separated decimal integrs to/from binary.
    binData.i = CkBinData::ckCreate()
    If binData.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkBinData::ckAppendEncoded(binData,byteVals,"decList")

    ; Examine the data in hex
    Debug "HEX: " + CkBinData::ckGetEncoded(binData,"hex")

    ; Decode to a StringBuilder
    sb.i = CkStringBuilder::ckCreate()
    If sb.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppendBd(sb,binData,"us-ascii",0,0)

    ; The bytes were actually the us-ascii char values for the string
    ; "The true sign of intelligence is not knowledge but imagination."
    Debug CkStringBuilder::ckGetAsString(sb)

    ; Now get the bytes in decimal list format again:
    Debug CkBinData::ckGetEncoded(binData,"decList")

    ; The output of this example is:
    ; HEX: 5468652074727565207369676E206F6620696E74656C6C6967656E6365206973206E6F74206B6E6F776C656467652062757420696D6167696E6174696F6E2E
    ; The true sign of intelligence is not knowledge but imagination.
    ; 84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46


    CkBinData::ckDispose(binData)
    CkStringBuilder::ckDispose(sb)


    ProcedureReturn
EndProcedure