![]() |
|
|
#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); Спасибо |