ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
08:58:36 04/12/2020
¿No estas registrado?
Login: Clave:
5 Usuarios en línea: 0 registrados, 5 invitados.
Conéctate y verás los usuarios en línea
Tema: Check-Dirs
    Responder
Todos Los Foros -> Perl / Phyton -> Check-Dirs
Autor Mensaje (Ver Versión para Imprimir)
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
Ver último Post
Check-Dirs

Hi, esta herramienta es muy similar a la anterior de AdminPanel, ya que le colocas un TXT con los directorios posibles y este irá chequeando:


CÓDIGO
#!/usr/bin/perl
##############
# Check-Dirs #
# by s3cure   #
# HSLTeam.com#
# -Illusions #
##############

use LWP::Simple;

print \"\\nCheck-Dirs\\n\";
print \"HSLTeam.com | - Illusions\\nby s3cure\\n\";
print \"\\nTarget: \";
$target=<STDIN>;
print \"Directory list: \";
$dirs=<STDIN>;

open(FILE, \"<$dirs\") || die \"[!> Directory List -Not Found\\n\";
my @dirs=<FILE>;
close(FILE);
foreach my $dirs(@dirs){
$ua = LWP::UserAgent->new;
my $response = $ua->get(\"$target/$dirs\");
if($response->status_line !~ m/^404/){
print(@ok,\"$target/$dirs\");
}
}
print \"No more results\\n\";







salu2.


Creer que todo es genial para luego ver realidad.
10/01/2010 18:20:29 
camellosh
Usuario espontáneo
Sin Imagen

Mensajes: 2
Registrad@:
12/03/2011
Estado: Desconectad@
Ir Arriba
RE: Check-Dirs

amigo podrias explicar un poco mas de tu programa porfavor
01/04/2011 10:05:42 


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

Copyright ForoHack.com