Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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);


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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:42.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025