Куки вконтакте synapse - Работа с сетью в Delphi

albionseo · 10.01.2015, 23:47

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

PHP код:


			
function Setkuki(const x2: string):string;
var CookieList:TstringList; cookie,x3:string; y,i:integer;
begin
x3:=x2;
if pos('Set-Cookie:',x3)<>0 then
begin

CookieList:=TstringList.Create;
  while Pos('Set-Cookie', x3) <> 0 do
  begin
    y := Pos('Set-Cookie', x3);
    i := PosEx(': ', x3, y) + 2;
    CookieList.Add(Copy(x3, i, PosEx(';', x3, i) - i));
    Delete(x3, y, 10);
  end;
  cookie := 'Cookie: ';
  for i := 0 to CookieList.Count - 1 do
    cookie := cookie + CookieList.Strings[i] + '; ';
CookieList.Free;
end;
Result:=cookie;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   HTTP: THTTPSend;
   sl :TStringList;
   hash: string;
   post : TStringStream;
   cookieses:string;
begin
     HTTP:=THTTPSend.Create;;
     sl:= TStringList.Create;
     post:=TStringStream.Create;

     //HTTP.AddPortNumberToHost:= false;

     //заголовки
     HTTP.MimeType:= 'application/x-www-form-urlencodet';
     HTTP.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:34.0) Gecko/20100101 Firefox/34.0';
     HTTP.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
     HTTP.Headers.Add('Referer: http://m.vk.com/');
     //=====================

     HTTP.HTTPMethod('Get','http://m.vk.com/');
     sl.LoadFromStream(HTTP.Document);
     cookieses:=setkuki(http.Headers.Text);
     memo2.Lines.Add(http.Headers.Text);
     hash:=Pars('<form method="post" action="',sl.Text,'" novalidate>');
     memo2.Lines.Add(hash);
     sl.Clear;
     HTTP.Clear;

     HTTP.Cookies.Add(cookieses);
     post.WriteString('email=логин&pass=пароль'); //формирую для отправки пост запроса
     HTTP.Document.LoadFromStream(post);
     HTTP.HTTPMethod('POST', hash);  // отправляю пост запрос на спарсеную ссылку
     sl.LoadFromStream(HTTP.Document);
     cookieses:=setkuki(http.Headers.Text);
     showmessage(http.Headers.Text);
     Memo1.Lines.add(http.Headers.Text);
     Memo1.Lines.add(http.Cookies.Text);
     http.Clear;

     //парсю location
     HTTP.Cookies.Add(cookieses);
     edit1.Text:=Copy(Memo1.Lines[10],11,length(Memo1.Lines[10]));
     HTTP.HTTPMethod('Get',edit1.Text); //делаю гет запрос
     cookieses:=setkuki(http.Headers.Text);
     sl.LoadFromStream(HTTP.Document);
     http.Clear;

     Memo1.Lines.add(http.Headers.Text);
     Memo1.Lines.add(http.Cookies.Text);
     Memo1.Lines.add(sl.Text);

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

вот то что получаю

PHP код:


			
HTTP/1.1 302 Found
Server: Apache
Date: Sat, 10 Jan 2015 20:44:56 GMT
Content-Type: text/html; charset=windows-1251
Content-Length: 0
Connection: keep-alive
X-Powered-By: PHP/3.10287
Pragma: no-cache
Cache-control: no-store
P3P: CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT"
Location: http://m.vk.com/login?role=fast&to=&s=0&sid=457775933507&dif=1&email=

remixlang=0
Cookie: remixlang=0; 

remixlang=0
Cookie: remixlang=0; 

remixmid=DELETED
remixsid=DELETED
remixsid6=DELETED
remixgid=DELETED
remixemail=DELETED
remixpass=DELETED
remixapi_sid=DELETED
remixpermit=DELETED
remixsslsid=DELETED

Lardes · 11.01.2015, 00:08

Класс THTTPSend сам сохраняет куки, ничего придумывать своё не стоит =)

albionseo · 11.01.2015, 00:17

почему тогда я их не вижу?

Lardes · 11.01.2015, 00:23

HTTP.Cookies.Text ?

albionseo · 11.01.2015, 00:27

Цитата:

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

