proc ahora {{f "%T"}} {return [clock format [clock seconds] -format $f -timezone -0500]}proc tmsg {{txt ""} {ty "ok"} {img "info"}} {return [tk_messageBox -message $txt -type $ty -icon $img ]}proc prin {{txt ""} {p "\n#"}} {[eval focus] insert end $p$txt}catch {destroy .e}toplevel .e -bg #AAA
set ws [winfo screenwidth .]
set hs [winfo screenheight .]
wm geometry .e "1250x1000+0+0"
wm withdraw .
set demo0 {Lorem ipsum dolor sit amet,
consectetur adipiscing elit,
sed do eiusmod tempor incididunt ut
labore et dolore magna aliqua.
Ut enim ad minim veniam,
quis nostrud exercitation
ullamco laboris nisi ut aliquip
ex ea commodo consequat.
Duis aute irure dolor in
reprehenderit in voluptate
velit esse cillum dolore
eu fugiat nulla pariatur.
Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.
}
set demo1 {Padre NuestroQue estás en el cielo
Santificado sea tu nombre
Ven a nosotros tu reino
hagase tu voluntad
En la tierra como en el cielo
Danos hoy nuestro pan de cada dia
Perdona nuestras ofensas
como también nosotros perdonámos
a los que nos ofenden
no nos dejes caer en la tentación
y libranos del mal
AMEN}
set demo2 {Muchos años después, frente al pelotón de fusilamiento,
el coronel Aureliano Buendía había de recordar aquella
tarde remota en que su padre lo llevó a conocer el hielo.
Macondo era entonces una aldea de veinte casas de barro y
cañabrava construidas a la orilla de un río de aguas diáfanas
}
place [label .e.l0 -text "Estado" -bg #FF0 -fg #F00 -font "arial 20"] -x 0 -y 0
place [labelframe .e.fo -text "original"] -x 0 -y 50 -width 500 -height 800
place [labelframe .e.fe -text "encripta"] -x 550 -y 50 -width 500 -height 800
place [text .e.fo.t -undo 1 -tabs 50 -font "arial 20"] -x 10 -y 10 -width 450
place [text .e.fe.t -undo 1 -tabs 50 -font "arial 20"] -x 10 -y 10 -width 450
place [label .e.lsy -text "symbolos"] -x 10 -y 950
place [entry .e.esy -textvar sym -width 90] -x 100 -y 950
place [label .e.le -text "symbolos"] -x 10 -y 900
place [entry .e.el -textvar letras -width 90] -x 120 -y 900
place [label .e.pa -text "password"] -x 10 -y 850
place [entry .e.ec -textvar "clave" -width 30] -x 120 -y 850
place [button .e.b0 -text "=>" -command {set letras ""
set n 0
if {$clave==""} {set clave aurelio}if {$clave==""} {tmsg "debe escribir el password para encriptar, entre mas largo mas dificil sera de desencriptar"}foreach {l} [split $clave {}] { if {[string length $clave]<=9} { append letras "\{$l\}\ \{$n\}\ " incr n
}
if {[string length $clave]>9} { set t [format %c [expr $n+97]]
append letras "\{$l\}\ \{$t\}\ " incr n
}
}
.e.fe.t delete 0.0 end
.e.fe.t insert end [string map $letras [.e.fo.t get 0.0 end]]
}] -x 500 -y 200 -width 50
place [button .e.b1 -text "<=" -command {set letras ""
set n 0
if {$clave==""} {set clave aurelio}if {$clave==""} {tmsg "debe escribir el password para encriptar, mas largo mas dificil sera de desencriptar"}foreach {l} [split $clave {}] { if {[string length $clave]<=9} { append letras "\{$n\}\ \{$l\}\ " incr n
}
if {[string length $clave]>9} { set t [format %c [expr $n+97]]
append letras "\{$t\}\ \{$l\}\ " incr n
}
}
.e.fo.t delete 0.0 end
.e.fo.t insert end [string map $letras [.e.fe.t get 0.0 end]]
}] -x 500 -y 600 -width 50
place [button .e.bc -text "C=>" -command {set sym "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
set letras ""
while {$clave==""||$clave<1||$clave>27} {set clave [expr int(rand()*27)]}set n 0
if {$clave<0 || $clave>27||$clave==""} {tmsg "el passoword debe ser un numero entre 0 y 27, de lo contrario se tomara uno randomico que debera memorizar para desencriptar el mensaje encriptado"}foreach {l} [split $sym {}] {append letras "\{$l\}\ \{[lindex [split $sym {}] [expr $n+$clave]]\}\ "incr n
}
.e.fe.t delete 0.0 end
.e.fe.t insert end [string map $letras [.e.fo.t get 0.0 end]]
}] -x 500 -y 250
place [button .e.bcd -text "<=C" -command {set sym "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
set n 0
set letras ""
foreach {l} [split $sym {}] {append letras "\{[lindex [split $sym {}] [expr $n+$clave] ]\}\ \{$l\}\ "incr n
}
.e.fo.t delete 0.0 end
.e.fo.t insert end [string map $letras [.e.fe.t get 0.0 end]]
}] -x 500 -y 650
focus .e.fo.t
place [button .e.bfo -text "Borra Origen" -command {.e.fo.t delete 0.0 end}] -x 1100 -y 55place [button .e.bfe -text "Borra Encripta" -command {.e.fe.t delete 0.0 end}] -x 1100 -y 110place [button .e.bfofe -text "Swap textos" -command {set to [.e.fo.t get 0.0 end];set te [.e.fe.t get 0.0 end]
.e.fo.t delete 0.0 end;.e.fe.t delete 0.0 end
.e.fo.t insert end $te;.e.fe.t insert end $to}] -x 1100 -y 165
place [button .e.bd0 -text "Demo1" -command {.e.fo.t delete 0.0 end.e.fo.t insert end $demo0}] -x 1100 -y 220
place [button .e.bd1 -text "Demo2" -command {.e.fo.t delete 0.0 end.e.fo.t insert end $demo1}] -x 1100 -y 275
place [button .e.bd2 -text "Demo3" -command {.e.fo.t delete 0.0 end.e.fo.t insert end $demo2}] -x 1100 -y 330
