#!/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>/) { 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/