(* 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[     23609,        606]
NotebookOptionsPosition[     19529,        529]
NotebookOutlinePosition[     21545,        574]
CellTagsIndexPosition[     21502,        571]
WindowTitle->SlidefairSolve
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->
           "5b0fa563-17e7-4df1-81cc-64ef6608a804"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "f4528a29-54f7-405e-bc95-a8e2523e1599"],
        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->
           "a41376b6-f77e-48b5-b7c8-b6cc1d98377b"]
         }],ExpressionUUID->"41ba3185-7f50-49aa-9804-dcb0f2e85eeb"],
         StripOnInput->False],{
        StyleBox[
          "\"SlidefairCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SlidefairCipher"], 
         StyleBox[
          "\"VigenereSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereSolve"], 
         StyleBox[
          "\"EnglishNgramScore\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/EnglishNgramScore"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e69c8806-bf71-4b21-830b-15ab61bfc999"],
     "\[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->
           "32efe0e7-1be7-4bb2-85f3-78379e7709ae"]
         }],ExpressionUUID->"b671bd9d-b22b-49a3-b3fa-ecc8bddf9fb8"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "6e8df93a-6d1c-4962-9f71-bfece3ea5c11"],
     "\[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->
           "e40ce57a-abf3-4640-9d72-162cbf5afd61"]
         }],ExpressionUUID->"bccc2f8b-867e-46be-a6d5-e821df462c3c"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/SlidefairSolve\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/SlidefairSolve"], 
         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/SlidefairSolve.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/SlidefairSolve" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "566f3e8a-6e12-4161-87bd-23ed30e79bbd"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "d99a7deb-eeea-470a-8008-e173d647b67c"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"7596d51e-8411-4dba-9887-6059fe45cf81"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"921d0225-6d58-4864-93e3-717a4f0c35eb"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "SlidefairSolve", "ObjectName",ExpressionUUID->
      "19879bde-f54e-459b-8eb3-072387b8b82c"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"e06d2f16-71ae-459e-adfd-d109d65c815d"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "2165db6a-5675-409d-b3fc-235c1a8d1134"]
    }],ExpressionUUID->"699ad3e8-9f00-44d9-9267-6c79a0d58dd6"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"48d827a3-13f7-4982-912e-\
ee6126ed26fb"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SlidefairSolve"]], 
         "paclet:WolframInstitute/Puzzles/ref/SlidefairSolve", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["text", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "9667c114-84d4-4dc6-968a-74f70fb5c1e1"],
     "\[LineSeparator]",
     "recovers a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["SlidefairCipher"]], 
        "paclet:WolframInstitute/Puzzles/ref/SlidefairCipher", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "4f14dc71-ed49-46df-b30f-d2db45b4acfc"],
     " from ciphertext alone, giving an Association with the best ",
     Cell[BoxData["\"\<Plaintext\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "33e1fe4a-e576-476f-ad41-cc2536303d36"],
     ", ",
     Cell[BoxData["\"\<Key\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f0d8bff5-4d99-4850-b67d-982230fe8876"],
     ", ",
     Cell[BoxData["\"\<Period\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "7c3598ac-b6b2-45eb-9ae2-c7d0ca3d41f9"],
     ", ",
     Cell[BoxData["\"\<Variant\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "eab6c66a-154d-4e6f-8a7b-874598b803d8"],
     " and ",
     Cell[BoxData["\"\<Score\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f82364c5-ba01-4d85-9442-66e7f7c9ebdc"],
     "."
    }],ExpressionUUID->"7abb42a8-bca9-4064-9fd4-77c6df713c2d"]}
  }]], "Usage",ExpressionUUID->"f14f9ece-d799-468b-8b5e-15b04aebb0fc"]
}, 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->"5f3e2ca7-5eb3-4174-8a73-ef74472f6d96"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"c7612d83-9e90-4bca-ab99-0c1353fd5c15"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "27340121-fd32-4141-92f5-72b508afc806"]],ExpressionUUID->"79ed1283-07e4-\
4e68-9277-d92832caaa81"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->981144384,ExpressionUUID->"d38ec621-6cd4-451a-93eb-50e7cf2c4c3e"],

