ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/bin/perl
########################
# vkontakte.ru spamer
# C!klodoL
########################
#текст сообщения;
$text = 'Превед';
#хост прокси
$host = 'localhost';
#порт прокси
$port = '8118';
#id альбома с которого начать
$start = 1000;
#куки, remixpass= хэш пароля, remixmid= id, remixemail= мыло 
$cookie = 'remixedu=0; remixpass=0decadac4aded48a704dfzebadc3ac9; remixfriendsCommon=1; remixmid=1000; remixemail=FljcqdXXDx%40narod.ru; remixgroups=1; remixchk=2';

$text =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
while(1){
system("cls ; clear");
use IO::Socket;
$sock = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host",PeerPort=>"$port");
   print $sock "GET http://vkontakte.ru/photos.php?act=album&id=$start HTTP/1.0\r\n";
   print $sock "Host: vkontakte.ru\r\n";
   print $sock "Accept: */*\r\n";
   print $sock "Content-Type: application/x-www-form-urlencoded\r\n";
   print $sock "Referer: http://vkontakte.ru/\r\n";
   print $sock "User-Agent: Internet Explorer 6.0\r\n";
   print $sock "Cookie: $cookie\r\n";
   print $sock "Connection: close\r\n\r\n";
   
   while ($html=<$sock>){
   if ($html=~/photos.php\?act=show&id/gi){
   $html=~m/(\d+)/g;
   $photoid=$1;
   push @idents, $photoid;
   }}
   close ($sock);
 print "@idents\n";  
$mas = @idents; #количество ид фоток в массиве

while($mas > 0){
	$foto_id = "@idents[$co]";   
	$uri = "id=$foto_id&act=post&comment=$text";
	
$sock = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host",PeerPort=>"$port");
   print $sock "POST http://vkontakte.ru/photos.php HTTP/1.1\r\n";
   print $sock "Host: vkontakte.ru\r\n";
   print $sock "Accept: */*\r\n";
   print $sock "Content-Type: application/x-www-form-urlencoded\r\n";
   print $sock "Content-Length: ".length($uri)."\r\n";
   print $sock "Referer: Referer: http://vkontakte.ru/\r\n";
   print $sock "User-Agent: Internet Explorer 6.0\r\n";
   print $sock "Cookie: $cookie\r\n";
   print $sock "Connection: close\r\n\r\n$uri";
   while(<$sock>){print <$sock>};
   close ($sock);
$co++;
last if ($co > $mas);
print "Comment foto $foto_id\n";
 sleep(2);
	}
$start++;
@idents=();
$co=0;
print "Album number $start is commented\n";
sleep(2);
}