Febrero 25, 2018, 01:38:42 pm

Autor Tema: [Perl Tk] Whois Client 0.2  (Leído 636 veces)

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

Desconectado BigBear

  • Yo vivo en CPH
  • ***
  • Mensajes: 736
  • Sexo: Masculino
    • Ver Perfil
[Perl Tk] Whois Client 0.2
« en: Marzo 31, 2012, 07:23:38 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: You are not allowed to view links. Register or Login
ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd

Una imagen del programa


El codigo es

Código: You are not allowed to view links. Register or Login
#!usr/bin/perl
#Whois Client 0.2
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd

use Tk;
use Tk::ROText;
use Net::Whois::Raw;

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my $color_fondo = "black";
my $color_texto = "cyan";

$yu =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$yu->title("Whois Client 0.2 || Coded By Doddy H");
$yu->geometry("400x350+20+20");
$yu->resizable( 0, 0 );

$yu->Label(
    -text       => "Page : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 20 );
my $targe = $yu->Entry(
    -width      => 35,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 70, -y => 26 );
$yu->Button(
    -text             => "Get Info",
    -width            => 10,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -command          => \&whoisit
)->place( -x => 290, -y => 24 );
$yu->Label(
    -text       => "Information",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 140, -y => 85 );
my $data = $yu->Scrolled(
    "ROText",
    -width      => 40,
    -height     => 12,
    -scrollbars => "e",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 45, -y => 150 );

sub whoisit {

    $data->delete( "0.1", "end" );
    $data->insert( "end", whois( $targe->get ) );

}

MainLoop;

#The End ?


exclamation
[Perl TK] Client WhoIs

Iniciado por BigBear

0 Respuestas
729 Vistas
Último mensaje Mayo 26, 2011, 07:07:28 pm
por BigBear
exclamation
[Perl Tk] Whois Online 0.1

Iniciado por BigBear

0 Respuestas
669 Vistas
Último mensaje Abril 23, 2012, 09:14:17 am
por BigBear
exclamation
[Perl] Whois Online 0.1

Iniciado por BigBear

0 Respuestas
693 Vistas
Último mensaje Abril 23, 2012, 09:14:00 am
por BigBear
xx
whois?????????

Iniciado por cirros

1 Respuestas
1525 Vistas
Último mensaje Enero 02, 2006, 03:21:30 pm
por sdrako
xx
Qué es un WHOIS??

Iniciado por Marcelita1000

7 Respuestas
1742 Vistas
Último mensaje Junio 05, 2009, 08:11:55 am
por messerschmitt
exclamation
[Java] Whois Manager 0.2

Iniciado por BigBear

0 Respuestas
1640 Vistas
Último mensaje Abril 30, 2016, 09:28:21 am
por BigBear
exclamation
[Ruby] Whois Online 0.1

Iniciado por BigBear

0 Respuestas
685 Vistas
Último mensaje Abril 23, 2012, 09:13:02 am
por BigBear
exclamation
[PyQT4] Whois Online 0.2

Iniciado por BigBear

2 Respuestas
1232 Vistas
Último mensaje Agosto 26, 2012, 08:33:44 pm
por JaAViEr
exclamation
[Python] Whois Online 0.1

Iniciado por BigBear

0 Respuestas
1033 Vistas
Último mensaje Abril 23, 2012, 09:13:22 am
por BigBear
exclamation
Facil acceso a Exploit-DB desde Perl y Shodan API [PERL]

Iniciado por alxr_n3td1srupt

2 Respuestas
1812 Vistas
Último mensaje Enero 31, 2013, 08:41:16 am
por alxr_n3td1srupt