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

  • 0 Respuestas
  • 926 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:19:23 pm »
Version Tk de un cliente whois que funciona mediante una pagina online.

Una imagen


El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Whois Online 0.1
  3. #Version Tk
  4. #Coded By Doddy H
  5.  
  6. use Tk;
  7. use Tk::ROText;
  8. use LWP::UserAgent;
  9.  
  10. my $nave = LWP::UserAgent->new;
  11. $nave->agent(
  12. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  13. );
  14. $nave->timeout(5);
  15.  
  16. if ( $^O eq 'MSWin32' ) {
  17.     use Win32::Console;
  18.     Win32::Console::Free();
  19. }
  20.  
  21. my $color_fondo = "black";
  22. my $color_texto = "white";
  23.  
  24. my $newas =
  25.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  26. $newas->geometry("400x300+50+50");
  27. $newas->title("Whois Online 0.1 || Coded By Doddy H");
  28. $newas->resizable( 0, 0 );
  29.  
  30. $newas->Label(
  31.     -text       => "Domain : ",
  32.     -font       => "Impact2",
  33.     -background => $color_fondo,
  34.     -foreground => $color_texto
  35. )->place( -x => "10", -You are not allowed to view links. Register or Login => "10" );
  36. my $dom = $newas->Entry(
  37.     -width      => "30",
  38.     -background => $color_fondo,
  39.     -foreground => $color_texto
  40. )->place( -x => "85", -You are not allowed to view links. Register or Login => "13" );
  41.  
  42. my $console = $newas->Scrolled(
  43.     "ROText",
  44.     -scrollbars => "e",
  45.     -width      => 36,
  46.     -height     => 15,
  47.     -background => $color_fondo,
  48.     -foreground => $color_texto
  49. )->place( -x => 15, -You are not allowed to view links. Register or Login => 50 );
  50.  
  51. $newas->Button(
  52.     -text             => "Search",
  53.     -command          => \&buscar,
  54.     -width            => "10",
  55.     -background       => $color_fondo,
  56.     -foreground       => $color_texto,
  57.     -activebackground => $color_texto
  58. )->place( -x => 310, -You are not allowed to view links. Register or Login => "50" );
  59. $newas->Button(
  60.     -text             => "Clean",
  61.     -command          => \&limpiar,
  62.     -width            => "10",
  63.     -background       => $color_fondo,
  64.     -foreground       => $color_texto,
  65.     -activebackground => $color_texto
  66. )->place( -x => 310, -You are not allowed to view links. Register or Login => "80" );
  67. $newas->Button(
  68.     -text             => "Exit",
  69.     -command          => \&salir,
  70.     -width            => "10",
  71.     -background       => $color_fondo,
  72.     -foreground       => $color_texto,
  73.     -activebackground => $color_texto
  74. )->place( -x => 310, -You are not allowed to view links. Register or Login => "110" );
  75.  
  76. MainLoop;
  77.  
  78. sub buscar {
  79.     $console->You are not allowed to view links. Register or Login( "0.1", "end" );
  80.     my $target = $dom->get;
  81.     $newas->update;
  82.     $console->insert( "end", whois($target) );
  83.     $newas->update;
  84. }
  85.  
  86. sub limpiar {
  87.     $console->You are not allowed to view links. Register or Login( "0.1", "end" );
  88.     $dom->You are not allowed to view links. Register or Login( "0.1", "end" );
  89. }
  90.  
  91. sub salir {
  92.     You are not allowed to view links. Register or Login 1;
  93. }
  94.  
  95. sub whois {
  96.  
  97.     my $ob   = You are not allowed to view links. Register or Login;
  98.     my $code = tomar(
  99.         "http://networking.ringofsaturn.com/Tools/whois.php",
  100.         { "domain" => $ob, "submit" => "submit" }
  101.     );
  102.  
  103.     my @chau = ( """, ">>>", "<<<" );
  104.  
  105.     if ( $code =~ /<pre>(.*?)<\/pre>/sig ) {
  106.         my $resul = $1;
  107.         You are not allowed to view links. Register or Login $resul;
  108.  
  109.         for my $cha (@chau) {
  110.             $resul =~ s/$cha//ig;
  111.         }
  112.  
  113.         if ( $resul =~ /Whois Server Version/ ) {
  114.             You are not allowed to view links. Register or Login $resul;
  115.         }
  116.         else {
  117.             You are not allowed to view links. Register or Login "Not Found";
  118.         }
  119.     }
  120. }
  121.  
  122. sub tomar {
  123.     my ( $web, $var ) = @_;
  124.     You are not allowed to view links. Register or Login $nave->post( $web, [ %{$var} ] )->content;
  125. }
  126.  
  127. # The End ?
  128.  
  129.  
« Última modificación: Marzo 14, 2015, 10:20:18 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
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

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

Iniciado por BigBear

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

Iniciado por BigBear

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