(* 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[     23970,        607]
NotebookOptionsPosition[     19262,        521]
NotebookOutlinePosition[     21495,        569]
CellTagsIndexPosition[     21452,        566]
WindowTitle->SlidefairCipher
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->
           "4567b551-40f3-45a3-a1f3-957248ead57e"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "384affdd-b52d-4023-ba6b-0c9efb978141"],
        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->
           "2831ecb9-7fea-4b40-a361-f6381cb409d2"]
         }],ExpressionUUID->"c1e44364-91b9-4157-b441-c7d3dd10a16c"],
         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"], 
         StyleBox[
          "\"NicodemusCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/NicodemusCipher"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b6d66487-2247-49b6-b9a7-29ed8f42c018"],
     "\[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->
           "3a60d712-95b9-4f28-a840-f4735d334c14"]
         }],ExpressionUUID->"a52f4a7e-5a89-40de-b34e-1fe268d107ff"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "ce4bf163-0e30-4706-ab6b-64673cfd9eae"],
     "\[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->
           "db1052bf-5412-45e7-af77-142b612fae89"]
         }],ExpressionUUID->"bab630d6-f2eb-42c6-b46f-9eece0dc631e"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/SlidefairCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/SlidefairCipher"], 
         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/SlidefairCipher.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/SlidefairCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "03a955c1-8c3b-4b38-b322-d90eab4cb393"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "0066021b-3e86-45bd-b86a-d580d09658dd"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"6aac3db9-bbb0-4ec3-9856-521dc0fb63a9"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"804d203e-1c7d-4416-bdc8-7de3d39db52c"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "SlidefairCipher", "ObjectName",ExpressionUUID->
      "f7cc894d-7689-4eda-9487-0cf72c3a1c14"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"a5477a5d-b686-491b-8d0b-da933dcf12e8"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "be7c4002-f4fd-4cfc-85c9-5a159a550d4c"]
    }],ExpressionUUID->"b6e16864-44b3-44a4-aec9-07396ce93840"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"25034156-7132-4b08-b12e-\
8748162fb2e8"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SlidefairCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/SlidefairCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "878ce116-c1df-42f0-9842-6b2d48a51954"],
     "\[LineSeparator]",
     "enciphers text with the Slidefair cipher, a periodic digraphic slide: \
each plaintext pair is placed at diagonally opposite corners of a rectangle \
spanning the straight top alphabet and the key letter's slid alphabet, and \
the other two corners are the ciphertext, top corner first."
    }],ExpressionUUID->"1c968da6-d6db-4b43-86e5-f3bae9164f15"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SlidefairCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/SlidefairCipher", 
         "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->
      "ab973da1-db18-492f-a01d-431b9a9c01cd"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"f9ef48d4-c841-4bfd-80a9-3ec0cda00f7d"]}
  }]], "Usage",ExpressionUUID->"24a4f072-5a6b-4672-9b3c-f6c6c84b3a4d"]
}, 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->"b89c290f-35e7-4da5-a867-be98989ecf67"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"00ecdec2-ba83-4ea1-a302-e27c3d8251a2"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "e7b76515-551d-4826-bcb2-3719664e3e5a"]],ExpressionUUID->"ef8b9a10-be85-\
4fe5-8945-0d5e0a977f3f"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->759404028,ExpressionUUID->"cad1c219-fbae-462c-af23-f4bf20283677"],

Cell[TextData[{
 "The Slidefair is an American Cryptogram Association cipher: it slides 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->
  "83a6a75d-c9ea-48d5-abbb-85b344906e95"],
 "-style alphabet under the straight one and reads each digraph off the \
opposite corners of the rectangle the pair spans."
}], "Notes",ExpressionUUID->"a43cffdf-1a2b-46d4-aa68-8cdea0dc474b"],

Cell[TextData[{
 "The key sets the period and advances ",
 StyleBox["one letter per pair",
  FontWeight->"Bold"],
 ", not per letter."
}], "Notes",ExpressionUUID->"32eb9a34-ab09-4e81-9858-6dab71b2d42a"],

Cell["\<\
When a pair lands in the same column (a vertical pair) the ciphertext is the \
pair one column to its right.\
\>", "Notes",ExpressionUUID->"576490be-bbd6-4cbe-808f-dee4f67ab3f6"],

