Data update

2026-04-30 12:34:36 -04:00 · 2026-04-30 12:34:36 -04:00 · cbaf4c4b64
commit cbaf4c4b64
parent 4bb20c9b71
12390 changed files with 318560 additions and 27248 deletions
--- a/Task/Caesar-cipher/COBOL/caesar-cipher-1.cob
+++ b/Task/Caesar-cipher/COBOL/caesar-cipher-1.cob
@ -0,0 +1,36 @@
+       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.