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)