codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
#!/usr/bin/perl use strict; use threads; use HTTP::Cookies; use LWP::UserAgent; use threads::shared; my $threads = 65; # Количество потоков my $passw = 'password'; # Пароль для входа my $login = 'asdf@qwer.com'; # Логин для входа my $newaddr = 'adadadadad00@post.vk.com'; # Желаемый адрес my $exit = 0; # Выход при условии, что текущий адрес совпадает с выбранным # -------------------------------------------------------- # Новый адрес должен быть подходящим к одному из шаблонов: # -------------------------------------------------------- # ****ГСГСГСЦЦ@post.vk.com # ****СГСГСГЦЦ@post.vk.com # ****ЦЦГСГСГС@post.vk.com # ****ЦЦСГСГСГ@post.vk.com # ГСГСГСГСГСЦЦ@post.vk.com # СГСГСГСГСГЦЦ@post.vk.com # ЦЦСГСГСГСГСГ@post.vk.com # ЦЦГСГСГСГСГС@post.vk.com # -------------------------------------------------------- # "Ц" -- Число # "Г" -- Гласная # "С" -- Согласная # "****" -- Первые 4 буквы доменного имени # -------------------------------------------------------- # msgbox.vk.com # -------------------------------------------------------- my @threads; for(0..$threads) { push @threads => threads->create(\&CheckNow, $_, $passw, $login, $newaddr); } for(@threads) { $_->join(); } sub CheckNow { my $count = shift; my $passw = shift; my $login = shift; my $newaddr = shift; if ($exit eq 1) { exit(); } if ($count <= 9) { $count = "0$count"; } if ($count <= 99) { $count = "0$count"; } my $request = LWP::UserAgent->new('Mozilla/5.0'); my $cookie = HTTP::Cookies->new; $request->cookie_jar($cookie); my $data = $request->get("http://login.vk.com/?act=login&email=$login&pass=$passw&from_host=vk.com"); while($newaddr ne $1) { my $data = $request->get("http://vk.com/settings?act=mobile")->as_string; if ($data =~ /\(\'(.*?)\', this\)/go) { my $data = $request->get("http://vk.com/al_settings.php?act=set_email_post&al=1&hash=$1")->as_string; if ($data =~ /: <b>(.*?)<\/b>/go) { if ($newaddr eq $1) { print "Thread$count: success! New E-mail is $1!\n"; $exit = 1; } else { print "Thread$count: address $1 isn't equal $newaddr..\n"; } } } } }
Private
[
?
]
Run code
Submit