[Perl] LocateIP

  • 0 Respuestas
  • 1345 Vistas

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

Desconectado BigBear

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

[Perl] LocateIP

  • 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<ul class="bbc_list"><li type="square"> Target :  $_[0]\n";[/li][/list]
  22. infocon(get_ip($_[0]));
  23.  
  24. }
  25.  
  26. sub sintax {
  27. print "\n</li><li type="square"> sintax : $0 <web>\n";[/li][/list]
  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</li><li type="square"> Getting info\n\n\n";[/li][/list]
  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 "</li><li type="square"> City : $2\n";[/li][/list]
  67. } else {
  68. print "[-] Not Found\n";
  69. copyright();
  70. }
  71. if ($re=~/Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  72. print "</li><li type="square"> Country : $2\n";[/li][/list]
  73. }
  74. if ($re=~/State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  75. print "</li><li type="square"> State or Region : $2\n";[/li][/list]
  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 »

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 5331
Ú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: 3474
Ú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: 4374
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 2599
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear