VPF::http авторизация - Форум программистов

bagos

Дата 19.1.2009, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

пытаюсь авторизироваться на сайте вконтакте и получить содержимое своего профиля, но какаято лажа происходит и не работает.
по инету полазил, предложенные варианты оказались не рабочими и нигде толком тема не раскрыта, либо данные устарели, пытаюсь своими силами. Прошу помощи в решении задачи!

Код


var
  http:TidHttp;
  data:TStringList;
  page:String;
begin
  http:=TIdHTTP.Create(Self);
  data :=TStringList.Create;
  http.AllowCookies:=true;
  http.HandleRedirects:=true;
  http.ProxyParams.ProxyServer := '127.0.0.1';
  http.ProxyParams.ProxyPort := 8888;


  data.Add('[email protected]');
  data.Add('pass=xxx');
  Page:= http.Post('http://vkontakte.ru/login.php', data);
  data.Free;
  http.Free;
  memo1.Lines.Text := page;

AntonN

Дата 19.1.2009, 23:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: нет
Всего: 18

а заголовке уходит только пароль и мыло?

на локалхосте действительно поднят прокси?

программа должна делать от имени юзера всякие спамные действия?

--------------------

bagos

Дата 20.1.2009, 00:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

1.
POST /login.php HTTP/1.1
Host: vkontakte.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
Referer: http://vkontakte.ru/index.php
Cookie: remixlang=0; remixchk=5; remixautobookmark=22; remixfilters=35; remixclosed_tabs=96256; remixap=1; audio_vol=52
Content-Type: application/x-www-form-urlencoded
Content-Length: 46

email=xxx%40rambler.ru&pass=xxx

HTTP/1.1 302 Found
Server: nginx/0.6.31
Date: Mon, 19 Jan 2009 21:04:19 GMT
Content-Type: text/html; charset=windows-1251
Connection: keep-alive
X-Powered-By: PHP/5.2.0-8+etch13
Pragma: no-cache
Cache-control: private, must-revalidate
Set-Cookie: remixchk=5; expires=Thu, 28-Jan-2010 06:16:11 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixmid=XXXXXXXXX; expires=Sun, 10-Jan-2010 02:37:56 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixemail=XXXXX%40rambler.ru; expires=Sat, 16-Jan-2010 12:09:26 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixpass=7bdac90142a574a3f674fdf512335289; expires=Tue, 19-Jan-2010 16:04:58 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixsid=d9f7d1b24432723dfe04a7a46374650d139f21c92e1776e273affa9b; expires=Thu, 14-Jan-2010 21:11:01 GMT; path=/; domain=.vkontakte.ru
Location: /id28105670
Content-Encoding: gzip
Vary: Accept-Encoding
Content-Length: 26

2. fiddler

3. нет

AntonN

Дата 20.1.2009, 01:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: нет
Всего: 18

а если тип multipart/form-data; ?

--------------------

bagos

Дата 20.1.2009, 01:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

к сожалению не знаю что это и где посмотреть

AntonN

Дата 20.1.2009, 01:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: нет
Всего: 18

Цитата

Content-Type: application/x-www-form-urlencoded

вот это попробывать подкрутить, где смотреть - не знаю smile

--------------------

bagos

Дата 20.1.2009, 02:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

Код


function my_post(email,pass:string): string;
label end_;
var
 host:string;
 wData : WSADATA;
 addr  : sockaddr_in;
 sock  : integer;
 error : integer;
 buf   : array [0..1023] of Char;
 str   : string;
 phe   : PHostEnt;
begin
 host:='vkontakte.ru';
 result := '';
 WSAStartup($0101, wData);
 phe := gethostbyname(PChar(string(host)));

 if phe = nil then goto end_;

 sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 if sock = INVALID_SOCKET then goto end_;

 addr.sin_family := AF_INET;
 addr.sin_port   := htons(80);
 addr.sin_addr   := PInAddr(phe.h_addr_list^)^;
 error := connect(sock, addr, sizeof(addr));
 if error = SOCKET_ERROR then goto end_;

 str := 'POST /login.php HTTP/1.1'+#13#10+
        'Host: vkontakte.ru'+#13#10+
        'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1'+#13#10+
        'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'+#13#10+
        'Accept-Language: ru,en-us;q=0.7,en;q=0.3'+#13#10+
        'Accept-Encoding: gzip,deflate'+#13#10+
        'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'+#13#10+
        'Keep-Alive: 300'+#13#10+
        'Connection: keep-alive'+#13#10+
        'Referer: http://vkontakte.ru/index.php'+#13#10+
        'Cookie: remixlang=0; remixchk=5;7'+#13#10+
        'Content-Type: application/x-www-form-urlencoded'+#13#10+
        'Content-Length: 42'+#13#10+
        #13#10+
        'email='+email+'&pass='+pass+
        #13#10;

 send(sock, str[1], Length(str), 0);
 begin
  ZeroMemory(@buf, 1024);
  error := recv(sock, buf, 1024, 0);
  result:='';
  while (error > 0) do
   begin
   Result := Result + Copy(buf, 0, error);
   if pos('Content-Length',result)>0 then goto end_;
   error  := recv(sock, buf, 1024, 0);
   end;
 end;
