简单的VB字符加密、解密程序

【实例截图】

【核心代码】

'Download by http://www.NewXing.com
Private Sub Command1_Click()
c1.ShowSave
Open c1.FileName For Output As #1
Dim a, B As Integer
Dim c As Integer
Dim d As String
a = Len(Text1)
x1.Max = a
For B = 1 To a
 c = Asc(Mid(Text1, B, 1))
 If c < 0 Then
   c = Abs(c)
   d = "H"
 End If
 d = d & jm(c)
 Print #1, d
 d = ""
 x1.Value = x1.Value   1
Next
Close #1
End Sub
Private Function jm(jmstringASCII As Integer) As String
Dim a As String
Dim B As Integer
B = jmstringASCII
Dim c, d As Integer
c = B Mod 10
d = c
c = B - c
B = d
a = a & String(c / 10, "A")
c = B Mod 5
d = c
c = B - c
B = d
a = a & String(c / 5, "B")
c = B Mod 2
d = c
c = B - c
B = d
a = a & String(c / 2, "C")
c = B Mod 1
d = c
c = B - c
B = d
a = a & String(c / 1, "D")
jm = a
End Function

Public Function jiemi(ByVal str As String) As Integer
Dim a, B As Integer
Dim CH As Boolean
If Mid(str, 1, 1) = "H" Then
  str = Mid(str, 2)
  CH = True
End If
a = Len(str)
Dim d As String
Dim c As Integer
For B = 1 To a
    d = Mid(str, B, 1)
 If d = "A" Then
        c = c   10
 ElseIf d = "B" Then
        c = c   5
 ElseIf d = "C" Then
        c = c   2
 ElseIf d = "D" Then
        c = c   1
 End If
Next
If CH = True Then
  c = -c
End If
jiemi = c
End Function

Private Sub Command2_Click()
c1.ShowOpen
Open c1.FileName For Input As #1
Dim a, B As String
Dim c As Integer
Do Until EOF(1) = True
Input #1, a
c = jiemi((a))
B = B & Chr(c)
Loop
Close #1
MsgBox ("已解密，解密结果是：" & B)
End Sub