精华区文章阅读

发信人: zxfsnow (最近睡眠太少), 信区: VB
标  题: 求随机数生成程序
发信站: 哈工大紫丁香 (2000年06月06日09:17:12 星期二), 转信

发信人: Keri (呵呵2000), 信区: VB
标  题: Re: 求随机数生成程序
发信站: 虎踞龙蟠 (Thu May 11 20:08:04 2000), 转信

    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
        调用格式：牛危模牛茫希模� 源文件名，密码，目标文件名
    上面过程可以对任何ＥＸＥ、ＣＯＭ、文本等文件进行加解密（奇数次加密，偶数
次解密），重演性极好，保密性特优，若对上述过程进一步加工，如进行多重随机等手
段处理，那么将会更上一层楼，在此不累述。
    顺便提一下，上面过程若对目标文件同样以二进制文件打开、写入，那么只能对纯
西文文本进行加解密，对于纯中文文本则通过修改取双字节、Ｉ的步长为２来实现，其
它（中西文结合文本、ＥＸＥ、ＣＯＭ等文件）则将得不到预期结果，其原因可以能是
ＡＳＣＩＩ大于１２７的字符，不能正常显示，不能用ｐｕｔ语句正常写入文件（得到
的只是空格），有兴趣者不妨一试。
【在 zhemei (xiaoz) 的大作中提到: 】
: thank you very much,
: I already think through it!
: 【在 eren (怕谁啊..) 的大作中提到: 】
: :  ft.. VB 自己就有的啊
: :  rnd 函数

--

以科计为本,以产业报国!
  超越自我,飞跃无限!


※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]

VB 版 (精华区)