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