[tcl] caccia all'errore :(

[D4MI4NO]

ciao raga,
stò cercando di far andare un semplicissimo portscan, ma al momento in cui lo lancio da terminale non va, mi potete dire se ho sbagliato qualche cosa?

#!/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 ""
}

}
}


riuscite a capire voi dove sbaglio?

ciao

[M4rko]

25 { puts " *** La porta smtp è aperta ***" 79 { puts " *** La porta finger è aperta ***" }

probabilmente è quella linea perche manca la graffa chiusa prima del 79
o almeno mi sembra

[D4MI4NO]

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