Можно ли отгадать пароль с исходным кодом?

[Arinka]

Не могу войти в программу, требует пароль. Вот код:

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
table1.Active:=true;

with table1 do begin
first;
while not eof do begin
if ((table1.FieldValues['AgentName']=Edit1.Text) and (table1.FieldValues['Password']=MaskEdit1.Text))
then begin
form1.Show;
form6.Hide;
form1.StatusBar1.SimpleText:='Вход выполнен пользователем - '+table1.FieldValues['AgentName'];

exit;end

else Btemp:=false;
NEXT;

end;end;

if btemp=false then BEGIN
beep;
messagedlg('Вход в систему невозможен!'+#13+ 'Проверьте правильность заполнения полей. Поля заполняются с учетом регистра.',mterror,[mbok],0);
form6.MaskEdit1.Text:='';
form6.Edit1.SetFocus;
end;
end;

procedure TForm6.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then Form6.BitBtn1Click(bitbtn1);
end;

end.

Заранее спасибо)))

[Grag]

У тебя Table1 - это таблица какой БД???

[Dark_Spirit]

Да и однозначно могу сказать что проверяется совпадение лишь первой записи таблицы...

ну апше-то не первой, а всех....

[Grag]

Сообщение от Dark_Spirit

ну апше-то не первой, а всех....

Согласен что всех, просто пока разберешься в неотформатированном коде глаза вываливаются...

[Dark_Spirit]

Не могу войти в программу, требует пароль.

пароль спрятан в базе, нужно всего лишь открыть базу, каким нибуть(в зависимости от твоей СУБД) дата екплорером и найти пароль.

[Grag]

Точнее, открывай Table1 и смотри связку полей 'AgentName' и 'Password'

[Arinka]

Вот это уже понятнейСпасибо

[Grag]

Ст. 232 и ст. 233 УК России... Остап Бендер чтил Уголовный Кодекс!

[Arinka]

Урааааааа!!!!Я нашла пароль))))))))Спасибо за помощь!!!!!!!!

[Grag]

Что мешает нажать на весы и оставить благодарности за помощь???