(* 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[     24781,        621]
NotebookOptionsPosition[     20614,        542]
NotebookOutlinePosition[     22812,        590]
CellTagsIndexPosition[     22769,        587]
WindowTitle->QuagmireCompositeSolve
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->
           "e1295519-5bdd-4212-9647-2e71084304a4"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "d2b83532-dd85-4d42-9215-faa19c71253e"],
        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->
           "ce948dc5-31c6-4aa5-bbac-c2fce5dc3eac"]
         }],ExpressionUUID->"80824308-746f-48cf-9f6b-682fa97cfc9f"],
         StripOnInput->False],{
        StyleBox[
          "\"QuagmireSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/QuagmireSolve"], 
         StyleBox[
          "\"VigenereSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereSolve"], 
         StyleBox[
          "\"ColumnarTranspositionSolve\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve"], 
         StyleBox[
          "\"VigenereCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereCipher"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e3fd4006-5f7b-4fc0-8ab0-b4fbbf067a11"],
     "\[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->
           "0fc71c92-5b04-4bed-9ac9-ac476aa7f4ee"]
         }],ExpressionUUID->"d70d9784-3f7e-4651-8508-774d01110355"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "054f6156-b848-474b-be3b-30ac8e6f0d1b"],
     "\[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->
           "f5fc5e44-82f5-40ff-92ee-8c5ddf99b1c9"]
         }],ExpressionUUID->"e460bba6-aafc-479d-83f4-7a53133a5ecf"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/QuagmireCompositeSolve\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/QuagmireCompositeSolve"], 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/QuagmireCompositeSolve.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/QuagmireCompositeSolve" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "4556219e-351c-4d06-a3c1-30492515ee8e"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "e8159e25-f18b-4e0b-8b53-f01162e039e1"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"4f969af9-6f3a-4951-94d9-c55726661131"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"6816df93-25db-4e9c-90ee-6244478edcdb"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "QuagmireCompositeSolve", "ObjectName",ExpressionUUID->
      "25f46397-7605-44dc-b62e-ed9f711fe38a"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"578b7c05-a1bd-4a40-84b9-8415ad5ca24c"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "080a16eb-2d04-4e1d-8d31-f500209f8dc7"]
    }],ExpressionUUID->"4ddd1318-1421-41d3-9b0c-be0ccc8d0cfa"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"71633a37-abcc-4944-b6f3-\
3a6d092f9e81"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["QuagmireCompositeSolve"]], 
         "paclet:WolframInstitute/Puzzles/ref/QuagmireCompositeSolve", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["text", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "bdb26ab8-d2bc-4b43-a692-4576f590c5a0"],
     "\[LineSeparator]",
     "recovers, from ciphertext alone, the layered cipher of the Kryptos-CTF \
panels PK4 and PK6 - a columnar transposition beneath a double ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Quagmire III"]], 
        "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "4848ce18-13b6-4a15-aba3-6fa6d560200f"],
     " over the KRYPTOS-keyed alphabet - giving an Association with the best ",
     Cell[BoxData["\"\<Plaintext\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f7d521bf-f039-457d-9e15-bc3059df81c8"],
     ", ",
     Cell[BoxData["\"\<Periods\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "7c6f3bda-2962-4aef-8030-e5f61e1b6a70"],
     ", ",
     Cell[BoxData["\"\<Width\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "891d873a-808e-4f13-84da-f0aa08dd894b"],
     " and ",
     Cell[BoxData["\"\<Score\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "eb3f36d8-77b5-4576-aeba-f5652a1dae73"],
     "."
    }],ExpressionUUID->"cbd53c10-ae5a-49b3-812a-4d7649a37001"]}
  }]], "Usage",ExpressionUUID->"0866f677-cf0a-4494-aa2e-2774df58f03d"]
}, 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->"cc5c1c16-27f2-4d56-bcdd-12113f8ad111"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"33d0494d-32cb-4b33-b9bd-7918006a6c77"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "aa61971c-d6df-42d5-89b8-42718ec5dd80"]],ExpressionUUID->"c75c3801-7d21-\
4acf-ae2c-142335dce47b"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->498673447,ExpressionUUID->"f41c2a2b-2ec2-4c38-b14c-cfc0aa639684"],

