R00tw0rm-Tool-React0r-v1.0-/Module1.pl at master · fantome195/R00tw0rm-Tool-React0r-v1.0- · GitHub

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
#!/usr/bin/perl
# Ip Geolocation
#By : Lucifer
# Demo : https://www.youtube.com/watch?v=0Eq3d10LQ8c
#
# API documentation - http://ip-api.com/docs/
# you can see you external ip using this Bash script :
# read COUNTRY IP <<< $(wget -qO- http://ip-api.com/line/?fields=countryCode,query); echo $IP $COUNTRY
# Now let's start :

use Socket;
use Term::ANSIColor;
use WWW::Mechanize;
use JSON;


print color 'bold bright_yellow';

print q{


 ____       __      __   __                   __
/\  _`\   /'__`\  /'__`\/\ \__              /'__`\
\ \ \L\ \/\ \/\ \/\ \/\ \ \ ,_\  __  __  __/\ \/\ \  _ __    ___ ___
 \ \ ,  /\ \ \ \ \ \ \ \ \ \ \/ /\ \/\ \/\ \ \ \ \ \/\`'__\/' __` __`\
  \ \ \\ \\ \ \_\ \ \ \_\ \ \ \_\ \ \_/ \_/ \ \ \_\ \ \ \/ /\ \/\ \/\ \
   \ \_\ \_\ \____/\ \____/\ \__\\ \___x___/'\ \____/\ \_\ \ \_\ \_\ \_\
    \/_/\/ /\/___/  \/___/  \/__/ \/__//__/   \/___/  \/_/  \/_/\/_/\/_/

#
# This was written for educational purpose and pentest only.
# Use it at your own risk. Author will be not responsible for any damage!
# Coder      : kyxrec0n
# Version    : 0.1
# Description: Ip Geolocation Tool
# Tested on  : linux(all)
#


};

print color 'reset';
@iphost=$ARGV[0] || die "Usage : ./Iplocation.pl [host] [ip] [domain] \n\nEx:  ./Iplocation.pl  www.google.com \n     ./Iplocation.pl  216.58.210.206\n \n";
my @ip = inet_ntoa(scalar gethostbyname("@iphost")or die "IP or Host invalid!\n");
my @hn = scalar gethostbyaddr(inet_aton(@ip),AF_INET);

my $GET=WWW::Mechanize->new();
    $GET->get("http://ip-api.com/json/@ip"); # JSON API OF IP-API.COM
    my $json = $GET->content();


my $info = decode_json($json);
# Json API Response :
# A successful request will return, by default, the following:
#{
#    "status": "success",
#    "country": "COUNTRY",
#    "countryCode": "COUNTRY CODE",
#    "region": "REGION CODE",
#    "regionName": "REGION NAME",
#    "city": "CITY",
#    "zip": "ZIP CODE",
#    "lat": LATITUDE,
#    "lon": LONGITUDE,
#    "timezone": "TIME ZONE",
#    "isp": "ISP NAME",
#    "org": "ORGANIZATION NAME",
#    "as": "AS NUMBER / NAME",
#   "query": "IP ADDRESS USED FOR QUERY"
# }
# INFOS OF JSON API ...

print "  [!] IP: ", $info->{'query'}, "\n";
print "------------------------------------\n";
print "  (+) ORG: ", $info->{'as'}, "\n";
print "  (+) ISP: ", $info->{'isp'}, "\n";
print "  (+) Country: ", $info->{'country'}," - ", $info->{'countryCode'}, "\n";
print "  (+] City: ", $info->{'city'}, "\n";
print "  (+) Region: ", $info->{'regionName'}, " - " , $info->{'region'}, "\n";
print "  (+) Geo: ", "Lat: " , $info->{'lat'}, " - Long: ", $info->{'lon'}, "\n";
print "  (+) Geo: ", "Latitude: " , $info->{'lat'}, " - Long: ", $info->{'lat'}, "\n";
print "  (+) Time: ", "timezone: " , $info->{'timezone'}, " - Long: ", $info->{'timezone'}, "\n";
print "  (+) As number/name: ", "as: " , $info->{'as'}, " - Long: ", $info->{'as'}, "\n";
print "  (+) ORG: ", $info->{'as'}, "\n";
print "  (+) Country code: ", $info->{'countryCode'}, "\n";
print "  (+) Status: ", $info->{'status'}, "\n";
print "\n";
# EOF