Updated: ccipher.psc

Author: cpp-tutor

progs/ccipher.psc

@@ -3,17 +3,16 @@
 OUTPUT 'Please enter a string:'
 str <- USERINPUT
 IF str = '' THEN
-  str <- 'Beware of PLOTS!'
+  str <- 'Orjner bs CYBGF!'
 ENDIF
 cipher <- ''
 FOR letter IN str
-  code <- CHAR_TO_CODE(letter)
-  IF code >= CHAR_TO_CODE('A') AND code <= CHAR_TO_CODE('Z') THEN
-    code <- (code - CHAR_TO_CODE('A') + 13) MOD 26 + CHAR_TO_CODE('A')
+  IF letter >= 'A' AND letter <= 'Z' THEN
+    cipher <- cipher + CODE_TO_CHAR((CHAR_TO_CODE(letter) - CHAR_TO_CODE('A') + 13) MOD 26 + CHAR_TO_CODE('A'))
+  ELSE IF letter >= 'a' AND letter <= 'z' THEN
+    cipher <- cipher + CODE_TO_CHAR((CHAR_TO_CODE(letter) - CHAR_TO_CODE('a') + 13) MOD 26 + CHAR_TO_CODE('a'))
+  ELSE
+    cipher <- cipher + letter
   ENDIF
-  IF code >= CHAR_TO_CODE('a') AND code <= CHAR_TO_CODE('z') THEN
-    code <- (code - CHAR_TO_CODE('a') + 13) MOD 26 + CHAR_TO_CODE('a')
-  ENDIF
-  cipher <- cipher + CODE_TO_CHAR(code)
 ENDFOR
 OUTPUT 'Cipher: ' + cipher