Показать сообщение отдельно
  #1  
Старый 06.03.2016, 11:58
starcon starcon вне форума
Новичок
 
Регистрация: 15.03.2014
Сообщения: 84
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Пользователи в БД

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


Спасибо
Ответить с цитированием