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] Whois Online 0.1

  • 0 Respuestas
  • 968 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Abril 23, 2012, 12:18:41 pm »
Debido a problemas con el modulo Net::Whois::Raw me vi obligado a realizar un whois mediante una pagina online.

Código: Perl
  1. #!usr/bin/perl
  2. #Whois Online 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6.  
  7. my $nave = LWP::UserAgent->new;
  8. $nave->agent(
  9. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  10. );
  11. $nave->timeout(5);
  12.  
  13. head();
  14. if ( $ARGV[0] ) {
  15.     No tienes permisos para ver links. Registrate o Entra con tu cuenta whois( $ARGV[0] );
  16. }
  17. else {
  18.     sintax();
  19. }
  20. copyright();
  21.  
  22. sub sintax {
  23.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Sintax : $0 <domain>\n";
  24. }
  25.  
  26. sub head {
  27.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n-- == Whois Online 0.1 == --\n\n";
  28. }
  29.  
  30. sub copyright {
  31.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n(C) Doddy Hackman 2012\n\n";
  32.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  33. }
  34.  
  35. sub whois {
  36.  
  37.     my $ob   = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  38.     my $code = tomar(
  39.         "http://networking.ringofsaturn.com/Tools/whois.php",
  40.         { "domain" => $ob, "submit" => "submit" }
  41.     );
  42.  
  43.     my @chau = ( "&quot;", "&gt;&gt;&gt;", "&lt;&lt;&lt;" );
  44.  
  45.     if ( $code =~ /<pre>(.*?)<\/pre>/sig ) {
  46.         my $resul = $1;
  47.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $resul;
  48.  
  49.         for my $cha (@chau) {
  50.             $resul =~ s/$cha//ig;
  51.         }
  52.  
  53.         if ( $resul =~ /Whois Server Version/ ) {
  54.             No tienes permisos para ver links. Registrate o Entra con tu cuenta $resul;
  55.         }
  56.         else {
  57.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "Not Found";
  58.         }
  59.     }
  60. }
  61.  
  62. sub toma {
  63.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get( $_[0] )->content;
  64. }
  65.  
  66. sub tomar {
  67.     my ( $web, $var ) = @_;
  68.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->post( $web, [ %{$var} ] )->content;
  69. }
  70.  
  71. # The End ?
  72.  
  73.  
« Última modificación: Marzo 14, 2015, 10:20:01 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3242
Ú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: 1517
Ú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: 1668
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1172
Ú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: 1401
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX