Base64 Decoding using Chilkat

Function DecodeStringBase64 Global String sSource Returns String
    String sDec
    Integer hoCrypt

    Indicate err False
    Get Create U_cComChilkatCrypt2 to hoCrypt
    Send CreateComObject to hoCrypt
    If (err) Function_Return ""

    Get ComUnlockComponent of hoCrypt "..." to windowindex

    Set ComCharset of hoCrypt to "us-ascii"
    Set ComCryptAlgorithm of hoCrypt to "none"
    Set ComEncodingMode of hoCrypt to "base64"

    Get ComDecryptStringENC of hoCrypt (trim(sSource)) to sDec

    Send Destroy to hoCrypt

    Function_Return sDec
End_Function