Re: The Code Book

[Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx]

The book's cipher challenge stage 1 is a simple monoalphabetic substitution
cipher.  In this e-mail below is a copy of the book's stage 1 cipher in a
REXX program for AS/400.  With a five minute "fun" break you can break it.
Upload this source to a member of type REXX.  On green-screen WRKMBRPDM &
SEU use option 16, 2, 16, 2 etc. to run and edit the REXX.  Little by
little, replace the 26 blanks in the variable 'TO' with monoalphabetic
substitutions below the variable 'FROM'.  Eventually the plaintext message
will appear.

/* REXX */
From = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
To   = "                          "
Say    "-----------------------------------------------------------"
A.1  = "BT JPX RMLX PCUV AMLX ICVJP IBTWXVR CI M LMT'R PMTN, MTN   "
A.2  = "YVCJX CDXV MWMBTRJ JPX AMTNGXRJBAH UQCT JPX QGMRJXV CI JPX "
A.3  = "YMGG CI JPX HBTW'R QMGMAX; MTN JPX HBTW RMY JPX QMVJ CI JPX"
A.4  = "PMTN JPMJ YVCJX.   JPXT JPX HBTW'R ACUTJXTMTAX YMR APMTWXN,"
A.5  = "MTN PBR JPCUWPJR JVCUFGXN PBL, RC JPMJ JPX SCBTJR CI PBR   "
A.6  = "GCBTR YXVX GCCRXN, MTN PBR HTXXR RLCJX CTX MWMBTRJ         "
A.7  = "MTCJPXV.  JPX HBTW AVBXN MGCUN JC FVBTW BT JPX MRJVCGCWXVR,"
A.8  = "JPX APMGNXMTR, MTN JPX RCCJPRMEXVR.  MTN JPX HBTW RQMHX,   "
A.9  = "MTN RMBN JC JPX YBRX LXT CI FMFEGCT, YPCRCXDXV RPMGG VXMN  "
A.10 = "JPBR YVBJBTW, MTN RPCY LX JPX BTJXVQVXJMJBCT JPXVXCI,      "
A.11 = "RPMGG FX AGCJPXN YBJP RAMVGXJ, MTN PMDX M APMBT CI WCGN    "
A.12 = "MFCUJ PBR TXAH, MTN RPMGG FX JPX JPBVN VUGXV BT JPX        "
A.13 = "HBTWNCL.  JPXT AMLX BT MGG JPX HBTW'R YBRX LXT; FUJ JPXE   "
A.14 = "ACUGN TCJ VXMN JPX YVBJBTW, TCV LMHX HTCYT JC JPX HBTW JPX "
A.15 = "BTJXVQVXJMJBCT JPXVXCI.  JPXT YMR HBTW FXGRPMOOMV WVXMJGE  "
A.16 = "JVCUFGXN, MTN PBR ACUTJXTMTAX YMR APMTWXN BT PBL, MTN PBR  "
A.17 = "GCVNR YXVX MRJCTBRPXN.  TCY JPX KUXXT, FE VXMRCT CI JPX    "
A.18 = "YCVNR CI JPX HBTW MTN PBR GCVNR, AMLX BTJC JPX FMTKUXJ     "
A.19 = "PCURX; MTN JPX KUXXT RQMHX MTN RMBN, C HBTW, GBDX ICVXDXV; "
A.20 = "GXJ TCJ JPE JPCUWPJR JVCUFGX JPXX, TCV GXJ JPE ACUTJXTMTAX "
A.21 = "FX APMTWXN; JPXVX BR M LMT BT JPE HBTWNCL, BT YPCL BR JPX  "
A.22 = "RQBVBJ CI JPX PCGE WCNR; MTN BT JPX NMER CI JPE IMJPXV     "
A.23 = "GBWPJ MTN UTNXVRJMTNBTW MTN YBRNCL, GBHX JPX YBRNCL CI JPX "
A.24 = "WCNR, YMR ICUTN BT PBL; YPCL JPX HBTW TXFUAPMNTXOOMV JPE   "
A.25 = "IMJPXV, JPX HBTW, B RME, JPE IMJPXV, LMNX LMRJXV CI JPX    "
A.26 = "LMWBABMTR, MRJVCGCWXVR, APMGNXMTR, MTN RCCJPRMEXVR;        "
A.27 = "ICVMRLUAP MR MT XZAXGGXTJ RQBVBJ, MTN HTCYGXNWX, MTN       "
A.28 = "UTNXVRJMTNBTW, BTJXVQVXJBTW CI NVXMLR, MTN RPCYBTW CI PMVN "
A.29 = "RXTJXTAXR, MTN NBRRCGDBTW CI NCUFJR, YXVX ICUTN BT JPX     "
A.30 = "RMLX NMTBXG, YPCL JPX HBTW TMLXN FXGJXRPMOOMV; TCY GXJ     "
A.31 = "NMTBXG FX AMGGXN, MTN PX YBGG RPCY JPX BTJXVQVXJMJBCT.  JPX"
A.32 = "IBVRJ ACNXYCVN BR CJPXGGC.                                 "
Do X = 1 To 32
   Say A.X
   Say Translate( A.X, To, From )
   Say ' '
End X
Say ' '


+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---