Smoking Port Scanner

Port Scanner realizzato da me, funziona in questo modo:
scannerizza un sito e visualizza le porte aperte.
Il source è presente qui nel sito e dirrettamente nel no paste
‘njoy

Codice corretto a causa di un mal funzionamento:
#usr/bin/perl

#Autore: Smoking Skull

use Tk;
use IO::Socket;
$mw=MainWindow->new();
$mw->title(”Smoking Port Scanner by Smoking Skull”);
$mw->minsize(150,80);
$mw->maxsize(150,80);
$mw->Label(-text=>”Host : “,-background=>”black”,-foreground=>”green”)->pack(-anchor=>”n”);
$mw->Entry(-textvariable=>\$host)->pack(-anchor=>”s”);

$mw->Button(-text=>”Scan”,-background=>”black”,-foreground=>”green”,-command=>sub{$sw=MainWindow->new(-background=>”black”);
$portai = 1;

for($portai; $portai new(Proto => “tcp”,
PeerPort => $portai,
PeerAddr => $host,
Timeout => 1
) || $end++;
close($raunaway);
if($end == 1)
{
$stop = “$portai “;

}
}
$sw->title(”Scanning in corso :”);
$sw->minsize(150,60);
$sw->maxsize(150,60);
$sw -> Label(-text=>”Host : $host \n Porta Aperte : $stop”,-background=>”black”,-foreground=>”green”)->pack;
})->pack(-anchor=>”s”);

MainLoop;

11 risposte a “Smoking Port Scanner

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...