(* 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[     26270,        655]
NotebookOptionsPosition[     21856,        573]
NotebookOutlinePosition[     23876,        618]
CellTagsIndexPosition[     23833,        615]
WindowTitle->VigenereCipher
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->
           "e3e57f36-ada6-4fcf-adae-ddd61e848c93"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "d014213a-caf4-44e6-9bfd-9f42ca3d0263"],
        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->
           "ffa84da7-f6d8-45bb-aa23-e3bbdbd0d652"]
         }],ExpressionUUID->"35db313a-83a0-47bf-932d-1b72d5cd440d"],
         StripOnInput->False],{
        StyleBox[
          "\"KeyedAlphabet\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet"], 
         StyleBox[
          "\"VigenereSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereSolve"], 
         StyleBox[
          "\"ColumnarTransposition\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "f2eb7018-7347-4831-9314-bcdd747a0ce5"],
     "\[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->
           "a8991cc5-8d9f-46e9-b5c3-b70fee19fad9"]
         }],ExpressionUUID->"3c950f90-6a3a-4423-9061-deadb34a3181"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "5da05b18-3b40-4292-bba8-13dc5cc13823"],
     "\[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->
           "6005912d-51ab-4aa1-bb71-2890572a2b1d"]
         }],ExpressionUUID->"c5b3c624-bcc3-4c2a-8b31-f0753e2d092e"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/VigenereCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/VigenereCipher"], 
         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/VigenereCipher.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/VigenereCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "0721ff7b-a58c-471a-8d0f-0dd7c9e0c0c6"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "c6b02e7c-e7bb-4bdd-bf57-bd22b518c31b"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"2b3ef116-83bb-4bce-9631-c8e5a4ae0fca"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"0be4a4ea-4b44-474a-99f0-eebe7132c58c"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "VigenereCipher", "ObjectName",ExpressionUUID->
      "f60242b6-a7c7-47fb-a520-4680ed964e4a"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"fdec7925-7467-4a1f-91df-3a02bc8fd770"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "dd70d549-b752-4147-a7ae-cae51e4e82e9"]
    }],ExpressionUUID->"d4877a9b-06de-45c5-a9d1-0c55f0fe9c54"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"cc0da9c3-30d8-4809-85f5-\
00c67cf49fc8"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["VigenereCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "0c43d97b-db05-4fa0-a86f-431d2a59bf88"],
     "\[LineSeparator]",
     "enciphers text with the repeating key by Vigenere addition over the \
plain alphabet."
    }],ExpressionUUID->"d2edc0bb-20a2-4243-b5c8-ce1204a759b1"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["VigenereCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/VigenereCipher", 
         "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->
      "76ad384e-6246-43de-9619-249762f702eb"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"3ef8881c-f31d-48d2-b62c-c218f68211a5"]}
  }]], "Usage",ExpressionUUID->"1775e0eb-7ca3-4873-b01e-3a5906d3c4ca"]
}, 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->"ac626042-7129-4d06-aa7e-fb8a05484089"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"be814dfa-c7c7-406c-bcc8-2604572a0296"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "1c421ae5-5996-41f8-a67d-9544ba0de7f9"]],ExpressionUUID->"e00a20dd-f5ec-\
4a82-b748-fb1e3b87156e"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1320284863,ExpressionUUID->"68f66115-eb55-4c0d-9035-bbffc6df6239"],

Cell["\<\
Only letters take part; any non-letter is passed through untouched and does \
not advance the key. Input case is preserved on output.\
\>", "Notes",ExpressionUUID->"1ccf2edf-8b5f-4b3a-89dd-bcef63273ea6"],