end_:
 closesocket(sock);
 WSACleanup;
end;

Добавлено через 27 секунд
возвращает хрень какую то:(

Добавлено через 3 минуты и 10 секунд
в ответ получаю
Memo1
HTTP/1.1 200 OK
Server: nginx/0.6.31
Date: Mon, 19 Jan 2009 23:08:18 GMT
Content-Type: text/html; charset=windows-1251
Connection: keep-alive
X-Powered-By: PHP/5.2.0-8+etch13
Pragma: no-cache
Cache-control: private, must-revalidate
Set-Cookie: remixchk=5; expires=Thu, 28-Jan-2010 05:53:48 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixchk=5; expires=Sun, 17-Jan-2010 22:44:43 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixmid=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixsid=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixgid=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixemail=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixpass=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru
Content-Encoding: gzip
Vary: Accept-Encoding
Content-Length: 2321

Virtuals

Дата 20.1.2009, 06:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 2
Всего: 11

bagos,

Цитата

возвращает хрень какую то:(

не хрень, а нормальный ответ smile

тебе нужно обработать это на будущее...

Цитата

Set-Cookie: remixchk=5; expires=Thu, 28-Jan-2010 05:53:48 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixchk=5; expires=Sun, 17-Jan-2010 22:44:43 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixmid=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixsid=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixgid=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixemail=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru
Set-Cookie: remixpass=deleted; expires=Sun, 20-Jan-2008 23:08:17 GMT; path=/; domain=.vkontakte.ru

и согласно этому

Цитата

Content-Encoding: gzip

расжать принятые данные smile

сам же просил

Цитата

str := 'POST /login.php HTTP/1.1'+#13#10+
        'Host: vkontakte.ru'+#13#10+
        'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1'+#13#10+
        'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'+#13#10+
        'Accept-Language: ru,en-us;q=0.7,en;q=0.3'+#13#10+
        'Accept-Encoding: gzip,deflate'+#13#10+

ЗЫ
кстати сдесь

Код


'email='+email+'&pass='+pass+
        #13#10;

нужно

Код


'email='+email+'&pass='+pass+
        #13#10+
        #13#10;

ЗЫЗЫ

Цитата

Content-Length: 2321

перевожу...
после этой строки пришли запрошенные данные в размере 2321
и тип данных

Цитата

Content-Encoding: gzip

сжатый, GZIP

||
кстати

Цитата

function my_post(email,pass:string): string;

это обозначает что вы, рано или поздно, нарветесь на проблемы с оканчивающим #0 символом (для большинства строковых типов, это признак конца строки smile

)

Это сообщение отредактировал(а) Virtuals - 20.1.2009, 06:43

bagos

Дата 20.1.2009, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

Virtuals, спасибо!

Цитата(Virtuals @ 20.1.2009, 06:32

)

не хрень, а нормальный ответ smile
тебе нужно обработать это на будущее...

Можешь немного разъеснить как обрабатывать? непонимаю почему возвращает delete

Virtuals

Дата 20.1.2009, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 2
Всего: 11

bagos, как как запоминать, для последующих сессий. иначе никакой авторизации невыйдет.

bagos

Дата 20.1.2009, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

я пишу

Код


 str := 'POST /login.php HTTP/1.1'+#13#10+
        'Host: vkontakte.ru'+#13#10+
        'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1'+#13#10+
        'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'+#13#10+
        'Accept-Language: ru,en-us;q=0.7,en;q=0.3'+#13#10+
      //  'Accept-Encoding: gzip,deflate'+#13#10+
        'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'+#13#10+
        'Keep-Alive: 300'+#13#10+
        'Connection: keep-alive'+#13#10+
        'Referer: http://vkontakte.ru/index.php'+#13#10+
        'Cookie: remixlang=0; remixchk=5; remixautobookmark=22; remixfilters=35; remixclosed_tabs=96256; remixap=1; audio_vol=52'+#13#10+
        'Content-Type: application/x-www-form-urlencoded'+#13#10+
        'Content-Length: 42'+#13#10+
        #13#10+
        'email='+email+'&pass='+pass+
        #13#10+#13#10;

mr_smit

Дата 20.1.2009, 21:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4

Ребят, вы вообще знаете что на сайте есть поиск. Всё уже давно решено.

http://forum.vingrad.ru/topic-159803.html

А вот тут я сам с подобной проблемой мучался. Всё сделал.

bagos

Дата 20.1.2009, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

спасибо, вся проблема была в куках:(

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »