Decrypt String using Chilkat

Function DoDecryptString 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 "blowfish"
    Set ComSecretKey of hoCrypt to "secret"

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

    Send Destroy to hoCrypt

    Function_Return sDec
End_Function