
⑴在输入的数字字符串中依次提取有效的密文,有效的密文的特点:
①是一组连续的,都小于5的三位数字串;②每个位置上的数字不能被重复提取;
⑵对有效密文进行解密的过程:
将密文作为一个五进制数转换为对应的十进制数值,根据ASCII字符的十进制编码表,得出对应的明文字符(提示:空格符所对应的ASCII码值为十进制数32,小写字母”z”所对应的ASCII码值为十进制数122)。
例如,密文242转换成十进制数为72,对应的明文字符为大写字母“H”。
程序运行界面如下图所示,在文本框Text1中输入密文,单击“解密”按钮,在文本框Text2中输出解密后的明文密码。
'以下代码是将有效密文数字转换为十进制数的函数
Function conv(p As String) As Integer
Dim k As Integer, q As String, i As Integer
k = 0: g = ""
For i = 1 To 3
q = Mid(p, i, 1)
Next i
conv = k
End Function
Private Sub Command1_Click()
Dim st As String, p As String, res As String
Dim c1 As String, c2 As String, c3 As String
Dim i As Integer, d As Integer, n As Integer
st = Text1.Text: n = Len(st)
i = 1: res = ""
Do While i <= n – 2 '提取有效密文,并进行转换
c1 = Mid(st, i, 1): c2 = Mid(st, i + 1, 1): c3 = Mid(st, i + 2, 1)
If
Then
d=conv(p)
If d >= 32 And d <= 122 Then res = res + Chr(d)
Else
i = i + 1
End If
Loop
Text2.Text = res
End Sub
①防火; ②安装避雷针; ③信息加密; ④设置共享权限
编写解密程序,功能如下:程序执行时,输入明文后,第一行输出去重后明文,第二行输出密文。
程序运行界面如图所示。
实现上述功能的程序如下,回答下列问题。
s1=input("请输入明文:")
s2=s1[0]
for i in range( ① ):
c=s1[i]
if c>="A" and c<="Z":
if ② :
s2=s2+c
else:
s2=s2+c
mw=""
i=5
while i<len(s2):
mw=mw+s2[i]
③
print("去重后的明文为:",s2)
print("密文为:",mw)
① ② ③
智能农业大棚通过传感器、控制器、网络设施和计算机程序来实现大棚的自动化管理。例如,自动温度控制系统中的温度传感器每隔一定时间采集大棚中的温度,一旦温度超过预设的最高温度40℃,控制系统会启动通风和喷水系统实现降温;如果温度低于预设的最低温度18℃,控制系统会启动加热器,给大棚升温。