VPF::сокеты - Форум программистов

genon

Дата 7.5.2011, 16:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Здраствуйте.
Перый вопрос как работать с куками через сокеты, если они требуются?
Попробовал написать простой скрипт авторизатор на сайт..он не пашет(
специально все запросы вывел.Вся инфа валидная логин и пасс..
пс:через UserAgent не хочу с ним уже разобрался.

Код


#!/usr/bin/perl

use IO::Socket::INET;
$|=1;

$sock=IO::Socket::INET->new(PeerAddr => 'www.icq-seller.org', PeerPort => 'http(80)', Proto => 'tcp') or die "$!";
$infa="login=xotdog&pass=player&enter=%C2%F5%EE%E4";

 print $sock "POST /login.php HTTP/1.1\r\n";
 print $sock "Host=icq-seller.org\r\n)";
 print $sock "User-Agent=Mozilla/5.0\r\n";
 print $sock "Accept=text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\r\n";
 print $sock "Accept-Language=ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3\r\n";
 print $sock "Accept-Encoding=gzip,deflate\r\n";
 print $sock "Accept-Charset=windows-1251,utf-8;q=0.7,*;q=0.7\r\n";
 print $sock "Keep-Alive=115\r\n";
 print $sock "Connection=keep-alive\r\n";
 print $sock "Referer=http://icq-seller.org/login.php\r\n";
 print $sock "Cookie=PHPSESSID=1d84c0c9d6fa370ee6b296389db88241\r\n";
 print $sock "Content-Type=application/x-www-form-urlencoded\r\n";
 print $sock "Content-Length=48\r\n";
 print $sock "$infa";

  if ($sock=~/Set-Cookie/){
  print 'good'};

@data=<$sock>;
close($sock);
print @data;

Это сообщение отредактировал(а) genon - 7.5.2011, 16:46

arto

Дата 7.5.2011, 16:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

RFC 2616

genon

Дата 7.5.2011, 18:48 (ссылка)

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

Загрузка ...

Новичок

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

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

а с куками что

arto

Дата 7.5.2011, 22:29 (ссылка)

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

Загрузка ...

Эксперт

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

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

не работают, и не могут работать

gcc

Дата 8.5.2011, 00:40 (ссылка)

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

Загрузка ...

Агент алкомафии

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

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

genon, можно посмотреть:
use LWP::UserAgent;
use HTTP::Cookies;

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

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

genon

Дата 8.5.2011, 12:49 (ссылка)

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

Загрузка ...

Новичок

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

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

прочитал я кароче http://www.i2r.ru/static/247/out_3771.shtml
так и не понял почему не работает...

Pfailed

Дата 8.5.2011, 14:18 (ссылка)

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

Загрузка ...

Опытный

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

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

genon, обычно формат у заголовков такой:

Код


Field: Value

а у вас

Код


Field=Value

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

I'm on CPAN
I'm on github

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