send
Grupo de Telegram
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
  • 880 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • 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: 2854
Ú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: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 970
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

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