Cell[TextData[{
 "The attack is a ",
 StyleBox["peel", "TI"],
 ": because the outer substitution leaves the letter histogram of each \
Quagmire column unchanged, the double Quagmire is stripped by a unigram \
index-of-coincidence hill-climb that a transposition cannot disturb; the \
peeled text is ",
 Cell[BoxData[
  RowBox[{"columnar", 
   RowBox[{"(", "plaintext", ")"}]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "940351d7-2153-4d88-917b-059482ac6b9a"],
 ", so every column order is brute-forced against quadgram fitness; finally \
the two cyclewords are re-optimised by the quadgram fitness of the \
de-transposed plaintext. The whole thing is swept over the two Quagmire \
periods and the column count."
}], "Notes",ExpressionUUID->"85b17e0f-a98a-473c-9d0e-810ffd2435fe"],

Cell[TextData[{
 "This is the method that recovers the real Kryptos-CTF ",
 StyleBox["PK4",
  FontWeight->"Bold"],
 " with no key - the periods and the column key fall out of the ciphertext."
}], "Notes",ExpressionUUID->"ec07ba94-80ca-4c72-be55-109dd1038242"],

Cell[TextData[{
 "The options ",
 Cell[BoxData["\<\"MaxPeriod\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c959de81-dc7f-4e2e-b0cd-ab88e65213a4"],
 " and ",
 Cell[BoxData["\<\"MaxWidth\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ae534db1-da6b-4d6d-a645-ede08f217fe4"],
 " bound the swept periods and columns; ",
 Cell[BoxData["\<\"Restarts\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0db9af11-48cd-4625-a727-5241c0616a33"],
 " and ",
 Cell[BoxData["\<\"Iterations\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "39d1becb-0195-4d8e-be45-58c3043c74e6"],
 " size the peel hill-climb. The search runs through the LibraryLink C \
accelerator (",
 Cell["LibraryResources/Source/wlqcrack.c", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "56e737ed-d4a5-4bfb-b667-d3091d31f534"],
 ") and needs a C compiler."
}], "Notes",ExpressionUUID->"78ff0cb9-bf6c-45d1-80f4-65622d56f0f8"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"7f052000-bafa-4df9-ac57-d85fd550eab3"],

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->"79833134-8e03-4acb-b27b-fd64da32856a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"73e31242-71df-42d6-b041-dc3f45549079"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "c78cc35e-03c9-454a-921b-f1aec4e0c7c2"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1723433135,ExpressionUUID->"1148e462-00f6-4ce7-a425-67588cd11910"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"715b3312-bc6e-49c0-bd62-54e8e27060b0"],

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->
  "ef987a5d-34bc-48e4-b5ba-16813c8d99f8"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7768c63a-39f2-41c0-8fff-3f55edcb27b7"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "dbb3fbb8-698f-4647-90fc-19e449e5306c"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->481269209,ExpressionUUID->"ae0d1a6d-118b-405b-955d-dfce7cd5fb30"],

Cell[TextData[{
 "Crack the real Kryptos-CTF ",
 StyleBox["PK4",
  FontWeight->"Bold"],
 " with no key - it is a width-8 columnar transposition beneath a double \
Quagmire III (periods 5 and 9) over the KRYPTOS alphabet, and both the \
periods and the plaintext fall out of the ciphertext:"
}], "ExampleText",ExpressionUUID->"85adccf2-a79c-4778-a5f6-1dad31e78d21"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringStartsQ", "[", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"QuagmireCompositeSolve", "[", "\n", "    ", 
     RowBox[{"\"\<\
YOVISYUAFKUQNRJQLZTAZTMQOUKELJKCYUWIDSPSWRJRUEZNIFPUMUHQFFVBGOBEPWNTZGKVUTOVFS\
ADUJUAYGWKQYOGNKHZVQMEWHSJGJFOBPHXKAPEXPWRJTSPSIJLCSXYTLDFBNZNPUAZNBZPKRFCUZDD\
ZHZULZVPVWCXSIUVSCCFATGSJPNIGCJVTMUPTCGRTOFRXWCYKOMXOJKCECRUCKBDCIYJ\>\"", ",",
       "\n", "    ", 
      RowBox[{"\"\<MaxPeriod\>\"", " ", "->", " ", "9"}], ",", " ", 
      RowBox[{"\"\<MaxWidth\>\"", " ", "->", " ", "8"}], ",", " ", 
      RowBox[{"\"\<Restarts\>\"", " ", "->", " ", "16"}], ",", " ", 
      RowBox[{"\"\<Iterations\>\"", " ", "->", " ", "90000"}]}], "]"}], 
    "[", "\"\<Plaintext\>\"", "]"}], ",", "\n", 
   "  ", "\"\<TWOYEARSINTHENEEDLESTRAIL\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e095c7da-cdf0-431f-9c99-ea3959862a91"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"51bd508b-0713-45fb-a575-fbd77d51cbd2"]
}, Open  ]]
}, 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["QuagmireSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/QuagmireSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "79448012-5c68-48ad-a23d-184eadd5d247"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["VigenereSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/VigenereSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1fa67416-2b2c-44cd-9454-e530d74c46ec"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ColumnarTranspositionSolve"]], 
           "paclet:WolframInstitute/Puzzles/ref/ColumnarTranspositionSolve", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7ce38c7e-115c-499d-9de6-2e25ed559aa6"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["VigenereCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "b3c76d99-f373-49da-b369-c2b4c2e0cc1e"]
       }], "SeeAlso",ExpressionUUID->"aa99cd89-2bed-4d93-aefa-d826d534d66c"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"ea2a975a-3e68-48b4-8c18-\
c9d64616f2d4"],

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->
         "2f88d2a6-f721-46c5-abab-edc528667c51"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"59d2c0e2-5b92-4f3a-aaa4-\
b88ae9c479db"],

