crypt.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 = "crypt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'加密算法（字符串可以是汉字，但密码不可以是汉字）
'Option Explicit

Public Function enCrypt(texti, salasana) As String
    Dim t As Long
    '   On Error Resume Next

        For t = 1 To Len(salasana)
            sana = Asc(Mid(salasana, t, 1))
            X1 = X1 + sana
        Next

    X1 = Int((X1 * 0.1) / 6)
    salasana = X1
    G = 0

        For tt = 1 To Len(texti)
            sana = Asc(Mid(texti, tt, 1))
            G = G + 1

                If G = 6 Then G = 0
                    X1 = 0

                        If G = 0 Then X1 = sana - (salasana - 2)

                                If G = 1 Then X1 = sana + (salasana - 5)

                                        If G = 2 Then X1 = sana - (salasana - 4)

                                                If G = 3 Then X1 = sana + (salasana - 2)

                                                        If G = 4 Then X1 = sana - (salasana - 3)

                                                                If G = 5 Then X1 = sana + (salasana - 5)
                                                                    X1 = X1 + G
                                                                    Crypted = Crypted & Chr(X1)
                                                                Next


                                                                enCrypt = Crypted
End Function


Public Function deCrypt(texti, salasana) As String

   '    On Error Resume Next

        For t = 1 To Len(salasana)
            sana = Asc(Mid(salasana, t, 1))
            X1 = X1 + sana
        Next

    X1 = Int((X1 * 0.1) / 6)
    salasana = X1
    G = 0

        For tt = 1 To Len(texti)
            sana = Asc(Mid(texti, tt, 1))
            G = G + 1

                If G = 6 Then G = 0
                    X1 = 0

                        If G = 0 Then X1 = sana + (salasana - 2)

                                If G = 1 Then X1 = sana - (salasana - 5)

                                        If G = 2 Then X1 = sana + (salasana - 4)

                                                If G = 3 Then X1 = sana - (salasana - 2)

                                                        If G = 4 Then X1 = sana + (salasana - 3)

                                                                If G = 5 Then X1 = sana - (salasana - 5)
                                                                    X1 = X1 - G
                                                                    DeCrypted = DeCrypted & Chr(X1)
          Next


  deCrypt = DeCrypted
End Function