Проблема следующая.
Есть форма регистрации пользователей , которая создаёт и записывает в БД
этих пользователей, пароль шифруется
процедурой
Код:
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);
Спасибо