Cell[TextData[{
 "The key is recovered by a simulated-annealing hill-climb scoring the whole \
decrypt with ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["EnglishNgramScore"]], 
    "paclet:WolframInstitute/Puzzles/ref/EnglishNgramScore", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "b384464c-ed8e-4fb3-a022-c6834a34844e"],
 "; the climb is seeded reproducibly, so a given ciphertext always returns \
the same reading."
}], "Notes",ExpressionUUID->"9435ef68-3fe9-42f3-bd94-911b054a7f8f"],

Cell[TextData[{
 "The option ",
 Cell[BoxData["\<\"Variant\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2bb51438-86ee-483c-b101-48e5faf62191"],
 " (Automatic tries ",
 Cell[BoxData["\<\"Vigenere\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0e49f8c4-20be-41ef-ad03-c7cde0824214"],
 ", ",
 Cell[BoxData["\<\"Variant\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "19fda87b-9f7c-45b1-81dd-d86bb2c33f55"],
 " and ",
 Cell[BoxData["\<\"Beaufort\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d7a37bd2-6487-45db-8380-30f31eaaa341"],
 ") fixes the slid alphabet, and ",
 Cell[BoxData["\<\"Period\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1e4bc149-599e-4193-9a63-9719883e28fd"],
 " (Automatic tries 2 through 12) the key length."
}], "Notes",ExpressionUUID->"150ff3ca-f8b3-4dbd-87de-c1e82c3f5f00"],

Cell[TextData[{
 Cell[BoxData["\<\"Restarts\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "979b975e-2a02-4286-b8de-b4418815d619"],
 " and ",
 Cell[BoxData["\<\"Iterations\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4bd75293-8947-467c-afa7-11ebc20c72c4"],
 " size the search; more of each improves a stubborn or short ciphertext at \
the cost of time."
}], "Notes",ExpressionUUID->"ebc73a1f-feb4-40d4-a0d4-732ba15a2afa"],

Cell["\<\
A couple of hundred letters converges comfortably; too short a message leaves \
the digraphs under-determined.\
\>", "Notes",ExpressionUUID->"2ecd4df2-da84-48a4-8328-f9c81f8edd6c"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"4ea379de-d33d-4545-89fb-758265ca6d38"],

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->"b235e828-1670-4bee-9985-00b95382cade"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"21c61414-066d-4d90-8221-29a830c2fafa"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "1b1e3749-cec0-48d3-9efa-d8ef3b44c0db"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1714220222,ExpressionUUID->"dab81099-cac9-4751-aa61-6015bc1ecf76"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"504c2b8b-7909-4c66-8043-609682b04296"],

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->
  "ff95163d-4e78-442d-aa55-df145ff5a046"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"af3482e8-212d-4510-a381-badddb3dbc64"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "89ff3ec0-32a1-48fd-9256-e1b82e020e14"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258663002,ExpressionUUID->"47bc54ca-c9c1-4f29-921a-2e41c5df7e91"],

Cell["Recover a Slidefair cipher with no key, given the period:", \
"ExampleText",ExpressionUUID->"dfeee265-df99-4daf-9401-7535ffc0a924"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "pt", " ", "=", 
   " ", "\"\<\
THESLIDEFAIRCANBEUSEDWITHVIGENEREVARIANTORBEAUFORTQUICKLYNOWBEFORETHELIGHTFADE\
SANDTHESHADOWSGROWLONG\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SlidefairSolve", "[", 
   RowBox[{
    RowBox[{"SlidefairCipher", "[", 
     RowBox[{"pt", ",", " ", "\"\<DIGRAPH\>\""}], "]"}], ",", " ", 
    RowBox[{"\"\<Variant\>\"", " ", "->", " ", "\"\<Vigenere\>\""}], ",", " ", 
    RowBox[{"\"\<Period\>\"", " ", "->", " ", "7"}]}], "]"}], 
  "[", "\"\<Key\>\"", "]"}]}], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"896a55a5-dd6c-4e82-8db2-85842c8072d4"],

Cell[BoxData["\<\"DIGRAPH\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"36066f8f-5361-46b8-b011-6d3b75feed7c"]
}, 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["SlidefairCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/SlidefairCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e8ac3921-d91b-49d0-978f-26faca2ea417"],
        "\[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->
         "188e21a3-b897-4d13-ad8a-e6bc6071bb1f"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["EnglishNgramScore"]], 
           "paclet:WolframInstitute/Puzzles/ref/EnglishNgramScore", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "68424586-1105-4f28-bed0-781bee573aaa"]
       }], "SeeAlso",ExpressionUUID->"002a0436-49a8-41b7-9185-8f078cf70996"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"2ad0cd54-9176-4ffc-85c4-\
de1dadfe6179"],

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->
         "d3a1daa6-7974-4a10-8851-c8be3324ec21"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"f96e0f79-ad6a-4ee3-a2df-\
d1ed4d457b00"],