Cell[TextData[{
 "The option ",
 Cell[BoxData["\<\"Variant\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dc82201e-5c9a-47b0-9373-15f16d8cfccc"],
 " chooses the slid alphabet: ",
 Cell[BoxData["\<\"Vigenere\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "aadbd898-a0b8-4421-b2ce-bb8b5dbd1f42"],
 " (the default), ",
 Cell[BoxData["\<\"Variant\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6cfc3692-90e2-4cbc-a8f3-da8150193c48"],
 ", or ",
 Cell[BoxData["\<\"Beaufort\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "523dd1a1-1251-42e1-b4c8-f2c926800af1"],
 "."
}], "Notes",ExpressionUUID->"3973126c-6f7d-4e4b-a6ac-cc41fa2e1648"],

Cell["\<\
Only letters take part and the output is upper case; a lone final letter (odd \
length) passes through unchanged.\
\>", "Notes",ExpressionUUID->"43173c6f-46d8-46db-99e6-1f05ed327fc0"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"89fbee30-0ef4-4b76-87e0-a6e09f4cfe88"],

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->"0590309d-42b3-4593-82e2-c8e09fe2cf31"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"eeb94b88-d9f0-4b3e-bda5-c1f9a080da3b"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "76a118e9-d2ca-47e3-91dc-9d9ee5d1eb74"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->808184475,ExpressionUUID->"09478be2-20e2-41e2-8738-46f88b234476"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"579c4cc8-61c4-4d7e-98c5-10e8dd78da64"],

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->
  "28d04a4d-b91e-4310-8f67-5963a924a9e2"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"82c05627-9cb5-4b8e-ace9-da7cb5009993"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "496bf526-48ff-4b5d-9c70-7b824421622f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->322404050,ExpressionUUID->"7c1d73ca-e939-4cdc-ba67-1269769e3700"],

Cell[TextData[{
 "The ACA handbook example - key ",
 Cell[BoxData["DIGRAPH"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "46ec0adc-898c-47a2-bbf7-49592d49a64f"],
 ", Vigen\[EGrave]re slide:"
}], "ExampleText",ExpressionUUID->"fd7eebff-5128-43bb-8fa2-63cf5e2a6971"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SlidefairCipher", "[", 
  RowBox[{"\"\<THESLIDEFAIRCANBEUSEDWITHVIGENEREVARIANTORBEAUFORT\>\"", ",", 
   " ", "\"\<DIGRAPH\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"58ecfbcd-69f0-4db9-bfdd-298a60a3538b"],

Cell[BoxData["\<\"EWKMCRNUAFCXTJYQMMYYFUTIGWZPKHJMPKBSAIECKVCFMIILCI\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8e5355e9-9aa3-4cf1-afff-99679577aec2"]
}, Open  ]],

Cell["Deciphering inverts it:", "ExampleText",ExpressionUUID->"cb053711-856b-4b62-95d6-271e0ecc5287"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SlidefairCipher", "[", 
  RowBox[{"\"\<EWKMCRNUAFCXTJYQMMYYFUTIGWZPKHJMPKBSAIECKVCFMIILCI\>\"", ",", 
   " ", "\"\<DIGRAPH\>\"", ",", " ", "\"\<Decrypt\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[2]:=",ExpressionUUID->"b79b8c52-d78e-4f4c-9d08-e7f213169e64"],

Cell[BoxData["\<\"THESLIDEFAIRCANBEUSEDWITHVIGENEREVARIANTORBEAUFORT\"\>"], \
"Output",
 CellLabel->"Out[2]= ",ExpressionUUID->"53d46fe2-c8ef-46be-a28e-d1b097aa2a88"]
}, 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->
         "e0c41fd4-2a0f-463b-befc-ccd388a8ba76"],
        "\[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->
         "1172f38a-4765-424f-8b8a-f7beab79dffa"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["NicodemusCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/NicodemusCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "9a65795e-9061-457c-89bf-8162b0dd3b04"]
       }], "SeeAlso",ExpressionUUID->"4017c8c8-97c8-45a8-b42b-69952846916a"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"9765a3ab-7757-4202-b657-\
b9c8f3650025"],

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->
         "c21f95a2-c8bb-454e-8051-7de79844ea42"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"566c47e2-6280-4de7-a3db-\
421de12479b2"],

Cell[" ", "FooterCell",ExpressionUUID->"fb404b74-152f-4c7d-bbd2-9f7c5a08cd21"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"SlidefairCipher",
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, 54.510837}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[SlidefairCipher, paclet : \
WolframInstitute/Puzzles/ref/SlidefairCipher, WolframInstitute/Puzzles \
Package Symbol][text, key] enciphers text with the Slidefair cipher, a \
periodic digraphic slide: each plaintext pair is placed at diagonally \
opposite corners of a rectangle spanning the straight top alphabet and the \
key letter's slid alphabet, and the other two corners are the ciphertext, top \
corner first. PackageLink[SlidefairCipher, paclet : \
WolframInstitute/Puzzles/ref/SlidefairCipher, WolframInstitute/Puzzles \
Package Symbol][text, key, Decrypt] deciphers.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "SlidefairCipher", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "SlidefairCipher", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/SlidefairCipher", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"245aa0fe-3a8f-4785-a0f4-44e4e94bae13"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[583, 21, 5413, 134, 70, "AnchorBarGrid",ExpressionUUID->"6aac3db9-bbb0-4ec3-9856-521dc0fb63a9",
 CellID->1],
Cell[5999, 157, 107, 0, 70, "ContextNameCell",ExpressionUUID->"804d203e-1c7d-4416-bdc8-7de3d39db52c"],
Cell[CellGroupData[{
Cell[6131, 161, 558, 14, 70, "ObjectNameGrid",ExpressionUUID->"25034156-7132-4b08-b12e-8748162fb2e8"],
Cell[6692, 177, 1754, 43, 70, "Usage",ExpressionUUID->"24a4f072-5a6b-4672-9b3c-f6c6c84b3a4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8483, 225, 1443, 34, 70, "NotesSection",ExpressionUUID->"cad1c219-fbae-462c-af23-f4bf20283677",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->759404028],
Cell[9929, 261, 628, 14, 70, "Notes",ExpressionUUID->"a43cffdf-1a2b-46d4-aa68-8cdea0dc474b"],
Cell[10560, 277, 202, 5, 70, "Notes",ExpressionUUID->"32eb9a34-ab09-4e81-9858-6dab71b2d42a"],
Cell[10765, 284, 188, 3, 70, "Notes",ExpressionUUID->"576490be-bbd6-4cbe-808f-dee4f67ab3f6"],
Cell[10956, 289, 850, 22, 70, "Notes",ExpressionUUID->"3973126c-6f7d-4e4b-a6ac-cc41fa2e1648"],
Cell[11809, 313, 193, 3, 70, "Notes",ExpressionUUID->"43173c6f-46d8-46db-99e6-1f05ed327fc0"]
}, Closed]],
Cell[12017, 319, 80, 0, 70, "PageDelimiter",ExpressionUUID->"89fbee30-0ef4-4b76-87e0-a6e09f4cfe88"],
Cell[CellGroupData[{
Cell[12122, 323, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"09478be2-20e2-41e2-8738-46f88b234476",
 CellID->808184475],
Cell[13525, 362, 216, 4, 70, "Input",ExpressionUUID->"579c4cc8-61c4-4d7e-98c5-10e8dd78da64",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13766, 370, 1235, 31, 70, "ExampleSection",ExpressionUUID->"7c1d73ca-e939-4cdc-ba67-1269769e3700",
 CellID->322404050],
Cell[15004, 403, 316, 7, 70, "ExampleText",ExpressionUUID->"fd7eebff-5128-43bb-8fa2-63cf5e2a6971"],
Cell[CellGroupData[{
Cell[15345, 414, 298, 5, 70, "Input",ExpressionUUID->"58ecfbcd-69f0-4db9-bfdd-298a60a3538b"],
Cell[15646, 421, 166, 2, 70, "Output",ExpressionUUID->"8e5355e9-9aa3-4cf1-afff-99679577aec2"]
}, Open  ]],
Cell[15827, 426, 101, 0, 70, "ExampleText",ExpressionUUID->"cb053711-856b-4b62-95d6-271e0ecc5287"],
Cell[CellGroupData[{
Cell[15953, 430, 327, 5, 70, "Input",ExpressionUUID->"b79b8c52-d78e-4f4c-9d08-e7f213169e64"],
Cell[16283, 437, 166, 2, 70, "Output",ExpressionUUID->"53d46fe2-c8ef-46be-a28e-d1b097aa2a88"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[16488, 444, 1988, 52, 70, "SeeAlsoSection",ExpressionUUID->"9765a3ab-7757-4202-b657-b9c8f3650025"],
Cell[18479, 498, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"566c47e2-6280-4de7-a3db-421de12479b2"],
Cell[19180, 519, 78, 0, 70, "FooterCell",ExpressionUUID->"fb404b74-152f-4c7d-bbd2-9f7c5a08cd21"]
}
]
*)

(* End of internal cache information *)

