2 lines
227 B
Plaintext
2 lines
227 B
Plaintext
{the_cipher the_key} {set ret {}; set thecharacter {}; foreach thecharacter [split $the_cipher {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]]}; join $ret}
|