|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：傅昌盛 日期：2005-8-4 11:32:43 |
|
|
VISUAL BASIC的RND（）函数有一个重要的特征：当RND（）的参数（我们称这里可以称它为种子）为负值时，同一种子（负值）产生同一个随机数序列。同时VISUAL BASIC还具有强大的二进制技术功能，这样我们可以按以下思路实现文件内容加密：
X=RND(-KEY)
'KEY为正数
VAULE=INT(256*RND) '产生一个随机数(以此为密码)
Open FILENAME$ For Binary As #FILENUM'打开文件
Get #FILENUM,I,A '取文件内容
B=A XOR VAULE '得到加密文件
结合
C=B XOR VAULE'得到解密文件(B为加密后文件内容)
注意:这里的A非整个文件内容,可以是极少部分、几个字节甚至单个字节,若为单字节,则文件中的每个字节同不同的数异或,破译难度可见有多么大。具体过程:
Sub ENDECODE(FILENAME$,MA,FILE2$)'参数为:源文件,密码,目标文件
Dim FILENUM As Integer,X As Single,I As Single
Dim CHARNUM As Integer,RANDOMINTEGER As Integer
Dim SINGLECHAR As String *1,filen2 As Integer'取单字节
If MA<0 Them
MA=MA*(-1)
End If
X=Rnd(-MA)'参数为负
FILENUM=FreeFile
Open FILENAME$ For Binary As #FILENUM '二进制方式打开源文件
filen2=FreeFile
Open FILE2$ For Output As #filen2'以顺序文件打开目标文件
For I=1 To LOF(FILENUM)'LOF()文件字节长
Get #FILENUM,I,SINGLECHAR'取单字节内容
CHARNUM=Asc(SINGLECHAR)
RANDOMINTEGER=Int(256*Rnd)'得到字母表
CHARNUM=CHARNUM Xor RANDOMINTEGER'异或
Print #filen2,Chr$(CHARNUM);'写入目标文件
Next I
Close FILENUM
Close filen2
ok '调用成功对话框
End Sub
调用格式：ENDECODE 源文件名，密码，目标文件名
上面过程可以对任何EXE、COM、文本等文件进行加解密（奇数次加密，偶数次解密），重演性极好，保密性特优，若对上述过程进一步加工，如进行多重随机等手段处理，那么将会更上一层楼，在此不累述。
顺便提一下，上面过程若对目标文件同样以二进制文件打开、写入，那么只能对纯西文文本进行加解密，对于纯中文文本则通过修改取双字节、I的步长为2来实现，其它（中西文结合文本、EXE、COM等文件）则将得不到预期结果，其原因可以能是ASCII大于127的字符，不能正常显示，不能用put语句正常写入文件（得到的只是空格），有兴趣者不妨一试。
|
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 傅昌盛 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:32:43 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]