diff --git a/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d b/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d index d1e8739..0ff8795 100644 --- a/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d +++ b/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d @@ -1 +1 @@ -evil_code {set ret {}; set the_key [rot13 $evil_code]; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [expr [scan $thecharacter %c] ^ [scan $thesecret %c]]}; join $ret} +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]]]}; join $ret}