- Código:
#!/usr/bin/perl
use LWP;
if($#ARGV != 1){
print "\n\n[-] Testador de proxy By MMxM\n[-] Modo de uso: $0 <proxy-list> <site>\n\n";
exit;
}
open(a,"<$ARGV[0]");
if($ARGV[1] !~ /^http:\/\//){
$ARGV[1] = "http://".$ARGV[1];
}
print "\n\n[-] Testador de proxy By MMxM\n\n";
while(<a>){
chomp($_);
my $url = $ARGV[1];
my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/5.5 (compatible; MSIE 5.5; Windows NT 5.1)');
$ua->timeout(15);
$ua->proxy( http => "http://$_" );
my $request = HTTP::Request->new('GET');
$request->url($url);
my $response = $ua->request($request);
my $code = $response->code;
if($code == 200){
print "[OK] $_\n";
open(w,">>proxys.txt");
print w "$_\n";
close(w);
}else{
print "[ERROR] $_\n";
}
}
Formato da proxy-list:
- Código:
120.203.215.6:83
122.72.80.106:80
106.3.98.82:83
106.3.98.82:82
118.244.190.5:80
106.3.98.82:81
119.7.221.137:83
211.167.112.17:82
120.203.215.6:82
202.158.104.195:80
122.72.76.130:80
78.85.39.109:3128
119.7.221.137:82
111.161.30.234:80
218.108.85.59:81
111.161.30.237:80
124.240.187.79:80
125.160.244.102:3128
119.7.221.135:82
200.195.178.42:8080
218.108.232.82:80
200.149.232.32:8080
111.161.30.233:80
94.180.114.186:3128
120.203.215.6:80
221.6.15.156:82
221.6.15.157:82
111.161.30.230:80
72.64.146.136:3128
61.49.40.28:8080
111.161.30.224:80
61.55.141.12:80
101.255.60.162:3128
124.240.187.81:80