modencrypt.bas

vb写的密码设置、修改系统

Attribute VB_Name = "modEncrypt"

Public Function CreateKey() As String
Dim Custom As String
CreateKey = " ds"
End Function

Function EncryptText(ByVal text As String, KeyString As String) As String
Dim e As New clsEncrypter
With e

.KeyString = KeyString
.text = text
End With
e.DoXor
e.Stretch
EncryptText = e.text

End Function


Function DE(ByVal text As String) As String
Dim key As String
key = CreateKey
For i = 1 To 3
text = EncryptText(text, key)
Next
DE = text
End Function

Function DD(ByVal text As String) As String
Dim key As String
key = CreateKey
For i = 1 To 3
text = DecryptText(text, key)
Next
DD = text
End Function

Function DecryptText(ByVal text As String, KeyString As String) As String
Dim e As New clsEncrypter
With e
On Error GoTo 1

.KeyString = KeyString
.text = text
End With
On Error GoTo 1
e.Shrink
e.DoXor
DecryptText = e.text
Exit Function
1
MsgBox "Error in decrypt process!"

End Function