>* Quick sample code: >oCrypt = NewObject("_CryptAPI",Home(1) + "ffc\_Crypt") >If not oCrypt.GetIsInstalled() > MessageBox("Error") > Return .F. >EndIf > >cDecryptedFilename = "c:\temp\mydata.dbf" >cPassWord = "fox rocks!" >cEncryptedFilename = "c:\temp\mydata.enc" > >oCrypt.EncryptSessionStreamFile(cDecryptedFilename, cPassWord, cEncryptedFilename) > >* to revert: >*oCrypt.DecryptSessionStreamFile(cEncryptedFilename, cPassWord, cDecryptedFilename) >>