(* 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[     21191,        545]
NotebookOptionsPosition[     16982,        465]
NotebookOutlinePosition[     19225,        514]
CellTagsIndexPosition[     19182,        511]
WindowTitle->GronsfeldCipher
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->
           "9d172e08-6d4c-4673-bcc1-e9b97e3f3a0a"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "6f508cb4-ebff-46fa-aded-496af9002a73"],
        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->
           "fd5a4300-ddd9-404d-b805-8f93fc95f1e3"]
         }],ExpressionUUID->"55e4c474-41b2-44bc-9e22-ad326b61d88f"],
         StripOnInput->False],{
        StyleBox[
          "\"VigenereCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereCipher"], 
         StyleBox["\"PortaCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PortaCipher"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8e541084-59df-45ab-a6c5-c87717a2ab26"],
     "\[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->
           "c13311f2-a498-4916-b68e-217f148c303c"]
         }],ExpressionUUID->"70db9862-6304-471d-aa6d-c873fcde8745"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e0fb3ca2-21cb-4155-ac44-2b22019b0987"],
     "\[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->
           "d1ffa44f-0287-4a30-a9c6-d4ba9e162deb"]
         }],ExpressionUUID->"75f1824f-0945-43f7-8bef-77290c1cab27"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/GronsfeldCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/GronsfeldCipher"], 
         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/GronsfeldCipher.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/GronsfeldCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "62f6e9cc-6c7f-4e3f-a7fc-bf44d38facc8"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "ef676ea1-ec00-4ecb-8425-7c6169f1d4c2"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"95ad7b9c-9ec9-4030-8bcc-6803c4229db7"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"41f1c372-3089-4601-92ad-16e4a2aa230e"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "GronsfeldCipher", "ObjectName",ExpressionUUID->
      "8a2a6acc-5699-47a2-95df-a8449f110276"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"8b00fffc-118c-4d4c-a1d3-a9eb73f17e59"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "27e99351-72c3-46d6-a69d-61c483fad6c2"]
    }],ExpressionUUID->"232acb60-eb93-438b-90f3-ec8001883433"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"22831593-1f69-4185-aed3-\
084a03063858"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["GronsfeldCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/GronsfeldCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f3d23d4e-72c6-4cd1-82fa-45d2bd02ba5e"],
     "\[LineSeparator]",
     "enciphers text with the Gronsfeld cipher: a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["VigenereCipher"]], 
        "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "a14fb061-d70c-4339-92eb-5a36b250772a"],
     " whose repeating key is a run of digits 0-9 rather than letters, so \
each digit shifts its plaintext letter by that amount."
    }],ExpressionUUID->"804bbbfc-7812-45ec-980e-c27d72c5562d"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["GronsfeldCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/GronsfeldCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "54d73a6b-007b-455b-b97a-399a095cf29f"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"06671d0f-a19a-4ccc-b46d-5deb340495d5"]}
  }]], "Usage",ExpressionUUID->"a3af1c7b-1996-40be-a802-1a1ced5c8652"]
}, 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->"915c04a8-3511-4340-ae2c-c3fc5330ab79"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"a4dcbaf7-11b5-4661-a231-7189cf911a7f"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "d18c0fc5-3ea9-41b2-a061-91c9e223c8de"]],ExpressionUUID->"231bf9a9-ef84-\
40de-afd9-b2dc22cd2935"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->274026846,ExpressionUUID->"340f4ac3-ff43-4963-aea8-b1c2a1d84cd3"],

Cell[TextData[{
 "The ",
 StyleBox["key", "TI"],
 " may be a digit string (",
 Cell[BoxData["\<\"31415\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "07962df4-42b7-4980-938a-a5f077881315"],
 "), an integer (",
 Cell[BoxData["31415"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6bca9ed9-7859-427b-b96a-9aa8680f3232"],
 "), or a list of integers (",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"3", ",", "1", ",", "4", ",", "1", ",", "5"}], "}"}]], 
  "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c86f340e-02ef-45d1-9cf2-4ea1d69a0dba"],
 ")."
}], "Notes",ExpressionUUID->"5f739f41-c4df-415d-b145-18d64f3b86e7"],

Cell["\<\
Non-letters pass through unchanged and letter case is preserved, so the shift \
only advances on letters.\
\>", "Notes",ExpressionUUID->"a0a5bdab-8cd9-46e3-bb41-f43f639ff0c5"],

Cell["\<\
Because the key alphabet is only ten symbols, a Gronsfeld key has less \
entropy than a full Vigenere keyword of the same length.\
\>", "Notes",ExpressionUUID->"346a6197-1bff-4739-8253-ad2123ceec2e"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"fe4d2c3b-3a7f-4466-82ab-c34b1a8591b3"],

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->"b1214325-1920-4dbc-a79f-9ffced950e77"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c2b8176c-4b08-481d-8c90-6b49bba1dbc9"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "9e125b26-8dc7-4ba0-8bff-4eab35c04328"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1364261554,ExpressionUUID->"33dbc01e-c9ce-4ce6-b0ca-a8dbb4288dc9"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"58ad4545-ccdb-40da-a6fa-44fba66068e0"],

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->
  "843ff1ea-1851-4dfe-adec-5d779c8fffe3"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"3d71e058-dbae-4935-b6a5-8c647ec45191"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "eb42d2d4-efd7-425e-bb48-f537613061be"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->461039059,ExpressionUUID->"65eb4103-b12e-4550-8d97-5dbd190189d6"],

