From e612df782291a2f6d76969bc01b1e0e6e5480c19 Mon Sep 17 00:00:00 2001
From: hastur on #computerchat <hastur@IRC-Simple>
Date: Mon, 28 Sep 2020 22:01:06 +0200
Subject: [PATCH] Evaluated proc NASA_GRADE_DECRYPTION {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}

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

diff --git a/procs/7606229a99684f69dfa352a0e134b43af0cc78a6 b/procs/7606229a99684f69dfa352a0e134b43af0cc78a6
index 68cfa38..ae7e085 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 $thecharacter ^ [scan $thesecret" %c]]]}; join $ret}
+{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}