Cell[TextData[{
 "The option ",
 Cell[BoxData["\<\"PlaintextAlphabet\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7b3c2e64-06fb-4251-87bd-19afd2695b19"],
 " and ",
 Cell[BoxData["\<\"CiphertextAlphabet\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "af6d4722-a85e-4878-9311-5492ece0cda9"],
 " each take a keyword or an explicit 26-letter alphabet (see ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["KeyedAlphabet"]], 
    "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "89742288-a6ce-4075-ac1f-f83eff6dc968"],
 "). They select the Quagmire family:"
}], "Notes",ExpressionUUID->"9d2514bd-593e-42ab-b6ef-1784a4e385a3"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "a30f750a-e2bf-45a2-addd-ac1c7aceb1ec"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"18f1d54e-16f1-4688-9203-d90f89d9957c"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"8b482322-0117-47ac-b20d-48ae4f507556"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"af74ac88-91af-4c4f-935c-f903c73f8c2c"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "c9abbd5d-8b80-4339-8d8a-a0ebf2813762"], Cell[
    "straight", "TableText",ExpressionUUID->
     "5145537f-8009-47ae-92d9-384deebfdb4a"], Cell[
    "straight", "TableText",ExpressionUUID->
     "76837a64-1e64-4002-9a59-7dda044fcc1a"], Cell[
    "Vigenere", "TableText",ExpressionUUID->
     "fc20fc29-6779-450e-b87d-0dc228d6f77a"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "9b69e339-ff7e-4692-a8a6-370624da12b8"], Cell[
    "keyed", "TableText",ExpressionUUID->
     "9f3102a8-b819-4e80-96f1-479c33abbbe3"], Cell[
    "straight", "TableText",ExpressionUUID->
     "051562e5-5cac-40f1-b13c-9d761f539173"], Cell[
    "Quagmire I", "TableText",ExpressionUUID->
     "ddcbb538-9d1d-4a30-a4fb-4f22fdd33480"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "62a312c1-1fe0-4c51-9029-e81d76fa8234"], Cell[
    "straight", "TableText",ExpressionUUID->
     "a8960f81-8aa0-4835-b18e-7d3bdc0ac17a"], Cell[
    "keyed", "TableText",ExpressionUUID->
     "86f6f073-fe72-47c7-b3aa-9789b2931d34"], Cell[
    "Quagmire II", "TableText",ExpressionUUID->
     "8e4a4df6-fe04-4cb8-a239-ad3f39ff4d63"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "a28bf333-b528-4c37-8b26-4927fb16c55d"], Cell[
    "keyed (same word)", "TableText",ExpressionUUID->
     "2131f4cc-e6d4-405b-b19b-425624d84409"], Cell[
    "keyed (same word)", "TableText",ExpressionUUID->
     "31aa2ebe-c769-44a9-8b3a-e6807283f64b"], Cell[
    "Quagmire III \[LongDash] Kryptos K1/K2", "TableText",ExpressionUUID->
     "8e099237-e897-4da7-8125-a9e903677e57"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "22603945-1729-404c-a09f-21d6c0144267"], Cell[
    "keyed", "TableText",ExpressionUUID->
     "10626e8c-b40b-4a87-a3fa-9b43772d17e0"], Cell[
    "keyed (other word)", "TableText",ExpressionUUID->
     "fc3d229d-553c-44fc-9a1a-ef2078acd9fa"], Cell[
    "Quagmire IV", "TableText",ExpressionUUID->
     "407edbfe-397b-4a75-9028-618882fe4f2c"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "Rows" -> {None, None, None, None, None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, True, True, True, True, 
      True}}}},ExpressionUUID->"c9f1eb23-fbca-4c6c-a76a-5e10afda43f3"],

