Спаммер vkontakte

[Kaimi]

Спаммер для vkontakte (рассылка по друзьям или диапазону, в пм или на стену)

[+] Многопоточность
[+] Ротация сообщений/ссылок
[+] Подстановка имен/ссылок
[+] Рандомизация текста
[+] Поддержка HTTP прокси
[+] Анти-капча (при работе без прокси)
[+] Всякие мелочи

[-] Мало тестировал

Update
[+] Возможность подстановки отдельно имени
[+] Авторизация по кукисам
[+] Возможность отправки по списку id из файла

Скачать:
http://kaimi.ru/wp-content/uploads/2009/03/vk_sender.rar

[a1ex]

Щас потестим...

[mad_xakep]

а где его потестить можно?

[a1ex]

Что значит где?!

[mad_xakep]

упс я думал он на пхп ... все разобарлся спасибо !

[_Spamer_]

Работает но не отображает количество отправленых сообщений

[xxChaoSxx]

тему нада было назвать "смерть барыгам"

[_Spamer_]

Проблема в отправленых сообщениях символы какие то добавляются П"ривет

[d_x]

Проблема в отправленых сообщениях символы какие то добавляются П"ривет
my @subs = qw(12 28 29 30 34) ; # Коды символов рандомизации текста
Сюда можно поставить что угодно. Тогда и рандомизироваться сообщение будет как пожелаешь.

[_Spamer_]

Kaimi а можно добавить спам по списку id с файла
Вид:

234235
235
235235312
56456
755647645
752414
756735
56756756

[eXmasteR]

Хороший спамер! Единственое что не очень хорошо зделано - при подстановки имени подставляется имя ник и фамилия. что уменьшает ефективность рассылки.
Если кому нужно вот в этой версии я попытался исправить, теперь подстанавлеваетса только имя

