jm.prg

不错的用电管理系统,用VFP6.0做的.大家可以下来看看哦

*******************************************
*加解密程序filename文件名jm为1加密0解密
*加密思想：用低级文件函数改写数据库第一个字节
*******************************************
parameters filename,jm
*处理文件名
if at('.',filename)=0
	filename=filename+'.dbf'
endif
if jm=1  &&加密
 	handle=fopen(filename,2) &&打开文件
	keybite=fread(handle,1)  &&读表头第一个字节
	if keybite=chr(48)
		=fseek(handle,0)         &&指针移回第一个字节
		=fwrite(handle,chr(asc(keybite)+2))  &&用比原来高2的ASCII字符改写
	endif
 	=fclose(handle)          &&关闭文件
else     &&解密
 	handle=fopen(filename,2)
 	keybite=fread(handle,1)
 	=fseek(handle,0)

 	=fwrite(handle,chr(48))  
* 	=fwrite(handle,chr(asc(keybite)-2))  &&用比原来低2的ASCII字符改写

 	=fclose(handle)
endif
*****************************************
*经过这样处理过的表就不能用USE打开，优点是加密速度快，但不彻底但用
*一个文本编辑器打开还是可以看到一些东西，怎样进一步加密还有待探讨。
*****************************************