#!/usr/bin/perl
#
# proxck-001.pl - perl proxy list checker 
# using samair.ru proxy list checker
# (c) nov 2006 @ b1ma a.k.a bima_
# for educational purposes only
# GPL v.2
#########################################

use Socket;
use strict;


my $pamerlah=<<END
#########################################
# proxck-001.pl - perl proxy list checker 
# using samair.ru proxy list checker
# (c) nov 2006 @ b1ma a.k.a bima_
# for educational purposes only
# GPL v.2
#########################################
END
;

#Support Proxy Server, change host and port as u wish 
my $port=80;
#my $host     = '127.0.0.1';

my $host = "www.samair.ru";
my $target = inet_aton($host);

my @waktu = localtime(time);
my $log = 'proxy_'.$waktu[2].'-'.$waktu[1].'-'.$waktu[0].'.txt';

print "$pamerlah\n";
printlog ("\nProcessing: $host\n");

my $post     = 
### drop your list here
### max 15 lines or u'll get nothing
### format IP:PORT
'send=
167.206.216.206:6588
210.91.51.41:8080
200.71.62.100:6588
200.204.176.138:6588
222.165.189.95:80
203.94.89.112:80
201.53.121.30:6588
201.31.11.69:6588
203.94.89.144:80
201.21.222.112:6588
211.215.17.73:4480
203.94.89.44:80
222.165.189.64:80
222.165.189.14:80
222.165.189.77:80
'.
'&transparent="ON"'.
'&showproxy="ON"'.
'&resolve="ON"'.
'&speed="ON"'.
'&go="check"';

my $loggedin = 0;
my $sock  = "POST /proxy-checker/index.php HTTP/1.1\r\n";
$sock .= "Host: $host\r\n";
$sock .= "Connection: close\r\n";
$sock .= "Content-Type: application/x-www-form-urlencoded\n";
$sock .= "Referer: $host\n";
$sock .= "Content-length: ".length($post)."\r\n\r\n";
$sock .= "$post";
$sock .= "\r\n\r\n";

my @hasil=sendraw($sock); 

foreach(@hasil) {
 #print($_);
 if(/(\d{1,3}(\.\d{1,3}){3}\:(\d+)) - (.+?)\<br\>/) 
    { printlog("[~] $1|$4\n"); } 
}

sub printlog {
 print @_[0]; 
 open(lo,">>$log");
 print lo @_[0];
 close(lo);
 return;
}

# ------------- Sendraw - thanx RFP rfp@wiretrip.net
sub sendraw {   # this saves the whole transaction anyway
        my ($pstr)=@_;

        socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||0) ||
                die("Socket problems\n");
                
        if(connect(S,pack "SnA4x8",2,$port,$target)){
                my @in;
                select(S);      $|=1;   print $pstr;
                while(<S>){ push @in, $_;}
                select(STDOUT); close(S); return @in;
        }
}