VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用RND()函数加密
发表评论(0)作者:, 平台:, 阅读:11824, 日期:2000-03-12
用RND()函数加密


浙江 傅昌盛

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语句正

常写入文件(得到的只是空格),有兴趣者不妨一试。