shaniqua-smeggdrop/procs/7606229a99684f69dfa352a0e134b43af0cc78a6

2 lines
222 B
Plaintext

{the_cipher the_key} {set ret {}; set thecharacter {}; set thesecret {}; foreach thecharacter $the_cipher thesecret [split $the_key {}] {lappend ret [format "%c" [expr $thecharacter ^ [scan $thesecret %c]]]};join $ret ""}