编写一个应用系统，实际上不需要用任何的表都能顺利运行，因为表可以通过这个应用系统建立。
加密的作用就是想别人即使得到这样的表或任何类型的文件都没有用。建立一个文件的过程中(用fcreate())，一定会产生一个磁盘文件(也就是会留下影子)，在解密后运行的时候突然断电也会有解密的文件产生的。这个现象是我这个解密、加密程序的缺陷。

Tiger5392兄
我对你这个加密解密的程序不太懂甚至有一些里面的函数都不太认识
可否详细解释一下内容和用法（放在程序的什么地方）
谢谢

举一个例子吧。

假如有这样的程序
CLOSE ALL
IF FILE("职工.DBF")
USE 职工.DBF
ELSE
CREATE TABLE 职工 (工号 C(4),姓名 C(8)) &&别的字段略
ENDIF
*....别的语句略。

这个程序片段是假设“职工.DBF”为自由表，且能被VFP随意打开。我们的目的是将这个表加密，用VFP无法打开，那么应该修改为：
CLOSE ALL
IF FILE("职工.DBF")
=JM("职工.DBF",-1332121)
USE 职工.DBF
ELSE
CREATE TABLE 职工 (工号 C(4),姓名 C(8)) &&别的字段略
ENDIF
*....别的语句略。
*程序的最后用上
=JM("职工.DBF",1332121)

为什么解密后会提示
表已损坏，需修复后才能再次使用

你可能不注意使用，两次加密以后要两次解密的。

我在form的init事件中用了=JM("职工.DBF",1332121)
然后在form的destroy事件中用了用了=JM("职工.DBF",-1332121)
在打开并关闭这个表单后，表“职工.dbf”应该是可以在vfp下打开的，对吧？
但是打不开

我用的是vfp9.0，xp系统

[此贴子已经被作者于2007-2-2 18:01:38编辑过]

这种加密方式并不十分可靠，我原来也是用类似方法对记录不多的表进行加密的，但在使用过程中经常会因为各种原因导致表文件损坏而无法正常使用程序，现在我基本上不用这种加密方式了。

那该用什么方法加密呢

先谢谢了

看来这个帖子都沉下去十年了，把他顶起来！
之前也曾经用这个方法加密表文件，是经常出现找不开的现象。
没有更好的方法，对自由表。基本都是写文件。