[Perl Tk] Fast Scan Port 0.3

Un scanner bien rapido en perl , solo es rapido en linux xDDDDDD

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

#!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