(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Wolfram 15.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[     27736,        700]
NotebookOptionsPosition[     23569,        622]
NotebookOutlinePosition[     25662,        668]
CellTagsIndexPosition[     25619,        665]
WindowTitle->HillQuagmireSolve
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {GridBox[{
      {
       ItemBox[Cell[BoxData[
         RowBox[{
          TemplateBox[{12},
           "Spacer1"], Cell[
          "WOLFRAM INSTITUTE/ PUZZLES SYMBOL", "PacletNameCell",
           TextAlignment->Center,ExpressionUUID->
           "ff31d6bb-0cfa-4bc4-ba56-ac36f7a72bf9"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "f8dc920e-68eb-4f73-854c-1646896b4275"],
        Background->LightDarkSwitched[
          RGBColor[0.490196, 0.576471, 0.690196]],
        ItemSize->Full], ""}
     },
     GridBoxAlignment->{"Rows" -> {{Center}}},
     GridBoxItemSize->{"Columns" -> {Full, 
         Scaled[0.02]}, "Rows" -> {{2.5}}}], Cell[TextData[{
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "See Also",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "d5157bd7-de01-4f83-be03-0afe98eaeab8"]
         }],ExpressionUUID->"10b17f89-aa42-4cf5-82a1-28dc13c9738a"],
         StripOnInput->False],{
        StyleBox[
          "\"QuagmireCompositeSolve\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/QuagmireCompositeSolve"], 
         StyleBox[
          "\"QuagmireSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/QuagmireSolve"], 
         StyleBox["\"HillCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HillCipher"], 
         StyleBox[
          "\"HillCipherSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HillCipherSolve"], 
         StyleBox[
          "\"CipherPeriods\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CipherPeriods"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "d12f90f4-c4a1-4625-9139-e1b9750b90b5"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "Related Guides",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "123bf04a-219e-422d-90b6-ae5d167d1280"]
         }],ExpressionUUID->"c025431f-a195-4caa-ada8-accd734a0eb6"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8183a7b2-ab15-4a5b-8a1a-646bb28aae1b"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "URL",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "745a0b63-74f2-430f-b0bc-b036ffee929c"]
         }],ExpressionUUID->"d4c86e96-50ad-424e-95a4-f1460a80ee00"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/HillQuagmireSolve\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/HillQuagmireSolve"], 
         Delimiter, "\"Copy web URL\"" :> 
         Module[{DocumentationSearch`Private`nb$}, 
           DocumentationSearch`Private`nb$ = 
            NotebookPut[
             Notebook[{
               Cell[BoxData[
                 MakeBoxes[
                  Hyperlink[
                   "http://reference.wolfram.com/language/WolframInstitute/\
Puzzles/ref/HillQuagmireSolve.html"], StandardForm]], "Input", 
                 TextClipboardType -> "PlainText"]}, Visible -> False]]; 
           SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
           FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
           NotebookClose[DocumentationSearch`Private`nb$]; Null], 
         "\"Go to web URL\"" :> 
         FrontEndExecute[{
           NotebookLocate[{
             URL[If[TrueQ[False], 
                 "http://reference.wolfram.com/system-modeler/", 
                 "http://reference.wolfram.com/language/"] <> 
               "WolframInstitute/Puzzles/ref/HillQuagmireSolve" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "55a22289-bdfd-4c50-86f9-ef102333f860"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "dfde6f38-2831-4b20-be48-bf7170e09817"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"7730dfae-a8a1-4de6-a677-0039ff341a63"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"54d5b49e-e597-463a-96f9-8d27fef2db18"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "HillQuagmireSolve", "ObjectName",ExpressionUUID->
      "8dd6c652-ee7f-4553-bba0-69e1aef7bd4e"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"075b6b17-588c-4f26-9678-e554ebca9277"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "b16cb847-a204-42f2-96d1-4427b69736af"]
    }],ExpressionUUID->"dc77227b-06d9-46f9-83fa-da34491b522c"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"168cf708-6373-4060-84a5-\
58511cdfac93"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["HillQuagmireSolve"]], 
         "paclet:WolframInstitute/Puzzles/ref/HillQuagmireSolve", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["text", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a17203bd-cf62-47a2-b1f3-d6e38809e364"],
     "\[LineSeparator]",
     "recovers, from ciphertext alone, a Hill cipher laid over a periodic \
Quagmire - the layered cipher of the Kryptos-CTF panel PK7 (a 3x3 Hill on the \
KRYPTOS-keyed alphabet outside a period-6 Quagmire III) - giving an \
Association with the best ",
     Cell[BoxData["\"\<Plaintext\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "8749e9ac-de25-4d2a-b6ae-2c11545870e3"],
     ", ",
     Cell[BoxData["\"\<HillKeyword\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "0f5ade95-471d-41ba-ab65-25e25519ffb0"],
     ", ",
     Cell[BoxData["\"\<HillMatrix\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "dcfee7c4-3283-4f19-b424-1ee25d2a4f7b"],
     ", ",
     Cell[BoxData["\"\<Period\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "169f6131-1f91-4dd7-b916-aa1ed339f90d"],
     " and ",
     Cell[BoxData["\"\<Score\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ba9935c0-d4fc-4807-b3cc-3accebf932e2"],
     "."
    }],ExpressionUUID->"f05b0c6c-7b3e-4d4f-9079-ab26a56b7e9f"]}
  }]], "Usage",ExpressionUUID->"3ce01d42-c906-4530-8f10-da335882e36b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[Cell[TextData[{
  Cell[BoxData[
   DynamicBox[ToBoxes[
     If[CurrentValue[
        EvaluationCell[], "CellGroupOpen"] =!= Closed, 
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], 
      Rotate[
       Style[
        Graphics[{
          Thickness[0.18], 
          RGBColor[0.8509803921568627, 0.396078431372549, 0], 
          Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
         PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
        0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
    ImageSizeCache->{
     13.600000000000001`, {-0.1685058593749993, 13.768505859375}}]],
   ExpressionUUID->"a403a16f-c303-4718-8442-e7bb290fbf13"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"e7b366d1-6640-4a22-8557-242dc17368cf"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "ac7cde2c-6a1e-4d54-89b7-1154b36cda31"]],ExpressionUUID->"ee327845-8a53-\
4c95-ad30-2e929b2bd758"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1645152874,ExpressionUUID->"93ef5caa-de08-4824-b50f-7f8ae6c12c77"],

Cell[TextData[{
 "The attack is a ",
 StyleBox["peel by the surviving statistic", "TI"],
 ", the dual of ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["QuagmireCompositeSolve"]], 
    "paclet:WolframInstitute/Puzzles/ref/QuagmireCompositeSolve", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "5e322279-a201-43d6-8849-f8201794266a"],
 ": a transposition leaves the letter histogram alone, but a Hill layer \
flattens the inner Quagmire's ",
 StyleBox["periodicity", "TI"],
 ", so undoing the correct Hill matrix is exactly what makes the residue \
periodic again. Every keyword-derived Hill matrix is scored by the strongest \
per-column ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["index of coincidence"]], 
    "paclet:WolframInstitute/Puzzles/ref/IndexOfCoincidence", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "fce47245-1de1-43e3-b935-cbbd89c5faed"],
 " of its un-Hilled text - near-English at the true period, flat for a wrong \
matrix - and the winning residue is handed to ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["QuagmireSolve"]], 
    "paclet:WolframInstitute/Puzzles/ref/QuagmireSolve", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "528ed551-cef6-41f3-8ebc-2f17a9e927c5"],
 " at the recovered period."
}], "Notes",ExpressionUUID->"3eaa38c7-2c55-410f-874b-a8f0dcdbccf0"],

Cell[TextData[{
 "This is the method that recovers the real Kryptos-CTF ",
 StyleBox["PK7",
  FontWeight->"Bold"],
 " with no key: the Hill keyword ",
 StyleBox["ALCHEMIST",
  FontWeight->"Bold"],
 " stands out from the whole dictionary because its residue alone jumps to a \
period-6 index of coincidence of 0.069 (against about 0.05 for every other \
word), and the period-6 Quagmire then falls to QuagmireSolve."
}], "Notes",ExpressionUUID->"2a823cd0-983d-4eb5-9470-760debe13920"],

Cell[TextData[{
 "The option ",
 Cell[BoxData["\<\"Keywords\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6b83d7d4-3fa2-4a77-8389-c329f9f2eac4"],
 " (Automatic uses the length-",
 Cell[BoxData["\<\"HillSize\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7d5fda47-eb74-424c-bd3f-b8237a4df257"],
 "^2 words of ",
 Cell[BoxData[
  RowBox[{"WordList", "[", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e621b31e-43bb-4ef5-8210-61a5f59f2cd7"],
 ") supplies the Hill-matrix keywords; ",
 Cell[BoxData["\<\"HillSize\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c542fe16-5035-4105-9381-10aa02b7bb80"],
 " (default 3) sets the Hill block size, ",
 Cell[BoxData["\<\"Alphabet\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "595c9885-bd17-4504-8b23-1e7b1774c806"],
 " (default ",
 Cell[BoxData["\<\"KRYPTOS\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "27d34a46-52cd-4df7-a885-2a1b79b9d5dd"],
 ") the shared Hill and Quagmire alphabet, ",
 Cell[BoxData["\<\"MaxPeriod\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8dde74a4-ac52-488c-a0d3-cdd8ecb0a222"],
 " the periods scanned for the peel, and ",
 Cell[BoxData["\<\"Variant\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b945542b-7846-4398-9be4-e64ad89571e3"],
 " (default 3) the Quagmire variant passed on."
}], "Notes",ExpressionUUID->"22a51ab5-79b8-4641-a7c9-fc8c6bc247e5"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"fed8e805-86b3-45a7-b629-2134afc19511"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[
     MatchQ[
      CurrentValue[
       EvaluationNotebook[], {
       TaggingRules, "Openers", "PrimaryExamplesSection"}, Open], 
      Alternatives[True, Open]], 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
   ImageSizeCache->{
    13.600000000000001`, {4.251494140625001, 9.348505859375}}]],
  ExpressionUUID->"19e89737-c650-46fc-9969-fffb97ac398b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ea4ca283-9edc-4f1a-99d6-58cd2f2afcea"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "2f34f440-9f28-4131-a324-e2967cacb919"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1232398193,ExpressionUUID->"1658232e-0762-498d-955c-9a573f4dd028"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"2c8a163f-4b0b-45e3-8d02-9525eaa35f48"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "20e391dc-31c6-4eef-827f-e631ce64be50"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"9fbfcc83-fae4-4487-9b91-fb0d30d22297"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "551207c8-6945-4060-8fa2-9c80cbb0fcb2"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->436654436,ExpressionUUID->"da9d6ccb-b041-4ea8-84cb-28fedc46797b"],

Cell[TextData[{
 "Crack the real Kryptos-CTF ",
 StyleBox["PK7",
  FontWeight->"Bold"],
 " - a 3x3 Hill over a period-6 Quagmire III on the KRYPTOS alphabet. The \
Hill matrix keyword must be picked out of the candidates by the periodicity \
its residue restores; here ",
 StyleBox["ALCHEMIST",
  FontWeight->"Bold"],
 " wins and the plaintext opens \"THREE WEEKS IN\[Ellipsis]\":"
}], "ExampleText",ExpressionUUID->"9cfdfa03-04cd-4cbf-b9c3-68aad963cdb0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringStartsQ", "[", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"HillQuagmireSolve", "[", "\n", "    ", 
     RowBox[{"\"\<\
FNRHTKRHSEDEJMBOWBDSCSDDXLICXULMBYQXWTGUIVNDYZBEQLVHFFFIDAKDCCJKWGOOUESCYELYMR\
AKIUJCUSEAXUQTYKOBVYDYMRBYWOTQEESCQSMDYDQJNPSWRSUOFMFJDYXSHCXNHVJVBYMZOZOATHTE\
OVLOQWZITHTEAFMKGLASTBZRDMFRJPKWJOXZXPJCBOVAZEPKAEJPPSIUJODXTXERWTLTTYMRENBJGT\
NMLBDJMYJDDLRCXCQCHYMJMHBEOLXEUFNJKBPRSHTEYXB\>\"", ",", "\n", "    ", 
      RowBox[{"\"\<Keywords\>\"", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<ALCHEMIST\>\"", ",", " ", "\"\<GESTATION\>\"", ",", 
         " ", "\"\<BENEFITED\>\"", ",", " ", "\"\<CROSSROAD\>\""}], "}"}]}]}],
      "]"}], "[", "\"\<Plaintext\>\"", "]"}], ",", "\n", 
   "  ", "\"\<THREEWEEKSINWERISEBEFORETHESUN\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ecbe82bf-1b61-4465-b689-a2c4f4c01099"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4996a229-8bea-49fc-af94-af7c7f4f42c9"]
}, Open  ]],