HTTP.Cookies.Text ?

ну да, выдает мне только

PHP код:


			
remixlang=0
remixmid=DELETED
remixsid=DELETED
remixsid6=DELETED
remixgid=DELETED
remixemail=DELETED
remixpass=DELETED
remixapi_sid=DELETED
remixpermit=DELETED
remixsslsid=DELETED

а должен

PHP код:


			
Set-Cookie: h=1; expires=Thu, 21 Jan 2016 10:49:20 GMT; path=/; domain=login.vk.com; HttpOnly
Set-Cookie: s=1; expires=Sat, 02 Jan 2016 18:37:06 GMT; path=/; domain=login.vk.com; secure; HttpOnly
Set-Cookie: l=251624135; expires=Fri, 01 Jan 2016 09:50:07 GMT; path=/; domain=login.vk.com; secure; HttpOnly
Set-Cookie: p=d6ca0d0487ade76fa5cf4a877ac90787b3f4dc410c940e54a388b; expires=Sat, 02 Jan 2016 23:23:40 GMT; path=/; domain=login.vk.com; secure; HttpOnly
Set-Cookie: remixq_2e867b206ef87a38a807699160223fc0=ad7353f69ff8eb10e1; path=/; domain=.vk.com; HttpOnly
Location: http://m.vk.com/login?role=fast&to=&s=1&__q_hash=2e867b206ef87a38a807699160223fc0

вот location сформирован как раз из этой строчки

remixq_2e867b206ef87a38a80769916022 3fc0

Код:

Location: http://m.vk.com/login?role=fast&to=&s=1&__q_hash=2e867b206ef87a38a807699160223fc0

а я это получаю

Код:

http://m.vk.com/login?role=fast&to=&s=0&sid=158193201591&dif=1&email=

WinCoder · 11.01.2015, 07:19

Цитата:

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

ну да, выдает мне

Цитата:

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

а должен

Значит это и вернул сервер. И тут как не перехватывай, перехватишь то, что вернулось. Вангую. Сервер не только чистит куки, но и даёт редирект на нужную страницу с новыми кукамии, а ты редирект не делаешь.

albionseo · 11.01.2015, 13:50

Цитата:

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

Значит это и вернул сервер. И тут как не перехватывай, перехватишь то, что вернулось. Вангую. Сервер не только чистит куки, но и даёт редирект на нужную страницу с новыми кукамии, а ты редирект не делаешь.

Вот что снифер выдает

PHP код:


			
ttps://login.vk.com/?act=login&_origin=http://m.vk.com&ip_h=7fdd3431a3310d668b&role=pda&utf8=1



POST /?act=login&_origin=http://m.vk.com&ip_h=7fdd3431a3310d668b&role=pda&utf8=1 HTTP/1.1

Host: login.vk.com

User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:34.0) Gecko/20100101 Firefox/34.0

Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3

Accept-Encoding: gzip, deflate

Referer: http://m.vk.com/login

Cookie: remixlang=0; remixflash=16.0.0; remixscreen_depth=24; remixdt=0; remixseenads=0; audio_vol=22; remixrefkey=395c5a17fe8f77bda1; t=bf81fd891fe184ee666ac06a; remixstid=508608265_dad6b74159c19bc55d; remixmdevice=1366/768/1/!!-!!!!; remixtst=5fedbb9e; remixmdv=rdYMuFND9hak3cCR

Connection: keep-alive

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

Content-Length: 36

email=12345pass=12345

HTTP/1.1 302 Found

Server: nginx

Date: Sun, 11 Jan 2015 10:47:29 GMT

Content-Type: text/html; charset=windows-1251

Content-Length: 0

X-Powered-By: PHP/3.10293

Pragma: no-cache

Cache-Control: no-store

P3P: CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT"

Set-Cookie: h=1; expires=Fri, 08 Jan 2016 03:46:09 GMT; path=/; domain=login.vk.com; HttpOnly

Set-Cookie: s=1; expires=Sun, 03 Jan 2016 16:08:35 GMT; path=/; domain=login.vk.com; secure; HttpOnly

Set-Cookie: l=251624135; expires=Fri, 08 Jan 2016 11:44:10 GMT; path=/; domain=login.vk.com; secure; HttpOnly

