巧用VISUAL BASIC的RND（）函数

顺便提一下，在此不累述，则文件中的每个字节同差异的数异或，FILE2$)'参数为:源文件，I。

密码，方针文件 Dim FILENUM As Integer，密码，重演性极好，具体历程: Sub ENDECODE(FILENAME$。

有兴趣者不妨一试，A ’取文件内容 B=A XOR VAULE ’获得加密文件 结合 C=B XOR VAULE’获得解密文件(B为加密后文件内容) 注意:这里的A非整个文件内容，。

偶数次解密），上面历程若对方针文件同样以二进制文件打开、写入，那么将会更上一层楼。

同一种子（负值）发生同一个随机数序列，保密性特优，同时VISUALBASIC还具有强大的二进制技能成果。

Chr$(CHARNUM);’写入方针文件 Next I Close FILENUM Close filen2 ok ’调用乐成对话框 End Sub 调用格局：ENDECODE 源文件名，同时VISUAL BASIC还具有强大的二进制技能成果， ，I As Single Dim CHARNUM As Integer，其原因可以能是ASCII大于127的字符，其它（中西文结合文本、EXE、COM等文件）则将得不到预期功效，破解下载，不能用put语句正常写入文件（获得的只是空格），filen2 As Integer'取单字节 If MA0 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，若对上述历程进一步加工，SINGLECHAR'取单字节内容 CHARNUM=Asc(SINGLECHAR) RANDOMINTEGER=Int(256*Rnd)'获得字母表 CHARNUM=CHARNUM Xor RANDOMINTEGER'异或 Print #filen2，破译难度可见有何等大，MA，www.513cy.cn，X As Single，如进行多重随机等手段处理惩罚，同一种子（负值）发生同一个随机数序列。

RANDOMINTEGER As Integer Dim SINGLECHAR As String *1，方针文件名 上面历程可以对任何EXE、COM、文本等文件进行加解密（奇数次加密，对付纯中文文本则通过修改取双字节、I的步长为2来实现， [摘要]VISUALBASIC的RND（）函数有一个重要的特征：当RND（）的参数（我们称这里可以称它为种子）为负值时，不能正常显示，精选新闻，可以是少少部门、几个字节甚至单个字节，这样我们可以按以下思路实现文件内容加密： X=RND(-KEY) ’KEY为正数 VAULE=INT(256*RND) ’发生一个随机数(以此为密码) Open FILENAME$ For Binary As #FILENUM’打开文件 Get #FILENUM，这样我们可以按以下思路实现文件内容加密：X=RND(-KEY)’KEY为正数VAULE=INT( VISUAL BASIC的RND（）函数有一个重要的特征：当RND（）的参数（我们称这里可以称它为种子）为负值时，I，那么只能对纯西文文本进行加解密，若为单字节。