字符串加密解密 学习任务单-2021届高三信息技术复习（无答案）

VB字符串加密与解密 上机实践：任务一【破译密文1(限ASCII字符)】 任务描述：编写代码，根据运行结果，在下表中写出破译出的明文1。 【破译要点：恺撒加密法思想（字符简单移位加密)】。 密文1 kxlihqjEdqn 解密密钥 字符串向左移3位进行解密（-3） 明文1 上机实践：任务二【破译密文2(限ASCII字符)】 任务描述：编写代码，根据运行结果，在下表中写出破译出的明文2。 【破译要点：恺撒加密法思想（字符循环移位加密)】 密文2 82,Pbzqlo5,Bumobpp abifsbov@Qeb qefoa txo wlkb 解密密钥 使字符串一个范围内首尾相连，对ASCII字符向前移3位。（+3） （1） 英文字母向前移3位，那么A→D，B→E……X→A,Y→B，Z→A，小写字母也是依循相同的加密规则。 （2）数字向前移3位，那么0→3，1→4……7→0,8→1，9→2 （3）其他字符则将其替换为下划线 "_" 。 明文2 ( 请填写出流程图中的（1）、（2）、（3）处的内容 _________________________________________________________________________ __________________________________________________________________________ ___________________________________________________________________________ ) 【编写解密代码】 Private Sub JieM2_Click() Dim miwen As String Dim ch As String, t As String miwen = Text3.Text For i = 1 To (1) ch = (2) If (3)