文件函数对VFP数据库进行有效的加密

每样事物都会有自己的薄弱环节，当然VFP也不例外。在VFP中有一个十分薄弱的环节就是数据库的保密性差。由于.DBF文件都是敞开式的，甚至用DOS中最简单的TYPE命令都可以浏览，因此，小编从以下两方面对数据进行加密：
1、在向自由表中增加数据时，就进行加密，即更新自由表时就对数据进行加密，在读取数据时再解密。
2、用VFP提供的低级文件函数进行加密，加密后的文件无法打开、浏览，使用时，再执行该加密程序即可将加密的自由表还原。
＊＊加密数据库程序（同时也是解密程序）＊＊
set talk off
close all
clea
@10,10 say ″请输入要加密的自由表名(含扩展名):″ get file1 defa ′ ′
read
handle=fopen(″＆file1″,2)
if handle<0
@14,10 say ″不能打开文件!″
=inkey(0)
retu
endif
j=0
do while .not.feof(handle)
bb=fread(handle,1)
cc=chr(mod(asc(bb)＋128,256))
=fseek(handle,j)
=fwrite(handle,cc)
?asc(bb),asc(cc)
j=j＋1
enddo
=fclose(handle)
close all

return

还有更多数据库教程知识可登陆e良师益友网。