Аутентификация пользователей с помощью ASP Христофоров Юрий
    В этой статье будет рассказано, как зарегистрированным пользователям разрешить доступ к некой секретной asp странице, а посторонним нет.
    Постановка задачи: Есть база данных Access 97, в которой хранятся имена зарегистрированных пользователей и их пароли, и есть некая секретная страница, доступ к которой должны иметь только пользователи, занесенные в БД. Пароли в БД требуется хранить в зашифрованном виде. Преимущество такого подхода в том, что поля базы данных, содержащие пароли, не содержат реальных значений и их нельзя использовать при входе в систему.
    Для работы нам понадобится ActiveX компонент Ecrypt, который Вы можете взять на этом сайте в разделе ActiveX.
    Движемся по шагам:
    1. Создайте БД в Access. Имя таблицы - TUSERS. Описание полей:
    n_id - Счетчик (Primary Key)
    s_name - Текстовый
    s_password - Текстовый
    Затем создайте DSN для этой БД. При работе с WindowsNT (2000) необходимо создать System DSN, а при работе с Windows95-98 можно создать и User DSN. Дайте DSN имя reg.
    2. Напишем ActiveX DLL Auth на Visual Basic 6, которая будет выполнять основную работу. Запустите Visual Basic 6 и в окне New Project выберем ActiveX DLL. Переименуем имя проекта на Auth, а имя класса на Security. Теперь надо подключить необходимые библиотеки: выбираем Project ->References...
    Подключаем библиотеки Microsoft ActiveX Data Objects 2.1 Library и ECrypt 1.0 Type Library (см. выше).
    3. Далее набираем следующий код:
    Option Explicit
    Private cn As ADODB.Connection
    Private rs As ADODB.Recordset
    Private sName As String 'Имя пользователя
    Private sPasswd As String 'Пароль
    Private sError As String
    Private sResult As Integer 'Результат
    Public Property Get Result() As Integer
    Result = sResult
    End Property
    Public Property Let InitName(ByVal Name As String)
    sName = Name
    End Property
    Public Property Let InitPassword(ByVal Passwd As String)
    sPasswd = Passwd
    End Property
    Private Sub Class_Initialize()
    sError = ""
    Set cn = New ADODB.Connection
    cn.Open "DSN=reg" 'Установим соединение
    Set rs = New ADODB.Recordset
    End Sub
    Private Sub Class_Terminate()
    Set rs = Nothing
    Set cn = Nothing
    End Sub
    'Регистрирует пользователей
    Public Sub Register()
    On Error GoTo Er
    rs.Open "SELECT N_ID FROM TUSERS WHERE S_NAME='" & sName & "'", cn, 1
    'Если пользователь с таким именем уже есть, то
    If rs.RecordCount 0 Then
    sResult = 1 'Возвращаем результат
    rs.Close
    cn.Close
    Exit Sub 'Выход
    End If
    Dim crypt_obj As ECRYPTLib.Cryptor
    Dim crypt_pass As String
    Set crypt_obj = New ECRYPTLib.Cryptor
    crypt_obj.Key = "Visual+Basic+6 !" 'Ключ шифрования
    crypt_obj.Text = sPasswd 'Пароль
    crypt_pass = crypt_obj.coder() 'Шифруем
    'Добавляем новую запись
    cn.Execute "INSERT INTO TUSERS (S_NAME,S_PASSWORD) VALUES ('" & Replace(sName, "'", "''") & _
    "','" & Replace(crypt_pass, "'", "''") & "')"
    sResult = 0 'Все прошло успешно
    rs.Close
    cn.Close
    Exit Sub
    Er:
    sResult = 2 'Непредвиденная ошибка
    End Sub
    'Проверка пользователей
    Public Sub Check()
    On Error GoTo Er
    rs.Open "SELECT S_NAME,S_PASSWORD FROM TUSERS WHERE S_NAME='" & sName & "'", cn, 1
    'Если нет пользователя с таким именем
    If rs.RecordCount = 0 Then
    sResult = 1
    rs.Close
    cn.Close
    Exit Sub
    End If
    Dim tmp As String
    tmp = rs.Fields("S_PASSWORD")
    Dim uncrypt_obj As ECRYPTLib.Cryptor
    Dim uncrypt_pass As String
    Set uncrypt_obj = New ECRYPTLib.Cryptor
    uncrypt_obj.Key = "Visual+Basic+6 !"
    uncrypt_obj.Text = tmp
    'Расшифровываем пароль из БД
    uncrypt_pass = uncrypt_obj.decoder()
    'Если они не совпадают
    If uncrypt_pass sPasswd Then
    sResult = 3
    rs.Close
    cn.Close
    Exit Sub
    End If
    sResult = 0 'Все нормально
    rs.Close
    cn.Close
    Exit Sub
    Er:
    sResult = 2 'Непредвиденная ошибка
    End Sub
    Компилируем проект и получаем Auth.dll.
    4. ............