RosettaCodeData/Task/Vigen-re-cipher/J/vigen-re-cipher-1.j

5 lines
220 B
Plaintext

ALPHA=: (65,:26) ];.0 a. NB. Character Set
preprocess=: (#~ e.&ALPHA)@toupper NB. force uppercase and discard non-alpha chars
vigEncryptRC=: 0 vig ALPHA preprocess
vigDecryptRC=: 1 vig ALPHA preprocess