Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

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

Рекомендуем скачать другие рефераты по теме: реферат, доклад на тему биология.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки