(* 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[     23843,        599]
NotebookOptionsPosition[     19134,        512]
NotebookOutlinePosition[     21462,        562]
CellTagsIndexPosition[     21419,        559]
WindowTitle->NicodemusCipher
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->
           "39e871cb-b47c-44ed-987f-5a9fed735400"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "7a039c2f-7a4d-4905-8db4-5b571d618231"],
        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->
           "28e2ac3b-cb3b-4eff-9a47-2bfb211038ba"]
         }],ExpressionUUID->"d27a2d57-4eee-479c-81b1-bbd60ba9c2e6"],
         StripOnInput->False],{
        StyleBox[
          "\"VigenereCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereCipher"], 
         StyleBox[
          "\"ColumnarTransposition\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition"], 
         StyleBox[
          "\"GronsfeldCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/GronsfeldCipher"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "213cd49b-8530-47c7-aac9-59228b3d5d4e"],
     "\[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->
           "861a08af-dbc7-4695-b0b6-e5d45de2b9c0"]
         }],ExpressionUUID->"55f42f5b-373e-4f93-865d-1d7a8a2c28c5"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "34705513-7a2a-49d7-8dc7-58d74ccaf1ad"],
     "\[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->
           "4e406a17-c6a3-4893-860e-318c9ca255bc"]
         }],ExpressionUUID->"72dd4e62-9801-487f-afa3-9c077380ffa4"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/NicodemusCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/NicodemusCipher"], 
         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/NicodemusCipher.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/NicodemusCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "0d5b13e7-9e5f-42b7-8c4a-de4c9eb21642"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "d2cc4c9c-bdb8-462a-8edd-cc5349e9aba2"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"e9ea6309-55de-407c-93f9-547ce3af4b49"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"f79250df-bc56-4558-ace2-871d605dc481"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "NicodemusCipher", "ObjectName",ExpressionUUID->
      "b2f4330a-562d-4420-b555-b69c8ae8778a"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"c5204834-35dc-43e7-b86d-35cdd6bc07de"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "41c6f03e-aba4-4736-9498-2dbb826f6dee"]
    }],ExpressionUUID->"c23184ee-4cb7-413e-9026-ef6d8e346b23"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"eece2373-05c2-4ee4-af30-\
24e01db6c00f"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["NicodemusCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/NicodemusCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "161f7133-f6d7-4ed3-ba3b-8f5a3da43f2f"],
     "\[LineSeparator]",
     "enciphers text with the Nicodemus cipher: the letters are written in \
rows of width ",
     Cell[BoxData[
      RowBox[{"StringLength", "[", "key", "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "52bbf326-dfa1-4f77-a6b2-2b5f7c55a62d"],
     ", each column is enciphered by 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->
      "4ebb3851-b872-4b10-9544-6a18a5a3d4fc"],
     " shift of its own key letter, and the columns are read off in the order \
the key ranks them, five rows to a block."
    }],ExpressionUUID->"75be28e0-1095-475b-b2a1-c8245ac5666a"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["NicodemusCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/NicodemusCipher", 
         "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->
      "2fc1fe7e-8af7-4cef-bc0f-7b1e0b7e5764"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"9adf70f6-ebcd-4a39-ab55-576a63f64945"]}
  }]], "Usage",ExpressionUUID->"76edeb38-6d91-4f6b-b155-e86a5ce425f3"]
}, 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->"ed11e212-12de-4bd0-9c2a-4e26c0d18bfe"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"8d39befa-199c-4104-9e64-870cf1f66727"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "61188442-96ef-4ded-8a5d-85055c581eca"]],ExpressionUUID->"ee3541dc-121a-\
4b13-924a-0fb2466ce1d5"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->735235749,ExpressionUUID->"417a730d-8b95-4d19-8699-b2d1d7422689"],

Cell[TextData[{
 "The Nicodemus is an American Cryptogram Association cipher that layers a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ColumnarTransposition"]], 
    "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "8a1de947-c48e-4074-9db3-8ebd6eb30d36"],
 " read order over a per-column Vigenere, so it is polyalphabetic and \
transposed at once."
}], "Notes",ExpressionUUID->"456062bb-57ff-4b03-8b6c-0a15d9a60a86"],

