BHG IP Reverse

Hi Guys
BHG IP Reverse You Can Get All Sites [domins] on a server ;)
in html out put just in seconds


#!/usr/bin/perl
#BHG IP Reverse Version Beta
#You Can Have Your Own Hash Code With Your Own Key :)
#Code By G3n3Rall
#Black Hat Group Security Center
#www.black-hg.org   ||| www.black-hg.org/cc/
#We Are : Net.Edit0r , A.Crox , 3H34N
#Am!n , tHe.K!ll3r ArYaIeIrAn , G3n3Rall
#Mr.XHat , NoL1m1t , Dj.TiniVini , 4ut0n0m0us ..
###################################
###################################
###################################
#Tnx To M.R.S.CO For www.Sh3ller.org
###################################
###################################
###################################
use LWP::Simple;
#######################
$MrSco="http://www.sh3ller.org/host.php?host=";
#######################
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\n\t\t Black Hat Group Security Center";
print "\n\t\t IP Reverse";
print "\n\t\t use : Http://www.sh3ller.org";
print "\n\n\t\t Usage : Expamle: www.site.com";
print "\n\t\t Please Enter Target:";
$Target=<STDIN>;
chomp($Target);
print "\n\n\n\t\t Please Wait ....";
print "\n";
$Reverse=$MrSco.$Target;
$Get=get $Reverse;
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
$Code="<html><p><font size=\"6\" color=\"Blue\"><center>BLACK HAT GROUP SECURITY CENTER </center><center>Site: wwww.Black-hg.org</center><center>Forum: www.Black-hg.org/cc/</center><center>IP Reverse</center></font></p></html>";
$G3n3Rall="<html><p><font size=\"8\" color=\"Red\"><center>G3n3Rall</center></p></html>";
$Save=$Code.$Get.$G3n3Rall;
open (Saved, '>>Reverse.html');
print Saved "$Save";
close (Saved);

print "\n\n\t\t\t Saved in Reverse.html";
print "\n\n\nwww.Black-hg.org \nExit\n";
##############################################################


Black Hat group Security Center
Site: www.Black-hg.org
Forum: www.Black-hg.org/cc/
By G3n3Rall
AnTi.SecurityBoy@Gmail.com

Bye.