(* 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[     21175,        545]
NotebookOptionsPosition[     17110,        468]
NotebookOutlinePosition[     19208,        514]
CellTagsIndexPosition[     19165,        511]
WindowTitle->AutokeyCipher
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->
           "6b71ac31-b208-4702-a421-90212d25f976"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "138dc09b-3658-41fd-a600-d4ff5bd4a44d"],
        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->
           "a96b650f-49b7-4373-8697-ec3c1f13e028"]
         }],ExpressionUUID->"7ca1f29d-ee79-48c7-97ec-c23ea4023a9a"],
         StripOnInput->False],{
        StyleBox[
          "\"VigenereCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereCipher"], 
         StyleBox[
          "\"KeyedAlphabet\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "6af8e330-51b7-42e1-9b18-35fe35189d92"],
     "\[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->
           "a7895d0a-9a48-43de-b9b3-cb254be42bb9"]
         }],ExpressionUUID->"f953c7ad-f2e2-47cd-9b84-16271746608f"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c4ffe049-cab5-400d-8699-a7ef6eda988a"],
     "\[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->
           "4010662a-109b-41bb-9837-708f8f96ec65"]
         }],ExpressionUUID->"47e3c5af-422d-426a-aaf3-86ad5a942f72"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/AutokeyCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/AutokeyCipher"], 
         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/AutokeyCipher.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/AutokeyCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "62b4617d-72e5-4fa2-9f4f-ce0ed2a49341"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "243e8d4f-62b8-4cc9-ae44-769ba9e9254a"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"ec69082d-09a0-4341-a6c1-b0608f298820"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"18b55079-e657-417f-8c85-e67a9f20a66a"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "AutokeyCipher", "ObjectName",ExpressionUUID->
      "eff809f4-44c1-45e5-a5dd-0a9068768669"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"0421e257-bc33-4e9b-8aad-252e1f8663fd"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "e6b7c47b-25ae-43eb-90be-fa7e01a9e248"]
    }],ExpressionUUID->"df38c034-fdf6-4b93-a6f5-1d22d5deac7e"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"fd7d5538-cafd-449d-b684-\
29c94876abb6"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["AutokeyCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/AutokeyCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["keyword", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b918a2a1-908d-4add-a501-f09b28e3ec04"],
     "\[LineSeparator]",
     "enciphers text with a Vigenere autokey: the running key is the keyword \
followed by the plaintext itself, so the key is as long as the message and \
never repeats."
    }],ExpressionUUID->"9478c27f-ead5-471a-bd43-638b6d7ddf4c"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["AutokeyCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/AutokeyCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["keyword", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "6126685d-ec37-4bdc-a577-0371a2ce3caf"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"bf628a3d-1adb-4f0f-badb-550487e43746"]}
  }]], "Usage",ExpressionUUID->"c5ac6683-4152-4c6c-9300-bea46e89e925"]
}, 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->"e329515a-a35e-4497-b92f-1941d3f9f0b6"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"d19051a7-4129-44ec-8aec-f3689c6908df"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "5e76d532-06fb-489c-89bc-4cba7ef69146"]],ExpressionUUID->"f84e6cc0-307d-\
4461-ba71-6ec7a0c24b0c"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1346274520,ExpressionUUID->"01af194d-6dcb-4b70-a998-88b46fa37918"],

Cell[TextData[{
 "Because the key does not repeat, an autokey cipher has no period for a \
Kasiski or ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CipherPeriods"]], 
    "paclet:WolframInstitute/Puzzles/ref/CipherPeriods", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "6d565616-842a-40b1-b3c5-eae840864497"],
 " attack to find - a \"high-entropy but structured\" key of exactly the kind \
a simple-algorithm puzzle uses."
}], "Notes",ExpressionUUID->"c9781c54-ad08-43b1-ac03-285ff53a2941"],

