vb 口令加密

来源：百度知道 编辑：UC知道 时间：2024/05/10 14:56:56
设计一个口令加密程序.口令由字母构成,将输入的每个字母循环左移2个字母(区分大小写),如下图:
明文: A B C … X Y Z
密码: Y Z A … V W X
运行界面如下:
明文:PassWord
密码:NyqqUmpb
那位高人会啊.?指点哈..谢了...

在窗体中放入一个按钮和2个文本框。点击按钮看结果。

Private Sub Command1_Click()
Text2 = ""
Dim tmp, tmpchrcode, tmppwd

For i = 1 To Len(Text1)
tmp = Mid(Text1, i, 1)

Select Case tmp
Case "A": tmppwd = "Y"
Case "B": tmppwd = "Z"
Case "a": tmppwd = "y"
Case "b": tmppwd = "z"
Case Else: tmppwd = Chr(Asc(tmp) - 2)
End Select
Text2 = Text2 & tmppwd
Next

End Sub

Private Sub Form_Load()
Text1 = "在这里输入字符串"
Text2 = "结果会显示在这里"
End Sub

每个字母都有对应的ASCII值,对值进行加减运算就可以啦,比如C的值是67,减2就是65,也就是A的值,小写的a是97,往后推就是了