use strict;
use warnings;
use HTTP::Cookies;
use LWP::UserAgent;
use threads;
use threads::shared;
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
my $afile = './accs.txt' ; # Аккаунты
my $dlmtr = ':' ; # Разделитель
my $tfile = './text.txt' ; # Текст ( <name> - подстановка имен; <link> - подстановка ссылок)
my $lfile = './link.txt' ; # Ссылки (без http://)
my $pfile = './prxy.txt' ; # Прокси ip:port (HTTP) (без прокси - капча при авторизации)
my $pswth = 0 ; # 0 - не использовать прокси; 1 - использовать прокси
my $mmode = 1 ; # 0 - стена; 1 - ПМ
my $smode = 0 ; # 0 - друзья; 1 - диапазон
my $range = '1000000-2000000' ; # Диапазон для второго режима
my $thrnm = 70 ; # Потоки
my $sltm = 4 ; # Задержка
my $key = 'key' ; # Ключ анти-капчи
my @subs = qw(12 28 29 30 34) ; # Коды символов рандомизации текста
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
my @accs = loadf($afile); my $asize = scalar @accs;
my @text = loadf($tfile); my $tsize = scalar @text;
my @link = loadf($lfile); my $lsize = scalar @link;
my @prxy = loadf($pfile); my $psize = scalar @prxy;
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
mkdir 'tmp', 777;
$| = 1;
my @trl = ();
my $start : shared = undef;
my $end = undef;
my $seed : shared = 0;
my $totl : shared = 0;
($start, $end) = split /-/, $range;
my @cookies : shared = ();
$thrnm > $asize ? $thrnm = $asize : ();
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
header();
for(0..$thrnm-1) {$trl[$_] = threads->create(\&sendit, $_);}
for(@trl) { $_->join; }
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub sendit {
my ($ua, $ck) = browser();
while(1) {
my $to = undef;
{lock($seed); $to = $seed; ++$seed;}
if($pswth){until(proxyme($ua)){}}
until(auth($ua, $ck, $to)){{lock($seed); $to = $seed; ++$seed;} sleep 1;}
my $uid = undef; my $ret = undef;
if($smode) {
$start > $end ? return : ();
{lock($start); $uid = $start; ++$start;}
lo("Sending to ".$uid);
$ret = $mmode ? pm($ua, $uid) : wall($ua, $uid);
analyze($ret, $uid, $ck);
sleep $sltm;
}
else {
$seed > $asize ? return : ();
my $frlist = $ua->get('http://vkontakte.ru/friend.php')->content;
while($frlist =~ /\[(\d+), \{/g) {
$uid = $1;
lo("Sending to ".$uid);
$ret = $mmode ? pm($ua, $uid) : wall($ua, $uid);
analyze($ret, $uid);
sleep $sltm;
}
}
}
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub analyze {
my ($ret, $uid, $ck) = @_;
if(!$ret) {
lo(" smth wrong ".$uid);
}
elsif($ret =~ /var page = 0/) {
lo(" smth wrong[Deleted] ".$uid);
}
elsif($ret =~ /Location: search/) {
lo(" smth wrong[Privacy] ".$uid);
}
elsif($ret =~ /email" val/) {
lo(" smth wrong[Auth] ".$uid);
}
elsif($ret =~ /blank\.php\?code=3/) {
lo(" smth wrong[Limit] ".$uid);
}
elsif($ret =~ /blank\.php\?code=2/) {
lo(" smth wrong[Spam] ".$uid);
}
elsif($ret =~ /blank\.php\?code=1/) {
lo(" smth wrong[Privacy] ".$uid);
}
elsif($ret =~ /blank\.php/) {
lo(" smth wrong[Timeout] ".$uid);
}
elsif($ret =~ /Location: profile\.php\?id/) {
lo(" sent ".$uid);
{lock($totl); ++$totl;}
}
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub pm {
my ($ua, $id) = @_;

my $data = $ua->get('http://vkontakte.ru/mail.php?act=write&to='.$id)->content;
$data =~ /secure" value="(.+?)"/; my $secure = $1;
$data =~ /chas" value="(.+?)"/; my $chas = $1;
$data =~ /photo" value="(.+?)"/; my $photo = $1;
$data =~ /profile\.php\?id=(\d+)" >([^\s]+)\ .*<\/a><\/td>/; my $name = $2;
if(defined $secure && defined $chas && defined $photo) {
$data = $ua->post('http://vkontakte.ru/mail.php',
{
secure => $secure,
chas => $chas,
photo => $photo,
to_id => $id,
to_reply => 0,
act => 'sent',
title => '',
message => text($name),
})->content;
return $data;
}
else {
return $data;
}
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub wall {
my ($ua, $id) = @_;
my $data = $ua->get('http://vkontakte.ru/id'.$id)->as_string;
$id = undef;
$data =~ /to_id" value="(\d+)"/; $id = $1;
$data =~ /wall_hash=(.+?)&/; my $hash = $1;
$data =~ /\| (.+?)<\/title>/; my $name = $1;
sleep 1;
if(defined $hash && defined $id) {
$data = $ua->post('http://vkontakte.ru/wall.php',
{
to_id => $id,
act => 'sent',
wall_hash => $hash,
message => text($name),
})->as_string;
return $data;
}
else {
return $data;
}
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub text {
my $name = $_[0];
my $txt = tenc($text[int rand $tsize]);
my $url = lenc($link[int rand $lsize]).' ';
$txt =~ s/<link>/$url/g;
$txt =~ s/<name>/$name/g;
return $txt;
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub tenc {
my ($data) = @_;
my @data = split //, $data;
my @atad = ();
my $skip = 0;
foreach my $char(@data) {
if($char eq '<') {$skip = 6;}
if(!$skip) {
int rand 3 == int rand 2 ? $char .= chr($subs[int rand scalar @subs]) : ();
}
push @atad, $char;
}
return join "", @atad;
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub lenc {
my ($data) = @_;
my @data = split //, $data;
my @atad = ();
my $skip = 0;
foreach my $char(@data) {
if($char eq '.') {$skip = 2;}
if(!$skip) {
int rand 2 == int rand 3 ? $char .= chr(173) : ();
}
else {$char .= chr(173);}
push @atad, $char;
}
return join "", @atad;
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub collect {
my ($ck) = @_;
my $cck = undef;
while($ck =~ /Set-Cookie: (.*?);/g) { $cck .= $1."; "; }
{lock(@cookies); push @cookies, $cck;}
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub auth {
my ($ua, $ck, $seed) = @_;
$ck->clear();
if ($seed < $asize) {
my ($login, $passw) = split /$dlmtr/, $accs[$seed % $asize];
my $res = $ua->post('http://vkontakte.ru/login.php',
{
email => $login,
pass => $passw,
})->as_string;

if($res =~ /csid" value=(.+?)>/)
{
my $sid = $1;
my $dig = captcha($ua, $sid);
$res = $ua->post('http://vkontakte.ru/login.php',
{
email => $login,
pass => $passw,
csid => $sid,
ccode => $dig,
})->as_string;
if($res =~ /remixpass=\S{32};/) {
collect($res);
lo("[+] ".$login);
return 1;
}
else {
lo("[-] ".$login);
splice @accs, $seed % $asize, 1;
$asize = scalar @accs;
return 0;
}
}
elsif($res =~ /remixpass=\S{32};/) {
collect($res);
lo("[+] ".$login);
return 1;
}
else {
lo("[-] ".$login);
splice @accs, $seed % $asize, 1;
$asize = scalar @accs;
return 0;
}
}
else {
lo('Using cached cookies ['.$seed.']');
$ua->default_header('Cookie' => $cookies[$seed % scalar @cookies]);
return 1;
}
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub lo {
print localtime()." @_\n";
print "[total sent: $totl]\r";
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub header {
print <<HERE;
################################################## ##########
#### Vkontakte.ru sender ####
#### v 0.1 by Kaimi ####
#### ICQ 1003875 ####
################################################## ##########
HERE
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub loadf {
open F, "<", $_[0] || die $_[0].'-'.$!;
chomp(my @data = <F>);
close F;
return @data;
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub browser {
my $ua = new LWP::UserAgent;
my $ck = new HTTP::Cookies;
$ua->cookie_jar($ck);
my @array = ();
$ua->requests_redirectable(\@array);
return $ua, $ck;
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub captcha {
my ($ua, $sid) = @_;
my $res = $ua->get('http://vkontakte.ru/captcha.php?sid='.$sid)->content;
my $file = int(rand(1000))."capt.jpg";
open F, '>', './tmp/'. $file || warn $!;
binmode F; print F $res;
close F;

my $answ = recognize($file);
return $answ;
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub recognize {
my $file = $_[0];
my $ua = new LWP::UserAgent;
my $data = undef;

lo('Recognizing captcha...');
TRY:
my $res = $ua->post( "http://vip.anti-captcha.com/in.php",
Content_Type => 'form-data',
Content => [ file => ['./tmp/'. $file, $file, "Content-Type" => "application/octet-stream"],
method => "post",
key => $key,
])->content;

if($res =~ /OK\|(\d+)/) {
my $akey = $1;
do {
$data = $ua->get("http://vip.anti-captcha.com/res.php?key=$key&action=get&id=$akey")->content; sleep 5;
lo(" Waiting response...");
}
while($data =~ /CAPCHA_NOT_READY/);
$data =~ /OK\|(.*)/; $data = $1;
}
elsif($res =~ /ERROR_KEY_DOES_NOT_EXIST/) {lo('Invalid key'); exit(0);}
elsif($res =~ /ERROR_NO_SLOT_AVAILABLE/) {lo('Waiting for slot'); sleep 2; goto TRY;}
elsif($res =~ /ERROR_ZERO_CAPTCHA_FILESIZE/) {lo('Captcha upload error'); sleep 1; goto TRY;}
else {$res =~ /\n\n(.*)/s; lo('Got error: '.$1);}
lo(" Recognized $data");
unlink './tmp/'. $file;
chomp $data;
return $data;
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub proxyme {
my ($ua) = @_;
my $seed = int rand $psize;
my $cp = $prxy[$seed];
$ua->proxy(['http'] => 'http://'.$cp);
my $test = $ua->get('http://r0.ru/')->content;
if($test =~ /Rambler/) {
lo("Using proxy: $cp");
return 1;
}
else {
lo("Bad proxy: $cp");
splice @prxy, $seed, 1;
return 0;
}
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
sub debug {
open F, ">>", "debug.txt";
print F $_[0]."------------------------------\n\n";
close F;
}
#¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦� �¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
#(c)Kaimi

Kaimi подскажи плиз как подправить ошибку которая вылазит при спаме (use of uninitialized value $name in substitution (s///) C:\Documents and Settings\admin\spam\vk.pl line 159)

[StarFire]

респект kaimi хороший спамер !

[Sa1nt^Nook]

D:\>perl D:\pack\send.pl
readline() on closed filehandle F at D:\pack\send.pl line 271.
readline() on closed filehandle F at D:\pack\send.pl line 271.
readline() on closed filehandle F at D:\pack\send.pl line 271.
readline() on closed filehandle F at D:\pack\send.pl line 271.
################################################## ##########
#### Vkontakte.ru sender ####
#### v 0.1 by Kaimi ####
#### ICQ 1003875 ####

В чем может быть проблема?

[*DeViL*]

мб с проксями..

[Kaimi]

В чтении файлов с данными проблема

[Chekep]

блин, нах его в паблик то?....рррррр.....

[mortician]

Объясните пожалуйста, как его запускать???

[BuG_4F]

Объясните пожалуйста, как его запускать???
Началось :(
За спамер, спасибо :)

[dimanp]

Сюда можно поставить что угодно. Тогда и рандомизироваться сообщение будет как пожелаешь.

а не подскажешь как сделать что бы в качестве рандомизации подставлялся Md5 код в конце сообщения? как в твоем спамере)

[mortician]

Началось :(
За спамер, спасибо :)

Так трудно сказать что ли??? Можно в личку

[>.:!FrE!:.<]

Установи для начала Перл:)

[sunnypuppy]

Как сделать многострочное сообщение? В файле \n не поддерживается.

[andrun]

Как сделать многострочное сообщение? В файле \n не поддерживается.

################################################## ###
my $macroS1='<G:\1\macros1.txt';
my $macroS2='<G:\1\macros2.txt';
my $macroS3='<G:\1\macros3.txt';
my $macroS4='<G:\1\macros4.txt';
my $macroS5='<G:\1\macros5.txt';
my $macroS6='<G:\1\macros6.txt';
my $macroS7='<G:\1\macros7.txt';
my $macroS8='<G:\1\macros8.txt';
my $macroS9='<G:\1\macros9.txt';
my $macroS10='<G:\1\macros10.txt';
my $macroS11='<G:\1\macros11.txt';
################################################## ###

my $message=newstr(RandomMacros($macroS1).RandomMacro s($macroS2).RandomMacros($macroS3)."\n".RandomMacros($macroS4).RandomMacros($macroS6).Ran domMacros($macroS7)."\n".RandomMacros($macroS9)).$idid.newstr(RandomMacros ($macroS10));

[le-mon]

а что в файле send.txt прописывать ?

[Kaimi]

Файл используется при рассылке по списку, соотв туда id класть

[DIMON4G]

Когда я проспамил 1 аккаунт для теста этим спаммером, захожу в аккаунт, а там нет этих сообщених в отправленных, что спаммер ещё чистит автоматом после отправки сообщения отправленные спаммером или я просто чё-то не так делаю, если что-то не так, то что?

[I love this game]

DIMON4G, +1! Так же само!

[Kaimi]

Вы настройки на отправку в пм ставили или стоит дефолтная по стенам?

[andrun]

Kaimi кросавчег спс за подсказки ))

[ex3me]

Kaimi, респект.

При отправке в ЛС не выводит total sent (т.е. всегда пишет total sent: 0), но мессаги идут (антикапча + авторизация логин:пасс + рассылка по друзьям). Так же при спаме по ЛС одно сообщение отправляется нормально, а на втором пишет smth wrong (без указания причины [Privacy], [Auth] и т.д.); отсылаются ли такие сообщения или нет - незнаю, не проверял, уж сорри; возможно для решния этой проблемы стоит поставить больше немного задержку?

При отправке на доски (антикапча + авторизация логин:пасс + рассылка по друзьям)) total sent отображается нормально.

[Kaimi]

Перекачай скрипт

[Survior]

Kaimi, большое спасибо

[ChinaTown]

Автор, прости за не скромный вопрос, зачем делать фрисофт данного рода?

[Kaimi]

Автор, прости за не скромный вопрос, зачем делать фрисофт данного рода?

Просто так

[Nuke142]

Kaimi, я на блог твой отписался, что скрипт закрывается через секунду.
Запустил через консоль, вот:
C:\Documents and Settings\xxx>C:\wamp\www\pack\send.pl
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.
################################################## ##########
#### Vkontakte.ru sender ####
#### v 0.1 by Kaimi ####
#### ICQ 1003875 ####
################################################## ##########и закрывается.

настройки у меня такие:
my $atype = 1 ; #Тип авторизации (1 - логин:пароль ; 0 - кукисы)
my $afile = './accs.txt' ; # Аккаунты (или кукисы)
my $dlmtr = ':' ; # Разделитель
my $tfile = './text.txt' ; # Текст
my $lfile = './link.txt' ; # Ссылки (без http://)
my $pfile = './prxy.txt' ; # Прокси ip:port (HTTP) (без прокси капча при авторизации вылазить будет)
my $pswth = 0 ; # 0 - не использовать прокси; 1 - использовать прокси
my $mmode = 0 ; # 0 - стена; 1 - ПМ
my $smode = 0 ; # 0 - друзья; 1 - диапазон; 2 - список из файла
my $slist = './send.txt' ; # Файл для режимы рассылки по списку
my $range = '1000000-2000000' ; # Диапазон для второго режима
my $thrnm = 1 ; # Потоки
my $sltm = 2 ; # Задержка
my $key = 'key' ; # Ключ анти-капчи
my @subs = qw(12 28 29 30 34) ; # Коды символов рандомизации текста
В link.txt ссылка без хттп и ввв.
В accs.txt пара акков логин:пароль
В прокстях пусто.
В text.txt "bla bla bla please welcome <link>" (в качестве примера)

Что не так ?

[Kaimi]

Абсолютный путь к файлам с данными попробуй прописать

[Nuke142]

Прописал, проблема осталась.
Но строка
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304
теперь пишется только один раз.
Думал где-то не прописал все таки, ан нет - в файле поиском не нашел больше "./"

[Kaimi]

Качаешь
http://technet.microsoft.com/en-us/sysinternals/bb896642.aspx
и смотришь к каким файлам скрипт обращается, что то он все таки не может открыть

[Grinya11]

Kaimi, я на блог твой отписался, что скрипт закрывается через секунду.
Запустил через консоль, вот:
[code]C:\Documents and Settings\xxx>C:\wamp\www\pack\send.pl
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.
readline() on closed filehandle F at C:\wamp\www\pack\send.pl line 304.

Что не так ?

perl какой?

[Nuke142]

Разобрался, в одном из путей все же была ошибка с моей стороны,
".C:\WampServer\blabla"
Перед C точку не убрал...
Скрипт работает. Прикольно что ссылки целиковые получаются, правдо в конце "тире" не смотрится. Нельзя ли вместо него сделать пробел, возможно даже "бесконечный" пробел который получается с помощью ALT+0160 (цифрами на нумпаде)

[Nuke142]

И еще пара вопросов.
1)
Sun Mar 8 15:06:31 2009 Sending to 23503624
Sun Mar 8 15:06:32 2009 sent 23503624
Sun Mar 8 15:06:34 2009 Sending to 10569514
Sun Mar 8 15:06:36 2009 smth wrong 10569514
Sun Mar 8 15:06:38 2009 Sending to 14442596
Sun Mar 8 15:06:39 2009 sent 14442596
Sun Mar 8 15:06:41 2009 Sending to 24127607
Sun Mar 8 15:06:43 2009 smth wrong 24127607
что есть "smth wrong" ? капча срабатывает или еще чтото ?

2) Проксю только одну вставлять можно ? Будет чередование отсылки сообщений - то через проксю, то с реального ипа ?

[Kaimi]

капча срабатывает или еще чтото ?

Скорее всего контакт на страницу авторизации кидает


Будет чередование отсылки сообщений - то через проксю, то с реального ипа

Нет

[Nuke142]

Wed Mar 11 02:52:32 2009 sent 22937168
Wed Mar 11 02:52:37 2009 Sending to 25773833
Use of uninitialized value $_[0] in split at C:\wamp\www\VKspam_perl\send.pl lin
e 172.
Wed Mar 11 02:52:38 2009 sent 25773833
Wed Mar 11 02:52:43 2009 Sending to 24501927
Use of uninitialized value $_[0] in split at C:\wamp\www\VKspam_perl\send.pl lin
e 172.
Wed Mar 11 02:52:44 2009 sent 24501927
Wed Mar 11 02:52:49 2009 Sending to 25210469
Use of uninitialized value $_[0] in split at C:\wamp\www\VKspam_perl\send.pl lin
e 172.
Wed Mar 11 02:52:51 2009 sent 25210469
Wed Mar 11 02:52:56 2009 Sending to 22153209
Use of uninitialized value $_[0] in split at C:\wamp\www\VKspam_perl\send.pl lin
e 172.
Чего ему не нравится ?
всего 28 акков, по 7 потоков с задержкой 5.
По друзьям, в пм, без прокси, авторизация типа логин:пароль

[amendron]

Имя не распознаёт у юзеов, видимо сменили формат страницы

[Chekep]

Сейчас все спамеры будут ругаться, дядя Пашка что-то опять натворил... :)

[Xtezy]

Будут ругаться все спамеры кто у барыг брал за бесценок. А те кто непосредственно у кодеров брал за приличные деньги получат свои обновления за символическую плату)))
А это радует. )))

[PaLaTen4IK]

да кстати, я вчера днем попробовал, <name> работало. потом вечером запустил, и имена уже не добавлялись, но спам шел нормально.

[123456789]

вроди так вылечил
это $data =~ /profile\.php\?id=(\d+)" >(.+?)<\/a>/; my $name = $2; заменил на
это $data =~ /id(\d+)'>(.+?)<\/a>/; my $name = $2;

[Alius999]

Господа, подскажите пожалуйста, правильно ли я понял и поправьте меня если что то не так:
text.txt - прописываем собственно текст сообщения;
prxy.txt - вбиваем список прокси серверов для анонимности;
send.txt - список id пользователей;
accs.txt - аккаунт пользователя от которого будет рассылаться спам в виде логин:пароль;
а вот link.txt и stat.txt необязательно заполнять или что в них нужно вбить?

[B1NGO]

софт давно сдох

[stepashka_]

софт давно сдох
ты отстал от жизни)

[DarkSilence]

все работает=)

[Alius999]

сдох или работает, если он всё таки пашет, то ответьте если кто может на мой первоначальный вопрос?
DarkSilence, а ты когда последний раз его тестил?

[Hidd1401]

подскажите из за чего может выскакивать ошибка
Err while sending pic to 1553342 [loc1] [thread 1]
появилась пару дней назад при отсылки граффити на стенку через скрипт кайми.
Использую последнюю версию скрипта.

[Alius999]

а что ещё и новая версия есть??? а хде её достать подскажешь?

[GOODa]

а как его запускать что не разберусь

[good.god]

Perl интерпетратор скачай:)

[kowkin]

Ребят, кто юзает сейчас спамер Кайми? Норм работает?
У меня больше половины в неотпрапвленные по стенам кидает.
У кого как?

Потоков 70, задержка 6.
Хотя в ручную на акки захожу, вроде на всех друзьях месаги на стенах есть.

http://s51.radikal.ru/i132/1002/fd/75acbcc3a559.jpg

[toffy]

Ребят, кто юзает сейчас спамер Кайми? Норм работает?
У меня больше половины в неотпрапвленные по стенам кидает.
У кого как?

Потоков 70, задержка 6.
Хотя в ручную на акки захожу, вроде на всех друзьях месаги на стенах есть.

http://s51.radikal.ru/i132/1002/fd/75acbcc3a559.jpg
у меня капчу жрёт жёстко очень!
Как снизить её?

[cyber_xz]

Капчу щас жрет любой спамер жестко,не только этот

[kowkin]

При спаме стен на 437 линии появляется ошибка:

$text =~ s/<<(\w+)>>/$shash{$1}/g;

опять с хешем что-то?