I enjoy dabbling with logic puzzles and classical forms of encryption. This vocabulary is intended to be a tool to help with these diversions.
Name | Stack | Usage |
---|---|---|
ceaser | $n-$ | Encrypt (or decrypt) a string using the ceaser algorithm. The value n is the number of characters to shift the alphabet by. |
rot13 | $-$ | Encrypt or decrypt a string using rot13. This is a trivial variant of the ceaser algorithm. |
tapcode:encrypt | $-a | Encrypt a string into a tapcode array |
tapcode:decrypt | a-$ | Decrypt a tapcode array into a string |
pigpen:encrypt | $-a | Convert a string into a pigpen encoded array. To display the pigpen sequence, try: "ab" ^crypto'toPigpen [ puts space ] ^array'apply |
pigpen:decrypt | a-$ | Decode a pigpen encoded array into a string |
keyword:setKey | $- | Set the key to use for keyword encryption. This should be 26 characters long. |
keyword:encrypt | $-$ | Encrypt a string using keyword encryption |
keyword:decrypt | $-$ | Decrypt a string using keyword encryption |