module1.bas

一个简单的加密解密程序.调试可用.原理很简单,即是将数字加密为字符,逐个数字加密.

Attribute VB_Name = "Module1"
Public Function encrypt(str1 As String)
l = Len(str1)
ReDim s(50)
For i = 1 To l
    s(i - 1) = Chr(Int(Mid(str1, i, 1)) + 60)
Next i
For i = 0 To l - 1
    If i = 0 Then
       r = s(i)
    Else
       r = r & s(i)
    End If
Next i
encrypt = r
End Function

Public Function decrypt(str1)
l = Len(str1)
ReDim s(50)
For i = 1 To l
    s(i - 1) = str(Asc(Mid(str1, i, 1)) - 60)
Next i
For i = 0 To l - 1
    If i = 0 Then
       r = Trim(s(i))
    Else
       r = r & Trim(s(i))
    End If
Next i
decrypt = r
End Function