encrypt.cls

主要用于数据文字的加密

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "encrypt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Private mvardataIn As String
Private mvardataOut As String
Private mvarpassword As String
Private mvarpointerPos As Long
Private actions As Integer

Public Property Let pointerPos(ByVal vData As Long)
    mvarpointerPos = vData
End Property

Public Property Get pointerPos() As Long
    pointerPos = mvarpointerPos
End Property

Public Property Let password(ByVal vData As String)
mvarpassword = vData
End Property

Public Property Get dataOut() As String
dataOut = mvardataOut
End Property

Public Property Let dataIn(ByVal vData As String)
    mvardataIn = vData
End Property

Private Sub convert()
Dim ec1 As String
Dim ec2 As String
Dim ec As String
Dim ecnum As Integer
Dim ec1num As Integer
Dim ec2num As Integer
Dim linein As String
Dim lineinNum As Long
Dim lineinNumTemp As Long
Dim lineout As String
Dim tempinfile As String
Dim outfile As String
Dim password As String
Dim passwordNum As Long
Dim passwordNumTemp As Long
password = mvarpassword
linein = mvardataIn
passwordNumTemp = mvarpointerPos
passwordNum = Len(password)
linein = mvardataIn
lineout = ""
If Len(linein) > 0 Then
lineinNum = Len(linein)
lineinNumTemp = 0
Do
If passwordNumTemp = passwordNum Then passwordNumTemp = 0
passwordNumTemp = passwordNumTemp + 1
lineinNumTemp = lineinNumTemp + 1
ec1 = Mid(password, passwordNumTemp, 1)
ec2 = Mid(linein, lineinNumTemp, 1)
ec1num = Asc(ec1)
ec2num = Asc(ec2)
If actions = 0 Then ecnum = ec2num + ec1num
If actions = 1 Then ecnum = ec2num - ec1num
If ecnum < 1 Then ecnum = 1
ec = Chr(ecnum)
lineout = lineout + ec
Loop Until lineinNumTemp = lineinNum
End If
mvarpointerPos = passwordNumTemp
mvardataOut = lineout
End Sub

Public Sub encrypt()
If Len(mvarpassword) = 0 Then
MsgBox ("You must enter a password to encrypt the data with")
Exit Sub
End If
If Len(mvarpassword) < mvarpointerPos Then
MsgBox ("The number of the pointer is to large for the password you entered")
Exit Sub
End If
actions = 0
convert
End Sub

Public Sub decrypt()
If Len(mvarpassword) = 0 Then
MsgBox ("You must enter a password to encrypt the data with")
Exit Sub
End If
If Len(mvarpassword) < mvarpointerPos Then
MsgBox ("The number of the pointer is to large for the password you entered")
Exit Sub
End If
actions = 1
convert
End Sub