Cell[TextData[{
 Cell[BoxData["\<\"Variant\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "457c1dfd-274d-4827-a98b-1af1358239d7"],
 " is ",
 Cell[BoxData["\<\"Vigenere\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "689779b9-8c46-4765-865e-859ab7524bed"],
 " (add), ",
 Cell[BoxData["\<\"Beaufort\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d182705a-07c6-4360-bccd-48470481809c"],
 " (key \[Minus] text, self-reciprocal), or ",
 Cell[BoxData["\<\"VariantBeaufort\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c5e7fcc6-8be8-408f-bf48-c973f3e50a8e"],
 " (text \[Minus] key)."
}], "Notes",ExpressionUUID->"ff17d706-ef65-49a9-b2b8-09107a245c58"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"3a41ef56-0f8f-4a75-8f7f-2e7c8af86c2b"],

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->"d120275c-b82d-404a-b1e3-e967d242daa8"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"43b108d6-7bbd-4dc9-a83c-e84da12cdf89"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "5d5dadc9-cdd0-436d-b83d-cf11a411dc15"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->79167990,ExpressionUUID->"8ca16ab7-6ecd-48bd-a424-f346129ab928"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"2b219f28-7d31-4f78-8704-dc1d314bddfc"],

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->
  "cd4be108-465e-4d71-88c9-bd9a262d802a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"627432ae-38af-4b82-8315-6d4c17d562ad"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "54ddbb17-7384-48a4-9958-e84679e887ef"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1284030437,ExpressionUUID->"e9fa22f3-3018-4ec9-87b6-077c964037a3"],

Cell["The textbook Vigenere vector:", "ExampleText",ExpressionUUID->"23268ef4-a82f-4b65-bdda-392de49d0c69"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VigenereCipher", "[", 
  RowBox[{"\"\<ATTACKATDAWN\>\"", ",", " ", "\"\<LEMON\>\""}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9facd2b0-6404-42e5-bb58-b68a149ffd30"],

Cell[BoxData["\<\"LXFOPVEFRNHR\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1ac37f63-fe86-4e31-9890-f63f91dae003"]
}, Open  ]],

Cell["\<\
The opening of Kryptos K1 \[LongDash] a Quagmire III over the KRYPTOS-keyed \
alphabet, keyword PALIMPSEST:\
\>", "ExampleText",ExpressionUUID->"80983c40-9924-444b-ad9c-b1e43afb90b0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VigenereCipher", "[", 
  RowBox[{"\"\<EMUFPHZLRFAXYUSD\>\"", ",", " ", "\"\<PALIMPSEST\>\"", ",", 
   " ", "\"\<Decrypt\>\"", ",", "\n", "  ", 
   RowBox[{"\"\<PlaintextAlphabet\>\"", " ", "->", " ", 
    RowBox[{"KeyedAlphabet", "[", "\"\<KRYPTOS\>\"", "]"}]}], ",", " ", 
   RowBox[{"\"\<CiphertextAlphabet\>\"", " ", "->", " ", 
    RowBox[{"KeyedAlphabet", "[", "\"\<KRYPTOS\>\"", "]"}]}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[2]:=",ExpressionUUID->"4c3ac63d-0a03-4a3d-a086-18027e253859"],

Cell[BoxData["\<\"BETWEENSUBTLESHA\"\>"], "Output",
 CellLabel->"Out[2]= ",ExpressionUUID->"ce58427c-b4a1-4151-b3e5-084fead4d798"]
}, 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["KeyedAlphabet"]], 
           "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ac4c68e4-1cd6-4c1d-a124-2cbed44baff0"],
        "\[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->
         "adf11bcf-1322-47f7-b443-d1e2f84e6e96"],
        "\[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->
         "7639f21c-6b70-4672-99eb-97176f2c3f07"]
       }], "SeeAlso",ExpressionUUID->"ac5eeec1-a782-447a-b99d-46901a5dd90a"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"879267c0-0105-404b-b738-\
43aae891b1ec"],

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->
         "059d87e9-8ae1-4ade-8821-51f250672f16"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"d4d32f07-0eaf-4776-82f7-\
25ae07e513a5"],

Cell[" ", "FooterCell",ExpressionUUID->"22bb2947-b7ec-4bb4-ba67-7873cb7f9ed6"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"VigenereCipher",
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, 52.718013}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[VigenereCipher,paclet : \
WolframInstitute/Puzzles/ref/VigenereCipher, WolframInstitute/Puzzles Package \
Symbol][text, key] enciphers text with the repeating key by Vigenere addition \
over the plain alphabet. PackageLink[VigenereCipher,paclet : \
WolframInstitute/Puzzles/ref/VigenereCipher, WolframInstitute/Puzzles Package \
Symbol][text, key, Decrypt] deciphers.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "VigenereCipher", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "VigenereCipher", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/VigenereCipher", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"4434d3cf-4132-4637-b7c9-3e0fa4d8efbe"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 5436, 135, 70, "AnchorBarGrid",ExpressionUUID->"2b3ef116-83bb-4bce-9631-c8e5a4ae0fca",
 CellID->1],
