E:\data>proxck-001.pl
#########################################
# proxck-001.pl - perl proxy list checker
# using samair.ru proxy list checker
# © nov 2006 @ b1ma a.k.a bima_
# for educational purposes only
# GPL v.2
#########################################


Processing: www.samair.ru
[~] 167.206.216.206:6588|bad proxy or timeout
[~] 210.91.51.41:8080|bad proxy or timeout
[~] 200.71.62.100:6588|Static-IP-cr2007162100.cable.net.co - elite - speed: good
[~] 200.204.176.138:6588|bad proxy or timeout
[~] 222.165.189.95:80|bad proxy or timeout
[~] 203.94.89.112:80|bad proxy or timeout

#!/usr/bin/perl
#
# proxck-001.pl - perl proxy list checker
# using samair.ru proxy list checker
# © 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
# © 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;
        }
}