|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
加密数据文件和EXE文件（一）
|
日期：2007年5月2日 作者： 查看:[大字体
中字体 小字体]
|
FOX类编程语言易学好用，在我国有着非常庞大的编制和使用队伍，由于其十分普及，在用资源非常丰富，加上其排序、检索速度之快，是VB和DELPHI在数据库处理上所不及的，因此，在未来很长一段时间里，是很难被其他语言所替代的。但其保密性差是也大家公认的。也许正是因为它的普及，只要稍为懂一点数据库知识的人，一打开数据表，其内容便一目了然，且可任意更改，其保密性和安全性可想而知。随着UNFOXpro.exe、Refox7.exe和Unfoxall等反编译软件的出现，你辛辛苦苦编的程序， 即使编译成EXE文件，一经反编译，则你煞费苦心设置的版权符、验证关、口令、密码 等都如同虚设。那么FOX类编程语言保密性差的弱点就真的没有办法避免吗？当然部是！ 办法肯定有。下面就这个问题，谈谈我的看法和我所采取的一些措施：
先谈有关数据表 （DBF）(下同)的加密问题。
数据表的加解密常见的有三种方式：
1、直接在磁盘上加解密，即在关闭数据表文件后，对已保存在磁盘上的数据表文 件进行加密，在每次蚩荼砦募埃仍诖排躺隙允荼斫饷埽缓笤俟〧OX将其打开，其优点是：加解密简单容易，一般程序员用FOXPOR提供的低级文件函数都能编 出加解密程序。缺点是：在 WINDOWS的多任务环境下，很容易取得解密后的数据，且一旦系统出错，还未来得及加密就重新启动系统，那保留在磁盘上的就是解密后的数据，稍微懂得一点WINDOWS系统特性的程序员，一般不会采用此方式。
2、在内存中对数据表的字段进行加解密，这又可分两种：
A、用ASC()函数把字符转换成ASCII码，再对ASCII码进行 + - * / 运算，然后再用CHR()函数把运算后的ASCII码转换成字符，进行加解密。但这种方法有个缺点，即当加或乘时，其值容易大于255(FFH)即大于ASCII码的最大值，无法用CHR( )再转换成字符，如果对运算后大于255的数据不加密，则解密时又会带来麻烦，即同是255， 哪个是加密后的255， 哪个是未加密的255呢？这也就是有人问为何汉字解密后会出现许多 同音汉字的原因。
B、利用Vfp3.0以上版本提供的位操作函数bitxor()进行加解密，该加解密方法是C语言及汇编语言常用的加密方法，其原理是将一字节的8位二进制数与另一个二进 制数进行异或操作，如用6个以上密匙(口令)进行加密， 则在不知其密匙的情况下，是很难解密的。它还有一个优点是加解密用同一模块，即一次执行是加密，再次执行为解密。
以下是其加解密例程：
注：调用该过程时，需加密的数据表已打开，且为当前工作区
Procedure jjmgc para Pass &&Pass是密匙，假设Pass='wjgwkj'
priv all
mccd=len(Pass) &&取Pass密匙长度
Sjbzds=fcou() &&取字段个数
Dime Jmsz(Sjbzds) &&根据字段个数建立一维数组
Go top
Scan
Scat to Jmsz &&读一条记录到数组
For I=1 to Sjbzds
If type("Jmsz(i)")="C" &&该字段是字符型吗
Zdcd=len(trim(Jmsz(i))) &&取字段长度
mc1=1
For x=1 to Zdcd
Jm1=asc(subs(Jmsz(I),x,1)) &&取字段中一个字节
jm2=asc(subs(Pass,mc1,1)) &&取Pass中一个字节
jmjg=chr(bitxor(jm1,jm2)) &&将JM1按JM2的值异或
Jmsz(I)=stuf(Jmsz(I),x,1,jmjg) &&进行加密替换
mc1=iif(mc1>mccd,1,mc1+1) &&判断MC1是否大于mCCD
Endf
Endi
Endf
Gath from Jmsz &&将加解密的数据，写入当前记录
Ends
retu
以上代码在WINDOWS 98 Microsoft Visual FoxPro 3.0以上版本通过。
3.在内存中直接对整个数据表文件(.DBF)加解密，这也有两种方法：
A.借助现成工具，犹如UCDOS SDK所提供的DBFKey()函数那样，与FOX无缝连接，不装入LoadSdk用USE是无法打开数据表的，其优点是显而易见的，但目前在WINDOWS 环境下还找不到这样的工具，而自己制作其难度大，一般程序员做不到。
上一篇:在Pocket PC上编写游戏之一
下一篇:创建基于MIDP的应用
|
| 加密数据文件和EXE文件（一） 相关文章： |
|
|
|
| 加密数据文件和EXE文件（一） 相关软件： |
|
|
|
|
