June 2018 Update

Task/Caesar-cipher/COBOL/caesar-cipher-1.cobol

@@ -0,0 +1,37 @@
+       identification division.
+       program-id. caesar.
+       data division.
+       1 msg pic x(50)
+           value "The quick brown fox jumped over the lazy dog.".
+       1 offset binary pic 9(4) value 7.
+       1 from-chars pic x(52).
+       1 to-chars pic x(52).
+       1 tabl.
+        2 pic x(26) value "abcdefghijklmnopqrstuvwxyz".
+        2 pic x(26) value "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
+        2 pic x(26) value "abcdefghijklmnopqrstuvwxyz".
+        2 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.