文件函數對VFP數據庫進行有效的加密

每樣事物都會有本身的薄弱環節，固然VFP也不例外。在VFP中有一個十分薄弱的環節就是數據庫的保密性差。因爲.DBF文件都是敞開式的，甚至用DOS中最簡單的TYPE命令均可以瀏覽，所以，小編從如下兩方面對數據進行加密：
一、在向自由表中增長數據時，就進行加密，即更新自由表時就對數據進行加密，在讀取數據時再解密。
二、用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良師益友網。