For i = 1 To Len(strSource)
strChar = Mid(strSource, i, 1)
bLowData = AscB(MidB(strChar, 1, 1)) Xor key1
bHigData = AscB(MidB(strChar, 2, 1)) Xor key2
strEncrypt = strEncrypt & ChrB(bLowData) & ChrB(bHigData)
Next i
------解决思路----------------------
早期版本的AscB是读取一个字节的字符代码。
但是，现行的vb.net没有这个功能。 所以，不能转换。
按照现行的Unicode规则重新写入程序。
利用现行的Asc函数和AscW函数。这个是读取字符的字符代码。但是注意使用。
------解决思路----------------------
把strSource转成字节数组
------解决思路----------------------
重复
------解决思路----------------------
vb.net直接使用ASC，因为有重载！！！！看下msdn就好
公共方法 静态成员 Asc(Char) 返回一个 Integer 值，该值表示与某个字符相对应的字符代码。
公共方法 静态成员 Asc(String) 返回一个 Integer 值，该值表示与某个字符相对应的字符代码。
------解决思路----------------------
''' <summary>
''' 测量字符串的二进制长度.
''' </summary>
''' <param name="Str">待测量的字符串.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function LenB(ByVal Str As String) As Integer
If Str Is Nothing Then Return 0
Return System.Text.Encoding.UTF8.GetBytes(Str).Length
End Function