一个文本串可用事先给定的字母映射表进行加密 。 例如，设字母映射表为：

abcdefghigklmnopqrstuvwxyz

ngzqtcobmuhelkpdawxfyivrsj

则字符串＂encrypt＂被加密为＂tkzwsdf＂。试写一算法将输入的文本串进行加密后输出；另写一算法，将输入的已加密文本串进行解密后输出。

现提供一种VB的加密编程过程：

Private Sub Command1_Click()

Dim a As String, b As String * 1

Dim I As Integer, c As String, d As String * 1

a = InputBox("输入原始字符串")

For I = 1 To Len(a)

b = Mid(a, I, 1)

d = Chr(Asc(b) + 1)

c = c + d

Next I

Text1.Text = c

End Sub

此程序是把原数字或字母往后移一位

例：12345→23456

abcde→bcdef

大家可以试一下……