des.cls

用des做的dll,可以在asp中使用

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Des"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'**********************************************************************
'* des 加密解密
'* 可以在asp中使用。
'* sunnf
'* 2006-02-25
'**********************************************************************
Option Explicit
Private MyscriptingContext  As ASPTypeLibrary.ScriptingContext
Private MyResponse          As ASPTypeLibrary.Response
Private MyRequest           As ASPTypeLibrary.Request
Private MyServer            As ASPTypeLibrary.Server
Private MyApplication       As ASPTypeLibrary.Application
Private MySession           As ASPTypeLibrary.Session
Const KEY1                  As Integer = 12
Const KEY2                  As Integer = 12
Dim crypt As New crypt
Dim chartools As New chartools
'Private B64 As Base64Lib.Base64

Public Function OnStartPage(ByVal mysc As ScriptingContext)
    Set MyscriptingContext = mysc
    Set MyRequest = MyscriptingContext.Request
    Set MyServer = MyscriptingContext.Server
    Set MyResponse = MyscriptingContext.Response
    Set MyApplication = MyscriptingContext.Application
    Set MySession = MyscriptingContext.Session
End Function
Public Function OnEndPage()
    Set MyscriptingContext = Nothing
    Set MyRequest = Nothing
    Set MyServer = Nothing
    Set MyResponse = Nothing
    Set MyApplication = Nothing
    Set MySession = Nothing
End Function

Private Sub Class_Initialize()
'
   Set crypt = New crypt
   Set chartools = New chartools
    'Set B64 = New Base64Lib.Base64
End Sub

Private Sub Class_Terminate()
'
    'Set B64 = Nothing
    'Set crypt = Nothing
   'Set chartools = Nothing
End Sub

Public Function encode(str As String) As String
    Dim info As String
    info = chartools.string2hexstring(str)
    encode = crypt.enCrypt(info, KEY1)
    'encode = B64.encode(str)
End Function

Public Function decode(str As String) As String
    Dim info As String
    'decode = B64.decode(str)
     info = crypt.deCrypt(str, KEY1)
     decode = chartools.hexstring2string(info)
End Function