Казахский вариант
Нелюбля я эти модули блин ну нечё в них непонятно
Предлогоаю несколько другой более визуальный вариант
поэтому будем use Socket;
#!/usr/bin/perl
use Socket;
$AF_INET=2;
$SOCK_STREAM=1;
$protocol=(getprotobyname(\'tcp\'))[2];
$end="\\015\\012";
$site="localhost";# Адрес хоста без
http://$port=80;
$addr=(gethostbyname($site))[4];
$addrs=pack (\'S n a4 x8\', $AF_INET, $port, $addr);
$cur=\'/u.jpg\';#имя файла на хосте Например /cgi-bin/cookie.cgi
{print "Content-Type: text/html\\n\\n";
if (!(socket(LOAD,$AF_INET,SOCK_STREAM,$protocol))){
print "Невозможно создать сокет!"; exit;}
if (!(connect(LOAD, $addrs))){print "Невозможно соединиться!"; exit;}
select(LOAD);
$|=1;
select(STDOUT);
print LOAD "GET $cur HTTP/1.0$end";
print LOAD "Content-Type: application/x-www-form-urlencoded$end";
print LOAD "Accept: text/html$end";
print LOAD "Accept: image/jpeg$end";
print LOAD "User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)$end";
print LOAD "Accept: image/gif$end";
print LOAD "Accept: image/x-xbitmap$end";
print LOAD "Referer:
http://www.hvost.kz/$end";
print LOAD "Accept: image/pjpeg$end";
print LOAD "Cookie: nik=uuu; passwd=e789201b865999990c17bf5bc9c15$end";
print LOAD "Host: $site$end";
print LOAD "Authorization: Basic $encoded$end";
print LOAD "$end$end";
@str=
;
print @str;
close (LOAD);
}
Вот эсли ты найдёш куда здесь dinmode ткнуть чтобы этот скрипт графику не уродывал я тебя кумысом всю жизнь поить буду извёлся я ночей несплю
А для хака или для более благих целей ты это будеш использовать мне без разници (тока я тебе как человек человеку советую НЕНАДО да и нечего с его помощю зделать толком нельзя)
Есло что непонятно пиши perl@host.kz
И если ну очень тебе захочится зделать это через LWP скажи ПОПРОБУЕМ вместе разобратся
Скрипт в текстовом файле здесь
http://web.host.kz/perl/head.txt
