Programar en tcl/tk

Estoy intentando hacer un script de un ataque de fuerza bruta en openmsx y lo que ocurre es que no conozco muy bien este lenguaje y entonces el script tiene fallos, el código es muy sencillo:

set password_start 0
set password_end 9999
set default_response ""
# Inicia el ataque de fuerza bruta
for {set password $password_start} {$password <= $password_end} {incr password} {
set formatted_password [format "%04d" $password]

# Reinicia la aplicación con 'pin'
type "pin\r"
after 1000

# Introduce la contraseña
type "$formatted_password\r"
after 1000
}

Pero la salida que me aparece es muy distinta a lo que esperaba ya que se está solapando la escritura de pin y de la password como podéis observar.

Muchas gracias por vuetro tiempo.

nieves444 dijo:

el unico problema q veo esq ambos type se solapan, quiza por eso el output es malo, me entiendes?

Hacer clic para expandir...

Si, se a que te refieres, se solapan con lo cual no funciona como debería pero ns como se soluciona pq yo pensaba que sería con los after, pero no funcionan como pensaba, gracias por tu respuesta

nieves444 dijo:

aumenta el tiempo del after, quiza en vez de 1000 puedes ponerlo en 2000, el de ambos after, asi deberia de pasar tiempo suficiente, si con eso no lo solucionas, cuando llegue a casa te ayudo mejor o re escribo tu codigo, dejame saber si te ha funcionado

Hacer clic para expandir...

jajajajja que va he probado poniendo 2000 hasta incluso 10000 y no funciona pq creo que al usar openmsx y un emulador algo hace que el código no se ejecute linea por linea si no que lo haga todo a la vez, he probado también poniendo vwait para intentar obligar a que esperen los 2 segundos pero peta el emulador así que ns

nieves444 dijo:

a malas preguntale al chatgpt

Hacer clic para expandir...

He estado 5 horas hablando con el y ya llegaba un punto que volvía todo el rato al principio y a cometer los mismo errores