From c821b2ad06b58260da4ab1bceb9f5f18e439a600 Mon Sep 17 00:00:00 2001
From: hastur on #computerchat <hastur@IRC-Simple>
Date: Mon, 28 Sep 2020 21:49:06 +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]]]}; urlencode [join
 $ret]}

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

diff --git a/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d b/procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
index 0ff8795..4381044 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]]]}; 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]]]}; urlencode [join $ret]}