37 lines
1.1 KiB
COBOL
37 lines
1.1 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. CAESAR.
|
|
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 MSG PIC X(50)
|
|
VALUE "The quick brown fox jumped over the lazy dog.".
|
|
01 OFFSET PIC 9(4) VALUE 7 USAGE BINARY.
|
|
01 FROM-CHARS PIC X(52).
|
|
01 TO-CHARS PIC X(52).
|
|
01 TABL.
|
|
02 PIC X(26) VALUE "abcdefghijklmnopqrstuvwxyz".
|
|
02 PIC X(26) VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
|
|
02 PIC X(26) VALUE "abcdefghijklmnopqrstuvwxyz".
|
|
02 PIC X(26) VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
|
|
|
|
PROCEDURE DIVISION.
|
|
BEGIN.
|
|
DISPLAY MSG
|
|
PERFORM ENCRYPT
|
|
DISPLAY MSG
|
|
PERFORM DECRYPT
|
|
DISPLAY MSG
|
|
STOP RUN.
|
|
|
|
ENCRYPT.
|
|
MOVE TABL (1:52) TO FROM-CHARS
|
|
MOVE TABL (1 + OFFSET:52) TO TO-CHARS
|
|
INSPECT MSG CONVERTING FROM-CHARS TO TO-CHARS.
|
|
|
|
DECRYPT.
|
|
MOVE TABL (1 + OFFSET:52) TO FROM-CHARS
|
|
MOVE TABL (1:52) TO TO-CHARS
|
|
INSPECT MSG CONVERTING FROM-CHARS TO TO-CHARS.
|
|
|
|
END PROGRAM CAESAR.
|