Hackinger Port Scaner v0.1

[Guest]

#!/usr/bin/perl
#======================================================================================#
#(c)oded by h4ckinger [url]www.hackinger.org[/url]
#Hackinger Port Skaynir v0.1
#plz send email me when u discoverz a buggy :]
#mail : [email]hackingerboy@gmail.com[/email]
#======================================================================================#

#========================================USES=========================================#
use Tk;
use Tk::DialogBox;
use IO::Socket; 
use Tk::Dialog;
#========================================END USES====================================#

#========================================Window=======================================#
my $main=new MainWindow(title => "Hackinger Port Skaynir"); 
$main->geometry ( '280x335' ) ;
$main->resizable(0,0);
$main->Label(-text => 'Coded by h4ckinger',-font => '{tahoma} 8 bold ',-foreground => 'brown')->pack();
$main->Label(-text => 'www.hackinger.org',-font => '{tahoma} 8 bold ',-foreground => 'brown')->pack();
$fleft=$main->Frame()->pack ( -side => 'left', -anchor => 'ne') ;
$fright=$main->Frame()->pack ( -side => 'left', -anchor => 'nw') ;
$fleft->Label ( -text => 'Host-Ip: ', -font => '{tahoma} 8 bold ',-foreground => 'black') ->pack ( -side => "top" , -anchor => 'e' ) ;
my $ip=$fright->Entry(-text=>"127.0.0.1",-width =>15,-font => '{fixedys} 10 bold ')->pack(-padx => 50);
$fleft->Label ( -text => 'Start Port: ', -font => '{tahoma} 8 bold ',-foreground => 'black') ->pack ( -side => "top" , -anchor => 'e' ) ;
my $portbasla=$fright->Entry(-width =>15,-font => '{fixedys} 10 bold ')->pack(-padx => 50);
$fleft->Label ( -text => 'End Port: ', -font => '{tahoma} 8 bold ',-foreground => 'black') ->pack ( -side => "top" , -anchor => 'e' ) ;
my $portbit=$fright->Entry(-width =>15,-font => '{fixedys} 10 bold ')->pack(-padx => 50);
$fright->Button(-text    => 'Scan',-width => 15,-font => '{fixedys} 10 bold ',-activeforeground => 'brown',-command => \&scan)->pack(-padx => 50);
$fleft->Label( -text => ' ')->pack();
$fleft->Label( -text => ' ')->pack();
$fleft->Label ( -text => 'Opened Ports: ', -font => '{tahoma} 8 bold ',-foreground => 'black') ->pack ( -side => "top" ) ;
my $lbox = $fright->Listbox(-width => '30')->pack();
$fright->Button(-text    => 'About',-width => '50',-font => '{fixedys} 10 bold ',-activeforeground => 'brown',-command => \&about)->pack(-padx => 10);
$fright->Button(-text    => 'Exit',-width => '50',-font => '{fixedys} 10 bold ',-activeforeground => 'brown',-command => \&exit)->pack(-padx => 10);
MainLoop;
#=======================================End Window=======================================#

#==========================================Functions======================================#
sub scan {
my $host=$ip->get;
my $start=$portbasla->get;
my $stop=$portbit->get;
if(!$host || !$start || !$stop){&enter}
if (!int($host) || !int($start) || !int($stop)){&check}
if($start>$stop){&check}
while ($start<$stop) {
my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>"$host", 
PeerPort=>$start) && print $lbox->insert('end', "[+] Port: $start" );
$start++; 
if($start=$stop){$main->messageBox(-icon => 'info', -message => 'Scaning finished!!', -title => 'Finished', -type => 'ok', -default => 'ok'); }
}}
sub enter{
my $IW=$main->DialogBox(-title => 'Error!',-buttons => ["0K"]);
$IW->geometry('150x70');
$IW->resizable(0,0);
$IW->Label(-text => "Please fill in the blanks",-font => '{tahoma} 8 bold ',)->pack();
$IW->Show();      
$IW->destroy;
}
sub check{
my $IW=$main->DialogBox(-title => 'Error!',-buttons => ["0K"]);
$IW->geometry('150x70');
$IW->resizable(0,0);
$IW->Label(-text => "Check your entered text",-font => '{tahoma} 8 bold ',)->pack();
$IW->Show();      
$IW->destroy;
}
sub about {
my $IW=$main->DialogBox(-title => 'About of Script',-buttons => ["0K"]);
$IW->geometry('325x220');
$IW->resizable(0,0);
$IW->Label(-text => "Hackinger Port Skaynir v0.1",-font => '{tahoma} 8 bold ',)->pack();
$IW->Label(-text => ' a', -font => '{Webdings} 22')->pack();
$IW->Label(-text => "(c)oded by h4ckinger",-font => '{tahoma} 8 bold ',-foreground=>'brown')->pack();
$IW->Label(-text => "Web : www.hackinger.org",-font => '{tahoma} 8 bold ',-foreground=>'brown')->pack();
$IW->Label(-text => " Greatz;",-font => '{tahoma} 8 bold ',)->pack();
$IW->Label(-text => " CyberGhost,Darkcode,excellance,The_BeKiR",-font => '{tahoma} 8 bold ',)->pack();
$IW->Label(-text => "blaster,RealWarrior,Entrika,kerem125,kuz3y",-font => '{tahoma} 8 bold ',)->pack();
$IW->Label(-text => " MetaLLicaLi,Mardinli,Sao,bolivar,redline,Canberx,pang0",-font => '{tahoma} 8 bold ',)->pack();
$IW->Show();      
$IW->destroy;
}
#=====================================End Functions========================================#