Mayo 20, 2018, 10:57:04 pm

Autor Tema: [Perl TK] Client WhoIs  (Leído 757 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] Client WhoIs
« en: Mayo 26, 2011, 07:07:28 pm »

Un simple cliente whois

Imagen




Código: You are not allowed to view links. Register or Login
#!usr/bin/perl
#Client Whois (C) Doddy Hackman 2011
#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 $new = MainWindow->new();
$new->geometry("390x300+50+50");
$new->title("Client Whois (C) Doddy Hackman 2011");
$new->resizable(0,0);

$new->Label(-text=>"Dominio : ",-font=>"Impact2")->place(-x=>"10",-y=>"10");
my $dom = $new->Entry(-width=>"30")->place(-x=>"85",-y=>"13");

my $console = $new->ROText(-width=>36,-height=>15)->place(-x => 15, -y => 50);

$new->Button(-text=>"Buscar!",-command=>\&buscar,-width=>"10")->place(-x=>290,-y=>"50");
$new->Button(-text=>"Limpiar",-command=>\&limpiar,-width=>"10")->place(-x=>290,-y=>"80");
$new->Button(-text=>"Salir",-command=>\&salir,-width=>"10")->place(-x=>290,-y=>"110");


MainLoop;


sub buscar {
$console->delete("0.1","end");
my $target = $dom->get;
$new->update;
$console->insert("end",whois($target));
$new->update;
}

sub limpiar {
$console->delete("0.1","end");
$dom->delete("0.1","end");
}

sub salir { exit 1;}

# ¿ The End ?


exclamation
[Perl Tk] Whois Client 0.2

Iniciado por BigBear

0 Respuestas
666 Vistas
Último mensaje Marzo 31, 2012, 07:23:38 pm
por BigBear
exclamation
[Perl] Whois Online 0.1

Iniciado por BigBear

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

Iniciado por BigBear

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

Iniciado por cirros

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

Iniciado por Marcelita1000

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

Iniciado por BigBear

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

Iniciado por BigBear

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

Iniciado por BigBear

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

Iniciado por BigBear

0 Respuestas
1061 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
1855 Vistas
Último mensaje Enero 31, 2013, 08:41:16 am
por alxr_n3td1srupt