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 [expr [scan $thecharacter %c] ^ [scan $thesecret %c]]}; join $ret}
This commit is contained in:
committed by
FUCK YOU
parent
360c4c5ead
commit
8a9c686d31
1
procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
Normal file
1
procs/1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
Normal file
@ -0,0 +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]]}; join $ret}
|
Reference in New Issue
Block a user