高中信息技术：3.2《信息的编程加工》课件（教科版必修）[1].ppt

3.2信息的编程加工航天员在太空进行科学实验获得的实验数据在传输和存储过程中通常需要采用复杂的密码技术进行加密。对数据加密是将被保密的数据（称为明文）按一定规律进行重新编码，变成难以读懂的乱码字符（密文），从而隐藏原信息，使非授权用户无法获得真实内容。假设明文仅由英文字母组成，加密规则：①如下图，将明文中出现的字符A替换为E，B替换为F，C替换为G，…，W替换为A，X替换为B，…；②将明文中出现的字符进行大小写转换。那么密文aSqIRwLMDYMfERKhI解密后的明文应该是：
WoMenShiZuiBangDeABCDEFGHPrivateSubCommand1_Click()
s1=Text1.Text'将文本框中输入字符赋值变量S1
s2=""
l=Len(s1)
Fori=1Tol
c=Mid(s1,i,1)'依次取变量s1中的字符
If(c>="A")And(c<="Z")Then'判断是否是大写字母
a=((Asc(c)-65+4)Mod26)+65'加密规则往后推4个字母
s2=s2+LCase(Chr(a))'密文；LCase（）转换为小写字母
EndIf
If(c>="a")And(c<="z")Then'判断是否是小写字母
a=((Asc(c)-97+4)Mod26)+97'加密规则往后推4个字母
s2=s2+UCase(Chr(a))'密文；LCase（）转换为大写字母
EndIf
Nexti
Text2.Text=s2'将变量S2输出到文本框中
EndSubPrivateSubCommand2_Click()
s2=Text2.Text
s1=""
l=Len(s2)
Fori=1Tol
c=Mid(s2,i,1)
If(c>="A")And(c<="Z")Then'判断是否是大写字母
a=((Asc(c)-65+22)Mod26)+65'加密规则往后推22个字母
s1=s1+LCase(Chr(a))'明文；LCase（）转换为小写字母
EndIf
If(c>="a")And(c<="z")Then'判断是否是小写字母
a=((Asc(c)-97+22)Mod26)+97'加密规则往后推22个字母
s1=s1+UCase(Chr(a))'明文；LCase（）转换为大写字母
EndIf

Nexti
Text1.Text=s1
EndSub问题解决过程：