diff --git a/procs/7606229a99684f69dfa352a0e134b43af0cc78a6 b/procs/7606229a99684f69dfa352a0e134b43af0cc78a6 index a426db0..68cfa38 100644 --- a/procs/7606229a99684f69dfa352a0e134b43af0cc78a6 +++ b/procs/7606229a99684f69dfa352a0e134b43af0cc78a6 @@ -1 +1 @@ -{the_cipher the_key} {set ret {}; set thecharacter {}; set thesecret {}; foreach thecharacter [split $the_cipher {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]]}; join $ret} +{the_cipher the_key} {set ret {}; set thecharacter {}; set thesecret {}; foreach thecharacter [split $the_cipher {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr $thecharacter ^ [scan $thesecret" %c]]]}; join $ret}