1)将明文中的字母E替换为A,F替换为B,G替换为C,…A替换为W,B替换为X,C替换为Y,…,小写字符的替换方法同理。
如:明文:I Love China 加密为:E Hkra Ydejw
2)将加密后的英文字母,按顺序依次放入每个字符串段落中,第1个加密字母E放在第1个段落,第2个字母H放在第2个段落,依次类推(如下图),段落间用逗号分隔并以逗号结尾。当遇到空格,在段落末尾“,”前,插入“+”号作为标记。
第1段 | 第2段 | 第3段 | 第4段 | 第5段 | 第6段 | 第7段 | 第8段 | 第9段 | 第10段 |
E+, | H, | k, | r, | a+, | Y, | d, | e, | j, | w+, |
3)每个段落中,随机插入字母形成新的字母序列段,当段号小于8时加密字母在字母序列
中存放位置刚好是该段落号,位置以8为周期,第9段时,加密字母存放位置回到字母序列的第1位,第10段加密字母存放位置回到第2位,依次类推。(位置号<=8)
第1段 | 第2段 | 第3段 | 第4段 | 第5段 |
Etc+, | mHfryh, | oTkrestf, | rfir, | Ccfta+, |
第6段 | 第7段 | 第8段 | 第9段 | 第10段 |
iynhyYf, | tqswjyd, | nrtesiueh, | jnytq, | Uwccdb+, |
4)在每一段中随机插入除英文字母之外的ASCII字符码,形成一串密文。如图所示:
则根据加密算法,解密后的明文为
Private Sub Command1_Click()
Dim i As Integer, k As Integer
Dim s As String, c As String, ch As String
Dim letter As String, ret As String 'letter 用于存放字母序列s = Text1.Text
k = 1
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then letter = letter + c
ElseIf
c = ","
Then
ch = Chr(Asc(ch) + 4)
If Not (ch >= "A" And ch <= "Z" Or ch >= "a" And ch <= "z") Then ch = Chr(Asc(ch) - 26)
End If
IfThen ret = ret + ch + " "
Else
ret = ret + ch
End If
k = k + 1
End If
Next i
Text 2.Text = ret
End Sub
n = 4
For i = 1 To 25
j = 1: a(j) = a(j) + 1
Do While a(j) = 4
a(j) = 0
j = j + 1
a(j) = a(j) + 1
Loop
Next i
For i = 1 To n
s = Str(a((i + 1) Mod 4 + 1)) + s
Next i
数组a(1)至a(4)初值均是0,执行该程序后,s的值是( )
①在编辑栏键入“=”
②键入公式
③按Enter键
④选择需要建立公式的单元格
Private Sub Command1_Click()
Dim a(1 To 100) As String, x As String, st As String
Dim i As Integer, j As Integer, n As Integer
x = Text1.Text
n = Len(Text1.Text)
For i = 1 To n
a(i) = Mid(x, i, 1)
Next i
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) > a(j - 1) Then
st = a(j): a(j) = a(j - 1): a(j - 1) = st
End If
Next j
Next i
st = “ ”
For i = 1 To n
st = st + a(i)
Next i
Label1.Caption = st
End Sub
程序运行时,在文本框Text1中输入“Text”(不包含双引号),单击按钮Command1,则在标签Label1上显示的内容为( )