Don't forget the end parameter for the type of encryption, for example 1024

Allen

-----Original Message-----

From: profoxtech-bounces@leafe.com [mailto:profoxtech-bounces@leafe.com] On

Behalf Of KAM.covad

Sent: Saturday, May 16, 2009 2:21 AM

To: profoxtech@leafe.com

Subject: Re: VFP9 SP1 - problems with the vfpencryption.fll version 71?

Here is my test after installing the correct dlls and getting no errors:

What am I doing wrong with the 7.1 and 8.0 versions?

Clear

* vfpencryption.fll original version 6kb

lcEncryptionLibrary = Locfile("vfpencryptionSSI.FLL","FLL")

If !Empty(lcEncryptionLibrary)

SET LIBRARY TO

Set Library To (lcEncryptionLibrary)

Else

Messagebox("Cannot find the file: vfpencryptionSSI.fll")

Quit

Endif

lcTestEncrypt = alltrim(Encrypt("Hello World!", "My_SeCrEt_KeY"))

? lcTestEncrypt

lcTestDecrypt = decrypt(lcTestEncrypt,"My_SeCrEt_KeY")

? lcTestDecrypt && Hello World!