(* 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[     21653,        553]
NotebookOptionsPosition[     17537,        475]
NotebookOutlinePosition[     19781,        523]
CellTagsIndexPosition[     19738,        520]
WindowTitle->FourSquareCipher
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->
           "e33e0391-30ea-4b5d-abe0-951bf947f0e3"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "79b75134-b3c5-4a69-88e7-07434e15212a"],
        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->
           "db6561fb-7581-4dc8-9795-03b4f22d8046"]
         }],ExpressionUUID->"e28d7735-484b-46b1-8f0e-f802df5a5579"],
         StripOnInput->False],{
        StyleBox[
          "\"PlayfairCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher"], 
         StyleBox[
          "\"PolybiusSquare\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare"], 
         StyleBox["\"BifidCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BifidCipher"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "1b1a72e8-4af7-4d60-9846-d27d10ff54e7"],
     "\[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->
           "a0c1f18d-9f4a-4ccb-bbba-0070843c3710"]
         }],ExpressionUUID->"895d59ee-abea-40b9-a301-aa389a3901e6"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "2bf1d9a2-d70a-4d0e-adf8-0266dd5742ff"],
     "\[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->
           "92594850-53c6-4029-9ebf-0f663fb8723a"]
         }],ExpressionUUID->"4d1ac3f2-43db-479d-ade2-730c8647ec17"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/FourSquareCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/FourSquareCipher"], 
         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/FourSquareCipher.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/FourSquareCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "cc7fbd4c-d609-4f3e-84ca-f25749ac3ceb"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "79cbae30-a3ec-4404-ae2b-c392aac5cb5d"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"70c03dad-49e3-443b-b450-eddf8693df82"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"40f6787b-2a63-4930-afdd-eb137b3a34e8"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "FourSquareCipher", "ObjectName",ExpressionUUID->
      "5fdcdd33-ca12-4df4-906b-9c9915d34a5d"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"1ab32561-ce9e-4a6b-9327-f3d46750163e"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "ff0f1d18-e917-440a-becb-673f8ca85e29"]
    }],ExpressionUUID->"52241187-6b81-4618-a8e2-37b69df9830d"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"73b408ae-4ea3-4bb9-bf44-\
959857048dbc"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["FourSquareCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/FourSquareCipher", 
         "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->
      "e9d450b6-6f34-4226-ad6d-c68da748b1fb"],
     "\[LineSeparator]",
     "enciphers text with the Four-Square digraphic cipher: two plain 5x5 \
squares occupy the main diagonal of a 2x2 block and two squares keyed by ",
     StyleBox["key1", "TI"],
     " and ",
     StyleBox["key2", "TI"],
     " the off-diagonal; each plaintext pair is located in the two plain \
squares and read off from the two keyed squares."
    }],ExpressionUUID->"8bed5d06-0945-4c4c-bd6f-a8145feecf2b"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["FourSquareCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/FourSquareCipher", 
         "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->
      "0da0ff38-a04c-49a6-a2e9-e2b71af4b870"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"efb9c5d0-7d22-42ef-be04-2a37f30a2e14"]}
  }]], "Usage",ExpressionUUID->"1c6ad8ef-0e11-4f95-92e6-fb0d6c1ee146"]
}, 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->"92765475-728c-4c58-9e53-d15073005736"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"fcfc0d12-3bc6-46de-a121-a0291d0722db"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "0cb21855-6d45-4008-83cc-ef5d8aeb749a"]],ExpressionUUID->"759895af-fd82-\
401d-a02a-0faec1d25d37"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1802155818,ExpressionUUID->"6d33e02c-561b-4624-82cc-0069a8653822"],

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->
  "75b7f740-4160-411c-8be1-ec9b2de8d1f0"],
 " convention (I and J merged), consistent with the paclet's Playfair and \
Bifid."
}], "Notes",ExpressionUUID->"7b8e536d-1590-4410-a45b-f6a415ffbc23"],

Cell[TextData[{
 "Unlike Playfair, Four-Square needs no special handling of doubled letters; \
an odd-length message is padded with ",
 Cell[BoxData["X"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a998fdf7-63d4-4986-9a3e-8430d8219c8f"],
 "."
}], "Notes",ExpressionUUID->"2f917586-35b4-487f-9af6-d434b81ee000"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"b54763b1-dbbc-48d7-8ec5-f27868aa0688"],

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->"830649b8-845e-4bd5-80de-99a048c5adab"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"40ef02c3-fc4d-467a-b46e-896437d04291"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "43e9161c-865a-4dd9-ba71-c673e431093e"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->723475838,ExpressionUUID->"4ffc6924-3b39-4942-958b-c7dcea25ebb3"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"56262f18-6d5d-4767-8ca7-5c9d34590050"],

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->
  "78c55d40-6f47-427b-8fda-03361513b764"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e206dd80-2d8e-4ae8-9b98-be9d4a4eafed"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "52b31f0c-2a9f-4c19-aa39-ceb3fc05de7e"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->405999952,ExpressionUUID->"100c319d-a918-484a-bb55-97418b2b09c0"],

Cell["Encipher and recover a message:", "ExampleText",ExpressionUUID->"d4f76141-042f-4a03-9057-ab55bbe0731f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FourSquareCipher", "[", 
  RowBox[{
   RowBox[{"FourSquareCipher", "[", 
    RowBox[{"\"\<THENEEDLELIESHIDDENINTHEBARN\>\"", ",", 
     " ", "\"\<WHITESMITH\>\"", ",", " ", "\"\<ALPINEROAD\>\""}], "]"}], ",", 
   " ", "\"\<WHITESMITH\>\"", ",", " ", "\"\<ALPINEROAD\>\"", ",", 
   " ", "\"\<Decrypt\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"da5cc414-ca44-4d0b-a987-763704ca590f"],

Cell[BoxData["\<\"THENEEDLELIESHIDDENINTHEBARN\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c5ab3d15-b0e4-48ea-adf3-ac9bb9a8fce1"]
}, 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["PlayfairCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/PlayfairCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d9cd6fee-4c34-4dda-a685-2a0407c752d4"],
        "\[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->
         "34b67d9d-3970-4df9-a919-c82a4b6c48ba"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BifidCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/BifidCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a59f1115-7db8-42fd-80ec-5bccaf529743"]
       }], "SeeAlso",ExpressionUUID->"feb8f61c-d1a4-4ada-9a9f-eda3952dcb2a"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"ed314fa4-0095-4ef5-8b06-\
1ed71322b1cd"],

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->
         "7bc17c48-66bf-487a-8cc2-f2129b3b838a"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"ff851ba5-bdd8-4c6c-8056-\
f341df1eb33b"],

Cell[" ", "FooterCell",ExpressionUUID->"11765460-3b12-45e2-bc85-4753d0aaa929"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"FourSquareCipher",
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, 40.173418}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[FourSquareCipher, paclet : \
WolframInstitute/Puzzles/ref/FourSquareCipher, WolframInstitute/Puzzles \
Package Symbol][text, key1, key2] enciphers text with the Four-Square \
digraphic cipher: two plain 5x5 squares occupy the main diagonal of a 2x2 \
block and two squares keyed by key1 and key2 the off-diagonal; each plaintext \
pair is located in the two plain squares and read off from the two keyed \
squares. PackageLink[FourSquareCipher, paclet : \
WolframInstitute/Puzzles/ref/FourSquareCipher, WolframInstitute/Puzzles \
Package Symbol][text, key1, key2, Decrypt] deciphers.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "FourSquareCipher", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "FourSquareCipher", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/FourSquareCipher", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"df426dd9-8443-492c-bef1-ca3ebe087ff6"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[584, 21, 5415, 134, 70, "AnchorBarGrid",ExpressionUUID->"70c03dad-49e3-443b-b450-eddf8693df82",
 CellID->1],
Cell[6002, 157, 107, 0, 70, "ContextNameCell",ExpressionUUID->"40f6787b-2a63-4930-afdd-eb137b3a34e8"],
Cell[CellGroupData[{
Cell[6134, 161, 559, 14, 70, "ObjectNameGrid",ExpressionUUID->"73b408ae-4ea3-4bb9-bf44-959857048dbc"],
Cell[6696, 177, 1901, 48, 70, "Usage",ExpressionUUID->"1c6ad8ef-0e11-4f95-92e6-fb0d6c1ee146"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8634, 230, 1444, 34, 70, "NotesSection",ExpressionUUID->"6d33e02c-561b-4624-82cc-0069a8653822",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1802155818],
Cell[10081, 266, 524, 14, 70, "Notes",ExpressionUUID->"7b8e536d-1590-4410-a45b-f6a415ffbc23"],
Cell[10608, 282, 363, 8, 70, "Notes",ExpressionUUID->"2f917586-35b4-487f-9af6-d434b81ee000"]
}, Closed]],
Cell[10986, 293, 80, 0, 70, "PageDelimiter",ExpressionUUID->"b54763b1-dbbc-48d7-8ec5-f27868aa0688"],
Cell[CellGroupData[{
Cell[11091, 297, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"4ffc6924-3b39-4942-958b-c7dcea25ebb3",
 CellID->723475838],
Cell[12494, 336, 216, 4, 70, "Input",ExpressionUUID->"56262f18-6d5d-4767-8ca7-5c9d34590050",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12735, 344, 1235, 31, 70, "ExampleSection",ExpressionUUID->"100c319d-a918-484a-bb55-97418b2b09c0",
 CellID->405999952],
Cell[13973, 377, 109, 0, 70, "ExampleText",ExpressionUUID->"d4f76141-042f-4a03-9057-ab55bbe0731f"],
Cell[CellGroupData[{
Cell[14107, 381, 474, 9, 70, "Input",ExpressionUUID->"da5cc414-ca44-4d0b-a987-763704ca590f"],
Cell[14584, 392, 142, 1, 70, "Output",ExpressionUUID->"c5ab3d15-b0e4-48ea-adf3-ac9bb9a8fce1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14765, 398, 1986, 52, 70, "SeeAlsoSection",ExpressionUUID->"ed314fa4-0095-4ef5-8b06-1ed71322b1cd"],
Cell[16754, 452, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"ff851ba5-bdd8-4c6c-8056-f341df1eb33b"],
Cell[17455, 473, 78, 0, 70, "FooterCell",ExpressionUUID->"11765460-3b12-45e2-bc85-4753d0aaa929"]
}
]
*)

(* End of internal cache information *)

