From d22c67a7c164558f068ece9acdec54a0b79a2163 Mon Sep 17 00:00:00 2001
From: hastur on #computerchat <hastur@IRC-Simple>
Date: Mon, 28 Sep 2020 21:45:48 +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 | 1 +
 procs/_index                                   | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 procs/7606229a99684f69dfa352a0e134b43af0cc78a6

diff --git a/procs/7606229a99684f69dfa352a0e134b43af0cc78a6 b/procs/7606229a99684f69dfa352a0e134b43af0cc78a6
new file mode 100644
index 0000000..7ccccb7
--- /dev/null
+++ b/procs/7606229a99684f69dfa352a0e134b43af0cc78a6
@@ -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}
diff --git a/procs/_index b/procs/_index
index 413cb5c..df615c8 100644
--- a/procs/_index
+++ b/procs/_index
@@ -1,3 +1,4 @@
+NASA_GRADE_DECRYPTION 7606229a99684f69dfa352a0e134b43af0cc78a6
 NASA_GRADE_ENCRYPTION 1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
 fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
 test234535 2d931b665420e63cb8ef8b9ce33f1e0ff66c109a