- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='515' then
Form1.Caption:='Пароль взломан!'
else Form1.Caption:='неправельно!';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='1';
if Edit1.Text='1' then
begin
if Form1.Caption='неправельно!' then
Edit1.Text:='2';
if Edit1.Text='2' then
begin
if Form1.Caption='неправельно!' then
Edit1.Text:='3';
Личинка человека решила сделать брутфорс паролей. Когда нажимается кнопка идёт беспощадный перебор без цикла на предмет совпадения пароля
Follow us!
TForm1, например.
p.s. Все мы с такого начинали, в том числе с "неправельно".
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
i:=0;
repeat
Edit1.Text:=IntToStr(i);
if Form1.Caption='Ïàðîëü âçëîìàí!' then break;
i:=i+1;
until false;
end;