请问有没有加密dbf的代码,要可以用的.谢了!

楼上的哥们好想答非所问哦~~~

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
retu

思路一、如果你用第三方软件读写DBF文件，可以对DBF文件头里面的某些信息进行修改，那样VFP就无法打开你的DBF文件，别人也就不能篡改和窃取你的数据。但是这种情况不现实，因为你是用VFP编程。

思路二、程序运行时对DBF文件进行解密到临时文件，程序退出前重新加密文件，删除临时文件。这样也有问题，别人可以在程序运行时候查看你的临时文件。

思路三、最简单，但是只欺骗不懂电脑的：把DBF文件的扩展名改一下，比如你有DATA1.DBF，你可以修改为DATA1.DAT，VFP程序能够打开处理，别人如果不知道这个是DBF格式数据文件就～