facebook facebook twitter rss

Subdomain Checker v1.0

Author: CrashBandicot , Published: 28-06-2014
	

#!/usr/bin/perl
#Gr33tz to Boualem,M-A labz , All Gantengers-crews.org
#Soon V2 Perfect *.*
#Tutorial : http://img15.hostingpics.net/pics/635119sub.gif

use HTTP::Request;
use LWP::UserAgent;
if($^O =~ /Win/){

system("cls");
system("color a");
system("title SubDomain Checker v1");

}else{

system("clear");
}
print q{

*------------------------*
| SubDomain Checker V1.0 |
| by CrashBandicot |
*------------------------*
|
|
+--------------------------+
|Special Greetz to Iheb |
|& all gantengers-crews.org|
+--------------------------+


};
sleep(1);

print "Target (without http://) :";
$host = <>;
chomp($host);
$zeb = "http://www.ewhois.com/".$host."\/";
$fuck = LWP::UserAgent->new();
$klawii = $fuck->request(HTTP::Request->new(GET=>$zeb));
$ipp = $klawii->content;
if($ipp =~ m/<span id=\"ip_display\">(.*?)<\/span>/) {

print "\n [+] Host IP : $1 \n";
}

$tbone = LWP::UserAgent->new();
$tbone->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; de-LI; rv:1.9.0.16) Gecko/2009120208 Firefox/3.0.16 (.NET CLR 3.5.30729)');
$tembaka = "http://www.pagesinventory.com/search/?s=".$host."";
$klawi = $tbone->request(HTTP::Request->new(GET=>$tembaka));
$resullt = $klawi->content;

while($resullt =~ m/<td><a href=\"\/domain\/(.*?).html\">/g ) {

print "\n [*]Subdomain: $1\n";
sleep(1);
open(a, ">>sub.txt");
print a "http://$1\n";
close(a);

}
print "\n\nResult in sub.txt\n";

if($^O =~ /Win/){

system("start http://forum.gantengers-crews.org/");

}else{

system("firefox http://forum.gantengers-crews.org/");
}

Like us on Facebook :