Cell[TextData[{
 "Left to its default, ",
 Cell[BoxData[
  RowBox[{"\<\"Keywords\"\>", " ", "->", " ", "Automatic"}]], "InlineFormula",
  
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e4395279-44c8-470d-8deb-9b464a833844"],
 " sweeps every nine-letter word of ",
 Cell[BoxData[
  RowBox[{"WordList", "[", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "51a28a66-c2d6-4bf8-a775-fbaea82153f9"],
 " and finds ALCHEMIST on its own."
}], "ExampleText",ExpressionUUID->"4a05dfb4-6703-4a80-808b-4637aa976a36"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["QuagmireCompositeSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/QuagmireCompositeSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1428334e-7e6f-4cea-822f-310aca3dda80"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["QuagmireSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/QuagmireSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "bf003ef8-d017-4d33-82f5-ab26cd75cc80"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HillCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/HillCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "523c3345-b039-42f6-963f-5fa8401fc2dd"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HillCipherSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/HillCipherSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "4bb03a20-55d1-4d0b-8810-71c54ebbdc88"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["CipherPeriods"]], 
           "paclet:WolframInstitute/Puzzles/ref/CipherPeriods", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "de66a2fb-11d6-41d2-b990-49d2ee112cd4"]
       }], "SeeAlso",ExpressionUUID->"8af02cab-6bee-4b18-96a2-f51831c19cad"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"7d4db822-01b6-4b0a-8811-\
16e127e5554c"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Search"]], 
           "paclet:WolframInstitute/Puzzles/guide/Search"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "8c0a06d0-93b1-4006-a4ff-6699ec223fad"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"0517462e-08b2-428c-815d-\
8740a5cecef9"],

Cell[" ", "FooterCell",ExpressionUUID->"90cf0e11-dd63-4a3b-85b7-51507009aac0"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"HillQuagmireSolve",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "", "LinkTrails" -> "", 
  "ExampleCounter" -> 1, 
  "Openers" -> {
   "PrimaryExamplesSection" -> Open, "ExampleSection" -> {"0" -> Open}, 
    "AllOptsTable" -> Closed}, "NewStyles" -> True, 
  "CitationPopupData" -> $Failed, "ShowCitation" -> False, "HasOptions" -> 
  True, "RootCaptions" -> "", "HeaderCoreAreaLink" -> {}, 
  "Metadata" -> {
   "built" -> "{2026, 8, 27, 0, 11, 34.354587}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[HillQuagmireSolve, paclet : \
WolframInstitute/Puzzles/ref/HillQuagmireSolve, WolframInstitute/Puzzles \
Package Symbol][text] recovers, from ciphertext alone, a Hill cipher laid \
over a periodic Quagmire - the layered cipher of the Kryptos-CTF panel PK7 (a \
3x3 Hill on the KRYPTOS-keyed alphabet outside a period-6 Quagmire III) - \
giving an Association with the best Plaintext, HillKeyword, HillMatrix, \
Period and Score.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "HillQuagmireSolve", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "HillQuagmireSolve", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/HillQuagmireSolve", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"c2fec132-fc21-4f6d-8fa2-074b30a6c2a9"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 5821, 142, 70, "AnchorBarGrid",ExpressionUUID->"7730dfae-a8a1-4de6-a677-0039ff341a63",
 CellID->1],
Cell[6409, 165, 107, 0, 70, "ContextNameCell",ExpressionUUID->"54d5b49e-e597-463a-96f9-8d27fef2db18"],
Cell[CellGroupData[{
Cell[6541, 169, 560, 14, 70, "ObjectNameGrid",ExpressionUUID->"168cf708-6373-4060-84a5-58511cdfac93"],
Cell[7104, 185, 1939, 46, 70, "Usage",ExpressionUUID->"3ce01d42-c906-4530-8f10-da335882e36b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9080, 236, 1444, 34, 70, "NotesSection",ExpressionUUID->"93ef5caa-de08-4824-b50f-7f8ae6c12c77",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1645152874],
Cell[10527, 272, 1692, 43, 70, "Notes",ExpressionUUID->"3eaa38c7-2c55-410f-874b-a8f0dcdbccf0"],
Cell[12222, 317, 483, 10, 70, "Notes",ExpressionUUID->"2a823cd0-983d-4eb5-9470-760debe13920"],
Cell[12708, 329, 1770, 43, 70, "Notes",ExpressionUUID->"22a51ab5-79b8-4641-a7c9-fc8c6bc247e5"]
}, Closed]],
Cell[14493, 375, 80, 0, 70, "PageDelimiter",ExpressionUUID->"fed8e805-86b3-45a7-b629-2134afc19511"],
Cell[CellGroupData[{
Cell[14598, 379, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"1658232e-0762-498d-955c-9a573f4dd028",
 CellID->1232398193],
Cell[16002, 418, 216, 4, 70, "Input",ExpressionUUID->"2c8a163f-4b0b-45e3-8d02-9525eaa35f48",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[16243, 426, 1235, 31, 70, "ExampleSection",ExpressionUUID->"da9d6ccb-b041-4ea8-84cb-28fedc46797b",
 CellID->436654436],
Cell[17481, 459, 455, 10, 70, "ExampleText",ExpressionUUID->"9cfdfa03-04cd-4cbf-b9c3-68aad963cdb0"],
Cell[CellGroupData[{
Cell[17961, 473, 945, 17, 70, "Input",ExpressionUUID->"ecbe82bf-1b61-4465-b689-a2c4f4c01099"],
Cell[18909, 492, 110, 1, 70, "Output",ExpressionUUID->"4996a229-8bea-49fc-af94-af7c7f4f42c9"]
}, Open  ]],
Cell[19034, 496, 592, 15, 70, "ExampleText",ExpressionUUID->"4a05dfb4-6703-4a80-808b-4637aa976a36"]
}, Open  ]]
}, Open  ]],
Cell[19653, 515, 3136, 82, 70, "SeeAlsoSection",ExpressionUUID->"7d4db822-01b6-4b0a-8811-16e127e5554c"],
Cell[22792, 599, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"0517462e-08b2-428c-815d-8740a5cecef9"],
Cell[23487, 620, 78, 0, 70, "FooterCell",ExpressionUUID->"90cf0e11-dd63-4a3b-85b7-51507009aac0"]
}
]
*)

(* End of internal cache information *)

