comment
IRC Chat
play_arrow
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
  • 923 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 You are not allowed to view links. Register or Login

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. You are not allowed to view links. Register or Login "\n[+] Target :  $_[0]\n";
  22. infocon(get_ip($_[0]));
  23.  
  24. }
  25.  
  26. sub sintax {
  27. You are not allowed to view links. Register or Login "\n[+] sintax : $0 <web>\n";
  28. }
  29.  
  30. sub head {
  31. You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  32.  
  33.  
  34.  
  35.  @      @@@@    @@@@    @    @@@@@  @@@@@     @  @@@@@
  36.  @     @    @  @    @   @      @    @         @  @    @
  37.  @     @    @  @       @ @     @    @         @  @    @
  38.  @     @    @  @       @ @     @    @         @  @    @
  39.  @     @    @  @      @   @    @    @@@@      @  @@@@@
  40.  @     @    @  @      @   @    @    @         @  @    
  41.  @     @    @  @      @@@@@    @    @         @  @    
  42.  @     @    @  @    @@     @   @    @         @  @    
  43.  @@@@@  @@@@    @@@@ @     @   @    @@@@@     @  @    
  44.  
  45.  
  46.  
  47. );
  48. }
  49.  
  50. sub copyright {
  51. You are not allowed to view links. Register or Login "\n\n== --(C) Doddy Hackman 2011 -- ==\n\n";
  52. You are not allowed to view links. Register or Login(1);
  53. }
  54.  
  55. sub get_ip {
  56. my $get = You are not allowed to view links. Register or Login($_[0]);
  57. You are not allowed to view links. Register or Login inet_ntoa($get);
  58. }
  59.  
  60. sub infocon {
  61. my $target = You are not allowed to view links. Register or Login;
  62. You are not allowed to view links. Register or Login "\n\n[+] Getting info\n\n\n";
  63. $total = "http://www.melissadata.com/lookups/iplocation.asp?ipaddress=$target";
  64. $re = toma($total);
  65.  
  66. if ($re=~/City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  67. You are not allowed to view links. Register or Login "[+] City : $2\n";
  68. } else {
  69. You are not allowed to view links. Register or Login "[-] Not Found\n";
  70. copyright();
  71. }
  72. if ($re=~/Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  73. You are not allowed to view links. Register or Login "[+] Country : $2\n";
  74. }
  75. if ($re=~/State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  76. You are not allowed to view links. Register or Login "[+] State or Region : $2\n";
  77. }
  78. }
  79.  
  80. sub toma {
  81. You are not allowed to view links. Register or Login $nave->get($_[0])->content;
  82. }
  83.  
  84. # ¿ The End ?
  85.  
« Ú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: 3007
Ú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: 1411
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1551
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1097
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1330
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX