对数据库DBF文件的彻底加密
针对这些问题，我利用了ＦｏｘＰｒｏ的底层函数加密成为一个普通的二进制文件，使整个数据库不仅表头，而且表内数据均面目皆非，使非法操作者无法浏览、更改其中的数据，即使用ＰＣＴＯＯＬＳ等工具软件也难以看清它的本来面目，给您的数据上了一把锁。而您自己却可以用个解密参数就能正常使用了。
#3 ＊加密用法：ＤＯ ＪＪＭ ＷＩＴＨ 欲加密的文件名，ＪＩＡＭＩ
#3 ＊解密用法：ＤＯ ＪＪＭ ＷＩＴＨ 欲解密的文件名，ＪＩＥＭＩ
ＦＵＮＣＴＩＯＮ ＪＪＭ
ＰＡＲＡＭＥＴＥＲＳ ｋ－ｎａｍｅ，ｊｊ
ＰＲＩＶＡＴＥ ｋ－ｎａｍｅ，ｋ－ｊｍｇｏ，ｋ－ｊｂ，ｋ－ｍｒ
ＣＬＥＡ
ＣＬＯＳ ＡＬＬ
ＩＦ ＡＴ（＂．＂，ｋ－ｎａｍｅ）＝０ ＆＆判断命令行的数据库名是否有．ＤＢＦ后缀，没有则加上
ｋ－ｎａｍｅｑ＝ｋ－ｎａｍｅ
ｋ－ｎａｍｅ＝ｋ－ｎａｍｅ＋＂．ＤＢＦ＂
ＥＬＳＥ
ｋ－ｎａｍｅｑ＝ＳＵＢＳＴＲ（ｋ－ｎａｍｅ，１，ＡＴ（＂．＂，ｋ；－ｎａｍｅ）－１）
ＥＮＤＩＦ ＆＆ｋ－ｎａｍｅｑ为数据库的主文件名
ＩＦ ＵＳＥＤ（ｋ－ｎａｍｅｑ）
ｗａｉｔ＂ＪＩＡＭＩ（）不能修改已经打开的数据库，请关闭数据库＂＋ＵＰＰＥＲ（ｋ－ｎａｍｅｑ）＋＂后再试！＂； ＷＩＮＤＯＷＳ
ＲＥＴＵＲＮ （．Ｆ．）
ＥＮＤＩＦ
ｋ－ｊｂ＝ＦＯＰＥＮ（ｋ－ｎａｍｅ，２） ＆＆打开这个文件，并确定句柄
ＩＦ ｋ－ｊｂ＝－１
ＷＡＩＴ ＂ＪＩＡＭＩ（）由于程序目前状态原因，不能；打开这个数据库＂＋ｋ－ｎａｍｅｑ＋；
＂请检查您的系统环境！＂ ＷＩＮＤＯＷＳ
ＲＥＴＵＲＮ （．Ｆ．）
ＥＮＤＩＦ
ＳＴＯＲＥ ＦＳＥＥＫ（ｋ－ｊｂ，０，２） ＴＯ ｇｎｅｎｄ ＆＆把指针移到ＥＯＦ
ＳＴＯＲＥ ＦＳＥＥＫ（ｋ－ｊｂ，０） ＴＯ ｇｎｔｏｐ ＆＆把指针移到ＢＯＦ
ＩＦ ｇｎｅｎｄ＜＝０ ＆＆文件“空”吗？
ＷＡＩＴ ＷＩＮＤＯＷ 这个文件是空的！ ＮＯＷＡＩＴ
ＥＮＤＩＦ
＝ＦＳＥＥＫ（ｋ－ｊｂ，０） ＆＆将文件指针移回第一个字节
ＦＯＲ ＣＯＵＮＴ＝１ ＴＯ ｇｎｅｎｄ
ｋ－ｍｒ＝ＦＲＥＡＤ（ｋ－ｊｂ，ＣＯＵＮＴ） ＆＆读取表头的第ｃｏｕｎｔ字节
＝ＦＳＥＥＫ（ｋ－ｊｂ，ＣＯＵＮＴ－１） ＆＆将文件指针移到第ｃｏｕｎｔ字节
ＤＯ ＣＡＳＥ
ＣＡＳＥ ｊｊ＝ ｊｉａｍｉ
＝ＦＷＲＩＴＥ（ｋ－ｊｂ，ＣＨＲ（ＡＳＣ（ｋ－ｍｒ）＋２ ）） ＆＆用比原来高两位的ＡＳＣＩＩ字符改写
ＣＡＳＥ ｊｊ＝ ｊｉｅｍｉ
＝ＦＷＲＩＴＥ（ｋ－ｊｂ，ＣＨＲ（ＡＳＣ（ｋ－ｍｒ）－２）） ＆＆用比原来高两位的ＡＳＣＩＩ字符改写
ＯＴＨＥＲ
ＷＡＩＴ＂请附加参数到ＪＪＭ之后，ＪＩＡＭＩ；为对文件加密，ＪＩＥＭＩ为对文件解密＂ＷＩＮＤＯＷＳ
ＲＥＴＵＲＮ （．Ｆ．）
ＥＮＤＣＡＳＥ
ＥＮＤＦＯＲ
＝ＦＳＥＥＫ（ｋ－ｊｂ，０） ＆＆将文件指针移回第一个字节
？ＦＲＥＡＤ（ｋ－ｊｂ， ｇｎｅｎｄ） ＆＆显示变化后的文件内容
＝ＦＣＬＯＳＥ（ｋ－ｊｂ） ＆＆关闭文件
ＣＬＯＳ ＡＬＬ
ＣＬＥＡ ＡＬＬ
ＲＥＴＵＲＮ （．Ｔ．）
如果您把欲改写的位数或ＡＳＣＩＩ的差数改变一下，比如做个条件判断，那么即使别人知道了你的加密方法，也不能解开你的库了，因为条件是你任意给的。具体做法我就不多说了，留给你一个思路吧！