DataFlex

Base62 Encoding and Decoding

Demonstrates base62 encoding and decoding. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoBd
    Boolean iSuccess
    String sBase62_encoded
    Handle hoSb
    String sTemp1

    Get Create (RefClass(cComChilkatBinData)) To hoBd
    If (Not(IsComObjectCreated(hoBd))) Begin
        Send CreateComObject of hoBd
    End

    // Base62 encode.
    Get ComAppendString Of hoBd "hello world" "utf-8" To iSuccess
    Get ComGetEncoded Of hoBd "base62" To sBase62_encoded
    Showln "hello world --> " sBase62_encoded

    // Output: 
    // hello world --> AAwf93rvy4aWQVw

    // Base62 decode
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSb
    If (Not(IsComObjectCreated(hoSb))) Begin
        Send CreateComObject of hoSb
    End
    Get ComDecodeAndAppend Of hoSb "AAwf93rvy4aWQVw" "base62" "utf-8" To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln "decoded: " sTemp1

    // Output:
    // decoded: hello world


End_Procedure