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 | } |