ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
09:11:36 16/09/2019
¿No estas registrado?
Login: Clave:
3 Usuarios en línea: 0 registrados, 3 invitados.
Conéctate y verás los usuarios en línea
Tema: [BETA] ProxyCheck-tk {perl}
    Responder
Todos Los Foros -> Perl / Phyton -> [BETA] ProxyCheck-tk {perl}
Autor Mensaje (Ver Versión para Imprimir)
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
[BETA] ProxyCheck-tk {perl}

Hi hi, un proxycheck (checkea proxy por una lista en txt).

Chequear:

[code>
#!/usr/bin/perl
# HSLTeam.com!
# ProxyCheck-tk

# LIB
use TK;
use LWP::Simple qw(get);

my $mainwin = MainWindow->new(title=>"ProxyCheck-tk @ HSLTeam");
$mainwin->minsize( qw(250 500));

my $ven= $mainwin->Frame(-bd => 1)->pack;
$ven->Label(-text=>"Proxy-List:")->pack(-side=>'left',-expand=>1);
my $proxylist = $ven>Entry(-width => 30)->pack(-side=>'left',-expand=>1);

my $ven1 = $mainwin->Frame(-bd => 1)->pack;
$boton = $ven1->Button(-text=>"Check",-command => \&check)->pack(-side=>'bottom');
my $scroll = $ven1->Scrollbar();
$scroll->pack(-side => 'left', -fill => 'y');
my $ch3ck = $ven1->Text(-width => 30, -height => 50)->pack(-side=>'bottom');
$scroll->configure(-command => [$ch3ck>);

sub check
{
$proxys = $proxylist->get();
open (LIST,"$proxys")
while (<LIST>) {
chomp;
if (get("$proxys) ) {
$ch3ck->insert("$_ Ok!\ n");
} else {
$ch3ck->insert( "$_ OFF!\n");
}
close(LIST);
$ch3ck->insert("End.");
}
MainLoop;
[/code>

Ahora les digo; el c0de no lo he probado ni terminado, lo hice en mi colegio con ganas de c0dear y ps, ahí quedó, si no funciona o tiene errores (ya que ahora estoy instalando todo nuevamente) avisen y trato de reparar.


salu2.


Creer que todo es genial para luego ver realidad.
07/01/2010 08:05:09 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com