Encryption | decryption
Data library encryption and decryption technology, one of FoxPro
Author: ccbzzp
In reality, the security of the data is very important, especially in a very important department like the bank,
So the encryption of the data is particularly important, and in the long term, the pen is always the encryption and decryption of the various numbers.
Write the law, I hope to help you, and we also explore together, learn together, and progress together!
FoxPro provides some low-level file operation functions for the user, using these low-level operational functions, you can actually operate on low-level files, and these low-level functions are mainly: FCLOSE (), Fcreate (), FEOF (), Ferror (), Fflush (), FGETS ( ), FOPEN (), FPUTS (), FREAD (), fseek (), Strtofile (), and so on, the specific usage of these functions is not specifically described here, and these functions are used in the following articles.
1. Data encryption
The following is an example of modifying a user's password to explain:
Program Chang_password Click () content:
IF VARTYPE (M.id_man) <> ' C '. OR. VARTYPE (M.ID_PSD) <> ' C '
=messagebox (' You haven't registered! No more password, ', 0+48+0, ' info tip! ') =6
Return
ELSE
SELECT &father_table.
LOCATE for Alltrim (Id_man) ==alltrim (M.id_man);
. and.
Alltrim (this. Parent.encrypt_data. CLICK (Id_psd,m.id_man)) ==alltrim (M.ID_PSD);
. and.! DELETED ()
IF FOUND ()
IF Alltrim (m.new_password1) ==alltrim (M.NEW_PASSWORD2)
REPLACE &father_table ... ID_PSD with
this. Parent.encrypt_data. CLICK (M.new_password1,m.id_man)
=messagebox (' Password changes are more successful! ', 0+48+0, ' Information tips! ')
ELSE
=messagebox (' Password doesn't change! Two new codes are inconsistent! ', 0+48+0, ' info tip!
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.