加密程序

一個文本串可用事先給定的字母映射表進行加密 。 例如，設字母映射表為：

abcdefghigklmnopqrstuvwxyz

ngzqtcobmuhelkpdawxfyivrsj

則字符串"encrypt"被加密為"tkzwsdf"。試寫一算法將輸入的文本串進行加密後輸出；另寫一算法，將輸入的已加密文本串進行解密後輸出。

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

大家可以試一下……