- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-8-30 18:21
| 只看该作者
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语句正常写入文件(得到的只是空格),有兴趣者不妨一试。 |
|