Lab 4: Using Maple for substitution

Instructions:

Launch Maple.

If you can load this file as a Maple file, then place the cursor on the first line of Maple code and press Enter.

If you have to start with a blank Maple worksheet, then make sure you have a Maple cursor (>); if not, Insert>Execution Group>After cursor; then type in the first Maple line below and press Enter.

Repeat with subsequent lines.

Learn.

(These steps solve the crypt on Sinkov p. 47. See esp. pp. 54-55.)

Then solve this cryptogram:

XTEIA DSL ASQA FKSF FKY IVYOPYUJQ NI PAY NI LNVRA TU

SMYVTJSU UYLAESEYV YUCDTAK SUR FKYTV VSUG NVRYV SVY

JDNAYDQ VYDSFYR.

with(StringTools):

p47 := "MYTKI JIRUL AZOAH MIJAC UYGII JIUJA CHETR JMRUY MJFAG RMRPJ FTMEX ALAZU YMRQM OAZEX OAZRU ARTRI TGELG IJHAR JITJU AVYMO YVTLV IFMPY UXIOM XIUAP A";

CharacterFrequencies(p47);

m1 := CharacterMap("I","e",p47);

m2 := CharacterMap("UYGJ", "thrs", m1);

m3 := CharacterMap("R","n",m2);

m4 := CharacterMap("M","i",m3);

m5 := CharacterMap("FAP", "mog", m4);

m6 := CharacterMap("TKLZ", "avyu", m5);

m7 := CharacterMap("OHC", "cpf", m6);

m8 := CharacterMap("EXQV", "ldkw", m7);