(* 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[     21899,        556]
NotebookOptionsPosition[     17710,        477]
NotebookOutlinePosition[     20028,        526]
CellTagsIndexPosition[     19985,        523]
WindowTitle->TwoSquareCipher
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->
           "2638b8ee-f8ae-40f5-9061-b1a7ce19905b"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "ef5b570a-e657-43c9-9069-b8abe627c427"],
        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->
           "69e5b3e3-75c1-45c2-9c77-9106bdd8fa56"]
         }],ExpressionUUID->"c371f234-1471-4e63-801d-92481b2606ec"],
         StripOnInput->False],{
        StyleBox[
          "\"FourSquareCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/FourSquareCipher"], 
         StyleBox[
          "\"PlayfairCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher"], 
         StyleBox[
          "\"PolybiusSquare\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "18ef6875-bc7c-4077-9983-850ad7b83308"],
     "\[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->
           "ab075071-d3c9-4eee-b76c-9cc0ce26d0d5"]
         }],ExpressionUUID->"3670c7e2-27c6-4d2e-8233-d0476dfe9356"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "961352c2-d5f7-490b-9182-1e17ed7119f1"],
     "\[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->
           "de26e82c-c208-4db8-8fe7-2f183007730a"]
         }],ExpressionUUID->"c5bb3316-138d-4e39-99af-5b854fac7add"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/TwoSquareCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/TwoSquareCipher"], 
         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/TwoSquareCipher.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/TwoSquareCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "36c3e99b-87ff-4710-815e-11dd03994099"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "ed772b92-5300-4aff-8157-6ca1aca92890"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"ba13ccac-1c16-4cfe-be12-181197d9e101"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"f8d558b8-a33b-4386-bdba-b2bece477398"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "TwoSquareCipher", "ObjectName",ExpressionUUID->
      "72ef024c-d7fb-4cf4-a77a-c106287f66f3"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"8d52f936-f46c-4a66-95c0-e1ae0db94428"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "ea9a5be2-ef9e-4c9c-8149-07a25c18c0ac"]
    }],ExpressionUUID->"4c184dbf-750b-4cc9-b50f-7e815969140c"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"5c96eb9f-b351-43c6-8237-\
c479816f0e85"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["TwoSquareCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/TwoSquareCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key1", "TI"], ",", " ", 
        StyleBox["key2", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "cd175e1a-17db-4672-9cce-0e1966405347"],
     "\[LineSeparator]",
     "enciphers text with the horizontal Two-Square cipher: two 5x5 squares \
keyed by ",
     StyleBox["key1", "TI"],
     " and ",
     StyleBox["key2", "TI"],
     " sit side by side, the first letter of each plaintext pair is located \
in the first square and the second in the second, and the pair is read off \
from the opposite corners of the rectangle they span."
    }],ExpressionUUID->"a187413a-45d2-4e25-9960-9434c21ff75c"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["TwoSquareCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/TwoSquareCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key1", "TI"], ",", " ", 
        StyleBox["key2", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "8f02e298-7829-4c6b-8dd6-a03564e4c5ff"],
     "\[LineSeparator]",
     "is the same operation - the horizontal Two-Square is its own inverse."
    }],ExpressionUUID->"fad36f14-fb1b-43b7-ab24-e96f713cf5f6"]}
  }]], "Usage",ExpressionUUID->"245aec21-3854-4dc5-ae0e-22f2631c1f64"]
}, 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->"97e2bc4c-75de-4f2b-b499-e31dcc0482e7"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"ef225b5a-bf59-40de-b763-bc622c100ea5"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "3a7134f6-5631-4798-a0e7-65304b1f3236"]],ExpressionUUID->"3b063d0b-8e16-\
46d7-adfe-a98d37ddb014"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->659461594,ExpressionUUID->"a60c44df-84cb-4eb3-8486-d73edb827e6d"],

