Function EncodeStringBase64 Global String sIn Returns String
String sEncodedKey
Integer hoCrypt
Get Create U_cComChilkatCrypt2 to hoCrypt
Send CreateComObject to hoCrypt
Integer iretval
Get ComUnlockComponent of hoCrypt "TEKPROCrypt_puWbUgCfTRNP" to iretval
Get ComEncode of hoCrypt sIn "base64" to sEncodedKey
Send Destroy to hoCrypt
Function_Return sEncodedKey
End_Function