用ASC CHR XOR 可以对ASCII 进行加密和解秘

那如果是汉字 的加密 和解密 要怎么来实现呢？
其实问题的根本就是 汉字用的的是啥？

Private Sub Command1_Click()
Dim a As Integer
a = Asc("中") + 16 '加密
Print a
Print Chr(a - 16) '解密
End Sub

美女 这样 也可以吗？ 我没实验过

[此贴子已经被作者于2007-9-22 16:57:56编辑过]

那为什么不去实验了再来问呢?

嗯,经典的简单加密方法.

呵呵可以
我试过了

里面的道理是什么呢？
难道汉字用的也是ASCII？？

[此贴子已经被作者于2007-9-22 17:07:23编辑过]

每个字符都对应一个ASCII码

不行就看这.

受教育了
谢谢了

又上了一课，请问purana，你的VB是自学的吗？我是读机电专业的，现在自学VB，大概要多久啊？VB主要学些什么啊？VB里什么最重要啊？－－－－－这个问题是太繁琐了一些，不好意思哦。