Set-Cookie: p=dce9ce4b626adbf0dd1bad0083a7061d398f185f1469a5bd1fe8b; expires=Sun, 17 Jan 2016 06:54:59 GMT; path=/; domain=login.vk.com; secure; HttpOnly

Set-Cookie: remixq_254b5b980f3649ef6a1b484fb09f4654=280424983471815195; path=/; domain=.vk.com; HttpOnly

Location: http://m.vk.com/login?role=fast&to=&s=1&__q_hash=254b5b980f3649ef6a1b484fb09f4654

X-Firefox-Spdy: 3.1

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

http://m.vk.com/login?role=fast&to=&s=1&__q_hash=254b5b980f3649ef6a1b484fb09f4654



GET /login?role=fast&to=&s=1&__q_hash=254b5b980f3649ef6a1b484fb09f4654 HTTP/1.1

Host: m.vk.com

User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:34.0) Gecko/20100101 Firefox/34.0

Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3

Accept-Encoding: gzip, deflate

Referer: http://m.vk.com/login

Cookie: remixlang=0; remixflash=16.0.0; remixscreen_depth=24; remixdt=0; remixseenads=0; audio_vol=22; remixrefkey=395c5a17fe8f77bda1; remixstid=508608265_dad6b74159c19bc55d; remixmdevice=1366/768/1/!!-!!!!; remixtst=5fedbb9e; remixmdv=rdYMuFND9hak3cCR; remixq_254b5b980f3649ef6a1b484fb09f4654=280424983471815195

Connection: keep-alive



HTTP/1.1 302 Found

Server: Apache

Date: Sun, 11 Jan 2015 10:47:29 GMT

Content-Type: text/html; charset=windows-1251

Content-Length: 20

Connection: keep-alive

X-Powered-By: PHP/3.10293

Set-Cookie: remixq_254b5b980f3649ef6a1b484fb09f4654=DELETED; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/; domain=.vk.com

Set-Cookie: remixq_254b5b980f3649ef6a1b484fb09f4654=DELETED; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/; domain=.vk.com

Set-Cookie: remixsid=25f00763efd6c710332af8fde7539f775f9aa0a723021406ebf33; expires=Sun, 17 Jan 2016 15:45:47 GMT; path=/; domain=.vk.com

Set-Cookie: remixtemp_sid=DELETED; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/; domain=.vk.com

Pragma: no-cache

Cache-Control: no-store

P3P: CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT"

Location: /

Content-Encoding: gzip

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

albionseo · 11.01.2015, 13:54

1 - делаю гет на главную, для парса ссылки
2 - по ней пост, с логином и паролем
3 - получаю ответ от сервес о редиректе в location, но ссылка не та что нужна т.к. кук нет, куда копать, кто делал авторизацию в вк?
т.е. куки после пост запроса должны быть, только потом редирект

Lardes · 11.01.2015, 14:46

Писал давно, за актуальность не ручаюсь. А по хорошему лучше авторизовываться через OAuth-авторизацию или через прямую авторизацию.

albionseo · 11.01.2015, 15:02

нет, задача другая стоит

