vb程序设计 加密解密字符串

来源：百度知道 编辑：UC知道 时间：2024/06/17 23:18:31
1.编写一加密、解密的程序，要求在文本框中输入一串字符后，对所有字符进行加密，显示在另外一个文本框内，在第三个文本框内显示对第二个文本框内容解密后内容
2.要求采用运算符XOR
3.综合运用文本框的多种属性，例如multiline scrollbars keyAscii
4.对文本框中字符逐字加密、解密的方法。

'对文本框的MultiLine=True和ScrollBars=3的设置，要在属性窗口中进行，在第一个文本框中输入回车，即可执行

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim n As Integer, i As Integer, pwd As String, oByte() As Byte, temp() As String
If KeyAscii = 13 Then
i = 0
pwd = Text1
n = Len(pwd)
ReDim oByte(0 To n - 1), temp(0 To n - 1)
Do While i < n
oByte(i) = Asc(Mid(pwd, i + 1, 1))
oByte(i) = 21 Xor oByte(i)
temp(i) = Chr(oByte(i))
i = i + 1
Loop
Text2 = Join(temp, "")

i = 0
pwd = Text2
n = Len(pwd)
ReDim oByte(0 To n - 1), temp(0 To n - 1)
Do While i < n
oByte(i) = Asc(Mid(pwd, i + 1, 1))
oByte(i) = 21 Xor oByte(i)
temp(i) = Chr(oByte(i))
i = i + 1
Loop
Text3 = Join(temp, "")
End If

End Sub