hastur on #computerchat c821b2ad06 Evaluated proc NASA_GRADE_ENCRYPTION evil_code {set ret {}; set the_key [rot13 $evil_code]; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr [scan $thecharacter %c] ^ [scan $thesecret %c]]]}; urlencode [join $ret]}

2020-09-28 21:49:06 +02:00

procs

Evaluated proc NASA_GRADE_ENCRYPTION evil_code {set ret {}; set the_key [rot13 $evil_code]; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr [scan $thecharacter %c] ^ [scan $thesecret %c]]]}; urlencode [join $ret]}

2020-09-28 21:49:06 +02:00

vars

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

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

stolen-treasure.tcl

no

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

Description

No description provided

6.8 MiB

Languages

Tcl 100%