ลิงก์ผู้สนับสนุน

วันอังคารที่ 20 ธันวาคม พ.ศ. 2554

[Perl] Search free anonymous proxy


#[Perl] Search free anonymous proxy
#Pastebin : http://pastebin.com/eqTWiNTz


#For : หาพร๊อกซี่ไว้ใช้งานฟรีๆละครับ แต่ลิสต์พร๊อกซี่ที่ได้ ก็ยังใช้ไม่ 100% เลย TT แต่ก็ยังดีว้า

use LWP::UserAgent;
$agent=LWP::UserAgent->new;
$agent->agent('Mozilla/8.0');
$agent->max_redirect(0);
$agent->timeout(5);

$content=$agent->get('http://www.proxylists.net/http.txt')->content;
print 'Checking http://www.proxylists.net/http.txt...';
print "\n";
$content=~s/\r//g;
open FILE,">proxylists.net_http.txt";
print FILE $content;
close FILE;

$content=$agent->get('http://www.proxylists.net/http_highanon.txt')->content;
print 'Checking http://www.proxylists.net/http_highanon.txt...';
print "\n";
$content=~s/\r//g;
open FILE,">proxylists.net_http_highanon.txt";
print FILE $content;
close FILE;

open PROXY,"proxylists.net_http.txt";
@proxy=;
close PROXY;

open PROXY,"proxylists.net_http_highanon.txt";
push(@proxy,);
close PROXY;

print 'Found all proxy... ',scalar(@proxy),"\n\n";;

foreach $z (@proxy) {
chomp($z);
($ip,$port)=split(/:/,$z);
$agent->proxy(['http'], 'http://'.$z.'/');
$content=$agent->get('http://www.opkwin.com/whatismyip.php')->content;
if ($content=~/^500/) {
print "$z Noop !!!\n";
}
elsif ($content=~/$ip/) {
print "$z Is OK...\n";
open(LOG,">>proxylists.net_available.txt");
print LOG "$z\n";
close(LOG);
}
else {
print "$z ERROR : $content\n";
}
}

#Search free proxy !!
#http://comfreedom.blogspot.com

ไม่มีความคิดเห็น: