I was using vfpencryption.fll, encrypt and decrypt with no problem. I =

upgraded to vfpencryption 71 and now I get an API error on XP SP2 with =

the DECRYPT function

Anyone else using vfpencryption.fll

--- StripMime Report -- processed MIME parts ---

multipart/alternative

text/plain (text body -- kept)

text/html

---

71 is a sideways not an upgrade. I use 71 because v8.0 runtimes are a right

royal pain. What error are you getting. You will need the 71 runtimes. VFP

uses one but there is another. Cant think of the name but there is a write

up on sweatpotato.

Allen

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

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

Behalf Of KAM.covad

Sent: Friday, May 15, 2009 8:35 PM

To: profoxtech@leafe.com

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

I was using vfpencryption.fll, encrypt and decrypt with no problem. I

upgraded to vfpencryption 71 and now I get an API error on XP SP2 with the

DECRYPT function

Anyone else using vfpencryption.fll

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 =3D 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 =3D alltrim(Encrypt("Hello World!", "My_SeCrEt_KeY"))

? lcTestEncrypt

lcTestDecrypt =3D decrypt(lcTestEncrypt,"My_SeCrEt_KeY")

? lcTestDecrypt && Hello World!

* vfpencryption.fll version 7.1 144kb

lcEncryptionLibrary =3D Locfile("vfpencryption71.FLL","FLL")

If !Empty(lcEncryptionLibrary)

SET LIBRARY TO

Set Library To (lcEncryptionLibrary)

Else

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

Quit

Endif

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

? lcTestEncrypt

lcTestDecrypt =3D decrypt(lcTestEncrypt,"My_SeCrEt_KeY")

? lcTestDecrypt && =

^=D3-=C9=E8=F2n=FE?=1Ff=1A=ED=DE=7F1fK=1Az=A3=11?=F4e=8F=DD=11=DC=EC=B5-

* vfpencryption.fll version 8.0 120kb

lcEncryptionLibrary =3D Locfile("vfpencryption80.FLL","FLL")

If !Empty(lcEncryptionLibrary)

SET LIBRARY TO

Set Library To (lcEncryptionLibrary)

Else

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

Quit

Endif

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

? lcTestEncrypt

lcTestDecrypt =3D decrypt(lcTestEncrypt,"My_SeCrEt_KeY")

? lcTestDecrypt && =C8=11

&& =D1s2=BE=C61=16=D5df=15=05>FGJ=D8=DD =

s=B8=18=12?=8Fj>=B4=1A

=20

----- Original Message -----=20

From: Allen=20

To: profox@leafe.com=20

Sent: Friday, May 15, 2009 12:22 PM

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

71 is a sideways not an upgrade. I use 71 because v8.0 runtimes are a =

right

royal pain. What error are you getting. You will need the 71 runtimes. =

VFP

uses one but there is another. Cant think of the name but there is a =

write

up on sweatpotato.

Allen=20

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

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

On

Behalf Of KAM.covad

Sent: Friday, May 15, 2009 8:35 PM

To: profoxtech@leafe.com

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

I was using vfpencryption.fll, encrypt and decrypt with no problem. I

upgraded to vfpencryption 71 and now I get an API error on XP SP2 with =

the

DECRYPT function

Anyone else using vfpencryption.fll

[excessive quoting removed by server]

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!