{VERSION 3 0 "IBM INTEL LINUX" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "read `hillcipher.mpl
`;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 49 "Enter the entries of the en
ciphering matrix here:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "a:
= 1;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "b:= 0;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 5 "c:=0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "d:=1;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG\"\"\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"bG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG\"
\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"dG\"\"\"" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 25 "E:=matrix(2,2,[a,b,c,d]);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"EG-%'matrixG6#7$7$\"\"\"\"\"!7$F+F*" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 34 "Check to see if it has an inverse:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "det(E) mod 26;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 35 "Enter the message to be enciphered." }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 16 "plain:=`coffee`;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%&plainG%'coffeeG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 48 "Cipher:=map(letter,matmult(numbers(plain),E,2));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'CipherG7(%\"CG%\"OG%\"FGF(%\"EGF)" 
}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "Find the inverse of E mod 26:" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "DE:=invertmod(E);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#DEG-%'matrixG6#7$7$\"\"\"\"#E7$F+F*
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "12 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }