shaniqua-smeggdrop/procs/facc3d7d8888cd922098694ce61fda1e33c879b8

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]]}; return $ret}