10.01.2015, 23:47	#1
albionseo Пользователь Регистрация: 02.01.2015 Сообщений: 17	Куки вконтакте synapse Начал недавно изучать синапс и уже прошерстил форумы по этой теме, вобщем пытаюсь авторизоваться вконтакте по средствам синапса. Посмотрел что передается снифером, вот код самой проги PHP код: function Setkuki(const x2: string):string; var CookieList:TstringList; cookie,x3:string; y,i:integer; begin x3:=x2; if pos('Set-Cookie:',x3)<>0 then begin CookieList:=TstringList.Create; while Pos('Set-Cookie', x3) <> 0 do begin y := Pos('Set-Cookie', x3); i := PosEx(': ', x3, y) + 2; CookieList.Add(Copy(x3, i, PosEx(';', x3, i) - i)); Delete(x3, y, 10); end; cookie := 'Cookie: '; for i := 0 to CookieList.Count - 1 do cookie := cookie + CookieList.Strings[i] + '; '; CookieList.Free; end; Result:=cookie; end; procedure TForm1.Button1Click(Sender: TObject); var HTTP: THTTPSend; sl :TStringList; hash: string; post : TStringStream; cookieses:string; begin HTTP:=THTTPSend.Create;; sl:= TStringList.Create; post:=TStringStream.Create; //HTTP.AddPortNumberToHost:= false; //заголовки HTTP.MimeType:= 'application/x-www-form-urlencodet'; HTTP.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:34.0) Gecko/20100101 Firefox/34.0'; HTTP.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,/;q=0.8'); HTTP.Headers.Add('Referer: http://m.vk.com/'); //===================== HTTP.HTTPMethod('Get','http://m.vk.com/'); sl.LoadFromStream(HTTP.Document); cookieses:=setkuki(http.Headers.Text); memo2.Lines.Add(http.Headers.Text); hash:=Pars('<form method="post" action="',sl.Text,'" novalidate>'); memo2.Lines.Add(hash); sl.Clear; HTTP.Clear; HTTP.Cookies.Add(cookieses); post.WriteString('email=логин&pass=пароль'); //формирую для отправки пост запроса HTTP.Document.LoadFromStream(post); HTTP.HTTPMethod('POST', hash); // отправляю пост запрос на спарсеную ссылку sl.LoadFromStream(HTTP.Document); cookieses:=setkuki(http.Headers.Text); showmessage(http.Headers.Text); Memo1.Lines.add(http.Headers.Text); Memo1.Lines.add(http.Cookies.Text); http.Clear; //парсю location HTTP.Cookies.Add(cookieses); edit1.Text:=Copy(Memo1.Lines[10],11,length(Memo1.Lines[10])); HTTP.HTTPMethod('Get',edit1.Text); //делаю гет запрос cookieses:=setkuki(http.Headers.Text); sl.LoadFromStream(HTTP.Document); http.Clear; Memo1.Lines.add(http.Headers.Text); Memo1.Lines.add(http.Cookies.Text); Memo1.Lines.add(sl.Text); в общем в куках передается то что должно быть в location, как то оно там собирается и получается ссылка для дальнейшего редиректа, но у меня не получается получить куки, в чем проблема не понимаю, помогите народ вот то что получаю PHP код: HTTP/1.1 302 Found Server: Apache Date: Sat, 10 Jan 2015 20:44:56 GMT Content-Type: text/html; charset=windows-1251 Content-Length: 0 Connection: keep-alive X-Powered-By: PHP/3.10287 Pragma: no-cache Cache-control: no-store P3P: CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT" Location: http://m.vk.com/login?role=fast&to=&s=0&sid=457775933507&dif=1&email= remixlang=0 Cookie: remixlang=0; remixlang=0 Cookie: remixlang=0; remixmid=DELETED remixsid=DELETED remixsid6=DELETED remixgid=DELETED remixemail=DELETED remixpass=DELETED remixapi_sid=DELETED remixpermit=DELETED remixsslsid=DELETED Последний раз редактировалось albionseo; 10.01.2015 в 23:50.

11.01.2015, 13:54	#8
albionseo Пользователь Регистрация: 02.01.2015 Сообщений: 17	1 - делаю гет на главную, для парса ссылки 2 - по ней пост, с логином и паролем 3 - получаю ответ от сервес о редиректе в location, но ссылка не та что нужна т.к. кук нет, куда копать, кто делал авторизацию в вк? т.е. куки после пост запроса должны быть, только потом редирект Последний раз редактировалось albionseo; 11.01.2015 в 14:01.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Куки Synapse	Pearl777	Работа с сетью в Delphi	21	05.03.2013 11:43

11.01.2015, 00:08	#2
Lardes Форумчанин Регистрация: 19.08.2011 Сообщений: 329	Класс THTTPSend сам сохраняет куки, ничего придумывать своё не стоит =)

11.01.2015, 00:17	#3
albionseo Пользователь Регистрация: 02.01.2015 Сообщений: 17	почему тогда я их не вижу?

11.01.2015, 00:23	#4
Lardes Форумчанин Регистрация: 19.08.2011 Сообщений: 329	HTTP.Cookies.Text ?

11.01.2015, 15:02	#10
albionseo Пользователь Регистрация: 02.01.2015 Сообщений: 17	нет, задача другая стоит