Скрипт для спама групп Контакта!

Тема в разделе "Социальные сети", создана пользователем a1eX28, 12 июн 2008.

Статус темы:
Закрыта.
Модераторы: arman29
  1. a1eX28

    a1eX28 Создатель

    Регистр.:
    27 апр 2008
    Сообщения:
    29
    Симпатии:
    12
    Писали мне под заказ, выкладываю теперь тут:
    Сохраняете как .pl файл.
    Список групп должен быть в файле list.txt (на каждой строке - по одному полному адресу на группу)



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

    my $gruplist = 'list.txt'; #файл с ссылками на группы
    my $message = 'Сообщение';
    my $mail = 'мыло@мыло.ру';
    my $pass = 'пароль';

    open (F, '<'.$gruplist) || die 'Cant open grup list!';
    my @list = <F>;
    chomp @list;
    close F;

    my $ua = LWP::UserAgent->new(max_redirect => 0);
    my $cookies = HTTP::Cookies->new();
    $ua->cookie_jar($cookies);

    my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->status_line;
    die '[-] Bad password or login!' unless $req =~ /302 Found/;

    my $i=0;
    foreach my $target (@list) {
    $ua->max_size(undef);
    $req = $ua->get($target)->as_string;
    my ($wallhash) = $req =~ /[name="wall_hash" value="|wall_hash=]([a-f0-9]{32})/;
    my ($mid) = $req =~ /name="to_id" value="(g\d+)"/;
    print "[+] $wallhash $mid $target\n";
    $ua->max_size(0);
    $req = $ua->post('http://vkontakte.ru/wall.php?act=get10&wall_hash='.$wallhash.'&wpage=100000', [
    seed => $message.($i%2 == 1 ? ' ' : ''),
    fpage => 1,
    mid => $mid,
    n => 3 ]);
    #print $req->as_string;
    $i++;
    sleep 4
    }

     
    gunzi, a-graff, S-Bond и ещё 1-му нравится это.
  2. avorosh

    avorosh

    Регистр.:
    15 мар 2008
    Сообщения:
    290
    Симпатии:
    70
    Куда вставлять этот код?
     
  3. duncan

    duncan батяр з личакова

    Регистр.:
    10 апр 2007
    Сообщения:
    1.596
    Симпатии:
    441
    похоже на вопрос из анекдота... :)
    "куда, куда? в ..."

    если я правильно понимаю -- просто нужно запустить этот файл с сервака....
     
  4. a1eX28

    a1eX28 Создатель

    Регистр.:
    27 апр 2008
    Сообщения:
    29
    Симпатии:
    12
    как куда, это перл код))
    вставь его в блокнот, сохрани например как spam.pl и запускай хоть у себя на машине (нужно чтобы был установлен active perl)
     
  5. Trespasser

    Trespasser Создатель

    Регистр.:
    2 авг 2007
    Сообщения:
    18
    Симпатии:
    2
    А какой интерпретатор посоветуете использовать под винду?
     
  6. Flllik

    Flllik

    Заблокирован
    Регистр.:
    23 янв 2008
    Сообщения:
    236
    Симпатии:
    21
    active perl

    Добавлено через 10 минут
    а текст со спамом куда писать?
    скритпт работает проверил ток с вообщении у меня вот что высвечивается
    ?4??4??4??4??5??4??4??4??1?
    куда текст пихать ? =)
     
  7. a1eX28

    a1eX28 Создатель

    Регистр.:
    27 апр 2008
    Сообщения:
    29
    Симпатии:
    12
    В теле скрипта есть - my $message = 'Сообщение';
    Туда))
    Если непонятное что-то высвечивается - наверное что-то с кодировкой.. попробуй разные
     
  8. Flllik

    Flllik

    Заблокирован
    Регистр.:
    23 янв 2008
    Сообщения:
    236
    Симпатии:
    21
    круто всё работает )))
    ток вот где групп насобирать =)
     
  9. Levitt

    Levitt

    Регистр.:
    20 май 2008
    Сообщения:
    358
    Симпатии:
    36
    http://linkaudit.com.ua/download/LinkGraber.rar

    грабит ссылки с страницы
     
  10. foxaxxa

    foxaxxa Создатель

    Регистр.:
    2 июн 2008
    Сообщения:
    12
    Симпатии:
    0
    О_О спасибо!

    А на php можно спамера сделать?
     
Статус темы:
Закрыта.