Esta t00l es un poco priv8 no muchos la tienen me la pasó un amigo hace un timesito y se las comparto para los que son defacers puedan reportar de manera mas rápida sus ataques...
#!/usr/bin/perl
#####################################
# Zone-H Notify #
#####################################
############
use LWP::UserAgent;
############
system('cls');
system ('title Powered By PrinceofHacking');
############
print " #####################\n ";
print " # Zone-Notify #\n ";
print " # USO #\n ";
print " # [1] Single Deface #\n";
print " # [2] Mass Deface #\n";
print " # [3] Help & About #\n";
print " #####################\n\n ";
$pick=<STDIN>;
if ($pick>3) {
print "Unknown Command\n";
}
if ($pick ==1)
{
print "Mode : Single Deface\n\n";
print "Defacer [Nickname] :\n";
$Def=<STDIN>;
print "Dominio:\n";
$Dom=<STDIN>;
if ($Dom =~ /http:\/\//)
{
$U="http://zone-h.org/notify/single";
$lwp=LWP::UserAgent->new;
$res=$lwp -> post($U,[
'defacer' => $Def,
'domain1' => $Dom,
'hackmode' => '15',
'reason' => '1',
'submit' => 'Send',
]);
if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
print "Result => $1";
}
else
{
print "Error\n";
}
}
else
{
$new="http://" . "$Dom";
$U="http://zone-h.org/notify/single";
$lwp=LWP::UserAgent->new;
$res=$lwp -> post($U,[
'defacer' => $Def,
'domain1' => $new,
'hackmode' => '15',
'reason' => '1',
'submit' => 'Send',
]);
if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
print "Result => $1";
}
else
{
print "Error\n";
}
}
}
#############################################Mass###########################################
if ($pick == 2){
print "Mode : Mass Deface\n\n";
open(site,"owned.txt");
@ARRAY=<site>;
close site;
print "Defacer [Nickname] :\n";
$Def=<STDIN>;
foreach $mass(@ARRAY){
if ($mass !~ /http:/) {
$mass='http://' . $mass;
}
print "$mass\n";
$U="http://zone-h.org/notify/single";
$lwp=LWP::UserAgent->new;
$res=$lwp -> post($U,[
'defacer' => $Def,
'domain1' => $mass,
'hackmode' => '15',
'reason' => '1',
'submit' => 'Send',
]);
if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
print "Result => $1\n\n";
}
else
{
print "Error\n";
}
}
}
#####################About##############
if ($pick ==3)
{
print "Para la opcion [2] crear un texto con las paginas y guardarlo como : owned.txt\n";
print "Example\n";
print "http://link.com\n";
print "http://link2.com\n";
print "http://link3.com\n\n";
}
Saludos,
Dedalo