*======================================================================================== * Decrypts a string with a password and returns the result * back as plain text *======================================================================================== LParameter tcEncrypted, tcPassword Local loCrypt, lcData, llOK loCrypt = NewObject("_CryptApi",Home()+"FFC\_Crypt.vcx") lcData = "" llOK = .T. llOK = loCrypt.DecryptSessionBlockString( ; m.tcEncrypted, m.tcPassword, @lcData ) If not m.llOK lcData = NULL EndIf Return m.lcData