3.4 加密与解密 知识点题库

Private Sub Command1Click( )

    Dim s1 As String, s2 As String, c As String, mw As String

    Dim i As Integer

    s1= Text1.Text

    s2 = Mid（s1, 1, 1）

    For i=2 To

        c=Mid（s1, i, 1）

        If c>="A" And c<= "Z" Then

        IfThen s2 =s2 +c

        Else

            s2 =s2+c

        End If

    Next i

    mw=“”

    i=6

    Do While i<= Len（s2）

        mw = mw + Mid(s2, i, 1)

    Loop

    Text2. Text= s2

    Label1. Caption =mw

End Sub

① ② 

import random

#随机生成 keys 列表

n=6

i=0

keys=[ ]

while i<n:

  key=random.randint(1,9)

  if key not in keys:

    keys.append(key)

print("随机生成加密列表 keys：",keys)

#第1重加密：将输入的字母经过keys列表加密转换为a列表

a=[ ]

s=input("输入您要加密的字母(A-F)：")

for i in s:

  a.append(keys[])

print("经过第1轮keys列表加密后：",a)

#第2重加密：偏移加密

k=int(input("请输入偏移量K:"))

b=[0]*len(a)

for i in range(len(a)):

  b[i]=a[]

print("经过第2轮加密后：",b)