KChekcer Proxy 0.1 by OzX

[OzX]

Un Script para verificar los Proxy que estan en Proxylist.new-bytes.net

Es algo lento, pero lo bueno que te verifica toda la Lista y te la Guarda en una Nueva.
A mi me funciona para lo que quiero hacer, pero si alguien quiere mejorar el tiempo de respuesta , si esta bueno o malo los proxy adelante... En la version 0.1 Provare on Socket.

use LWP::UserAgent;
use HTTP::Request;
use LWP::Simple;
system ("cls");
syswrite STDOUT,"

• KCheker Proxy 0.1\n\n";

mirror("
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion", "proxy.txt");
open(PROXY,"proxy.txt");
 @proxy=<PROXY>;
close (PROXY);
$url="
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion";
$cantidad=1;
foreach $i ( @proxy){

open (CODE,">>PROXY_LIST.TXT");
chomp ($i);
$pr = LWP::UserAgent->new;
$pr->agent(" Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14");
$pr->max_size(10);
$pr->timeout(20);
$pr->proxy(["http"], "http://".$i."/");
$req = HTTP::Request->new(GET => $url);
$response = $pr->request($req);
if ($response->is_success){
$cantidad++;
syswrite STDOUT, "[OK]\t$i\n";
print CODE "$i\n";
}
}

close (CODE);