авторизация
 

не получается авторизация на сервере проблема с запросом Post;

code:

#!/usr/bin/perl -w
use IO::Socket::INET;
$server="www.livejournal.com";
$port="80";
$user="user";
$pass="123456789";
$dir="login.bml";
$socket=IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => tcp)
or die print "Unable to connect to $server:$port\n"; ## Создаем соединение с livejournal.com
$socket->autoflush(1); ## Отрубаем буферизацию (на всякий случай, т.к. по дефолту она вырублена)
$post="mode=login&chal=c0%3A1226134800%3A516%3A300%3AZ6a6yBSeA8Ok6CT1u3Bl%3Aa4241c9c17aa567c444234fb 60715c0e&response=&user=user&password=123456789";
$len=length($post);
print $len;
$len+=1; ## Находим длину запроса (фраза + \r\n)
print $socket "POST $dir HTTP/1.0\r\n";
print $socket "Host: www.livejournal.com\r\n";;
print $socket "Content-Type: application/x-www-form-urlencoded\r\n";
print $socket "Connection: Close\r\n";
print $socket "Content-Length: $len\r\n";
print $socket "\r\n$post\r\n";

## Отправим в сокет длинный header

$socket->recv($answer,1024); ## И прочитаем возврат =
print $answer;

simon171078, там мб требуется шифрование https (я не в курсе)...
вполне вероятны внутренние хитрые проверки...
не забываем также про ID сессии...
в любом случае нужно изучить механизм авторизации через браузер (учитывая куки, протокол и т.д.).