UC知道VB对字符串的异或
来源：百度知道 编辑：UC知道 时间：2024/06/05 19:53:52
我有一段代码，对字符串进行异或，但是它只能对字符串的第一个字符进行异或，应该怎么改？
Dim a As String
Private Sub Command1_Click()
a = Text1.Text
Text1.Text = Asc(a) Xor 23
End Sub
Private Sub Command2_Click()
a = Text1.Text
Text1.Text = Chr(a Xor 23)
End Sub
其中有一个文本框和两个按钮
Dim a As String
Private Sub Command1_Click()
a = Text1.Text
Text1.Text = Asc(a) Xor 23
End Sub
Private Sub Command2_Click()
a = Text1.Text
Text1.Text = Chr(a Xor 23)
End Sub
其中有一个文本框和两个按钮
不好意思，刚才没仔细看题，这个肯定可以
Dim a As String
Dim b As String
Dim c As String
Private Sub Command1_Click()
b = Text1.Text
Text1.Text = ""
For i = 1 To Len(b)
a = Mid$(b, i, 1)
c = Asc(a) Xor 23
If Text1.Text = "" Then
Text1.Text = c
Else
Text1.Text = Text1.Text & "," & c
End If
Next i
End Sub
Private Sub Command2_Click()
Dim d() As String
d() = Split(Text1.Text, ",")
Text1.Text = ""
For i = 0 To UBound(d)
a = d(i)
c = Chr(a Xor 23)
Text1.Text = Text1.Text & c
Next i
End Sub
Option Explicit
Private Const strEncryption As String = "aa" 'XOR加密/解密函数
Public Function XOREncryption(ByVal vstrDataIn As String, Optional ByVal vstrCodeKey As String = "") As String
Dim lonDataPtr As Long
Dim intXORValue1 As Integer
Dim intXORValue2 As Integer
Dim str