Anonymous user
Playfair cipher: Difference between revisions
m
→{{header|REXX}}: flushed out a couple of program comments, cleaned up an assignment, added a comment. -- ~~~~
m (→{{header|REXX}}: added/changed the REXX section header comments. -- ~~~~) |
m (→{{header|REXX}}: flushed out a couple of program comments, cleaned up an assignment, added a comment. -- ~~~~) |
||
Line 368:
if omit=='' | omit==',' then omit='J' /*the "omitted" character. */
if text='' then text='Hide the gold in the tree stump!!' /*default.*/
newKey =scrub(key ,
newText=scrub(text
if _\=='' then call err 'too many arguments specified.'
if newText=='' then call err 'TEXT is empty or has no letters'
Line 380:
if length(newKey)<3 then call err 'cipher key is too short, must be > 2 unique characters.'
fill=space(translate(fill,,newKey),0) /*remove any cipher characters. */
grid=
say ' old cipher: ' strip(oldK) ; padL=14+2; pad=left('',padL)
say ' new cipher: ' newKey ; padX=left('',padL,'═')
|