[贴士] 用rnd()函数加密

SzAngel

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

调用格式：ｅｎｄｅｃｏｄｅ 源文件名，密码，目标文件名上面过程可以对任何ｅｘｅ、ｃｏｍ、文本等文件进行加解密（奇数次加密，偶数次解密），重演性极好，保密性特优，若对上述过程进一步加工，如进行多重随机等手段处理，那么将会更上一层楼，在此不累述。顺便提一下，上面过程若对目标文件同样以二进制文件打开、写入，那么只能对纯西文文本进行加解密，对于纯中文文本则通过修改取双字节、ｉ的步长为２来实现，其它（中西文结合文本、ｅｘｅ、ｃｏｍ等文件）则将得不到预期结果，其原因可以能是ａｓｃｉｉ大于１２７的字符，不能正常显示，不能用ｐｕｔ语句正常写入文件（得到的只是空格），有兴趣者不妨一试。