Forum VisualFox

VFPencrypt.fll
*cod realizat de Craig Boyd
*criptare/decriptare date
www.profox.ro/forum/resurse/vfpencryptfll.rar

Exemple utilizare:

Criptare
**startenc=text de criptat
**finenc=text criptat
Set Memowidth To 1000
Set Library To (Locfile("c:\"+GAZDA+"\vfpencryption.fll","FLL")) Additive
lcAES256Key = 'ajkhfbasdjlfbalivu lbliuilgsvlnirn_cheie_criptare'
finenc = Encrypt(startenc, ;
lcAES256Key,1024)
Set Library To

Decriptare
**cekey=cheie criptare
**startenc=text de decriptat
**iastring=etxt decriptat
cekey=ALLTRIM(CEKEY)
IASTRING=''
Set Memowidth To 1000
Set Library To (Locfile("c:\"+GAZDA+"\vfpencryption.fll","FLL")) Additive
lcAES256Key=CEKEY
IASTRING=Decrypt(startenc,lcAES256Key,1024)
Set Library To