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

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