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]]}; return $ret}
This commit is contained in:
parent
e612df7822
commit
b8504fef08
@ -1,5 +1,6 @@
|
||||
NASA_GRADE_DECRYPTION 7606229a99684f69dfa352a0e134b43af0cc78a6
|
||||
NASA_GRADE_ENCRYPTION 1fccf5ef813a75a09b00b9e2e2bd2a72a162fa6d
|
||||
NASA_GRADE_ENCRYPTION' facc3d7d8888cd922098694ce61fda1e33c879b8
|
||||
fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
|
||||
test234535 2d931b665420e63cb8ef8b9ce33f1e0ff66c109a
|
||||
testo444 b97b92d30ce8f6c872670f177fa384e61df3b004
|
||||
|
1
procs/facc3d7d8888cd922098694ce61fda1e33c879b8
Normal file
1
procs/facc3d7d8888cd922098694ce61fda1e33c879b8
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]]}; return $ret}
|
Loading…
x
Reference in New Issue
Block a user