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
  • 969 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 No tienes permisos para ver links. Registrate o Entra con tu cuenta

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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Target :  $_[0]\n";
  22. infocon(get_ip($_[0]));
  23.  
  24. }
  25.  
  26. sub sintax {
  27. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] sintax : $0 <web>\n";
  28. }
  29.  
  30. sub head {
  31. No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  32.  
  33.  
  34.  
  35.  @      @@@@    @@@@    @    @@@@@  @@@@@     @  @@@@@
  36.  @     @    @  @    @   @      @    @         @  @    @
  37.  @     @    @  @       @ @     @    @         @  @    @
  38.  @     @    @  @       @ @     @    @         @  @    @
  39.  @     @    @  @      @   @    @    @@@@      @  @@@@@
  40.  @     @    @  @      @   @    @    @         @  @    
  41.  @     @    @  @      @@@@@    @    @         @  @    
  42.  @     @    @  @    @@     @   @    @         @  @    
  43.  @@@@@  @@@@    @@@@ @     @   @    @@@@@     @  @    
  44.  
  45.  
  46.  
  47. );
  48. }
  49.  
  50. sub copyright {
  51. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n== --(C) Doddy Hackman 2011 -- ==\n\n";
  52. No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  53. }
  54.  
  55. sub get_ip {
  56. my $get = No tienes permisos para ver links. Registrate o Entra con tu cuenta($_[0]);
  57. No tienes permisos para ver links. Registrate o Entra con tu cuenta inet_ntoa($get);
  58. }
  59.  
  60. sub infocon {
  61. my $target = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  62. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] City : $2\n";
  68. } else {
  69. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Not Found\n";
  70. copyright();
  71. }
  72. if ($re=~/Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  73. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Country : $2\n";
  74. }
  75. if ($re=~/State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/) {
  76. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] State or Region : $2\n";
  77. }
  78. }
  79.  
  80. sub toma {
  81. No tienes permisos para ver links. Registrate o Entra con tu cuenta $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: 3237
Ú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: 1515
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1140
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

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

Iniciado por BigBear

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