如何让FOXPRO中的DBF文件加密

网上有很多这样的资料，一般由加密解密构成！给你一份资料，你学习学习吧！！！一、加密、解密思路

我们知道数据库文件(.dbf)的数据结构分为三部分：文件头部分、字段描述部分和记录部分。文件头部分的第一个字节是chr(03)，这样，就可以

通过修改文件头的第一个字节，使启用正常的打开方式不能浏览数据库内容，达到加密的目的；解密时，将加密数据库文件的文件头第一个字节修改为

正常的数据库文件的第一个字节，即可对它进行正常 *** 作。

二、加密函数

function jiami

parameters dbf_f_name,curs_set

dbf_f_name=upper(alltr(dbf_f_name))

private all

if .not. file(dbf_f_name)

=messagebox(""要加密的文件不存在！！"",0+48,""错误提示"")

else

if ! "".DBF"" $ dbf_f_name

dbf_f_name=dbf_f_name+"".DBF""

endif

hle=FOPEN(dbf_f_name,2)

if hle>0 &&打开文件成功

fbyte=FREAD(hle,1)

=FSEEK(hle,0)

=FWRITE(hle,iif(fbyte==chr(3),chr(0),chr(26)))

&&假如第一个字节是chr(3)则用chr(0)，否则用chr(26)写入

=FCLOSE(hle)

else

=messagebox(""试图文件打开错误！！"",0+48,""加密错误提示"")

endif hle>0

endif

return

三、解密函数

function jiemi

parameters dbf_f_name,curs_set

dbf_f_name=upper(alltr(dbf_f_name))

private all

if .not. file(dbf_f_name)

=messagebox(""要解密的文件不存在！！"",0+48,""错误提示"")

else

if ! "".DBF"" $ dbf_f_name

dbf_f_name=dbf_f_name+"".DBF""

endif

hle=FOPEN(dbf_f_name,2)

if hle>0

fbyte=FREAD(hle,1)

=FSEEK(hle,0)

if fbyte=chr(0).or.chr(26)

=FWRITE(hle,iif(fbyte=chr(0),chr(3),chr(245)))

endif

=FCLOSE(hle)

else

=messagebox(""试图文件打开错误！！"",0+48,""解密错误提示"")

endif hhandle>0

endif

return

四、调用加(解)密函数

启动VFP，将加密、解密函数在程序调用之前定义，然后建立表单，在表单中建立两个命令按钮，命名为“加密”、“解密”；

在命令按钮“加密”的click事件中添加代码：“=jiami(""要加密的数据库文件名""，off)”

如果要加密多个数据库文件，则调用几次加密函数即可)；

同理在命令按钮“解密”的click事件中添加代码：“=jiemi(""要解密的数据库文件名""，off)”，如果要解密多个加密数据库文件，则多调用几

次解密函数即可。

在表单中，点击“加密”按钮，则执行加密 *** 作，点击“解密”按钮，执行解密 *** 作。

现在解决这个问题最简单的方法就是看能否这个软件的作者和客服联系上，看有没有什么有效的解决办法。

另外建议您以后再给文件和文件夹加密的时候选择专业的文件和文件夹加密软件。

文件夹加密超级大师是一款安全性极高的文件和文件夹加密软件。她功能强大，速度快，效果好。

主要功能有文件加密，文件夹加密、万能锁、数据粉碎等。可满足日常工作和生活中的安全保密需求，您尽可放心使用。

看我的回答您是否满意，如果满意的话，请推荐一下。

---