From 3e72e2afbe5c30c641c5e6b71313cfa6baa6a325 Mon Sep 17 00:00:00 2001
From: hastur on #computerchat <hastur@IRC-Simple>
Date: Mon, 28 Sep 2020 21:51:45 +0200
Subject: [PATCH] Evaluated proc NASA_GRADE_ENCRYPTION evil_code {set ret {};
 set the_key [rot13 $evil_code]; set thecharacter {}; foreach thecharacter
 [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [format "%c"
 [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]]}; join $ret}

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

diff --git a/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d b/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
index 4381044..5e5e6ec 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 [format "%c" [expr [scan $thecharacter %c] ^ [scan $thesecret %c]]]}; urlencode [join $ret]}
+evil_code {set ret {}; set the_key [rot13 $evil_code]; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]]}; join $ret}