#!usr/bin/perl
# DH Image Locate 0.3
#(C) Doddy Hackman 2016
use Image::ExifTool;
use Getopt::Long;
use Color::Output;
Color::Output::Init;
GetOptions(
"dump_all=s" => \$dump_all,
"dump_gps_tags=s" => \$dump_gps_tags,
"locate=s" => \$locate
);
head();
if ($dump_all) {
if ( -f $dump_all ) {
printear_titulo("<ul class="bbc_list"><li type="square"> Finding information in : ");[/li][/list]
You are not allowed to view links.
Register or
Login $dump_all. "\n\n"; dump_all($dump_all);
}
else {
printear("[-] File not found\n");
}
}
elsif ($dump_gps_tags) {
if ( -f $dump_gps_tags ) {
printear_titulo("</li><li type="square"> Finding GPS tags in : ");[/li][/list]
You are not allowed to view links.
Register or
Login $dump_gps_tags. "\n\n"; dump_gps_tags_and_locate($dump_gps_tags,"0");
}
else {
printear("[-] File not found\n");
}
}
elsif ($locate) {
if ( -f $locate ) {
printear_titulo("</li><li type="square"> Scanning photo : ");[/li][/list]
You are not allowed to view links.
Register or
Login $locate. "\n\n"; dump_gps_tags_and_locate($locate,"1");
}
else {
printear("[-] File not found\n");
}
} else {
sintax();
}
copyright();
# Functions
sub dump_all {
my $imagen_target = $_[0];
my $datos_imagen = new Image::ExifTool;
my $informacion_imagen = $datos_imagen->ImageInfo($imagen_target);
for my $abriendo_imagen ( $datos_imagen->GetFoundTags("Group0") ) {
my $valor = $informacion_imagen->{$abriendo_imagen};
printear("</li><li type="square"> $abriendo_imagen : ");[/li][/list]
You are not allowed to view links.
Register or
Login $valor. "\n"; }
}
sub dump_gps_tags_and_locate {
my $imagen_target = You are not allowed to view links.
Register or
Login; my $locate = You are not allowed to view links.
Register or
Login;
my $datos_imagen = new Image::ExifTool;
my $informacion_imagen = $datos_imagen->ImageInfo($imagen_target);
my $latitud = $informacion_imagen->{GPSLatitude};
my $longitud = $informacion_imagen->{GPSLongitude};
my $altitud = $informacion_imagen->{GPSAltitude};
my $fecha = $informacion_imagen->{GPSDateTime};
my $posicion_real = $informacion_imagen->{GPSPosition};
my $finder_ready = 0;
if($latitud ne "") {
printear("</li><li type="square"> Latitude : ");[/li][/list]
You are not allowed to view links.
Register or
Login $latitud. "\n"; } else {
printear("[-] Latitude : ");
You are not allowed to view links.
Register or
Login "Not Found". "\n"; }
if($longitud ne "") {
printear("</li><li type="square"> Longitude : ");[/li][/list]
You are not allowed to view links.
Register or
Login $longitud. "\n"; } else {
printear("[-] Longitude : ");
You are not allowed to view links.
Register or
Login "Not Found". "\n"; }
if($latitud ne "") {
printear("</li><li type="square"> Altitude : ");[/li][/list]
You are not allowed to view links.
Register or
Login $altitud. "\n"; } else {
printear("[-] Altitude : ");
You are not allowed to view links.
Register or
Login "Not Found". "\n"; }
if($fecha ne "") {
printear("</li><li type="square"> DateTime : ");[/li][/list]
You are not allowed to view links.
Register or
Login $fecha. "\n"; } else {
printear("[-] DateTime : ");
You are not allowed to view links.
Register or
Login "Not Found". "\n"; }
if($posicion_real ne "") {
printear("</li><li type="square"> Position : ");[/li][/list]
You are not allowed to view links.
Register or
Login $posicion_real. "\n"; $finder_ready = 1;
} else {
printear("[-] Position : ");
You are not allowed to view links.
Register or
Login "Not Found". "\n"; $finder_ready = 0;
}
if($locate eq "1") {
if($finder_ready eq "1") {
my $gps_split = $posicion_real;
$gps_split =~ s/deg//g;
$gps_split =~ s/'//g;
$gps_split =~ s/"//g;
$gps_split =~ s/W//g;
$gps_split =~ s/N,/-/g;
$gps_split =~ s/ / /g;
my $url = "https://www.google.com.ar/maps/search/".$gps_split."/";
printear_titulo("\n[!] Position Located\n\n");
printear("</li><li type="square"> GPS : ");[/li][/list]
You are not allowed to view links.
Register or
Login $gps_split."\n";
printear("\n[?] Open in browser [y,n] : ");
You are not allowed to view links.
Register or
Login(my $rta = <STDIN>); if($rta=~/You are not allowed to view links.
Register or
Login/ig
) { printear_titulo("\n</li><li type="square"> Enjoy the program !\n");[/li][/list]
You are not allowed to view links.
Register or
Login("start firefox \"" . $url."\""); } else {
printear("\n</li><li type="square"> GoogleMaps : ");[/li][/list]
}
} else {
printear_titulo("\n[-] Position GPS not available");
}
}
}
# More Functions
sub printear {
cprint( "\x036" . $_[0] . "\x030" );
}
sub printear_logo {
cprint( "\x037" . $_[0] . "\x030" );
}
sub printear_titulo {
cprint( "\x0310" . $_[0] . "\x030" );
}
sub sintax {
printear("</li><li type="square"> Sintax : ");[/li][/list]
You are not allowed to view links.
Register or
Login "perl $0 <option> <value>\n"; printear("\n</li><li type="square"> Options : \n\n");[/li][/list]
You are not allowed to view links.
Register or
Login "-dump_all <image> : Get all information of a image\n"; You are not allowed to view links.
Register or
Login "-dump_gps <image> : Get all tags GPS of a image\n"; You are not allowed to view links.
Register or
Login "-locate <image> : Locate Image in GoogleMaps\n"; printear("\n</li><li type="square"> Example : ");[/li][/list]
You are not allowed to view links.
Register or
Login "perl dh_image_locate.pl -dump_all test.jpg\n"; copyright();
}
sub head {
printear_logo("\n-- == DH Image Locate 0.3 == --\n\n\n");
}
sub copyright {
printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
}
#The End ?
Similar topics (5)
Septiembre 02, 2011, 09:43:36 pm