Здраствуйте.
Перый вопрос как работать с куками через сокеты, если они требуются?
Попробовал написать простой скрипт авторизатор на сайт..он не пашет(
специально все запросы вывел.Вся инфа валидная логин и пасс..
пс:через 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;
|
|