![]() |
|
#1
|
|||
|
|||
![]() Проблема следующая.
Есть форма регистрации пользователей , которая создаёт и записывает в БД этих пользователей, пароль шифруется процедурой Код:
CodeString(DBEdit1.Text, true Всё прекрасно создается и пишется. Теперь использую процедуру для сравнения логина и пароля в БД с введёнными на форме для активации Код:
ADODataSet1.First; for I := 0 to ADODataSet1.RecordCount -1 do //Обработка данных Логина и Пароля пользователя. begin LogPass[i]:= ADODataSet1.FieldValues ['Name']+' '+ADODataSet1.FieldValues ['pass']; ADODataSet1.Next; Inc(Counts); end; //CodeString(DBEdit1.Text, false); ResultLogPass:= Trim(DBComboBox1.Text)+' '+Trim(DBEdit1.Text); for H := 0 to Counts do //Цикл проверки . begin if ResultLogPass = LogPass[H] then begin Form8.ShowModal; end Else Label3.Caption:='Не верный логин или пароль'; end; Понимаю , что теперь зашифрованный пароль, нужно расшифровать процедурой Код:
CodeString(DBEdit1.Text, false); Код:
ResultLogPass:= Trim(DBComboBox1.Text)+' '+Trim(DBEdit1.Text); Спасибо |