Version mejorada de un programa para buscar proxies de forma online para despues verificar el estado de cada uno.

El codigo

#!usr/bin/perl
#Proxy Tester 0.5
#Coded By Doddy H
 
use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
 
while (1) {
    head();
    print "\n[+] Option : ";
    chomp( my $op = <stdin> );
 
    if ( $op eq "1" ) {
        print "\n\n[+] File : ";
        chomp( my $file = <stdin> );
        if ( -f $file ) {
            print "\n[+] Opening file ...\n\n";
            open( FILE, $file );
            my @words = <FILE>;
            close FILE;
            my @proxies = repes(@words);
            print "[+] Proxies Found : " . int(@proxies) . "\n";
            print "\n[+] Testing ....\n\n";
            my $cont = "0";
 
            for (@proxies) {
                if ( testnow($_) ) {
                    $cont++;
                    print "\a";    #BEEP
                }
            }
            print "\n[+] Proxies Found : " . $cont . "\n";
            print "\n\n[+] Finished\n\n";
            <stdin>;
        }
        else {
            print "\n\n[-] File not found\n";
            copyright();
        }
    }
 
    if ( $op eq "2" ) {
        print "\n\n[+] Getting proxies ...\n\n";
 
        my @uno    = getproxys();
        my @dos    = getxroxy();
        my @tres   = proxyip();
        my @cuatro = proxylist();
        my @cinco  = proxies();     #big list
 
        my @total = ( @uno, @dos, @tres, @cuatro, @cinco );
 
        print "[+] Proxies Found : " . int(@total) . "\n";
        print "\n[+] Testing .....\n\n";
 
        my $cont = "0";
        for (@total) {
            if ( testnow($_) ) {
                $cont++;
                print "\a";         #BEEP
            }
        }
 
        print "\n[+] Proxies Found : " . $cont . "\n";
        print "\n\n[+] Finished\n\n";
        <stdin>;
    }
 
    if ( $op eq "3" ) {
        copyright();
    }
 
}
copyright();
 
sub testnow {
 
    my $ver = shift;
 
    my $pro;
    my $host;
    my $port;
    my $country;
    my $save;
 
    my $test_proxy = LWP::UserAgent->new();
    $test_proxy->timeout(5);
    $test_proxy->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
    );
 
    if ( $ver =~ /(.*):(.*)/ ) {
        ( $host, $port, $country ) = ( $1, $2, "Unknown" );
        $save = $host . ":" . $port;
    }
 
    if ( $ver =~ /(.*):(.*):(.*)/ ) {
        ( $host, $port, $country ) = ( $1, $2, $3 );
        $save = $host . ":" . $port . ":" . $country;
    }
 
    my $pro = $host . ":" . $port;
 
    $test_proxy->proxy( "http", "http://" . $pro );
    my $code = $test_proxy->get("http://www.whatismyip.com/")->content;
 
    if ( $code =~ /Your IP Address Is/ ) {
        print "[+] IP : $host\n";
        print "[+] Port : $port\n";
        print "[+] Country : $country\n\n";
        savefile( "proxy-founds.txt", $save );
        return true;
    }
}
 
sub getproxys {
 
    my @founds;
    my @volver;
 
    for my $num ( 1 .. 5 ) {
        my $code = toma(
"http://www.proxys.com.ar/index.php?act=list&port=&type=&country=&page=$num"
        );
 
        while ( $code =~
/<tr class="cells" onmouseover="this.className='cells2'" onmouseout="this.className='cells'">(.*?)<\/tr>/sig
          )
        {
            my $porcion = $1;
            chomp $porcion;
 
            if ( my @total = $porcion =~ m{<\s*td\s*>\s*(.*?)\s*</\s*td}mig ) {
                push( @founds, $total[1] . ":" . $total[2] . ":" . $total[4] );
            }
        }
    }
 
    my @volver = repes(@founds);
    return @volver;
 
}
 
sub getxroxy {
 
    my @founds_final;
    my @founds;
 
    for my $num ( 0 .. 26 ) {
 
        open( FILE, ">>proxy.txt" );
 
        my $code = toma(
"http://www.xroxy.com/proxylist.php?port=&type=&ssl=&country=&latency=1000&reliability=&sort=reliability&desc=true&pnum=$num"
        );
 
        while ( $code =~
            /proxy:name=XROXY proxy&host=(.*?)&port=(.*?)&notes=(.*?)&/sig )
        {
            my ( $ip, $port, $pais ) = ( $1, $2, $3 );
            $port =~ s/&isSocks=true//sig;
            $port =~ s/&socksversion=4a//sig;
            push( @founds, "$ip:$port:$pais" );
            print FILE "$ip:$port\n";
        }
    }
 
    my @founds_final = repes(@founds);
    return @founds_final;
 
}
 
sub proxies {
 
    my @founds_final;
    my @founds;
 
    for my $i ( 1 .. 10 ) {
 
        my $code =
          toma( "http://proxies.my-proxy.com/proxy-list-" . $i . ".html" );
 
        my @found = $code =~ m/(\d{1,3}[.]\d{1,3}[.]\d{1,3}[.]\d{1,3}:\d+)/g;
 
        for (@found) {
            push( @founds, "$_:Unknown" );
        }
 
    }
 
    my @founds_final = repes(@founds);
    return @founds_final;
 
}
 
sub proxyip {
 
    my @founds_final;
    my @founds;
 
    my $code = toma("http://proxy-ip-list.com/free-usa-proxy-ip.html");
 
    if ( $code =~ /<tbody class="table_body">(.*?)<\/table>/sig ) {
        my $codedos = $1;
 
        while ( $codedos =~
/<tr><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><\/tr>/mig
          )
        {
            my ( $ip, $pais ) = ( $1, $5 );
            push( @founds, "$ip:$pais" );
        }
    }
 
    my @founds_final = repes(@founds);
    return @founds_final;
 
}
 
sub proxylist {
 
    my @founds_final;
    my @founds;
 
    my $code = toma("http://www.proxylist.net/");
 
    while ( $code =~
/<tr><td><a href="(.*?)">(.*?)<\/a><\/td><td><a href="(.*?)">(.*?)<\/a><\/td>/mig
      )
    {
        my ( $ip, $pais ) = ( $2, $4 );
        push( @founds, "$ip:$pais" );
    }
 
    my @founds_final = repes(@founds);
    return @founds_final;
 
}
 
sub head {
    print qq(
 
 
 @@@@@                        @@@@@                        
 @    @                         @               @          
 @    @                         @               @          
 @    @ @@  @@@  @  @ @  @      @     @@@   @@  @@  @@@  @@
 @@@@@  @  @   @ @  @ @  @      @    @   @ @  @ @  @   @ @ 
 @      @  @   @  @@  @  @      @    @@@@@  @   @  @@@@@ @ 
 @      @  @   @  @@  @  @      @    @       @  @  @     @ 
 @      @  @   @ @  @  @@       @    @   @ @  @ @  @   @ @ 
 @      @   @@@  @  @  @        @     @@@   @@   @  @@@  @ 
                       @                                   
                     @@                                    
 
 
[++] Options 
 
[+] 1 : Load wordlist
[+] 2 : Check Online
[+] 3 : Exit
 
);
 
}
 
sub copyright {
    print "\n\n(C) Doddy Hackman 2012\n\n";
    <stdin>;
    exit(1);
}
 
sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}
 
sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
#The End ?