Tcl/Expect script that attacks the login program