Вот ещё скрипец для спама листов контакта!
спамит комментариями к зометкам, пока багу с blog_id
не прикрыли с одного акка удавалось отправить около 2000 сообщений в час,
теперь приходится парсить страницу и по этому скорость ниже =(
Но думаю это актуальная тема!
[/QUOTE]#usr/bin/perl
############################
# vkontakte.ru notes spamer
# C!klodoL
############################
use IO::Socket;

$email = 'mail@mail.ru';
$pass = 'fdsfsdfs';
$post_id = 200000; # id с которого начать
$text = 'Превед!';
$host = 'localhost'; #хост прокси
$port = '8118'; #порт

$email =~s/@/%40/;
$emps = "email=$email&pass=$pass";
$text =~s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

$login ="POST http://vkontakte.ru/login.php HTTP/1.1\r\n".
"Host: vkontakte.ru\r\n".
"Accept: */*\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Content-Length: ".length($emps)."\r\n".
"Referer: Referer: http://vkontakte.ru/\r\n".
"User-Agent: Internet Explorer 6.0\r\n".
"Connection: close\r\n\r\n$emps";

$sock = IO::Socket::INET->new(Proto=>'tcp', PeerAddr=>$host, PeerPort=>$port);

print $sock $login;

while ($answ = <$sock>){
if ($answ =~/remixmid=([0-9])/){
$answ =~m/(\d+)/;
$remixmid = $1;}
if ($answ =~/remixpass=([a-z0-9]{32})/){
$answ =~/remixpass=([a-z0-9]{32})/;
$remixpass = $1;}
}
close $sock;
$cookie = "remixchk=2; remixmid=$remixmid; remixemail=$email; remixpass=$remixpass;";

sleep(1.1);

if ($remixpass){

while (1){

system("cls");

$get = "GET http://vkontakte.ru/notes.php?act=s&nid=$post_id HTTP/1.0\r\n".
"Host: vkontakte.ru\r\n".
"Accept: */*\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Referer: http://vkontakte.ru/\r\n".
"User-Agent: Internet Explorer 6.0\r\n".
"Cookie: $cookie\r\n".
"Connection: close\r\n\r\n";

$sock = IO::Socket::INET->new(Proto=>'tcp', PeerAddr=>$host, PeerPort=>$port);

print $sock $get;

while ($html = <$sock>){
if ($html =~ /name="blog_id"/gi){
$html=~m/(\d+)/gi;
$blog_id = $1;
}
}
close $sock;

sleep(1);

$uri = "blog_id=$blog_id&post_id=$post_id&act=addComment& comment=$text";

$cament = "POST http://vkontakte.ru/notes.php HTTP/1.1\r\n".
"Host: vkontakte.ru\r\n".
"Accept: */*\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Content-Length: ".length($uri)."\r\n".
"Referer: Referer: http://vkontakte.ru/\r\n".
"User-Agent: Internet Explorer 6.0\r\n".
"Cookie: $cookie\r\n".
"Connection: close\r\n\r\n$uri";

$sock = IO::Socket::INET->new(Proto=>'tcp', PeerAddr=>$host, PeerPort=>$port);

print $sock $cament;

while ($p = <$sock>){
print $p;
}
close $sock;

print "[+] Comment BLOG_ID: $blog_id, NOTES_ID: $post_id\n";
sleep(1);
$post_id++;
}
} else {print "Bad login or password"; exit;}[QUOTE]