./c0de/perl/proxycheck.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
#!/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 [email protected]
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;
        }
}

Back