ANTICHAT - Прога для сбора/проверки прокси?

ANTICHAT (https://forum.antichat.io/index.php)

- PHP (https://forum.antichat.io/forumdisplay.php?f=37)

- - Прога для сбора/проверки прокси? (https://forum.antichat.io/showthread.php?t=32564)

Прога для сбора/проверки прокси?

сбор из бесплатных листов в вебе или сканирование и запись в файл, все прямо на сервере, перл или пхп, есть такая?

я с сайта беру на халяву педко,но чаще покапаю.....,а проверка прокси....блин,непомню название,если чуть позже только напишу,щас уходить надо....

Proxy Checker v7xx
Forum proxy leecher , proxy grabber - сбор

Парсер проксей с сайта http://proxy4free.com
https://forum.antichat.ru/showpost.php?p=266307&postcount=30

p.s. 555 пост ;)

спасибо! а есть такая же многопоточная? на серверах ведь стоит ограничение времени выполения скрипта вроде, если на проверку каждого прокси 5-10 сек, все не успеет проверить...

PHP код:


		
			


#!/usr/bin/perl 



use LWP::Simple; 

use LWP::UserAgent; 



if(@ARGV < 1) { usage(); } 

$url = @ARGV[0]; 

$url_c = "http://ya.ru"; 

greap(); 

filter(); 



sub greap(){ 

$content = get $url ; 

die "Couldn't get $url" unless defined $content; 

while ($content =~ 

/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5})/g){ 

push @proxy,$1;}; 

}; 



sub filter(){ 

$n=0; 

for $a (@proxy){ 

my $ua = LWP::UserAgent->new; 

$ua->proxy(http=>"http://$a/"); 

$ua->timeout(5); 

$response = $ua->get("$url_c" ); 

open(PROXY,">>good_proxy.txt"); 

if ($response->is_success) { 

print (PROXY "$a\n"); 

} 

else { $n++; } 

} 

close(PROXY); 

print "bad proxys: $n\n"; 

} 



sub usage(){ 



print 

"=========================================================================\r\n"; 

print "proxy graber by pop_korn \r\n"; 

print " Usage: proxy.pl <url>\r\n"; 

print " <url> - url a site with proxy for example: \r\n"; 

print "http://www.samair.ru/proxy/, 

http://proxy.asechka.ru/index.php?page=proxylist \r\n"; 

print 

"==========================================================================\r\n"; 

exit(); 

}