Вот ещё скрипец для спама листов контакта!
спамит комментариями к зометкам, пока багу с 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]

А этот топ чем не устраивает?
http://forum.antichat.ru/thread65761.html

Nitrogeniys лучше бы нашол паблик скрипт который бы спамил Вконтакте ( пробивал капчу и поддерживал прокси )

Хорошая идея поищю!

Вот ещё скрипец (Возиожно владельчам пороно сайтов будет полезен!)
Да и так кому скучно
Написан на Perl
Граббер тёток с сайта xuk.ru
#!/usr/bin/perl

use IO::Socket::INET;
use warnings;
use strict;

my $sPage = 1;
my $ePage = 35;

for ($sPage..$ePage) {
open (LOG, '>>history.txt');
my $rate = "http://xuk.ru/tits/".$sPage.".html?sort=rating";
print "Page $sPage\n";
print LOG "$rate\n";
my $page = get($rate);
my @telki = $page =~ /href="(.+?vid-1.html)">/gi;

while (@telki) {
my $telka = shift @telki;
print "$telka\n";
print LOG "\t$telka\n";
my $links = get($telka);
my @fotki = $links =~ /" border="1" bgcolor="#000000" src="(.+?)"/gi;
$telka =~ /\/(.+)\/vid-1.html/i;
my $mmm = $1;
$mmm =~ s/(.*)\///;
system("mkdir $mmm");

while (@fotki) {
my $fotka = shift @fotki;
print "$fotka\n";
print LOG "\t$fotka\n";
(my $file = $fotka) =~ s(^.*/)();
$fotka = get($fotka);
open (FILE, ">$mmm/$file");
binmode FILE;
$fotka =~ m/\n\r\n(.+)/s;
print FILE $1;
close FILE;
}
}
$sPage++;
}

sub get
{
my ($url, $answ) = @_;
$url =~ m/\/\/(.+?)\//i;
my $sock = IO::Socket::INET->new(PeerAddr=>$1,
PeerPort=>80,
Proto=>'tcp') || die 'Cant connect';
print $sock ("GET $url HTTP/1.0\r\n".
"Host: $1\r\n".
"Accept: */*\r\n".
"User-Agent: Perl\r\n".
"Connection: close\r\n\r\n");
while (<$sock>)
{ $answ .= $_; }
close $sock;
return $answ;
}

Удобно что для каждой дамы создаётся личный каталог!

ТС пиши в [.code]

Есть закреплённые темы в этом разделе и для Соц. сетей и с полезными скриптами.
Закрыто!