#######################
#####vkontakte must die######
######(C) xXvladXx#########
#######################
#!/usr/bin/perl
use strict;
use IO::Socket;
use Digest::MD5;
my $md5 = Digest::MD5->new;
$|=1;
open ACC,"good.txt";
my @acc=<ACC>;
close ACC;
my @mess=();
@mess[0]='месага номер один';
@mess[1]='месага номер два';
my @title=();
@title[0]='Заголовок 1';
@title[1]='Заголовок 2';
my @account=();
my @cookie=();
my @friend=();
my $numb=0;
print "\r Cookie";
foreach (@acc){
	my @acs=split(/:/,$_);
	my $m=@acs[1];
	$m=~ s/\@/%40/;
	@cookie[@acs[0]]="Cookie: remixchk=5; remixmid=".@acs[0]."; remixemail=".$m."; remixpass=".md5c(@acs[2])."\r\n";
	@account=(@account,@acs[0]);
}

foreach(@account){
	print "                                                   ";
	print "\r Parse friend $_";
	my $acf=$_;
	my $res=get('/friend.php',@cookie[$acf],'GET','');
	my @temp = $res=~/\[.*\, \{f/gi;
	foreach (@temp){
		my $fr=$_;
		$fr=~ s/\[//g;
		$fr=~ s/\, \{f//;
		$fr=~s/\n//;
		@friend[$acf].=$fr."--";
		
	}
}
for(my $i=0;;$i++){
	my $en=0;
	foreach(@account){
		my $n=$_;
		$n=~s/\n//;
		my $frs=@friend[$n];
		my @frens=();
		@frens=split(/--/,$frs);
		if(@frens[$i] ne ''){
			$en=1;
			&send_msg(@frens[$i],@mess[$numb],@title[$numb],@cookie[$n]);
			print "                                                   ";
			print "\r Send msg acc $n friend $i ";
			select(undef, undef, undef, 0.2);
		}
		
		
	}
	if($en==0){
	last;
	}
	if($numb==0){
		$numb=1;
	}else{
		$numb=0;
	}	
	
}



sub md5c{
my ($dat)=@_;
$dat=~s/\n//;
$md5->add($dat);
return $md5->hexdigest;
}

sub get{
my $host = "vkontakte.ru";
my $port = "80";
my ($path,$cookie,$type,$post)=@_;
my $socket;
while ( ! ($socket = IO::Socket::INET->new("$host:$port") ) ) {
  print ("Not connected: $!\nSleep 1 sec\n");
  sleep 1;
}
unless ($socket) {die "can't connect to HTTP server on $host:$port: $!"}
$socket->autoflush(1);

my $header="$type $path HTTP/1.0\r\n".
				"Accept: */*\r\n".
				"Accept-Language: ru\r\n".
				"Content-Type: application/x-www-form-urlencoded\r\n".
				"Proxy-Connection: Keep-Alive\r\n".
				"Host: vkontakte.ru\r\n";
if($post){
$header.="Content-Length: ".length($post)."\r\n";
}
$header.="$cookie\r\n".
		"$post".
		"\r\n";
print $socket  "$header";
my @rz = <$socket>;
close $socket;
return join("\n",@rz);
}
sub send_msg{
	my ($to,$msg,$title,$cookie)=@_;
	my $res=get('/mail.php?act=write&to='.$to,$cookie,'GET','');
	if($res=~/name\=\"secure\" value\=\"(.*)\" \/>/){
		&get('/mail.php',$cookie,'POST',"secure=".$1."&photo=&to_id=".$to."&to_reply=0&act=sent&title=".$title."&message=".$msg);
	}
}