Cell[6021, 158, 107, 0, 70, "ContextNameCell",ExpressionUUID->"0be4a4ea-4b44-474a-99f0-eebe7132c58c"],
Cell[CellGroupData[{
Cell[6153, 162, 557, 14, 70, "ObjectNameGrid",ExpressionUUID->"cc0da9c3-30d8-4809-85f5-00c67cf49fc8"],
Cell[6713, 178, 1549, 41, 70, "Usage",ExpressionUUID->"1775e0eb-7ca3-4873-b01e-3a5906d3c4ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8299, 224, 1444, 34, 70, "NotesSection",ExpressionUUID->"68f66115-eb55-4c0d-9035-bbffc6df6239",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1320284863],
Cell[9746, 260, 213, 3, 70, "Notes",ExpressionUUID->"1ccf2edf-8b5f-4b3a-89dd-bcef63273ea6"],
Cell[9962, 265, 915, 23, 70, "Notes",ExpressionUUID->"9d2514bd-593e-42ab-b6ef-1784a4e385a3"],
Cell[10880, 290, 2725, 55, 70, "3ColumnTableMod",ExpressionUUID->"c9f1eb23-fbca-4c6c-a76a-5e10afda43f3"],
Cell[13608, 347, 867, 21, 70, "Notes",ExpressionUUID->"ff17d706-ef65-49a9-b2b8-09107a245c58"]
}, Closed]],
Cell[14490, 371, 80, 0, 70, "PageDelimiter",ExpressionUUID->"3a41ef56-0f8f-4a75-8f7f-2e7c8af86c2b"],
Cell[CellGroupData[{
Cell[14595, 375, 1399, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"8ca16ab7-6ecd-48bd-a424-f346129ab928",
 CellID->79167990],
Cell[15997, 414, 216, 4, 70, "Input",ExpressionUUID->"2b219f28-7d31-4f78-8704-dc1d314bddfc",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[16238, 422, 1236, 31, 70, "ExampleSection",ExpressionUUID->"e9fa22f3-3018-4ec9-87b6-077c964037a3",
 CellID->1284030437],
Cell[17477, 455, 107, 0, 70, "ExampleText",ExpressionUUID->"23268ef4-a82f-4b65-bdda-392de49d0c69"],
Cell[CellGroupData[{
Cell[17609, 459, 255, 5, 70, "Input",ExpressionUUID->"9facd2b0-6404-42e5-bb58-b68a149ffd30"],
Cell[17867, 466, 126, 1, 70, "Output",ExpressionUUID->"1ac37f63-fe86-4e31-9890-f63f91dae003"]
}, Open  ]],
Cell[18008, 470, 193, 3, 70, "ExampleText",ExpressionUUID->"80983c40-9924-444b-ad9c-b1e43afb90b0"],
Cell[CellGroupData[{
Cell[18226, 477, 566, 10, 70, "Input",ExpressionUUID->"4c3ac63d-0a03-4a3d-a086-18027e253859"],
Cell[18795, 489, 130, 1, 70, "Output",ExpressionUUID->"ce58427c-b4a1-4151-b3e5-084fead4d798"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[18964, 495, 2058, 53, 70, "SeeAlsoSection",ExpressionUUID->"879267c0-0105-404b-b738-43aae891b1ec"],
Cell[21025, 550, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"d4d32f07-0eaf-4776-82f7-25ae07e513a5"],
Cell[21774, 571, 78, 0, 70, "FooterCell",ExpressionUUID->"22bb2947-b7ec-4bb4-ba67-7873cb7f9ed6"]
}
]
*)

(* End of internal cache information *)

