Evaluated proc NASA_GRADE_DECRYPTION {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}

This commit is contained in:
hastur on #computerchat
2020-09-28 21:45:48 +02:00
committed by FUCK YOU
parent a922dedb21
commit d22c67a7c1
2 changed files with 2 additions and 0 deletions

View File

@ -0,0 +1 @@
{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}