Cell[TextData[{
 "Decryption is sequential: each recovered plaintext letter becomes part of \
the key for the letters ",
 Cell[BoxData[
  RowBox[{"Length", "[", "keyword", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "53ea4280-7106-4995-bc6d-4a304019e585"],
 " positions later."
}], "Notes",ExpressionUUID->"bf07158a-aabb-4e00-b6cb-cf54a1c487ba"],

Cell[TextData[{
 "The option ",
 Cell[BoxData["\<\"Variant\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6be6cdc8-67ef-47fa-a1ea-1d8bb20acdc8"],
 " is ",
 Cell[BoxData["\<\"Vigenere\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "936cd267-8e1b-4d6f-80f7-7c85c2f3fcbf"],
 " (add) or ",
 Cell[BoxData["\<\"Beaufort\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ebc77389-b8f8-4277-94dd-1d3b81addeb3"],
 " (key minus text). Letters only; non-letters are dropped."
}], "Notes",ExpressionUUID->"c902ecc2-9f7b-41cd-9cb1-af68f61514e7"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"0b35b45a-d491-4fd6-8da7-df21534b1b55"],

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->"8fc3a69e-d284-49ee-8554-d644e6510b9f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"87fddf43-f221-4725-88ec-305f6462d0ed"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "0c4799e3-29f2-4e5f-a5fb-4d92a82f8ee1"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->948152848,ExpressionUUID->"4e4c0e97-7f71-4b0a-9b57-579fa36440b9"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"7889355c-c93a-4746-84b7-6c9ed158606a"],

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->
  "c48e2a85-b1a7-41cf-8dc8-adb500cbb52f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4466450c-af7f-43ed-a6dd-d700607296a6"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "6e7bd164-38e7-4c2d-8bb3-3950473a38f9"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1276255596,ExpressionUUID->"68ad3d2e-97b6-4d95-9801-fcfd3911fcbe"],

Cell["The textbook autokey vector:", "ExampleText",ExpressionUUID->"1d86c69d-d1d0-4918-9ff1-87770d938997"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AutokeyCipher", "[", 
  RowBox[{"\"\<ATTACKATDAWN\>\"", ",", " ", "\"\<QUEENLY\>\""}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"35f96549-bfe0-4403-8cc3-75366bff0ad4"],

Cell[BoxData["\<\"QNXEPVYTWTWP\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f0b93585-9d18-4244-b45d-7938c593f9c1"]
}, 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["VigenereCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "0f3fc5fb-f172-4c28-a7a6-7ec87b66d5ae"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["KeyedAlphabet"]], 
           "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "097deaf3-872c-464c-bdf2-1aca32bc6618"]
       }], "SeeAlso",ExpressionUUID->"e6b69a82-ab62-44ad-addb-9bbf70ca298e"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"c7f4fb20-48f8-4a82-b83f-\
ffc00c3460f0"],

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["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "34233e71-310e-40a0-a6c4-9bca016a83ef"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"c02d0d87-5b7d-4361-b5cc-\
e39e5d4926ab"],

Cell[" ", "FooterCell",ExpressionUUID->"cda6d3f2-3d0b-406e-baaf-8f38f8daf59a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"AutokeyCipher",
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, 8.728316}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[AutokeyCipher,paclet : \
WolframInstitute/Puzzles/ref/AutokeyCipher, WolframInstitute/Puzzles Package \
Symbol][text, keyword] enciphers text with a Vigenere autokey: the running \
key is the keyword followed by the plaintext itself, so the key is as long as \
the message and never repeats. PackageLink[AutokeyCipher,paclet : \
WolframInstitute/Puzzles/ref/AutokeyCipher, WolframInstitute/Puzzles Package \
Symbol][text, keyword, Decrypt] deciphers.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "AutokeyCipher", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "AutokeyCipher", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/AutokeyCipher", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"59047726-7269-491f-a808-c4b823802f1f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[581, 21, 5221, 131, 70, "AnchorBarGrid",ExpressionUUID->"ec69082d-09a0-4341-a6c1-b0608f298820",
 CellID->1],
Cell[5805, 154, 107, 0, 70, "ContextNameCell",ExpressionUUID->"18b55079-e657-417f-8c85-e67a9f20a66a"],
Cell[CellGroupData[{
Cell[5937, 158, 556, 14, 70, "ObjectNameGrid",ExpressionUUID->"fd7d5538-cafd-449d-b684-29c94876abb6"],
Cell[6496, 174, 1632, 42, 70, "Usage",ExpressionUUID->"c5ac6683-4152-4c6c-9300-bea46e89e925"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8165, 221, 1444, 34, 70, "NotesSection",ExpressionUUID->"01af194d-6dcb-4b70-a998-88b46fa37918",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1346274520],
Cell[9612, 257, 626, 15, 70, "Notes",ExpressionUUID->"c9781c54-ad08-43b1-ac03-285ff53a2941"],
Cell[10241, 274, 404, 9, 70, "Notes",ExpressionUUID->"bf07158a-aabb-4e00-b6cb-cf54a1c487ba"],
Cell[10648, 285, 696, 17, 70, "Notes",ExpressionUUID->"c902ecc2-9f7b-41cd-9cb1-af68f61514e7"]
}, Closed]],
Cell[11359, 305, 80, 0, 70, "PageDelimiter",ExpressionUUID->"0b35b45a-d491-4fd6-8da7-df21534b1b55"],
Cell[CellGroupData[{
Cell[11464, 309, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"4e4c0e97-7f71-4b0a-9b57-579fa36440b9",
 CellID->948152848],
Cell[12867, 348, 216, 4, 70, "Input",ExpressionUUID->"7889355c-c93a-4746-84b7-6c9ed158606a",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13108, 356, 1236, 31, 70, "ExampleSection",ExpressionUUID->"68ad3d2e-97b6-4d95-9801-fcfd3911fcbe",
 CellID->1276255596],
Cell[14347, 389, 106, 0, 70, "ExampleText",ExpressionUUID->"1d86c69d-d1d0-4918-9ff1-87770d938997"],
Cell[CellGroupData[{
Cell[14478, 393, 257, 5, 70, "Input",ExpressionUUID->"35f96549-bfe0-4403-8cc3-75366bff0ad4"],
Cell[14738, 400, 126, 1, 70, "Output",ExpressionUUID->"f0b93585-9d18-4244-b45d-7938c593f9c1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14903, 406, 1421, 37, 70, "SeeAlsoSection",ExpressionUUID->"c7f4fb20-48f8-4a82-b83f-ffc00c3460f0"],
Cell[16327, 445, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"c02d0d87-5b7d-4361-b5cc-e39e5d4926ab"],
Cell[17028, 466, 78, 0, 70, "FooterCell",ExpressionUUID->"cda6d3f2-3d0b-406e-baaf-8f38f8daf59a"]
}
]
*)

(* End of internal cache information *)