Cell[TextData[{
 "Uses the ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["PolybiusSquare"]], 
    "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "2f27d832-9867-4d0d-9c6d-5a8bd8a11a2f"],
 " convention (I and J merged); an odd-length message is padded with ",
 Cell[BoxData["X"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7ef78b41-9946-4f0e-b998-e856152dc9c4"],
 "."
}], "Notes",ExpressionUUID->"5fa1fd72-c324-4686-a239-397127daec0d"],

Cell["\<\
About a fifth of digraphs are \"transparencies\" (same-row pairs pass \
through), a leak that makes the cipher recover from surprisingly little text.\
\
\>", "Notes",ExpressionUUID->"9b145b4d-e8b4-4761-ae50-9908c412e208"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"45236b6f-a21f-4cd4-9b4e-87322c7bfafb"],

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->"ccf8885f-c878-4397-837f-6aff19c5202f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"13a5cc10-cc26-4ac6-82a8-9099be807f59"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "49dd822c-194d-4714-a6ea-cd2b53dba566"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->407908191,ExpressionUUID->"0d992615-4443-40b9-a196-d3538dbf6c6d"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"32f13e71-3bb2-41a4-bbd5-de2b261d59c5"],

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->
  "de3f4136-4bcd-44c9-b91d-97eb5200e70b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"91ac530f-4a60-4195-bbbf-8afc61353ff1"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "cc780de3-d6f4-442e-9c62-b6223124f028"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->945164913,ExpressionUUID->"ebf36da5-723c-4e91-bfca-f2118ec860c3"],

Cell["The cipher deciphers itself:", "ExampleText",ExpressionUUID->"c1356633-3f52-4afd-b2ee-d1a9677c5e60"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TwoSquareCipher", "[", 
  RowBox[{
   RowBox[{"TwoSquareCipher", "[", 
    RowBox[{"\"\<THENEEDLELIESHIDDENINTHEBARN\>\"", ",", 
     " ", "\"\<EXAMPLE\>\"", ",", " ", "\"\<KEYWORD\>\""}], "]"}], ",", 
   " ", "\"\<EXAMPLE\>\"", ",", " ", "\"\<KEYWORD\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"349dc69c-a95a-4574-b35e-34a27ace2b4f"],

Cell[BoxData["\<\"THENEEDLELIESHIDDENINTHEBARN\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1c6c39cf-b14a-4657-b8ed-df1b8b58c3dd"]
}, 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["FourSquareCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/FourSquareCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "5b5e670e-33f2-4904-9009-688067ed4ddb"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["PlayfairCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "386a3d39-d99a-4686-84f4-d1ed958567d9"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["PolybiusSquare"]], 
           "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "96cd9aa0-cebb-425d-8165-3842acd96686"]
       }], "SeeAlso",ExpressionUUID->"6ac300c2-f4fd-4677-a5d1-53d9e9780f58"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"6f28efb6-2b93-4643-847d-\
24b2ec7b3898"],

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->
         "92ae36dd-e518-4539-999e-e1416922fe14"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"22c16d25-33b7-4682-b49b-\
de0e196e7b4e"],

Cell[" ", "FooterCell",ExpressionUUID->"7856b5c8-6056-4ef7-a693-7a961879e6f1"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"TwoSquareCipher",
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, 51.331269}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[TwoSquareCipher, paclet : \
WolframInstitute/Puzzles/ref/TwoSquareCipher, WolframInstitute/Puzzles \
Package Symbol][text, key1, key2] enciphers text with the horizontal \
Two-Square cipher: two 5x5 squares keyed by key1 and key2 sit side by side, \
the first letter of each plaintext pair is located in the first square and \
the second in the second, and the pair is read off from the opposite corners \
of the rectangle they span. PackageLink[TwoSquareCipher, paclet : \
WolframInstitute/Puzzles/ref/TwoSquareCipher, WolframInstitute/Puzzles \
Package Symbol][text, key1, key2, Decrypt] is the same operation - the \
horizontal Two-Square is its own inverse.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "TwoSquareCipher", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "TwoSquareCipher", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/TwoSquareCipher", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"d521bfbd-e3c6-4a79-a38e-fa8abe2a0422"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[583, 21, 5432, 135, 70, "AnchorBarGrid",ExpressionUUID->"ba13ccac-1c16-4cfe-be12-181197d9e101",
 CellID->1],
Cell[6018, 158, 107, 0, 70, "ContextNameCell",ExpressionUUID->"f8d558b8-a33b-4386-bdba-b2bece477398"],
Cell[CellGroupData[{
Cell[6150, 162, 558, 14, 70, "ObjectNameGrid",ExpressionUUID->"5c96eb9f-b351-43c6-8237-c479816f0e85"],
Cell[6711, 178, 1979, 49, 70, "Usage",ExpressionUUID->"245aec21-3854-4dc5-ae0e-22f2631c1f64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8727, 232, 1443, 34, 70, "NotesSection",ExpressionUUID->"a60c44df-84cb-4eb3-8486-d73edb827e6d",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->659461594],
Cell[10173, 268, 673, 18, 70, "Notes",ExpressionUUID->"5fa1fd72-c324-4686-a239-397127daec0d"],
Cell[10849, 288, 231, 4, 70, "Notes",ExpressionUUID->"9b145b4d-e8b4-4761-ae50-9908c412e208"]
}, Closed]],
Cell[11095, 295, 80, 0, 70, "PageDelimiter",ExpressionUUID->"45236b6f-a21f-4cd4-9b4e-87322c7bfafb"],
Cell[CellGroupData[{
Cell[11200, 299, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"0d992615-4443-40b9-a196-d3538dbf6c6d",
 CellID->407908191],
Cell[12603, 338, 216, 4, 70, "Input",ExpressionUUID->"32f13e71-3bb2-41a4-bbd5-de2b261d59c5",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12844, 346, 1235, 31, 70, "ExampleSection",ExpressionUUID->"ebf36da5-723c-4e91-bfca-f2118ec860c3",
 CellID->945164913],
Cell[14082, 379, 106, 0, 70, "ExampleText",ExpressionUUID->"c1356633-3f52-4afd-b2ee-d1a9677c5e60"],
Cell[CellGroupData[{
Cell[14213, 383, 427, 8, 70, "Input",ExpressionUUID->"349dc69c-a95a-4574-b35e-34a27ace2b4f"],
Cell[14643, 393, 142, 1, 70, "Output",ExpressionUUID->"1c6c39cf-b14a-4657-b8ed-df1b8b58c3dd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14824, 399, 2052, 53, 70, "SeeAlsoSection",ExpressionUUID->"6f28efb6-2b93-4643-847d-24b2ec7b3898"],
Cell[16879, 454, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"22c16d25-33b7-4682-b49b-de0e196e7b4e"],
Cell[17628, 475, 78, 0, 70, "FooterCell",ExpressionUUID->"7856b5c8-6056-4ef7-a693-7a961879e6f1"]
}
]
*)

(* End of internal cache information *)

