1700416912
plaintext=plaintext&Chr(&HD)
1700416913
1700416914
Next
1700416915
1700416916
MsgBox plaintext
1700416917
1700416918
图10.5 代码清单10.4的执行结果
1700416919
1700416920
1700416921
1700416922
1700416923
在因特网上经过加密的数据也难免被窃取，因此就要先设法做到即便数据被窃取，其内容也难以被破解。为此可以把密钥设成多位数而不仅仅是一位数。下面，就试着以三位数345为密钥，通过XOR运算来进行加密（如代码清单10.5所示）。将明文中的第一个字母与3做XOR运行，第二个字母与4做XOR运算，第三个字母与5做XOR运算，从第四个字母开始，依次与3，4，5做XOR运算，依次类推（如图10.6所示）
1700416924
1700416925
代码清单10.5 通过与三位数进行XOR运算实现加密和解密
1700416926
1700416927
Dim key(2)
1700416928
1700416929
key(0)=3
1700416930
1700416931
key(1)=4
1700416932
1700416933
key(2)=5
1700416934
1700416935
text1=InputBox(“请输入明文或密文”)
1700416936
1700416937
text2=””
1700416938
1700416939
For i=1 To Len(text1)
1700416940
1700416941
letter=Mid(text1,i,1)
1700416942
1700416943
text2=text2&Chr(Asc(letter) Xor key((i-1)Mod3))
1700416944
1700416945
Next
1700416946
1700416947
MsgBox text2
1700416948
1700416949
图10.6 代码清单10.5的执行结果
1700416950
1700416951
1700416952
1700416953
1700416954
如果仅用一位数作为密钥，那么只需要从0-9尝试十次就能破解密文。但如果用三位数密钥，那么就有从000-999的1000种可能，如果更进一步把密钥的位数增加到十位，那么就需要1010=100亿次才能破解。就算使用一秒进行100万次尝试的计算机，破解此密文也需要花费100亿/100万次/秒=10000秒≈2.78小时。密钥每增加1位，破解所花费的时间就增加10倍，密钥再进一步增长到16位的话，破解时间就是2.78小时*1000000≈317年，从所需的时间上来看，可以说破解是不可能的。
1700416955
1700416956
1700416957
1700416958
1700416959
计算机是怎样跑起来的 [:1700412728]
1700416960
计算机是怎样跑起来的 10.4 适用于因特网的公开密钥加密技术
1700416961