Форум АНТИЧАТ - Античат Зохватывает ГУГЛ:захват линков

Античат Зохватывает ГУГЛ:захват линков

16.01.2007, 04:20

~~Xex~~

Banned

Регистрация: 10.07.2005

Сообщений: 224

Провел на форуме:
1062041

Репутация: 50

Античат Зохватывает ГУГЛ:захват линков

В недалеком прошлом, на просторах рунета появилась новая расса людей - античатовцы. Желание все зоХватывать всегда, было в крови у "ачата". И вот, однажды, после очередной беседы на канале "Как зоХватить мир за 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%B7%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 и поглядите на ссылки страницы и ГЛАВНОЕ на логотип