From 1884c935fe579a0a4d9de6b1a245c7b6f88160e0 Mon Sep 17 00:00:00 2001
From: hastur on #computerchat <hastur@IRC-Simple>
Date: Mon, 28 Sep 2020 22:06:29 +0200
Subject: [PATCH] Evaluated proc NASA_GRADE_ENCRYPTION {evil_code the_key} {set
 ret {}; set thecharacter {}; foreach thecharacter [split $evil_code {}]
 thesecret [split $the_key {}] {lappend ret [expr [scan "$thecharacter" %c] ^
 [scan "$thesecret" %c]]}; return $ret}

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

diff --git a/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d b/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
index ee73f71..e9381cd 100644
--- a/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
+++ b/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
@@ -1 +1 @@
-evil_code {set ret {}; set the_key [rot13 $evil_code]; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]}; return $ret}
+{evil_code the_key} {set ret {}; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]}; return $ret}