From f9af6f4a1eacea54d0652eec91ff0d903b4dc8ed Mon Sep 17 00:00:00 2001
From: hastur on #computerchat <hastur@IRC-Simple>
Date: Mon, 28 Sep 2020 21:52:13 +0200
Subject: [PATCH] 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}

---
 procs/7606229a99684f69dfa352a0e134b43af0cc78a6 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/procs/7606229a99684f69dfa352a0e134b43af0cc78a6 b/procs/7606229a99684f69dfa352a0e134b43af0cc78a6
index 7ccccb7..31813eb 100644
--- a/procs/7606229a99684f69dfa352a0e134b43af0cc78a6
+++ b/procs/7606229a99684f69dfa352a0e134b43af0cc78a6
@@ -1 +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}
+{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}