VB 实现字符串加密 解密

'如果是将text1中每个字符的asc码值转化为16进制实现加密解密可以这样：复制粘贴下段代码

'加密数据
Private Sub Command1_Click()
Text2.Tag = "" '清空text2.tag用来存储加密后数据
Text2.Text = "" '清空text2用来显示加密后数据
For i = 1 To Len(Text1.Text) '将text1中每个字符的asc码值转化为十六进制以软回车chr(13)分隔并存储在text2.tag中
Text2.Tag = Text2.Tag & Hex(Asc(Mid(Text1.Text, i, 1))) & Chr(13) '
Next
Text2.Text = Text2.Tag '显示加密后数据
End Sub

'解密数据
Private Sub Command2_Click()
Text1.Tag = ""
Text1.Text = ""
Dim b() As String '定义数组用来存储由text1中每个字符转化来的十六进制数
b = Split(Text2.Text, Chr(13)) '以软回车符chr(13)分隔text2中文本并存储在数组b中
For i = 0 To UBound(b) '将text2中每个十六进制数转化为十进制的asc码值后转化为字符
Text1.Tag = Text1.Tag & Chr(Val("&h" & b(i)))
Next
Text1.Text = Text1.Tag '显示原始数据
End Sub

Private Sub Command1_Click()
Text2 = code(Text1)
End Sub

Private Sub Command2_Click()
Text1 = jiecode(Text2)
End Sub

Private Sub Command3_Click()
Dim chang As Single
Dim mim, inp As String
inp = InputBox("请输入所需密钥的长度：(不大于500）", "(*^__^*) 嘻嘻……")
Do While inp = "" Or Val(inp) = 0
MsgBox ("输出了非数字,请重新输入")
inp = InputBox("请输入所需密钥的长度：(不大于500）", "(*^__^*) 嘻嘻……")
Loop
For i = 1 To Len(inp)
mim = Mid(inp, i, 1)
If mim <> "0" Then
If Val(mim) = 0 Then
MsgBox ("输入了非数字")
Exit For
End If
End If
Next i
If Val(inp) > 500 Then
MsgBox "错误：密钥过长", , "警告"
End
End If
Text3.Text = ""
For i = 1 To Val(inp)
Randomize
Text3.Text = Text3.Text + Trim(Str(Int(Rnd * 9) + 1))
Next i
End Sub

Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command1_Click()
Dim i As Integer
Text2.Text = ""
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & Hex(Asc(Mid(Text1.Text, i, 1)))
Next
End Sub

Private Sub Command2_Click()
Dim i As Integer
Text1.Text = ""
For i = 1 To Len(Text2.Text) Step 2
If Val("&H" & Mid(Text2.Text, i, 2)) >= &HB0 Then '判断是否是汉字!
Text1.Text = Text1.Text & Chr(Val("&H" & Mid(Text2.Text, i, 4)))
i = i + 2
Else
Text1.Text = Text1.Text & Chr(Val("&H" & Mid(Text2.Text, i, 2)))
End If
Next
End Sub

此代码可以把字母转为两位16进制，汉字转为4位16进制！有其它问题欢迎发消息给我！

What???

不懂你说什么..

加密比较常用的是异或运算,即把每个字符的ASCII码进行异或运算