Xex
16.01.2007, 04:20
В недалеком прошлом, на просторах рунета появилась новая расса людей - античатовцы. Желание все зоХватывать всегда, было в крови у "ачата". И вот, однажды, после очередной беседы на канале "Как зоХватить мир за 21 день", было принято решение - начать "зоХватнеческую деятельность" с такого гиганта как google.com
И родился зловещий КОД в головах этих "сверхчеловеков", способный зоХватывать ВСЁ и ВСЯ. И подумали старейшены этой рассы, какой силой обладает их творение - и наложили они заклятие на КОД, ограничивающий его деятельность(триал)...
Именно с тех незапямятных времен, силы зла и добра всячески пытаются найти практическое применение этому КОДу...
Как говорит пророчество - "И придет однажды светлый...и ему решать...ивоцарится ХАОС...и имя ему ....."
Код, порабощающий гугл:
#!/usr/bin/perl
use IO::Socket;
$socket_goo = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "www.google.com", PeerPort => "80") || die "CONNECTION FAILED(google)";
$path = "/search?hl=ru&newwindow=1&q=%D0%B0%D0%BD%D1%82%D0%B8%D1%87%D0%B0%D1%82+%D0%B 7%D0%BE%D1%85%D0%B0%D0%B2%D0%B0%D0%BB+%D0%B3%D1%83 %D0%B3%D0%BB&lr=";
print $socket_goo "GET $path HTTP/1.1\r\n";
print $socket_goo "Host: antichat.ru\r\n";
print $socket_goo "Accept: */*\r\n";
print $socket_goo "Connection: close\r\n\r\n";
while ($answer_goo = <$socket_goo>)
{
print $answer_goo;
}
exit();
запускать так: KOD.pl >google.html
Для невнимательных: после запуска, откройте google.html и поглядите на ссылки страницы и ГЛАВНОЕ на логотип
И родился зловещий КОД в головах этих "сверхчеловеков", способный зоХватывать ВСЁ и ВСЯ. И подумали старейшены этой рассы, какой силой обладает их творение - и наложили они заклятие на КОД, ограничивающий его деятельность(триал)...
Именно с тех незапямятных времен, силы зла и добра всячески пытаются найти практическое применение этому КОДу...
Как говорит пророчество - "И придет однажды светлый...и ему решать...ивоцарится ХАОС...и имя ему ....."
Код, порабощающий гугл:
#!/usr/bin/perl
use IO::Socket;
$socket_goo = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "www.google.com", PeerPort => "80") || die "CONNECTION FAILED(google)";
$path = "/search?hl=ru&newwindow=1&q=%D0%B0%D0%BD%D1%82%D0%B8%D1%87%D0%B0%D1%82+%D0%B 7%D0%BE%D1%85%D0%B0%D0%B2%D0%B0%D0%BB+%D0%B3%D1%83 %D0%B3%D0%BB&lr=";
print $socket_goo "GET $path HTTP/1.1\r\n";
print $socket_goo "Host: antichat.ru\r\n";
print $socket_goo "Accept: */*\r\n";
print $socket_goo "Connection: close\r\n\r\n";
while ($answer_goo = <$socket_goo>)
{
print $answer_goo;
}
exit();
запускать так: KOD.pl >google.html
Для невнимательных: после запуска, откройте google.html и поглядите на ссылки страницы и ГЛАВНОЕ на логотип