Вопросы к Путину

Ктулху уже здесь...
=)))))

 

Накатал на скорую руку.

Code:

#!/usr/bin/perl
use IO::Socket;
use Thread;

$serv = "president.yandex.ru";
$page = 'question.xml?id=208372';

$n=$mycount=0;

open(PROXY, 'ElseProxy.txt');
PROXY->autoflush(1);
STDOUT->autoflush(1);
for($nn=0;$nn<256;$nn++){ Thread->new(\&start_sub) }
while($mycount<256){ sleep(1) };
close(PROXY);

sub start_sub(){
local($proxy,$s,$buf,$url);
  while($proxy=<PROXY>){TRY:{
    $s = IO::Socket::INET->new(PeerAddr=>$proxy)||next;
    print $s <<HTTP;
GET http://$serv/$page HTTP/1.1
Host: $serv
User-Agent: MSIE
Connection: close

HTTP
    read($s,$buf,0xfffff);
    close($s);
    if(($url)=$buf=~/window\.location\.href\s*\=\s*\'(http\:\/\/bs\.yandex\.ru\/count\/[^\']+)/i){
      $n++;
      print "$n - $url\n";
      $s = IO::Socket::INET->new(PeerAddr=>$proxy); 
      print $s <<HTTP;
GET $url HTTP/1.1
Host: bs.yandex.ru
Referer: http://$serv/$page
User-Agent: MSIE
Connection: close

HTTP
      close($s);
    }
  }}
  $mycount++;
}

 

Про этого Ктулху седня в новостях говорили, немного о мифе про него и что мол не дойдет этот вопрос до Вовки... будем ждать конференции. Кстати они сказали что это второй по популярности, а вот про первый, с мальчиком, даже ни слова.

 

Читаем про Ктулху и Путина тут:
http://www.lenta.ru/articles/2006/07/04/cthulhu/

 

Бугагага =)))) А про некромоникон, который скоро отметит свое первое тысячелетие, они не знают? =)

Скоро белый гетеросексуальный полноценный русский человек в России станет мифом...

 

"Буду краток - отвечу на два вопроса сразу. Когда после укурки я поцеловал мальчика, то понял, что легализовывать ее ни в коем случае нельзя".

 

2nerezus =)))))))))))) жесть!

 

точна!!
да чёвы прекапались да Вовки!!ну поцелавал ему в жевот !! ну и чё!!

 

Мне вот этот вот вопрос понравился