首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB 使用XOR 加密有关问题

2012-01-22 
VB 使用XOR 加密问题请看以下代码dim s as string,t as long加密tasc(人)t t xor 52schr(t)解密tasc

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)

热点排行