hastur on #computerchat f314075411 Evaluated unset ret; set ret {}; set evil_code {eval {. mwahahahaha i am doing evil}}; set the_key [rot13 $evil_code]; unset thecharacter;set thecharacter {}; foreach thecharacter $the_code thesecret $the_key {lappend ret [expr $thecharacter ^ $thesecret]}; join $ret

2020-09-28 21:34:11 +02:00

procs

Evaluated proc test234535 {} {. testo}

2020-09-28 20:51:17 +02:00

vars

Evaluated unset ret; set ret {}; set evil_code {eval {. mwahahahaha i am doing evil}}; set the_key [rot13 $evil_code]; unset thecharacter;set thecharacter {}; foreach thecharacter $the_code thesecret $the_key {lappend ret [expr $thecharacter ^ $thesecret]}; join $ret

2020-09-28 21:34:11 +02:00

stolen-treasure.tcl

no

2020-09-27 17:24:22 +02:00

Description

No description provided

6.9 MiB

Languages

Tcl 100%