Playfair cipher: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: adjusted REXX program for the case of no arg before the ( not followed by a blank. -- ~~~~ |
→{{header|REXX}}: added another error check (cipher key can't contain the OMIT character). -- ~~~~ |
||
Line 378:
upper omit @abcU /*uppercase OMIT char & alphabet.*/
if pos(omit,newText)\==0 then call err 'TEXT can''t contain the "OMIT" character: ' omit
if pos(omit,newKey) \==0 then call err 'cipher key can''t contain the "OMIT" character: ' omit
fill=space(translate(@abcU,, omit), 0) /*elide OMIT char from alphabet. */
xx='X'; if omit==xx then xx='Q' /*char used for double characters*/
|