1700416820
1700416821
1700416822
1700416823
因为加密时使用的是将字符编码向后错三个的方法，所以只要再将字符编码向前挪三个就可以实现解密。代码清单10.2中就是解密程序
1700416824
1700416825
代码清单10.2 用把字符编码减3的方法解密
1700416826
1700416827
cipher=InputBox(“请输入密文”)
1700416828
1700416829
plaintext=””
1700416830
1700416831
For i=1 To Len(cipher)
1700416832
1700416833
letter=Mid(cipher,i,1)
1700416834
1700416835
plaintext=plaintext&Chr(Asc(letter)-3)
1700416836
1700416837
Next
1700416838
1700416839
MsgBox plaintext
1700416840
1700416841
与进行加密的程序相反，解密使用的是从字符编码中减去3的方法。在最初弹出的窗口中输入密文（就输入刚才得到的QLNNHL），然后单击OK按钮，在接下来弹出的窗口中就会显示解密后的明文NIKKEI（如图10.2所示），怎么样？看起来挺酷的吧！
1700416842
1700416843
图10.2 代码清单10.2的执行结果
1700416844
1700416845
1700416846
1700416847
1700416848
也就是说，加上3是加密，减去3是解密。因此通常把像3这样用于加密和解密的数字称为“密钥”。如果事先把3这个密钥作为只有数据的发送方和接收方才知道的秘密，那么不知道这个密钥的人，就无法对加密的数据进行解密
1700416849
1700416850
下面再试着编写一个加密程序。这次由用户指定密钥的值。该程序通过把每一个字符的编码与密钥做XOR运算（eXclusive OR，逻辑异或运算），将明文转换成密文（如代码清单10.3所示）。
1700416851
1700416852
代码清单10.3 通过XOR运算进行加密和解密
1700416853
1700416854
k=InputBox(“请输入密钥”)
1700416855
1700416856
key=CInt(k)
1700416857
1700416858
text1=InputBox(“请输入明文或密文”)
1700416859
1700416860
text2=””
1700416861
1700416862
For i=1 To Len(text1)
1700416863
1700416864
letter=Mid(text1,i,1)
1700416865
1700416866
text2=text2&Chr(Asc(letter) Xor key)
1700416867
1700416868
Next
1700416869