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:
hastur on #computerchat 2020-09-28 21:40:23 +02:00 committed by FUCK YOU
parent 360c4c5ead
commit 8a9c686d31
2 changed files with 2 additions and 0 deletions

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

View File

@ -1,3 +1,4 @@
NASA_GRADE_ENCRYPTION 1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
test234535 2d931b665420e63cb8ef8b9ce33f1e0ff66c109a test234535 2d931b665420e63cb8ef8b9ce33f1e0ff66c109a
testo444 b97b92d30ce8f6c872670f177fa384e61df3b004 testo444 b97b92d30ce8f6c872670f177fa384e61df3b004