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

这篇文章主要讲解了“利用VB.NET RND()函数实现文件加密功能”,文中的讲解内容简单清晰,易于学习与理解,下面请大家跟着小编的思路慢慢深入,一起来研究和学习“利用VB.NET RND()函数实现文件加密功能”吧!

为广汉等地区用户提供了全套网页设计制作服务,及广汉网站建设行业解决方案。主营业务为网站设计、做网站、广汉网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!

在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

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

感谢各位的阅读,以上就是“利用VB.NET RND()函数实现文件加密功能”的内容了,经过本文的学习后,相信大家对利用VB.NET RND()函数实现文件加密功能这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是创新互联,小编将为大家推送更多相关知识点的文章,欢迎关注!


网站栏目:利用VB.NETRND()函数实现文件加密功能
地址分享:http://bzwzjz.com/article/pjpeco.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 营销型网站建设 定制网站建设 企业网站建设 高端网站建设 LED网站设计方案 成都网站设计 成都企业网站制作 成都网站设计 网站设计 H5网站制作 企业网站设计 成都营销网站建设 商城网站建设 教育网站设计方案 成都网站建设推广 自适应网站建设 网站建设公司 温江网站设计 网站建设方案 网站制作报价 app网站建设 手机网站制作设计