4.3 语句-字符串加密解密 课件（15张幻灯片）

课件15张PPT。猜一猜有位好友拜托我于明日早上10点帮助其购买在唯品会中的部分商品，其账户密码以邮件的方式发送给我，如下图所示，请帮助我破译其密码ASCII码表调查你是否有过被盗号的经历？
你是否接到过陌生号码打来的推销电话或者诈骗电话？
大数据时代，你的信息安全吗？字符串加密湖州五中 姬树云信息加密即使被窃取，
也能保证数据的安全替代加密：给身份证加密设计VB程序，给身份证代码进行加密，加密方式根据下图加密表所示。如何遍历整个身份证号码？
Asc(x)Chr(x)Len(x)Mid(x,N,K)观察加密表的规律在横线上填入代码，并调试程序Private Sub Command1_Click()
Dim s1 As String, s2 As String 's1存储明文，s2存储密文
Dim pw As String, ch As String, t As String
Dim i As Integer
pw = "ZSLANDVBenc"
s1 = Text1.Text
For i = 1 To Len(s1)
ch = ①
If ② Then
t = Val(ch)
③
Else
s2 = s2 & Mid(pw, 11, 1)
End If
Next i
Text2.Text = s2
End Sub移位加密：凯撒加密法罗马凯撒发出的军令都要经过加密，他的加密方法是将字母表中的字母依次后移三位，如A变D，B变E收到密函的将领，根据解码密钥，即数字“3”，将密函中的字母对应前移三位，即可解读军令。后人称这种加密算法为凯撒加密法。凯撒加密程序输出密文abcdef…若密钥为3任务二：完成代码的填写，并调试程序Private Sub Command1_Click()
Dim s1 As String, s2 As String
Dim ch As String, x As String, t As Integer
s1 = Text1.Text
x = Val(Text2.Text)
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)

If ch >= "A" And ch <= "Z" Then
If t > Asc("Z") Then
Else
If t > Asc("z") Then
End If
ch = Chr(t)

Next i
Text3.Text = s2
End Sub①②③④课堂小结移位、替代加密法，此外还有置换加密以及
组合加密法
加密算法越复杂，密文破解难度就越难，
信息就越安全课后练习运用所学加密方法，设计一种加密安全记录QQ密码或邮箱密码的方法。算法来源于生活
回归于生活