[TCL] Ayuda con esta novatada...

[Eleкtro]

Hola, tengo un pequeño script que requiere la librería "des.tcl", el problema es que es la primera vez que manejo tcl, así que pongo el archivo "des.tcl" junto al script y el intérprete, pero me salta el siguiente error:



¿Alguien tiene idea de que estoy haciendo mal?

PD: también he probado a intentar lo mismo con el paquete "tcllib-1.14.kit" ya que el des.tcl va incluido en su interior.
Gracias.

El script que intento correr:

Código [Seleccionar] Expandir

package require des

puts "\naMSN Password Decryptor 0.1"
puts "by: bruno.borges@gmail.com"
puts "--------------------------"
if {$argc < 2} {
 puts "Invalid arguments. Please do: $argv0 <login> <encpassword> \[<remotepass>\]"
 exit 1
}

set i_login [lindex $argv 0]
set i_encpassword [lindex $argv 1]

if {$argc == 3} {
 set i_rempass [lindex $argv 2]
}

puts "Login: $i_login"
puts "Encpassword: $i_encpassword"

#Get the encrypted password
set key [string range $i_login"dummykey" 0 7]
set password "$i_encpassword"
catch {set encpass [binary format h* "$i_encpassword"]}
catch {set password [::DES::des -mode ecb -dir decrypt -key $key -- $encpass]}
puts "Password length is: [string first "\n" $password]"
set password [string range $password 0 [expr { [string first "\n" $password] -1 }]]
puts "Password is: $password"

#Get the encrypted remote password
if {$argc == 3} {
set key [string range $i_login"dummykey" 0 7]
catch {set encpass [binary format h* $i_rempass]}
catch {set remotepassword [::DES::des -mode ecb -dir decrypt -key $key -- $encpass]}
puts "Remote Password length is: [string first "\n" $remotepassword]\n"
set remotepassword [string range $remotepassword 0 [expr { [string first "\n" $remotepassword] -1 }]]
puts "Remote Password is: $remotepassword"
}