打字猴:1.700416912e+09
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
[ 上一页 ]  [ :1.700416912e+09 ]  [ 下一页 ]