From 6531b6bbb8b1c1bf6e455100a7c605d4d1033cd2 Mon Sep 17 00:00:00 2001
From: hastur on #computerchat <hastur@IRC-Simple>
Date: Mon, 28 Sep 2020 22:07:58 +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 ae7e085..4239860 100644
--- a/procs/7606229a99684f69dfa352a0e134b43af0cc78a6
+++ b/procs/7606229a99684f69dfa352a0e134b43af0cc78a6
@@ -1 +1 @@
-{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}
+{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 ""}