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

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

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





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