Cell["\<\
Shift each letter by the repeating digit key, leaving punctuation in place:\
\>", "ExampleText",ExpressionUUID->"b9f3674f-a70a-4e6f-99ac-4694b8fb3231"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GronsfeldCipher", "[", 
  RowBox[{"\"\<HELLO, WORLD!\>\"", ",", " ", "\"\<2\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9016368b-0274-46a4-8e2f-7643e4526b8c"],

Cell[BoxData["\<\"JGNNQ, YQTNF!\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5996d737-bf75-40dc-8c0a-13d4599ba222"]
}, 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->
         "ac69e278-21a8-447d-a1c8-59913c8b679b"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["PortaCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/PortaCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "fb6cd7c7-0d7b-499a-8b20-5fdf5adbe558"]
       }], "SeeAlso",ExpressionUUID->"a949f723-06fd-4591-a232-600108cf4bba"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"11cdbab4-6c5c-4d94-b9d3-\
a404709fe127"],

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->
         "c225f055-5b55-4c60-83d8-676c47608a38"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"77684c60-0958-4312-9d43-\
1fb74a512848"],

Cell[" ", "FooterCell",ExpressionUUID->"4d9bacb7-fd18-4fb7-9acc-0fa17d2b625c"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"GronsfeldCipher",
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, 44.238656}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[GronsfeldCipher, paclet : \
WolframInstitute/Puzzles/ref/GronsfeldCipher, WolframInstitute/Puzzles \
Package Symbol][text, key] enciphers text with the Gronsfeld cipher: a \
PackageLink[VigenereCipher, paclet : \
WolframInstitute/Puzzles/ref/VigenereCipher, WolframInstitute/Puzzles Package \
Symbol] whose repeating key is a run of digits 0-9 rather than letters, so \
each digit shifts its plaintext letter by that amount. \
PackageLink[GronsfeldCipher, paclet : \
WolframInstitute/Puzzles/ref/GronsfeldCipher, WolframInstitute/Puzzles \
Package Symbol][text, key, Decrypt] deciphers.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "GronsfeldCipher", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "GronsfeldCipher", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/GronsfeldCipher", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"8582d34a-1ab1-4fd4-9d17-e3180276b67e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[583, 21, 5214, 130, 70, "AnchorBarGrid",ExpressionUUID->"95ad7b9c-9ec9-4030-8bcc-6803c4229db7",
 CellID->1],
Cell[5800, 153, 107, 0, 70, "ContextNameCell",ExpressionUUID->"41f1c372-3089-4601-92ad-16e4a2aa230e"],
Cell[CellGroupData[{
Cell[5932, 157, 558, 14, 70, "ObjectNameGrid",ExpressionUUID->"22831593-1f69-4185-aed3-084a03063858"],
Cell[6493, 173, 2028, 52, 70, "Usage",ExpressionUUID->"a3af1c7b-1996-40be-a802-1a1ced5c8652"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8558, 230, 1443, 34, 70, "NotesSection",ExpressionUUID->"340f4ac3-ff43-4963-aea8-b1c2a1d84cd3",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->274026846],
Cell[10004, 266, 766, 22, 70, "Notes",ExpressionUUID->"5f739f41-c4df-415d-b145-18d64f3b86e7"],
Cell[10773, 290, 185, 3, 70, "Notes",ExpressionUUID->"a0a5bdab-8cd9-46e3-bb41-f43f639ff0c5"],
Cell[10961, 295, 209, 3, 70, "Notes",ExpressionUUID->"346a6197-1bff-4739-8253-ad2123ceec2e"]
}, Closed]],
Cell[11185, 301, 80, 0, 70, "PageDelimiter",ExpressionUUID->"fe4d2c3b-3a7f-4466-82ab-c34b1a8591b3"],
Cell[CellGroupData[{
Cell[11290, 305, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"33dbc01e-c9ce-4ce6-b0ca-a8dbb4288dc9",
 CellID->1364261554],
Cell[12694, 344, 216, 4, 70, "Input",ExpressionUUID->"58ad4545-ccdb-40da-a6fa-44fba66068e0",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12935, 352, 1235, 31, 70, "ExampleSection",ExpressionUUID->"65eb4103-b12e-4550-8d97-5dbd190189d6",
 CellID->461039059],
Cell[14173, 385, 161, 2, 70, "ExampleText",ExpressionUUID->"b9f3674f-a70a-4e6f-99ac-4694b8fb3231"],
Cell[CellGroupData[{
Cell[14359, 391, 251, 4, 70, "Input",ExpressionUUID->"9016368b-0274-46a4-8e2f-7643e4526b8c"],
Cell[14613, 397, 127, 1, 70, "Output",ExpressionUUID->"5996d737-bf75-40dc-8c0a-13d4599ba222"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14779, 403, 1417, 37, 70, "SeeAlsoSection",ExpressionUUID->"11cdbab4-6c5c-4d94-b9d3-a404709fe127"],
Cell[16199, 442, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"77684c60-0958-4312-9d43-1fb74a512848"],
Cell[16900, 463, 78, 0, 70, "FooterCell",ExpressionUUID->"4d9bacb7-fd18-4fb7-9acc-0fa17d2b625c"]
}
]
*)

(* End of internal cache information *)

