Авторизация на сайте (пример c vBulletin)

[TakeThat]

Для начала нам понадобится Mozilla Firefox c установленным плагином [Ссылки могут видеть только зарегистрированные пользователи. ] для перехвата заголовков.
Выбираем сайт (например любой vBulletin). Я взял d3scene.ru
Вставляем в форму ввода любую фигню:
[Ссылки могут видеть только зарегистрированные пользователи. ]
Жмем Инструменты - Перехват Данных
Нажимать кнопку "Запустить перехват" в появившемся окне НЕ надо.
Теперь пытаемся залогинится (у нас это офк не получилось)
Ищем в нашем окне перехвата POST запрос (он там должен быть один)
[Ссылки могут видеть только зарегистрированные пользователи. ]
В колонке URL мы видим адрес, куда отправляется запрос.
Выберем это запрос. Слева внизу 2 раза тыкнем на строку с POSTDATA
Появится окошко с данными запроса.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Сразу замечу что параметр "vb_login_md5password=" может быть пустым, так и нет, поэтому подключим юнит для работы с мд5.
[Ссылки могут видеть только зарегистрированные пользователи. ]
В uses добавляем idhttp, umd5.
umd5 - наш скачанный юнит
Теперь напишем отдельную функцию, в которую мы будем передавать ник и пасс, а получать true или false.
umd5 - наш скачанный юнит
Теперь напишем отдельную функцию, в которую мы будем передавать ник и пасс, а получать true или false.

function login(nick,pass:string):boolean;

Объявим переменные:

var
    http:tidhttp;
    post:tstringlist;
    s:string;

Инициализируем переменные:

begin
  s:='';
  result:=false;
  http:=tidhttp.Create;
  post:=tstringlist.Create;

Теперь нам надо заполнить данные для отправки запроса - открываем наше свернутое окно и добавляем все строки в переменную post

 post.Add('vb_login_username='+nick);
  post.Add('vb_login_password='+pass);
  post.Add('s=');
  post.Add('securitytoken=guest');
  post.Add('do=login');
  post.Add('vb_login_md5password='+md5(pass));
  post.Add('vb_login_md5password_utf='+md5(pass));

Теперь отправим запрос и проанализируем ответ.

try
    s:=http.Post('http://d3scene.ru/login.php?do=login',post);
  except
  end;
  if (pos('Добро пожаловать',s)>0) and (pos(nick,s)>0) then
    result:=true;
  http.free;
  post.free;
end;

Вот и все. Теперь достаточно вызвать функцию при нажатии кнопки.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if login('UnDeadRocUser', 'password') then
    Showmessage('Мы успешно залогинились')
  else
    Showmessage('Пароль неверный или ошибка соединения');
end;

Relikt and RazorIII(c)

[GaZer]

А как быть с капчей? если она есть. Просто сейчас большинство сайтов используют капчу

[VeTaL_UA]

Цитата: Сообщение от GaZer А как быть с капчей? если она есть. Просто сейчас большинство сайтов используют капчу

С загрузкой капчи вам поможет эта статья.

[RifmoGlas]

Извините а что такое vBulletin?

[Роспотребнадзор]

Цитата: Сообщение от RifmoGlas Извините а что такое vBulletin?

Один из движков, на которых пишут форумы

[SНIFТ]

Цитата: Сообщение от TakeThat (пример c vBulletin)

я так понял можно и другие ссайты применить по этому способу ?

Цитата: Сообщение от TakeThat Mozilla Firefox

обязательно нужна именно этот браузер ? , хром не как .

Цитата: Сообщение от TakeThat Авторизация на сайте

и последний вопрос программа Delphi xe2 подойдет ?

[metraz]

Цитата: Сообщение от SНIFТ я так понял можно и другие ссайты применить по этому способу ? обязательно нужна именно этот браузер ? , хром не как . и последний вопрос программа Delphi xe2 подойдет ?

1.Способ всегда один http. А там все от запросов зависит. На vbulletin просто обычно ничего не меняют.
2. Забудь о tamper data. Редкая гадость. Хотя бы http analyzer. Потом поймешь почему.

[=SHARPER=]

Ссылка авторизации для движка

http://d3scene.ru/login.php?do=login&vb_login_username=nick&vb_login_password=pass&securitytoken=guest&do=login&vb_login_md5password=md5(pass)&vb_login_md5password_utf=md5(pass)

И пост юзать не нужно.

[den1101]

Здравствуйте. А как быть, если при передачи запроса используется Cookies.
А именно интересует авторизация в DarkOrbit.

Цитата: var w := new WebClient(); w.Encoding := System.Text.Encoding.UTF8; var url := 'http://darkorbit.ru/?locale=ru&aid=3158&aip='; var data := 'loginForm_default_username=<логин>&loginForm_defa ult_password=<пароль>&loginForm_default_login_subm it=Вход'; w.UploadString(url, data);

[WinMon]

Цитата: Сообщение от den1101 Здравствуйте. А как быть, если при передачи запроса используется Cookies. А именно интересует авторизация в DarkOrbit.

с вкладки indy Misc берёшь IdCookieManager
у idhttp в objekt inspector в CookieManage прописываеш IdCookieManager1 и будет тебе счастье=)