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 Client 0.2

  • 0 Respuestas
  • 1021 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Marzo 31, 2012, 10:31:37 pm »
La version mejorada de un cliente whois que hice hace un largooooooooo tiempo.

Para usarlo tienen que instalar el modulo necesario de la siguiente manera.

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd

Una imagen del programa


El codigo es

Código: Perl
  1. #!usr/bin/perl
  2. #Whois Client 0.2
  3. #Coded By Doddy H
  4. #ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd
  5.  
  6. use Tk;
  7. use Tk::ROText;
  8. use Net::Whois::Raw;
  9.  
  10. if ( $^O eq 'MSWin32' ) {
  11.     use Win32::Console;
  12.     Win32::Console::Free();
  13. }
  14.  
  15. my $color_fondo = "black";
  16. my $color_texto = "cyan";
  17.  
  18. $yu =
  19.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  20. $yu->title("Whois Client 0.2 || Coded By Doddy H");
  21. $yu->geometry("400x350+20+20");
  22. $yu->resizable( 0, 0 );
  23.  
  24. $yu->Label(
  25.     -text       => "Page : ",
  26.     -font       => "Impact",
  27.     -background => $color_fondo,
  28.     -foreground => $color_texto
  29. )->place( -x => 20, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 20 );
  30. my $targe = $yu->Entry(
  31.     -width      => 35,
  32.     -background => $color_fondo,
  33.     -foreground => $color_texto
  34. )->place( -x => 70, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 26 );
  35. $yu->Button(
  36.     -text             => "Get Info",
  37.     -width            => 10,
  38.     -background       => $color_fondo,
  39.     -foreground       => $color_texto,
  40.     -activebackground => $color_texto,
  41.     -command          => \&whoisit
  42. )->place( -x => 290, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 24 );
  43. $yu->Label(
  44.     -text       => "Information",
  45.     -font       => "Impact",
  46.     -background => $color_fondo,
  47.     -foreground => $color_texto
  48. )->place( -x => 140, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 85 );
  49. my $data = $yu->Scrolled(
  50.     "ROText",
  51.     -width      => 40,
  52.     -height     => 12,
  53.     -scrollbars => "e",
  54.     -background => $color_fondo,
  55.     -foreground => $color_texto
  56. )->place( -x => 45, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 150 );
  57.  
  58. sub whoisit {
  59.  
  60.     $data->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "0.1", "end" );
  61.     $data->insert( "end", whois( $targe->get ) );
  62.  
  63. }
  64.  
  65. MainLoop;
  66.  
  67. #The End ?
  68.  
« Última modificación: Marzo 14, 2015, 10:18:08 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3156
Ú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: 1472
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1134
Ú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: 1371
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1103
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear