PureBasic

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