I tried your example and it worked - thanks.

But then I changed to use the EncryptSessionStreamFile function and it failed.

loCrypt = NewObject("_CryptApi",Home()+"FFC\_Crypt.vcx")
lcHome = "c:\temp\"
lcFile = lcHome + "base.txt"
STRTOFILE(SPACE(2000), lcFile)
loCrypt = NewObject("_CryptApi",Home()+"FFC\_Crypt.vcx")
? loCrypt.EncryptSessionStreamFile(lcFile, "flabbergaster12345a", lcHome + Version()+".txt")

I do not get the same results.

I am stumped.

--rab