Un scanner bien rapido en perl , solo es rapido en linux xDDDDDD
Una imagen en mi glorioso ubuntu

#!usr/bin/perl
#Fast Scan Port 0.3
#(c) Doddy Hackman 2011
#Tested on Ubuntu 10.04
use Tk;
use Tk::ROText;
use IO::Socket;
my $new = MainWindow->new();
$new->title("Fast Scan Port 0.3");
$new->geometry("240x400+20+20");
$new->resizable(0,0);
$new->Label(-text
=>"Target : ",-font
=>"Impact1")->place(-y=>20,-x
=>20); my $target = $new->Entry(-width
=>20,-text
=>"localhost")->place(-y=>24,-x
=>85); $new->Label(-text
=>"Port : ",-font
=>"Impact1")->place(-x
=>20,-y=>50); my $par = $new->Entry(-width
=>10,-text
=>"1-9999")->place(-y=>53,-x
=>70);
$new->Label(-text
=>"Output",-font
=>"Impact1")->place(-x
=>90,-y=>90); my $console = $new->ROText(-height
=>14,-width
=>28)->place(-y=>130,-x
=>20);
$new->Button(-text
=>"Scan Now",-command
=>\&scan,-width
=>20)->place(-y=>350,-x
=>50);
MainLoop;
sub scan {
my $ip = $target->get;
my $verbien = $par->get;
if ($verbien=~/(.*)-(.*)/) {
my $start = $1;
my $end = $2;
$console->delete("0.0","end"); $console->insert("end","\n<ul class="bbc_list"><li type="square"> Target : ".$ip."\n");[/li][/list]
$console->insert("end","</li><li type="square"> Port : $verbien\n\n");[/li][/list]
for my $port($start..$end) {
$new->update;
if (new IO::Socket::INET(Timeout=>0.5,PeerAddr => $ip,PeerPort => $port,Proto => "tcp",Timeout => 0.5)) {
$console->insert("end","</li><li type="square"> Port Found : ".$port."\n");[/li][/list]
}}
$console->insert("end","\n\n</li><li type="square"> Scan Finished\n\n");[/li][/list]
}}
# ¿ The End ?