Hacking and more...
HaCkinG CulT
|
Lista Forumurilor Pe Tematici
|
Hacking and more... | Reguli | Inregistrare | Login
POZE HACKING AND MORE...
Nu sunteti logat.
|
Nou pe simpatie:
Profil celestynne
 | Femeie
22 ani
Bucuresti
cauta Barbat
28 - 40 ani |
|
|
Napuhsenko
Junior+
Inregistrat: acum 17 ani
Postari: 35
|
|
Does some one have the perl scrip that connect on the irc like a bot ans scan for vulnarable sites?
|
|
| pus acum 17 ani |
|
Dynamyc
Elite Member
 Din: de peste tot
Inregistrat: acum 18 ani
Postari: 836
|
|
Code:
#!/usr/bin/perl -w
#
# Remote File Inclusion scanner created by Ironfist
# This will check a directory (& subdirectories) for php scripts, containing an inclusion.
# New in version 2: Code improved, you can set the amount of subdirs to scan, results considered critical displayed in red,
# comments containing inclusion code displayed in grey, all errors filtered out, result file looks way nicer ^_^
#
$subdirstoscan = 20;
$resultfile = "results.html"; #Dont forget to add .htm or .html
if(-e "$resultfile"){
unlink("$resultfile");
}
open(DAT,">>$resultfile") || die("Cannot Open File");
print DAT "<html><head><title>Iron's Remote File Inclusion Scanner -> Results</title></head><body><table border=1><td><b>WHERE</b></td><td><b>Code</b></td><tr>";
close(DAT);
print "Directory to read? ";
$input = <stdin>;
chop ($input);
$dir = "/*";
$deep = 0;
while($deep != $subdirstoscan){
@files = <$input$dir>;
foreach $file (@files) {
if(-f $file){
print "Checking: " .$file . "n";
open(MYINPUTFILE, "$file");
while(<MYINPUTFILE>)
{
my($line) = $_;
chomp($line);
if(($line =~ m/include_once $/i) || ($line =~ m/require_once $/i) || ($line =~ m/include_once($/i) || ($line =~ m/require_once($/i) || ($line =~ m/require $/i) || ($line =~ m/require($/i) || ($line =~ m/require $/i) || ($line =~ m/include $/i) || ($line =~ m/include($/i))
{
if(($line =~ /$_GET/) || ($line =~ /$_POST/) || ($line =~ /$_REQUEST/)){ #This could be critical
open(DAT,">>$resultfile") || die("Cannot Open File");
print DAT "<td>$file</td><td><b><font color=red>$line</b></font></td><tr>";
close(DAT);
} elsif($line =~ /^///){ #This is just a comment, but display it anyway Smile
open(DAT,">>$resultfile") || die("Cannot Open File");
print DAT "<td>$file</td><td><font color=grey>$line</font></td><tr>";
close(DAT);
}
else {
open(DAT,">>$resultfile") || die("Cannot Open File");
print DAT "<td>$file</td><td>$line</td><tr>";
close(DAT);
}
}
}
}
}
$deep++;
$dir .= "/*";
}
open(DAT,">>$resultfile") || die("Cannot Open File");
print DAT "</table><br><center>©Ironfist</center></body></html>";
close(DAT);
print "Done! Check $resultfile for the found inclusions!"; |
Try this
Modificat de Dynamyc (acum 17 ani)
_______________________________________
|
|
| pus acum 17 ani |
|
|
Napuhsenko
Junior+
Inregistrat: acum 17 ani
Postari: 35
|
|
|
| pus acum 17 ani |
|
byjunior
Elite Member
 Din: Your PC
Inregistrat: acum 18 ani
Postari: 651
|
|
salvezi nume.pl intri un start - run - cmd - cd locatia - nume.pl
_______________________________________
Tv online
|
|
| pus acum 17 ani |
|
|
djin
Membru nou
Inregistrat: acum 17 ani
Postari: 4
|
|
am facut tot ce ai zis byjunior da daca ii dau ce zici tu imi deschide txtu
|
|
| pus acum 17 ani |
|
byjunior
Elite Member
Din: Your PC
Inregistrat: acum 18 ani
Postari: 651
|
|
trebuie sa ai active perl pe care il iei de Aici
exploitul ala din cate am vazut are niste erori 
_______________________________________
Tv online
|
|
| pus acum 17 ani |
|
|
djin
Membru nou
Inregistrat: acum 17 ani
Postari: 4
|
|
erori??? pai daca are erori.... poate are cineva unu fara erori
|
|
| pus acum 17 ani |
|
