Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.11.2011, 20:29   #1
lexastik
Пользователь
 
Регистрация: 25.02.2009
Сообщений: 16
По умолчанию Авторизация на LiveInternet

Добрый вечер. Есть проблемка, не получается авторизоваться на сайте программно. Если посмотреть код страницы http://www.liveinternet.ru/stat/, то в поле <form> .... </form> нет слов action, только method=post. Просмотрел, что отправляется по нажатию кнопки ОК.

http://www.liveinternet.ru/stat/

Код:
POST /stat/ HTTP/1.1
Host: www.liveinternet.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.23) Gecko/20110920 MRA 5.7 (build 03796) Firefox/3.6.23 ( .NET CLR 3.5.30729) WebMoney Advisor
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
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Connection: keep-alive
Referer: http://www.liveinternet.ru/stat/
Cookie: suid=0GR9EH3SQXGw; adv-uid=961ed0.c130f4.ffd1f1
Content-Type: application/x-www-form-urlencoded
Content-Length: 172

rnd=1636634228&url=httpХХХХХ&password=ХХХХХХ&ok=+OK+

HTTP/1.1 302 Moved Temporarily
Date: Wed, 02 Nov 2011 16:38:12 GMT
Server: 0W/0.8e
Content-Type: text/html; charset=iso-8859-1
Location: http://www.liveinternet.ru/stat/ХХХХХ/index.html?session=101376864
Content-Length: 350
Expires: Mon, 03 Oct 2011 16:38:12 GMT
P3P: policyref="/w3c/p3p.xml", CP="UNI"
Set-Cookie: session=062kDW1sVOOh; path=/stat/ХХХХХХ/
----------------------------------------------------------
...........
весь приводить не стал, надеюсь у вас есть чем смотреть запросы браузера. Символами ХХХ заменил пароль и логин (адрес сайта). Вот код на делфи:

Код:
   http:TIdHTTP;
   sd:TStringStream;
   sl:TStringlist;
   rnd,s:string;

  var 
    ........
           http.Get('http://www.liveinternet.ru/stat/',sd);
           sd.Position:=0;
           s:=sd.DataString;
    ......
  begin
    ......
           i := PosEx('name=rnd',s);
           i := PosEx('value',s,i);
           i := PosEx('"',s,i)+1;
           rnd := Copy(s,i,PosEx('"',s,i)-i);
           sl.Add('rnd='+rnd);
           sl.Add('url=httpХХХХХ');
           sl.Add('password=ХХХХХХ');
           sl.Add('ok=+OK+');
           s:=http.Post('http://www.liveinternet.ru/stat/',sl);
           memo2.Lines.Add(s);
           http.Get('http://www.liveinternet.ru/stat/ХХХХХ/index.html',sd);
           sd.Position:=0;
           s:=sd.DataString;
           memo2.Lines.Add(s);
      .......
В http куки и редирект в true.
Что в первом, что во втором случае получаю код страницы авторизации, авторизация не проходит, либо я пишу не тот адрес. Подскажите, если кто знает.

Последний раз редактировалось lexastik; 03.11.2011 в 20:32.
lexastik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Авторизация SkrudjMakdak PHP 6 27.03.2011 20:41
Обычная авторизация или авторизация на уровне браузера? calugin Безопасность, Шифрование 0 13.01.2011 00:34
Парсер Liveinternet - как передать пароль? Benderbej PHP 2 02.10.2010 22:31
авторизация fAtliNg Работа с сетью в Delphi 6 14.08.2010 20:14