>*======================================================================================== >* 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 >