Criptare date

::share resurse Visualfox: librarii, aplicatii, scripturi diverse. Postati doar resursele si detaliile.
Forum rules
:: limbajul folosit in acest forum va fi unul civilizat, in limita subiectelor din topicurile deschise.
:: orice manifestare necivilizata (agresiune verbala, comportament neadecvat, reclama abuziva fara legatura cu forumul) va duce la stergerea contului de user.
:: pt. inscriere USER NOU la acest FORUM, folositi linkul https://profox.ro/forum-register/
:: IN ACEST TOPIC SE POSTEAZA DOAR RESURSELE SI DETALIILE AFERENTE
:: Nu atasati FISIERE! Inserati linkuri pt. acestea!
Post Reply
User avatar
admin
Posts: 163
Joined: 16 Jun 2022, 17:03

Criptare date

Post by admin »

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
Post Reply