巧用VB.NETRND()函数实现文件加密功能

在VB.NET中定义了很多种的函数，我们不能一一的都使用过，只有你用到过的函数你较为熟悉，这里就VB.NET RND()函数和大家简单的分析一下。VB.NET 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 
  
  
MAMA=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)'得到字母表 
  
  
CHARNUMCHARNUM=CHARNUM Xor RANDOMINTEGER'异或 
  
  
Print #filen2,Chr$(CHARNUM);’写入目标文件 
  
  
Next I 
  
  
Close FILENUM 
  
  
Close filen2 
  
  
ok ’调用成功对话框 
  
  
End Sub
 
 

#T#上面利用VB.NET RND()函数调用过程可以对任何exe com、文本等文件进行加解密（奇数次加密，偶数次解密），重演性极好，保密性特优，若对上述过程进一步加工，如进行多重随机等手段处理，那么将会更上一层楼，在此不累述。顺便提一下，上面过程若对目标文件同样以二进制文件打开、写入，那么只能对纯西文文本进行加解密，对于纯中文文本则通过修改取双字节、Ｉ的步长为２来实现，其它（中西文结合文本、exe com等文件）则将得不到预期结果，其原因可以能是ascll大于127的字符，不能正常显示，不能用ｐｕｔ语句正常写入文件（得到的只是空格），有兴趣者不妨一试。

本文标题：巧用VB.NETRND()函数实现文件加密功能
本文地址：http://www.shufengxianlan.com/qtweb/news12/268262.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联