[Perl Tk] Fast Scan Port 0.3

« **en:** Julio 03, 2011, 10:00:37 pm »

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

Una imagen en mi glorioso ubuntu

Código: Perl

#!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(-You are not allowed to view links.
 Register or Login=>20,-x=>20);
my $target = $new->Entry(-width=>20,-text=>"localhost")->place(-You are not allowed to view links.
 Register or Login=>24,-x=>85);
$new->Label(-text=>"Port : ",-font=>"Impact1")->place(-x=>20,-You are not allowed to view links.
 Register or Login=>50);
my $par = $new->Entry(-width=>10,-text=>"1-9999")->place(-You are not allowed to view links.
 Register or Login=>53,-x=>70);
 
$new->Label(-text=>"Output",-font=>"Impact1")->place(-x=>90,-You are not allowed to view links.
 Register or Login=>90);
my $console = $new->ROText(-height=>14,-width=>28)->place(-You are not allowed to view links.
 Register or Login=>130,-x=>20);
 
$new->Button(-text=>"Scan Now",-command=>\&scan,-width=>20)->place(-You are not allowed to view links.
 Register or Login=>350,-x=>50);
 
MainLoop;
 
sub scan {
 
my $ip = $target->get;
my $verbien = $par->get;
 
if ($verbien=~/(.*)-(.*)/) {
 
my $start = $1;
my $end = $2;
 
$console->You are not allowed to view links.
 Register or Login("0.0","end");
$console->insert("end","\n[+] Target : ".$ip."\n");
$console->insert("end","[+] Port : $verbien\n\n");
 
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","[+] Port Found : ".$port."\n");
}}
$console->insert("end","\n\n[+] Scan Finished\n\n");
}}
 
# ¿ The End ?  
 

Tutorial perl desde cero By: Black Poision & Painboy Iniciado por ProcessKill	Respuestas: 2 Vistas: 2850	Septiembre 02, 2011, 09:43:36 pm por blozzter
[Perl] Verificando si es root para correr un script Iniciado por c1st	Respuestas: 1 Vistas: 1322	Octubre 07, 2012, 06:01:39 pm por ANTRAX
[Perl] Half Life Servers List 0.1 Iniciado por BigBear	Respuestas: 0 Vistas: 968	Noviembre 12, 2012, 07:31:50 pm por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL] Iniciado por SkillmaX	Respuestas: 0 Vistas: 1262	Julio 04, 2010, 10:14:31 am por SkillmaX
[Perl] Iframe DDos Attack Tool Iniciado por BigBear	Respuestas: 0 Vistas: 1180	Julio 03, 2011, 10:06:45 pm por BigBear

Esta es una respuesta al tema: [Perl Tk] Fast Scan Port 0.3 en La plantilla. Perl

[Perl Tk] Fast Scan Port 0.3

BigBear

[Perl Tk] Fast Scan Port 0.3

Similar topics (5)