-
Notifications
You must be signed in to change notification settings - Fork 6
/
dns_ip_resolver_all_sites.pl
99 lines (89 loc) · 2.33 KB
/
dns_ip_resolver_all_sites.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
#!/usr/bin/perl
#From TeaM ECF
#little Tools
#Greets To all member Team-ECF
#contact : [email protected]
use HTTP::Request;
use LWP::UserAgent;
if($^O =~ /Win/){
system("cls");
system("color a");
system("title Reverse Domain Resolver By : TeaM ECF");
}else{
system("clear");
}
print q{
|--------------------|
| DNS IP Resolver |
| Coded By : TeaM ECF|
|--------------------|
};
print "\n[*]Would You Like To Use A Proxy? (y/n) (yes/no) :";
my $chose = <>;
chomp($chose);
if(lc($chose) eq 'y') {
sleep (3);
print "\n\n [+]Put Proxy (ex: 127.0.0.1:80) :";
my $proxy = <>;
chomp($proxy);
print "\n\n[*]Enter Website URL or IP (Website URL without http://) :";
my $host = <>;
chomp($host);
my $file = "";
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");
$ua->proxy('http', 'http://'.$proxy.'');
my $zz = $ua->post('http://domains.yougetsignal.com/domains.php',
{
remoteAddress => $host,
}
);
my $resulta = $zz->content;
while ($resulta =~ m/\[([^\]]*)\]/g)
{
$zeb = $1;
$zeb =~ m/\"(.*?)\", \"?\"/g;
open(a, ">>log.txt");
print a "http://$1/\n";
close(a);
}
if($resulta =~ /\"domainCount\":\"(.*?)\"/) {
sleep(2);
print "\n [*]Total IPs Resolved: $1\n";
}
if($resulta =~ /\"remoteIpAddress\":\"(.*?)\"/) {
sleep(1);
print "\n [*]IP Resolved >: $1\n";
}
print "\n[+]All IPs Reversed.\n";
}
if(lc($chose) eq 'n') {
print "\nPut Host or IP (host without http://) :";
my $host = <>;
chomp($host);
my $file = "log.txt";
my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5');
my $zz = $ua->post('http://domains.yougetsignal.com/domains.php',
{
remoteAddress => $host,
}
);
my $resulta = $zz->content;
while ($resulta =~ m/\[([^\]]*)\]/g)
{
$zeb = $1;
$zeb =~ m/\"(.*?)\", \"?\"/g;
open(a, ">>log.txt");
print a "http://$1/\n";
close(a);
}
if($resulta =~ /\"domainCount\":\"(.*?)\"/) {
sleep(2);
print "\n [*]Total IPs Resolved: $1\n";
}
if($resulta =~ /\"remoteIpAddress\":\"(.*?)\"/) {
sleep(1);
print "\n [*]IP Resolved > $1\n";
}
print "\n[+]All IPs Reversed.\n";
}