运用VB对文字进行加密解密

来源：百度知道 编辑：UC知道 时间：2024/06/01 18:18:55
（1）编写一加密解密的程序，要求在选定文本文件后，对文件中所有字符进行加密，加密后文件保存为另一个文本文件，也可以选择被加密后的文件进行解密
（2）需求采用运算符XOR，至少要比程序中增加使用三个控件对象
（3）综合运用多种文件控件
（4）对文件中的字符采用逐字加密解密的方法

'这是我从网上找到的一段加密解密的代码，很不错，应该符合要求。
'文本框的multiline属性是用来设置是否可以接受多行文本，只能在窗体上手工设置。
'文本框的scrollbars属性是用来设置是否有垂直和水平滚动条的，也只能在窗体上手工设置。
'keyAscii不清楚是作什么用的。
'两个StrConv函数用的太好了，我没想到能处理的这么简单。

Option Explicit
Dim key() As Byte

Sub initkey() '这里为密匙，建议定义的复杂些，我这里仅仅是个示例
ReDim key(9)
key(0) = 12
key(1) = 43
key(2) = 53
key(3) = 67
key(4) = 78
key(5) = 82
key(6) = 91
key(7) = 245
key(8) = 218
key(9) = 190
End Sub

Function Pass_Encode(ByVal s As String) As String '加密
On Error GoTo myerr
initkey
Dim buff() As Byte
buff = StrConv(s, vbFromUnicode)
Dim i As Long, j As Long
Dim k As Long
k = UBound(key) + 1
For i = 0 To UBound(buff)
j = i Mod k
buff(i) = buff(i) Xor key(j)
Next
Dim mstr As String
mstr