SubDomain Scanner

hae hae kampanggg :v

di postingan ini gue pen ngeshare perl script buat scan subdomain :v biasanya buat depeser yang nyerah ngadepin domain utama wkwkw

oke langsung aja ;*

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

███╗    ███████╗██╗     ██████╗ ███████╗██████╗ ███████╗ ██████╗ ██████╗ ██████╗ ███████╗    ███╗
██╔╝    ██╔════╝██║     ██╔══██╗██╔════╝██╔══██╗██╔════╝██╔════╝██╔═████╗██╔══██╗██╔════╝    ╚██║
██║     █████╗  ██║     ██║  ██║█████╗  ██████╔╝███████╗██║     ██║██╔██║██║  ██║█████╗       ██║
██║     ██╔══╝  ██║     ██║  ██║██╔══╝  ██╔══██╗╚════██║██║     ████╔╝██║██║  ██║██╔══╝       ██║
███╗    ███████╗███████╗██████╔╝███████╗██║  ██║███████║╚██████╗╚██████╔╝██████╔╝███████╗    ███║
╚══╝    ╚══════╝╚══════╝╚═════╝ ╚══════╝╚═╝  ╚═╝╚══════╝ ╚═════╝ ╚═════╝ ╚═════╝ ╚══════╝    ╚══╝

                                    [ C0de's Famiglia ]
};
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//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 https://eldersc0de-family.blogspot.co.id");
}

mau liat tampilannya ? kampang kalian liat" , ini script bukan daleman !1!1!1

DI save ke ekstensi/format .pl ya koplok, kaya scan.pl gitu -_-

oke karna w gans , oke tq tq tq. w kasih liat 

gimana ? bagus ga ? bilang jelek w tiban u kampang :v

oke sekian dari gua si cogan M45KL dari goa runtuh tq tq tq

------------------------------------------------------------------------

Big Thank's To : Gantengers Crew - 7OURNEY - ./Lunatic0de - And All Eldersc0de Members <3

Thanks to dua konyol : Sec7ion - F0xbase

------------------------------------------------------------------------

jan lupa share ya kampang ^_^ 

Share this post