Cell[" ", "FooterCell",ExpressionUUID->"eafa87f1-b1ae-4768-9a51-be5942387df6"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"SlidefairSolve",
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, 57.861621}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[SlidefairSolve,paclet : \
WolframInstitute/Puzzles/ref/SlidefairSolve, WolframInstitute/Puzzles Package \
Symbol][text] recovers a PackageLink[SlidefairCipher, paclet : \
WolframInstitute/Puzzles/ref/SlidefairCipher, WolframInstitute/Puzzles \
Package Symbol] from ciphertext alone, giving an Association with the best \
Plaintext, Key, Period, Variant and Score.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "SlidefairSolve", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "SlidefairSolve", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/SlidefairSolve", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"a3907dbe-0652-44e4-89f7-f7e2a19ea33f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 5424, 135, 70, "AnchorBarGrid",ExpressionUUID->"7596d51e-8411-4dba-9887-6059fe45cf81",
 CellID->1],
Cell[6009, 158, 107, 0, 70, "ContextNameCell",ExpressionUUID->"921d0225-6d58-4864-93e3-717a4f0c35eb"],
Cell[CellGroupData[{
Cell[6141, 162, 557, 14, 70, "ObjectNameGrid",ExpressionUUID->"48d827a3-13f7-4982-912e-ee6126ed26fb"],
Cell[6701, 178, 2141, 54, 70, "Usage",ExpressionUUID->"f14f9ece-d799-468b-8b5e-15b04aebb0fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8879, 237, 1443, 34, 70, "NotesSection",ExpressionUUID->"d38ec621-6cd4-451a-93eb-50e7cf2c4c3e",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->981144384],
Cell[10325, 273, 623, 15, 70, "Notes",ExpressionUUID->"9435ef68-3fe9-42f3-bd94-911b054a7f8f"],
Cell[10951, 290, 1077, 27, 70, "Notes",ExpressionUUID->"150ff3ca-f8b3-4dbd-87de-c1e82c3f5f00"],
Cell[12031, 319, 534, 12, 70, "Notes",ExpressionUUID->"ebc73a1f-feb4-40d4-a0d4-732ba15a2afa"],
Cell[12568, 333, 190, 3, 70, "Notes",ExpressionUUID->"2ecd4df2-da84-48a4-8328-f9c81f8edd6c"]
}, Closed]],
Cell[12773, 339, 80, 0, 70, "PageDelimiter",ExpressionUUID->"4ea379de-d33d-4545-89fb-758265ca6d38"],
Cell[CellGroupData[{
Cell[12878, 343, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"dab81099-cac9-4751-aa61-6015bc1ecf76",
 CellID->1714220222],
Cell[14282, 382, 216, 4, 70, "Input",ExpressionUUID->"504c2b8b-7909-4c66-8043-609682b04296",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14523, 390, 1235, 31, 70, "ExampleSection",ExpressionUUID->"47bc54ca-c9c1-4f29-921a-2e41c5df7e91",
 CellID->258663002],
Cell[15761, 423, 137, 1, 70, "ExampleText",ExpressionUUID->"dfeee265-df99-4daf-9401-7535ffc0a924"],
Cell[CellGroupData[{
Cell[15923, 428, 665, 16, 70, "Input",ExpressionUUID->"896a55a5-dd6c-4e82-8db2-85842c8072d4"],
Cell[16591, 446, 121, 1, 70, "Output",ExpressionUUID->"36066f8f-5361-46b8-b011-6d3b75feed7c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[16751, 452, 1998, 52, 70, "SeeAlsoSection",ExpressionUUID->"2ad0cd54-9176-4ffc-85c4-de1dadfe6179"],
Cell[18752, 506, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"f96e0f79-ad6a-4ee3-a2df-d1ed4d457b00"],
Cell[19447, 527, 78, 0, 70, "FooterCell",ExpressionUUID->"eafa87f1-b1ae-4768-9a51-be5942387df6"]
}
]
*)

(* End of internal cache information *)

