2 lines
229 B
Plaintext
2 lines
229 B
Plaintext
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}
|