Cell["\<\
Each column is shifted by the Vigenere value of the key letter standing above \
it; the columns are then taken off in the key's alphabetical (rank) order.\
\>", "Notes",ExpressionUUID->"7396a70b-65dc-4630-8c9a-b8577d146825"],

Cell["\<\
The take-off proceeds in blocks of five rows: five letters are read from each \
column in key order before moving to the next block, and a short final block \
simply carries fewer rows.\
\>", "Notes",ExpressionUUID->"4ed9acf1-83d1-4cff-af99-de2a4b99618d"],

Cell["\<\
Only letters take part; spacing and case are dropped and the output is upper \
case, as with the other transposition ciphers here.\
\>", "Notes",ExpressionUUID->"42b8466c-db2f-4bfa-893d-648f00169f14"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"255f2274-33da-4c5a-803c-34d917af414c"],

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->"f1586da6-3796-4f34-837b-b00024fb3449"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"972016f8-d808-44a5-aa93-304f820d196d"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "a08facf6-d831-4652-9037-fbc0265bd6ba"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->486328605,ExpressionUUID->"2a8f9812-f85d-409a-82ad-b79a6f997786"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"4f974d95-1018-4434-ac73-cc698bb9db99"],

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->
  "e9e6ee1c-dbad-4c0d-ba69-0a2cc44b1ba0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d207e4e6-e521-4cd3-80ca-7d5616bf66ef"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "d85111c8-2e94-4f21-b19c-3078bb51a58f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->402103753,ExpressionUUID->"b933c0e5-9d78-42d1-9878-bc564f784cf8"],

