#!/usr/bin/tclsh
#Portscanner 0.1 ----

if { "$argc" != 1 } {
puts "Inserire l'host\n"
} else {
set host $argv
puts " Portscanner 0.1\n"
puts " Verifichiamo il server $argv\n"
}
foreach port {7 21 22 23 25 79 80 110} {
global host
catch {
if {[string compare [socket $host $port] "sock"] != "-1"
} {

switch $port {
7 { puts " *** La porta echo è aperta ***" }
21 { puts " *** La porta ftp è aperta ***" }
22 { puts " *** La porta ssh è aperta ***" }
23 { puts " *** La porta telnet è aperta ***" }
25 { puts " *** La porta smtp è aperta ***" 79}{ puts " *** La porta finger è aperta ***" }
80 { puts " *** La porta www è aperta ***" }
110 { puts " *** La porta pop3 è aperta ***" }
}
puts ""
}

}
}


si, scusa, era un errore di copia incolla