Question

VB 字符串与BYTE互转乱码

我要做BASE64加解密，但我脑残的发现，我不会转码= =我将文本框text1的内容用strconv转成byte然后加密，再转换回来显示在text2里，然后点解密就把text2的内容转换byte解密，再转回来显示在text1。但问题是，现在的text1的内容与原来的不同！
Private Sub Command1_Click()
Dim tSurBytes() As Byte
Dim tDesBytes() As Byte
tSurBytes() = StrConv(Text1.Text, vbFromUnicode)
tDesBytes() = Base64Encode(tSurBytes())
Text2.Text = StrConv(tDesBytes(), vbUnicode)
End Sub
Private Sub Command2_Click()
Dim tSurBytes() As Byte
Dim tDesBytes() As Byte
tSurBytes() = StrConv(Text2.Text, vbFromUnicode)
tDesBytes() = Base64Decode(tSurBytes())
Text1.Text = StrConv(tDesBytes(), vbUnicode)
End Sub

Answer 1

我手上没有Base64Encode这个函数，经测试：
Private Sub Command1_Click()
Dim tSurBytes() As Byte
Dim tDesBytes() As Byte
tSurBytes() = StrConv(Text1.Text, vbFromUnicode)
'tDesBytes() = Base64Encode(tSurBytes())
Text2.Text = StrConv(tSurBytes(), vbUnicode)
End Sub
Private Sub Command2_Click()
Dim tSurBytes() As Byte
Dim tDesBytes() As Byte
tSurBytes() = StrConv(Text2.Text, vbFromUnicode)
'tDesBytes() = Base64Decode(tSurBytes())
Text1.Text = StrConv(tSurBytes(), vbUnicode)
End Sub

这个是没有问题的，所以我认为是Base64Decode这个函数返回值的问题，你再好好看看。

追问

但我用8-bit、128-bit加解密，都是正确的，所以应该是字符串转换函数的问题

追答

但这个转换是没有问题的，你看看Base64Decode返回的是什么类型的

Answer 2

Text2.Text = StrConv(tDesBytes(), vbUnicode)

加密码后再转回unicode可能造成某些不可显示字符丢失，所以再转回时就不一样了。

追问

直接用全局变量保存加密后的数组，再解密转回字符串，还是这样

Answer 3

我记得以前有个ASC（）函数，可以求出字符的ASC码，要不你试试？