3. [Perl] DH Image Locate 0.3
Páginas: [1]   Ir Abajo
« anterior próximo »

[Perl] DH Image Locate 0.3

  • 2 Respuestas
  • 4652 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] DH Image Locate 0.3

  • en: Marzo 31, 2017, 04:25:50 pm
Un script en Perl para localizar la coordenadas GPS de cualquier imagen que contenga este tag.

Si quieren el programa les redirige a google maps con las coordenadas encontradas.

El codigo :

Código: Perl
  1. #!usr/bin/perl
  2. # DH Image Locate 0.3
  3. #(C) Doddy Hackman 2016
  4.  
  5. use Image::ExifTool;
  6. use Getopt::Long;
  7. use Color::Output;
  8. Color::Output::Init;
  9.  
  10. GetOptions(
  11.     "dump_all=s"   => \$dump_all,
  12.     "dump_gps_tags=s"  => \$dump_gps_tags,
  13.     "locate=s"   => \$locate
  14. );
  15.  
  16. head();
  17.  
  18. if ($dump_all) {
  19.  
  20.     if ( -f $dump_all ) {
  21.         printear_titulo("<ul class="bbc_list"><li type="square"> Finding information in : ");[/li][/list]
  22.         print $dump_all. "\n\n";
  23.         dump_all($dump_all);
  24.     }
  25.     else {
  26.         printear("[-] File not found\n");
  27.     }
  28.  
  29. }
  30. elsif ($dump_gps_tags) {
  31.  
  32.     if ( -f $dump_gps_tags ) {
  33.         printear_titulo("</li><li type="square"> Finding GPS tags in : ");[/li][/list]
  34.         print $dump_gps_tags. "\n\n";
  35.         dump_gps_tags_and_locate($dump_gps_tags,"0");
  36.     }
  37.     else {
  38.         printear("[-] File not found\n");
  39.     }
  40. }
  41. elsif ($locate) {
  42.  
  43.     if ( -f $locate ) {
  44.         printear_titulo("</li><li type="square"> Scanning photo : ");[/li][/list]
  45.         print $locate. "\n\n";
  46.         dump_gps_tags_and_locate($locate,"1");
  47.     }
  48.     else {
  49.         printear("[-] File not found\n");
  50.     }
  51.  
  52. } else {
  53.     sintax();
  54. }
  55.  
  56. copyright();
  57.  
  58. # Functions
  59.  
  60. sub dump_all {
  61.  
  62.     my $imagen_target = $_[0];
  63.  
  64.     my $datos_imagen       = new Image::ExifTool;
  65.     my $informacion_imagen = $datos_imagen->ImageInfo($imagen_target);
  66.  
  67.     for my $abriendo_imagen ( $datos_imagen->GetFoundTags("Group0") ) {
  68.         my $valor = $informacion_imagen->{$abriendo_imagen};
  69.         printear("</li><li type="square"> $abriendo_imagen : ");[/li][/list]
  70.         print $valor. "\n";
  71.     }
  72.  
  73. }
  74.  
  75. sub dump_gps_tags_and_locate {
  76.    
  77.    my $imagen_target = shift;
  78.    my $locate = shift;
  79.  
  80.    my $datos_imagen       = new Image::ExifTool;
  81.    my $informacion_imagen = $datos_imagen->ImageInfo($imagen_target);
  82.  
  83.    my $latitud = $informacion_imagen->{GPSLatitude};
  84.    my $longitud = $informacion_imagen->{GPSLongitude};
  85.    my $altitud = $informacion_imagen->{GPSAltitude};
  86.    my $fecha = $informacion_imagen->{GPSDateTime};
  87.    my $posicion_real = $informacion_imagen->{GPSPosition};
  88.    
  89.    my $finder_ready = 0;
  90.    
  91.    
  92.    if($latitud ne "") {
  93.       printear("</li><li type="square"> Latitude : ");[/li][/list]
  94.       print $latitud. "\n";
  95.    } else {
  96.       printear("[-] Latitude : ");
  97.       print "Not Found". "\n";  
  98.    }
  99.    
  100.    if($longitud ne "") {
  101.       printear("</li><li type="square"> Longitude : ");[/li][/list]
  102.       print $longitud. "\n";
  103.    } else {
  104.       printear("[-] Longitude : ");
  105.       print "Not Found". "\n";
  106.    }
  107.    
  108.     if($latitud ne "") {
  109.       printear("</li><li type="square"> Altitude : ");[/li][/list]
  110.       print $altitud. "\n";
  111.    } else {
  112.       printear("[-] Altitude : ");
  113.       print "Not Found". "\n";
  114.    }
  115.    
  116.     if($fecha ne "") {
  117.       printear("</li><li type="square"> DateTime : ");[/li][/list]
  118.       print $fecha. "\n";
  119.    } else {
  120.       printear("[-] DateTime : ");
  121.       print "Not Found". "\n";
  122.    }
  123.    
  124.     if($posicion_real ne "") {
  125.       printear("</li><li type="square"> Position : ");[/li][/list]
  126.       print $posicion_real. "\n";
  127.       $finder_ready = 1;
  128.    } else {
  129.       printear("[-] Position : ");
  130.       print "Not Found". "\n";
  131.       $finder_ready = 0;
  132.    }
  133.    
  134.    if($locate eq "1") {
  135.       if($finder_ready eq "1") {
  136.          my $gps_split = $posicion_real;
  137.          $gps_split =~ s/deg//g;
  138.          $gps_split =~ s/'//g;
  139.          $gps_split =~ s/"//g;
  140.          $gps_split =~ s/W//g;
  141.          $gps_split =~ s/N,/-/g;
  142.          $gps_split =~ s/  / /g;
  143.                  
  144.          my $url = "https://www.google.com.ar/maps/search/".$gps_split."/";
  145.          
  146.          printear_titulo("\n[!] Position Located\n\n");
  147.          printear("</li><li type="square"> GPS : ");[/li][/list]
  148.          print $gps_split."\n";
  149.          
  150.          printear("\n[?] Open in browser [y,n] : ");
  151.          chomp(my $rta = <STDIN>);
  152.          if($rta=~/y/ig) {
  153.             printear_titulo("\n</li><li type="square"> Enjoy the program !\n");[/li][/list]
  154.             system("start firefox \"" . $url."\"");
  155.          } else {
  156.             printear("\n</li><li type="square"> GoogleMaps : ");[/li][/list]
  157.             print $url. "\n";
  158.          }
  159.          
  160.       } else {
  161.          printear_titulo("\n[-] Position GPS not available");
  162.       }
  163.    }
  164.    
  165. }
  166.  
  167. # More Functions
  168.  
  169. sub printear {
  170.     cprint( "\x036" . $_[0] . "\x030" );
  171. }
  172.  
  173. sub printear_logo {
  174.     cprint( "\x037" . $_[0] . "\x030" );
  175. }
  176.  
  177. sub printear_titulo {
  178.     cprint( "\x0310" . $_[0] . "\x030" );
  179. }
  180.  
  181. sub sintax {
  182.  
  183.     printear("</li><li type="square"> Sintax : ");[/li][/list]
  184.     print "perl $0 <option> <value>\n";
  185.     printear("\n</li><li type="square"> Options : \n\n");[/li][/list]
  186.     print "-dump_all <image> : Get all information of a image\n";
  187.     print "-dump_gps <image> : Get all tags GPS of a image\n";
  188.     print "-locate <image> : Locate Image in GoogleMaps\n";
  189.     printear("\n</li><li type="square"> Example : ");[/li][/list]
  190.     print "perl dh_image_locate.pl -dump_all test.jpg\n";
  191.     copyright();
  192. }
  193.  
  194. sub head {
  195.     printear_logo("\n-- == DH Image Locate 0.3 == --\n\n\n");
  196. }
  197.  
  198. sub copyright {
  199.     printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
  200.     exit(1);
  201. }
  202.  
  203. #The End ?
  204.  

Un video con ejemplos de uso :



Si quieren bajar el programa lo pueden hacer de aca :

SourceForge.
Github.

Eso seria todo.
En línea

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5704
  • Actividad:
    23.33%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Re:[Perl] DH Image Locate 0.3

  • en: Marzo 31, 2017, 04:29:27 pm
Brillante como siempre @Doddy! muchas gracias por el código!

Saludos!
ANTRAX
En línea

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

Re:[Perl] DH Image Locate 0.3

  • en: Marzo 31, 2017, 06:06:36 pm
Ok, gracias por comentar Antrax.

Saludos.
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 5327 		Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

 Respuestas: 1
Vistas: 3472 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

 Respuestas: 0
Vistas: 2444 		Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

 Respuestas: 0
Vistas: 2598 		Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

 Respuestas: 0
Vistas: 2606 		Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear