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良师益友网。
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/29881142/viewspace-1324174/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/29881142/viewspace-1324174/