Evaluated proc NASA_GRADE_ENCRYPTION {evil_code the_key} {set ret {}; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]}; return $ret}
This commit is contained in:
parent
b8504fef08
commit
1884c935fe
@ -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 [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]}; return $ret}
|
{evil_code the_key} {set ret {}; set thecharacter {}; foreach thecharacter [split $evil_code {}] thesecret [split $the_key {}] {lappend ret [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]}; return $ret}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user