Cell[" ", "FooterCell",ExpressionUUID->"c197e121-bd34-4279-bc46-f7b45b85ef30"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"QuagmireCompositeSolve",
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, 45.814979}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[QuagmireCompositeSolve, paclet : \
WolframInstitute/Puzzles/ref/QuagmireCompositeSolve, WolframInstitute/Puzzles \
Package Symbol][text] recovers, from ciphertext alone, the layered cipher of \
the Kryptos-CTF panels PK4 and PK6 - a columnar transposition beneath a \
double PackageLink[Quagmire III, paclet : \
WolframInstitute/Puzzles/ref/VigenereCipher, WolframInstitute/Puzzles Package \
Symbol] over the KRYPTOS-keyed alphabet - giving an Association with the best \
Plaintext, Periods, Width and Score.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "QuagmireCompositeSolve", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "QuagmireCompositeSolve", 
    "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/QuagmireCompositeSolve", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"f41e90c2-a5b1-4f03-9748-599b939c5f89"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[590, 21, 5681, 140, 70, "AnchorBarGrid",ExpressionUUID->"4f969af9-6f3a-4951-94d9-c55726661131",
 CellID->1],
Cell[6274, 163, 107, 0, 70, "ContextNameCell",ExpressionUUID->"6816df93-25db-4e9c-90ee-6244478edcdb"],
Cell[CellGroupData[{
Cell[6406, 167, 565, 14, 70, "ObjectNameGrid",ExpressionUUID->"71633a37-abcc-4944-b6f3-3a6d092f9e81"],
Cell[6974, 183, 2095, 50, 70, "Usage",ExpressionUUID->"0866f677-cf0a-4494-aa2e-2774df58f03d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9106, 238, 1443, 34, 70, "NotesSection",ExpressionUUID->"f41c2a2b-2ec2-4c38-b14c-cfc0aa639684",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->498673447],
Cell[10552, 274, 834, 17, 70, "Notes",ExpressionUUID->"85b17e0f-a98a-473c-9d0e-810ffd2435fe"],
Cell[11389, 293, 259, 5, 70, "Notes",ExpressionUUID->"ec07ba94-80ca-4c72-be55-109dd1038242"],
Cell[11651, 300, 1118, 27, 70, "Notes",ExpressionUUID->"78ff0cb9-bf6c-45d1-80f4-65622d56f0f8"]
}, Closed]],
Cell[12784, 330, 80, 0, 70, "PageDelimiter",ExpressionUUID->"7f052000-bafa-4df9-ac57-d85fd550eab3"],
Cell[CellGroupData[{
Cell[12889, 334, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"1148e462-00f6-4ce7-a425-67588cd11910",
 CellID->1723433135],
Cell[14293, 373, 216, 4, 70, "Input",ExpressionUUID->"715b3312-bc6e-49c0-bd62-54e8e27060b0",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14534, 381, 1235, 31, 70, "ExampleSection",ExpressionUUID->"ae0d1a6d-118b-405b-955d-dfce7cd5fb30",
 CellID->481269209],
Cell[15772, 414, 364, 7, 70, "ExampleText",ExpressionUUID->"85adccf2-a79c-4778-a5f6-1dad31e78d21"],
Cell[CellGroupData[{
Cell[16161, 425, 940, 17, 70, "Input",ExpressionUUID->"e095c7da-cdf0-431f-9c99-ea3959862a91"],
Cell[17104, 444, 110, 1, 70, "Output",ExpressionUUID->"51bd508b-0713-45fb-a575-fbd77d51cbd2"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[17253, 450, 2581, 67, 70, "SeeAlsoSection",ExpressionUUID->"ea2a975a-3e68-48b4-8c18-c9d64616f2d4"],
Cell[19837, 519, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"59d2c0e2-5b92-4f3a-aaa4-b88ae9c479db"],
Cell[20532, 540, 78, 0, 70, "FooterCell",ExpressionUUID->"c197e121-bd34-4279-bc46-f7b45b85ef30"]
}
]
*)

(* End of internal cache information *)

