09 May 2025   8:57:12.578 PM

atbash_test():
  Fortran90 version
  atbash() encrypts or decrypts a text using the Atbash
  substitution cipher.

test01():
  atbash() encrypts and decrypts a short phrase.

PLAIN:   "A man, a plan, a canal - Panama!"
CRYPT:   "Z nzm, z kozm, z xzmzo - Kzmznz!"
DECRYPT: "A man, a plan, a canal - Panama!"

test02():
  atbash() encrypts and decrypts a longer phrase.

PLAIN:   "There are a thousand hacking at the branches of evil for every one who is striking at its root."
CRYPT:   "Gsviv ziv z gslfhzmw szxprmt zg gsv yizmxsvh lu vero uli vevib lmv dsl rh hgirprmt zg rgh illg."
DECRYPT: "There are a thousand hacking at the branches of evil for every one who is striking at its root."

atbash_test():
  Normal end of execution.

09 May 2025   8:57:12.578 PM