Encrypt String using Chilkat

Function DoEncryptString Global String sSource Returns String
    String sEnc
    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 ComEncryptStringENC of hoCrypt (trim(sSource)) to sEnc

    Send Destroy to hoCrypt

    Function_Return sEnc
End_Function