Perl proxy checker using samair.ru
hi
here it is, perl proxy checker using samair.ru ,
you can supply proxy list in there, max 15 lines manually,
see hints in the code :
code:
----------------------------------------------------------------------------
--
#!/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@xxxxxxxxxxxx
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
A4x8",2,$port,$target)){
my @in;
select(S); $|=1; print $pstr;
while(<S>){ push @in, $_;}
select(STDOUT); close(S); return @in;
}
}
------------------------------------------------------------------------------
practically :
E:\data>proxck-001.pl
#########################################
# 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
#########################################
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 - <font
color="#008000">elite</font> - 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
[~] 201.53.121.30:6588|bad proxy or timeout
[~] 201.31.11.69:6588|bad proxy or timeout
[~] 203.94.89.144:80|bad proxy or timeout
[~] 201.21.222.112:6588|bad proxy or timeout
[~] 211.215.17.73:4480|bad proxy or timeout
[~] 203.94.89.44:80|bad proxy or timeout
[~] 222.165.189.64:80|bad proxy or timeout
[~] 222.165.189.14:80|bad proxy or timeout
[~] 222.16
5.189.77:80|bad proxy or timeout
E:\data>
sorry for bad parsing, any comments ???
./b1ma
iko94.blogspot.com