Cell[TextData[{
 "The ACA handbook example - key ",
 Cell[BoxData["CAT"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "49d12f62-fdef-4a6a-9124-41678ede11cc"],
 " over \"the early bird gets the worm\":"
}], "ExampleText",ExpressionUUID->"97fc08c0-b313-4f50-a975-23674dc82658"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NicodemusCipher", "[", 
  RowBox[{"\"\<the early bird gets the worm\>\"", ",", " ", "\"\<CAT\>\""}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d4dc6a47-865b-452e-8e71-598060ca3113"],

Cell[BoxData["\<\"HAYREVGNKIXKUWMTWMUGTAH\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8823a983-7ae6-4520-8dc5-c9a59203e830"]
}, Open  ]],

Cell["Deciphering inverts it:", "ExampleText",ExpressionUUID->"7fc55e49-1d8f-484d-b389-ad6941528e11"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NicodemusCipher", "[", 
  RowBox[{"\"\<HAYREVGNKIXKUWMTWMUGTAH\>\"", ",", " ", "\"\<CAT\>\"", ",", 
   " ", "\"\<Decrypt\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[2]:=",ExpressionUUID->"e482355d-5663-42d9-a6ec-222ed9634a86"],

Cell[BoxData["\<\"THEEARLYBIRDGETSTHEWORM\"\>"], "Output",
 CellLabel->"Out[2]= ",ExpressionUUID->"8a82cee1-ea3d-49f8-ad56-5f9b5239c789"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], 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->
         "ee262ca6-320d-4d34-b4f2-99023689f314"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ColumnarTransposition"]], 
           "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e8fc2f27-965e-43a1-96d3-112e7f7cc893"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["GronsfeldCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/GronsfeldCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "602b0c48-d386-4fa1-a5ec-dbb555513fd8"]
       }], "SeeAlso",ExpressionUUID->"3652f2a6-2617-472e-8b3a-c613da7caf7d"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"39cbf3bf-5fb1-4442-83ca-\
674c5b515bb0"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, "RelatedGuide.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "c8b7db00-64fc-485b-84fe-f1eab5adc7d3"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"10cad2fb-cefc-401a-ac00-\
5820dc1751a2"],

Cell[" ", "FooterCell",ExpressionUUID->"80f8d9cd-3a24-4da4-93ed-a944c4af9adb"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"NicodemusCipher",
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, 42.473423}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[NicodemusCipher, paclet : \
WolframInstitute/Puzzles/ref/NicodemusCipher, WolframInstitute/Puzzles \
Package Symbol][text, key] enciphers text with the Nicodemus cipher: the \
letters are written in rows of width StringLength[key], each column is \
enciphered by a PackageLink[VigenereCipher, paclet : \
WolframInstitute/Puzzles/ref/VigenereCipher, WolframInstitute/Puzzles Package \
Symbol] shift of its own key letter, and the columns are read off in the \
order the key ranks them, five rows to a block. PackageLink[NicodemusCipher, \
paclet : WolframInstitute/Puzzles/ref/NicodemusCipher, \
WolframInstitute/Puzzles Package Symbol][text, key, Decrypt] deciphers.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "NicodemusCipher", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "NicodemusCipher", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/NicodemusCipher", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"a703bd2f-89af-493c-aed0-e83a990b1279"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[583, 21, 5446, 135, 70, "AnchorBarGrid",ExpressionUUID->"e9ea6309-55de-407c-93f9-547ce3af4b49",
 CellID->1],
Cell[6032, 158, 107, 0, 70, "ContextNameCell",ExpressionUUID->"f79250df-bc56-4558-ace2-871d605dc481"],
Cell[CellGroupData[{
Cell[6164, 162, 558, 14, 70, "ObjectNameGrid",ExpressionUUID->"eece2373-05c2-4ee4-af30-24e01db6c00f"],
Cell[6725, 178, 2319, 59, 70, "Usage",ExpressionUUID->"76edeb38-6d91-4f6b-b155-e86a5ce425f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9081, 242, 1443, 34, 70, "NotesSection",ExpressionUUID->"417a730d-8b95-4d19-8699-b2d1d7422689",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->735235749],
Cell[10527, 278, 611, 14, 70, "Notes",ExpressionUUID->"456062bb-57ff-4b03-8b6c-0a15d9a60a86"],
Cell[11141, 294, 234, 3, 70, "Notes",ExpressionUUID->"7396a70b-65dc-4630-8c9a-b8577d146825"],
Cell[11378, 299, 265, 4, 70, "Notes",ExpressionUUID->"4ed9acf1-83d1-4cff-af99-de2a4b99618d"],
Cell[11646, 305, 210, 3, 70, "Notes",ExpressionUUID->"42b8466c-db2f-4bfa-893d-648f00169f14"]
}, Closed]],
Cell[11871, 311, 80, 0, 70, "PageDelimiter",ExpressionUUID->"255f2274-33da-4c5a-803c-34d917af414c"],
Cell[CellGroupData[{
Cell[11976, 315, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"2a8f9812-f85d-409a-82ad-b79a6f997786",
 CellID->486328605],
Cell[13379, 354, 216, 4, 70, "Input",ExpressionUUID->"4f974d95-1018-4434-ac73-cc698bb9db99",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13620, 362, 1235, 31, 70, "ExampleSection",ExpressionUUID->"b933c0e5-9d78-42d1-9878-bc564f784cf8",
 CellID->402103753],
Cell[14858, 395, 326, 7, 70, "ExampleText",ExpressionUUID->"97fc08c0-b313-4f50-a975-23674dc82658"],
Cell[CellGroupData[{
Cell[15209, 406, 271, 5, 70, "Input",ExpressionUUID->"d4dc6a47-865b-452e-8e71-598060ca3113"],
Cell[15483, 413, 137, 1, 70, "Output",ExpressionUUID->"8823a983-7ae6-4520-8dc5-c9a59203e830"]
}, Open  ]],
Cell[15635, 417, 101, 0, 70, "ExampleText",ExpressionUUID->"7fc55e49-1d8f-484d-b389-ad6941528e11"],
Cell[CellGroupData[{
Cell[15761, 421, 296, 5, 70, "Input",ExpressionUUID->"e482355d-5663-42d9-a6ec-222ed9634a86"],
Cell[16060, 428, 137, 1, 70, "Output",ExpressionUUID->"8a82cee1-ea3d-49f8-ad56-5f9b5239c789"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[16236, 434, 2064, 53, 70, "SeeAlsoSection",ExpressionUUID->"39cbf3bf-5fb1-4442-83ca-674c5b515bb0"],
Cell[18303, 489, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"10cad2fb-cefc-401a-ac00-5820dc1751a2"],
Cell[19052, 510, 78, 0, 70, "FooterCell",ExpressionUUID->"80f8d9cd-3a24-4da4-93ed-a944c4af9adb"]
}
]
*)

(* End of internal cache information *)

