Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] LocateIP

  • 0 Respuestas
  • 1018 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Agosto 19, 2011, 11:29:14 pm »
Un simple script para conocer el origen de una ip mediante el servicio de una web

La web que uso para el script es http://www.melissadata.com/lookups/iplocation.asp

Código: Perl
  1. #!usr/bin/perl
  2. #LocateIP (C) Doddy Hackman 2011
  3.  
  4. use LWP::UserAgent;
  5. use IO::Socket;
  6.  
  7. my $nave = LWP::UserAgent->new();
  8. $nave->timeout(5);
  9. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  10.  
  11.  
  12. head();
  13. if($ARGV[0]) {
  14. start($ARGV[0]);
  15. } else {
  16. sintax();
  17. }
  18. copyright();
  19.  
  20. sub start {
  21. print "\n[+] Target :  $_[0]\n";
  22. infocon(get_ip($_[0]));
  23.  
  24. }
  25.  
  26. sub sintax {
  27. print "\n[+] sintax : $0 <web>\n";
  28. }
  29.  
  30. sub head {
  31.  
  32.  
  33.  
  34.  @      @@@@    @@@@    @    @@@@@  @@@@@     @  @@@@@
  35.  @     @    @  @    @   @      @    @         @  @    @
  36.  @     @    @  @       @ @     @    @         @  @    @
  37.  @     @    @  @       @ @     @    @         @  @    @
  38.  @     @    @  @      @   @    @    @@@@      @  @@@@@
  39.  @     @    @  @      @   @    @    @         @  @    
  40.  @     @    @  @      @@@@@    @    @         @  @    
  41.  @     @    @  @    @@     @   @    @         @  @    
  42.  @@@@@  @@@@    @@@@ @     @   @    @@@@@     @  @    
  43.  
  44.  
  45.  
  46. );
  47. }
  48.  
  49. sub copyright {
  50. print "\n\n== --(C) Doddy Hackman 2011 -- ==\n\n";
  51. exit(1);
  52. }
  53.  
  54. sub get_ip {
  55. my $get = gethostbyname($_[0]);
  56. return inet_ntoa($get);
  57. }
  58.  
  59. sub infocon {
  60. my $target = shift;
  61. print "\n\n[+] Getting info\n\n\n";
  62. $total = "http://www.melissadata.com/lookups/iplocation.asp?ipaddress=$target";
  63. $re = toma($total);
  64.  
  65. if ($re=~/City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  66. print "[+] City : $2\n";
  67. } else {
  68. print "[-] Not Found\n";
  69. copyright();
  70. }
  71. if ($re=~/Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  72. print "[+] Country : $2\n";
  73. }
  74. if ($re=~/State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  75. print "[+] State or Region : $2\n";
  76. }
  77. }
  78.  
  79. sub toma {
  80. return $nave->get($_[0])->content;
  81. }
  82.  
  83. # ¿ The End ?
  84.  
« Última modificación: Marzo 14, 2015, 10:15:52 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3458
Ú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: 1711
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 744
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1420
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

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