PureBasic Requires Chilkat v11.2.0+

Base62 Encoding and Decoding

Demonstrates base62 encoding and decoding. PureBasic

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

Procedure ChilkatExample()

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

    ;  Base62 encode.
    CkBinData::ckAppendString(bd,"hello world","utf-8")
    base62_encoded.s = CkBinData::ckGetEncoded(bd,"base62")
    Debug "hello world --> " + base62_encoded

    ;  Output: 
    ;  hello world --> AAwf93rvy4aWQVw

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

    CkStringBuilder::ckDecodeAndAppend(sb,"AAwf93rvy4aWQVw","base62","utf-8")
    Debug "decoded: " + CkStringBuilder::ckGetAsString(sb)

    ;  Output:
    ;  decoded: hello world


    CkBinData::ckDispose(bd)
    CkStringBuilder::ckDispose(sb)


    ProcedureReturn
EndProcedure