Question

求一种VB代码带KEY的加密解密代码。

可以加密中文，可加密任意长度的。
加密KEY自定义。
KEY不正确，解密也不正确。

Answer 1

给你一个最简单加密 字符异或

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 1111 '1111就是自定义KEY 只能为数值
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 1111)
Text1.Text = Text1.Text & c
Next i
End Sub