已解决：如何对一串字符（含字母、标点、数字）进行加密或转换
现有一串字符：A2c:05将其按照一定规则（规则自己定，比如字母往后移一位，例如A变成B，c变成d；数字则加上5，例如2变成7,0变成5；符号变成asc码.或者全部字符变换成asc码）转换为另外一串字符，应如何实现？谢谢！
[[it] 本帖最后由 桃源书生 于 2008-4-8 12:25 编辑 [/it]]
Private Sub Command1_Click()
Dim s As String
Dim ss As String
Dim str As String
s = Label1.Caption
j = Len(s)
For i = 1 To j
ss = Mid(s, i, 1)
If ss >= "a" And ss <= "z" Or ss >= "A" And ss <= "Z" Then
ss = Chr(Asc(ss) + 1)
ElseIf ss >= "0" And ss <= "9" Then
ss = Chr(Asc(ss) + 5)
Else
ss = Asc(ss)
End If
str = str & ss
Next
Label2.Caption = str
