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}

This commit is contained in:
hastur on #computerchat 2020-09-28 21:51:45 +02:00 committed by FUCK YOU
parent c821b2ad06
commit 3e72e2afbe

View File

@ -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}