VB 使用XOR 加密问题
请看以下代码
dim s as string,t as long
加密
t=asc("人")
t= t xor 52
s=chr(t)

解密
t=asc(s)
t=t xor 52
s=chr(t)

这是一个VB 加密解密代码的特殊例子,在网上很多.
可是为什么这个代码经加密,然后解必后"人" 变以了"  "(即S=""),
为什么?
有什么办法解决?



[解决办法]
t = AscW("人")
t = t Xor 52
s = ChrW(t)


t = AscW(s)
t = t Xor 52
s = ChrW(t)