1. Список говнокодов пользователя memnek

    Всего: 1

  2. Pascal / Говнокод #6731

    +87

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 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';

    Личинка человека решила сделать брутфорс паролей. Когда нажимается кнопка идёт беспощадный перебор без цикла на предмет совпадения пароля

    memnek, 23 Мая 2011

    Комментарии (21)