PDA

Visualizza la versione completa : [tcl] caccia all'errore :(


D4MI4NO
28-06-2002, 13:06
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
28-06-2002, 19:10
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 :D

D4MI4NO
29-06-2002, 01:18
#!/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 :)

Loading