VB怎编写明文加密和解密

来源：百度知道 编辑：UC知道 时间：2024/06/20 09:42:08
编写加密、解密程序，要求如下：
1）能通过键盘输入英文“明文”句子（字串）;
2）按“加密”按钮时能输出(显示)密文;
3）按“解密”按钮时能把密文解密输出（显示）明文;
密钥如下:
26个英文字母对应的影射：
abcdefghijklmnopqrstuvwxyz
QWERTYUIOPASDFGHJKLZXCVBMN
空格影射为KBK
例如在键盘输入“I am student.”，
密文为“OKBKQDKBKLZXRTFZ.”
注：解密按健用VB怎写？？
这是一个电子商务作业题，我对这方面一点都不懂，还忙各位帮忙
加密键是这样的，请问解密键是怎样的？
Private Sub Command1_Click()
Dim strIN As String, strOUT As String, sec As String, strp As String, num As Integer, i As Integer, j As Double
sec = "QWERTYUIOPASDFGHJKLZXCVBMN"
strIN = Text1.Text
num = Len(strIN)
For i = 1 To num
strp = Mid(strIN, i, 1)
If strp = " " Then
strp = "KBK"
ElseIf strp = "." Then
Else
If Asc(strp) > 96 Then
j = Asc(strp) - 97
Else
j = Asc(strp) - 65
End If
strp = Mid(sec, j + 1, 1)
End If
strOUT = strOUT & strp

Private Sub Command2_Click()
Dim strIN As String, strOUT As String, sec As String, strp As String, num As Integer, i As Integer, j As Double
sec = "QWERTYUIOPASDFGHJKLZXCVBMN"
strIN = Text2.Text '输入
strIN = Replace(strIN, "KBK", " ") '空格处理
num = Len(strIN)
For i = 1 To num
strp = Mid(strIN, i, 1) '取得自符

j = InStr(1, sec, strp)
If j < 0 Then
'保留原来字符
Debug.Print "*" & strp & "*"
Else
strp = Chr(j + Asc("a") - 1)
End If
strOUT = strOUT & strp
Next i
Text1.Text = strOUT
End Sub

==================================

谢了,我在我的用户里怎找不到这个我自己提的问题了呢？我要给你加分怎加？