#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;}