VPF::Куки, idhttp и https - Форум программистов

DocBox

Дата 21.9.2008, 22:19 (ссылка)

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

Загрузка ...

Новичок

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

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

Задача: - залогинится на http://www.tagged.com/

там стоит защищённое соедениние по простоколу sslvTLSv1

Залогиниться у меня получаеться успешно. и показывает страничку переноправления.. но когда пытась получить эту страницу я уже не залоген.. очевидно проблема в куках..
долго снифил.. там есть 2 переменные S и tagloginemail однако поле регестрации в куках их нет..

как решить проблему... попмогите Плз..

Код:

Код


procedure TForm1.Button3Click(Sender: TObject);

var
  IdHTTPS: TIdHTTP;
  IdHandler: TIdSSLIOHandlerSocket;
  Params,Cookies: TStringList;
  CookMan: TidCookieManager;
  S:Tmemorystream;
  z:string;

begin

  IdHTTPS:=TIdHTTP.Create(nil);

  idhttps.HandleRedirects:=true;

  idhttps.AllowCookies:=true;

  IdHandler:=TIdSSLIOHandlerSocket.Create(nil);
  CookMan:=TidCookieManager.Create(idHTTPs);

  idHTTPs.CookieManager := CookMan;

    ////tagloginemail=brodertrestrimna%40yahoo.com; path=/; domain=.tagged.com

  Params:=TStringList.Create;
  Params.add('[email protected]');
  Params.add('password=123321');
  try
    try
      IdHTTPS.Port:=443;
      //IdHTTPS.ReadTimeout:=25000;
      IdHTTPS.IOHandler:=IdHandler;
      with IdHandler.SSLOptions do
      begin
        Method:=sslvTLSv1;
      end;

IDHttps.Request.UserAgent:='Mozila';
Memo1.Lines.Text:=IdHttps.Post('https://secure.tagged.com/secure_login.html?r=%2Fhome.html&uri=http%3A%2F%2Fwww.tagged.com',params);



idHTTPS.Request.Referer:='https://secure.tagged.com/secure_login.html?r=%2Fhome.html&uri=http%3A%2F%2Fwww.tagged.com';


 memo1.text:=idHTTPS.Get( 'http://tagged.com/home.html?jli=1');


    except
      On E: Exception do
      begin
        //ShowMessage('Ioeaea'+E.Message);
      end;
    end;
  finally
    IdHTTPS.Free;
    IdHandler.Free;
    Params.Free;
  end;



end;

aktuba

Дата 21.9.2008, 22:36 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Цитата(DocBox @ 21.9.2008, 23:19

)

там есть 2 переменные S и tagloginemail однако поле регестрации в куках их нет..

У них, случайно, не ставится домен с точкой впереди? Покажи логи снифа.

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

DocBox

Дата 22.9.2008, 14:13 (ссылка)

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

Загрузка ...

Новичок

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

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

точек нет

aktuba

Дата 23.9.2008, 19:32 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Цитата(aktuba @ 21.9.2008, 23:36

)

Покажи логи снифа.

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

DocBox

Дата 24.9.2008, 15:14 (ссылка)

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

Загрузка ...

Новичок

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

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

Проблему решил .. извращённым методом...
получал head вручную выдирал отдуда куки .. и вставлял в cookman

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