SHOW:
|
|
- or go back to the newest paste.
| 1 | #!/usr/bin/perl | |
| 2 | #Gr33tz to Boualem,M-A labz , All Gantengers-crews.org | |
| 3 | #Soon V2 Perfect *.* | |
| 4 | #Tutorial : http://img15.hostingpics.net/pics/635119sub.gif | |
| 5 | ||
| 6 | use HTTP::Request; | |
| 7 | use LWP::UserAgent; | |
| 8 | if($^O =~ /Win/){
| |
| 9 | ||
| 10 | system("cls");
| |
| 11 | system("color a");
| |
| 12 | system("title SubDomain Checker v1");
| |
| 13 | ||
| 14 | }else{
| |
| 15 | ||
| 16 | system("clear");
| |
| 17 | } | |
| 18 | print q{
| |
| 19 | ||
| 20 | *------------------------* | |
| 21 | | SubDomain Checker V1.0 | | |
| 22 | | by CrashBandicot | | |
| 23 | *------------------------* | |
| 24 | | | |
| 25 | | | |
| 26 | +--------------------------+ | |
| 27 | |Special Greetz to Iheb | | |
| 28 | |& all gantengers-crews.org| | |
| 29 | +--------------------------+ | |
| 30 | ||
| 31 | ||
| 32 | }; | |
| 33 | sleep(1); | |
| 34 | ||
| 35 | print "Target (without http://) :"; | |
| 36 | $host = <>; | |
| 37 | chomp($host); | |
| 38 | $zeb = "http://www.ewhois.com/".$host."\/"; | |
| 39 | $fuck = LWP::UserAgent->new(); | |
| 40 | $klawii = $fuck->request(HTTP::Request->new(GET=>$zeb)); | |
| 41 | $ipp = $klawii->content; | |
| 42 | if($ipp =~ m/<span id=\"ip_display\">(.*?)<\/span>/) {
| |
| 43 | ||
| 44 | print "\n [+] Host IP : $1 \n"; | |
| 45 | } | |
| 46 | ||
| 47 | $tbone = LWP::UserAgent->new(); | |
| 48 | $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)');
| |
| 49 | $tembaka = "http://www.pagesinventory.com/search/?s=".$host.""; | |
| 50 | $klawi = $tbone->request(HTTP::Request->new(GET=>$tembaka)); | |
| 51 | $resullt = $klawi->content; | |
| 52 | ||
| 53 | while($resullt =~ m/<td><a href=\"\/domain\/(.*?).html\">/g ) {
| |
| 54 | ||
| 55 | print "\n [*]Subdomain: $1\n"; | |
| 56 | sleep(1); | |
| 57 | open(a, ">>sub.txt"); | |
| 58 | print a "http://$1\n"; | |
| 59 | close(a); | |
| 60 | ||
| 61 | } | |
| 62 | print "\n\nResult in sub.txt\n"; | |
| 63 | ||
| 64 | if($^O =~ /Win/){
| |
| 65 | ||
| 66 | system("start http://forum.gantengers-crews.org/");
| |
| 67 | ||
| 68 | }else{
| |
| 69 | ||
| 70 | system("firefox http://forum.gantengers-crews.org/");
| |
| 71 | } |
