首页 > 代码库 > 文件函数对VFP数据库进行有效的加密

文件函数对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良师益友网。

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