加密解密.bas

文本文件的加密和解密程序,本人经过使用很实用.

Attribute VB_Name = "Module1"

Public Function EDcode$(CharString As String, Key As Integer)
    Dim X As Single, I As Long
    Dim CharNum As Integer, RandomInteger As Integer
    Dim CharSingle As String * 1
    On Local Error GoTo EDcodeError
    EDcode$ = ""
    If Len(CharString) = 0 Then
        EDcode$ = "1"
        Exit Function
    End If
    X = Rnd(-Key)
    For I = 1 To Len(CharString)
        CharSingle = Mid$(CharString, I, 1)
        CharNum = Asc(CharSingle)
        RandomInteger = Int(256 * Rnd) And &H7F
        CharNum = CharNum Xor RandomInteger
        CharSingle = Chr$(CharNum)
        EDcode$ = EDcode$ + CharSingle
    Next I
    Exit Function
EDcodeError:
    EDcode$ = "0"
End Function