(* 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[     21925,        568]
NotebookOptionsPosition[     17945,        492]
NotebookOutlinePosition[     19959,        537]
CellTagsIndexPosition[     19916,        534]
WindowTitle->HillCipherSolve
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->
           "acfb67bb-2a70-4d37-bbd4-2de5ef125046"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "42c47818-98ad-4ede-a738-878f1cac9c6d"],
        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->
           "71fd96f2-cf83-46e8-9abc-fa932260fc3d"]
         }],ExpressionUUID->"fecaf0df-b5c7-4e60-8ee5-d90ab306a427"],
         StripOnInput->False],{
        StyleBox["\"HillCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HillCipher"], 
         StyleBox[
          "\"HillCipherInvertibleQ\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HillCipherInvertibleQ"], 
         StyleBox[
          "\"VigenereSolve\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/VigenereSolve"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "d6d5d911-1a34-43d1-9d98-e4fd8db94977"],
     "\[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->
           "5c9442bc-8899-4883-a495-d4efde24111f"]
         }],ExpressionUUID->"56d079cb-b939-46c1-922e-72ebac835b95"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "407e09c6-f73c-4f96-ae12-f01610b0d240"],
     "\[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->
           "2ea64568-e979-4628-8da8-f1b875e89d82"]
         }],ExpressionUUID->"341915f0-7e8d-4700-ae94-697f1c808dbf"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/HillCipherSolve\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/HillCipherSolve"], 
         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/HillCipherSolve.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/HillCipherSolve" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e4a42034-c3c0-45ae-a68f-33363f29ba11"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "0fb6048d-910e-4678-bb6d-bd01f709295a"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"533edb94-2a50-411b-b9b2-35db1a657390"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"b7b1d09b-5dfd-46e4-8e21-7c6d1f21d511"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "HillCipherSolve", "ObjectName",ExpressionUUID->
      "ba5d943c-9d82-47fe-9ca4-0e405823c15b"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"f7782437-ab2b-4f0c-997c-5c0f9ff31f7e"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "5826bcf4-e1f7-4a60-af4a-98e3d620fcb9"]
    }],ExpressionUUID->"034f9e2d-0659-4737-8f3d-e327d7884d87"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"ad14535b-f56b-4e54-b1a6-\
e7e67b95e349"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["HillCipherSolve"]], 
         "paclet:WolframInstitute/Puzzles/ref/HillCipherSolve", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["knownPlaintext", "TI"], ",", " ", 
        StyleBox["ciphertext", "TI"], ",", " ", 
        StyleBox["n", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "fad1906b-5cca-4bff-bcb3-0f1477e5130a"],
     "\[LineSeparator]",
     "recovers the ",
     StyleBox["n", "TI"],
     "\[Times]",
     StyleBox["n", "TI"],
     " ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["HillCipher"]], 
        "paclet:WolframInstitute/Puzzles/ref/HillCipher", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "f326e2f7-d675-4995-9de5-382d992fadc4"],
     " encryption key matrix from aligned known plaintext and its \
ciphertext."
    }],ExpressionUUID->"0e823581-3352-4120-8dec-0f3febd0045d"]}
  }]], "Usage",ExpressionUUID->"73515bf9-9a2b-403d-9536-d167cc649045"]
}, 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->"29a6a0e4-965f-42f0-b0c6-1d71e0f924cc"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"8a71326f-6977-4a72-8498-9180ce286c46"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "8667e862-11aa-4f79-8a9d-9c7475c3d224"]],ExpressionUUID->"7a9a9326-0e28-\
4ea8-b550-af75916c5377"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->461039059,ExpressionUUID->"4e4d2c1d-3fb3-4375-8263-18699e2f9e40"],

Cell[TextData[{
 "The Hill cipher is linear, so a known-plaintext attack is not a search: it \
solves ",
 Cell[BoxData[
  RowBox[{"C", " ", "=", " ", 
   RowBox[{"K", ".", "P"}]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "29f1d3c2-850e-4bf6-b82a-6e5d5ea51fc8"],
 " modulo 26 over ",
 StyleBox["n", "TI"],
 " independent blocks. This is why a crib breaks Hill instantly where a \
frequency attack cannot."
}], "Notes",ExpressionUUID->"fcd1ff42-db0b-4824-8ab1-1faa61b92b03"],

Cell[TextData[{
 "The routine looks for ",
 StyleBox["n", "TI"],
 " known blocks whose plaintext matrix is invertible modulo 26; it gives a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a06a868d-e603-4ca7-a00e-82700f8df9e1"],
 " if no such set exists (more known text usually fixes this)."
}], "Notes",ExpressionUUID->"41702b0b-d17a-4bd4-8cae-094823d73616"],

Cell[TextData[{
 "The option ",
 Cell[BoxData["\<\"Alphabet\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4fbbf9c1-bbb9-4da7-b5ff-f286e5d2e9eb"],
 " (a keyword or 26-letter alphabet, default the plain alphabet) numbers the \
letters through that alphabet, matching ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["HillCipher"]], 
    "paclet:WolframInstitute/Puzzles/ref/HillCipher", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "9a43b302-5aaa-4816-80e5-42e7d27db10e"],
 "."
}], "Notes",ExpressionUUID->"a1560bf4-cfa6-4a69-80ec-015913432b9d"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"f98983d7-acc7-466c-916c-67aee9abc9de"],

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->"6f44cfb5-1249-4be0-9766-e642b6d0db22"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2a166425-1a34-46bb-80c9-21f2230f628e"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "3d52ca73-2dfd-4862-8351-5167ce2866ab"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->562466237,ExpressionUUID->"cc1d5677-f36c-4aa8-8f51-ed32f1bae66f"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"7c33703b-a6b2-4091-886b-2aefea553415"],

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->
  "d6e9470e-5706-4d17-b63d-89c0b5168e8e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b7b65864-13d6-4884-8302-f98d1cfe8897"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "53a24cc3-0800-467d-89fa-0f0908185b8d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->147031165,ExpressionUUID->"4dbb7e88-b430-4cb4-a1ea-36e04f5f7a51"],

Cell["Recover a 2\[Times]2 key from a nine-letter crib:", "ExampleText",ExpressionUUID->"f2b7e0f2-4173-414a-b123-41c24b59c945"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"key", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "5"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"HillCipherSolve", "[", 
   RowBox[{"\"\<HELPMENOW\>\"", ",", " ", 
    RowBox[{"HillCipher", "[", 
     RowBox[{"\"\<HELPMENOW\>\"", ",", " ", "key"}], "]"}], ",", " ", "2"}], 
   "]"}], " ", "===", " ", "key"}]}], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c52f5ced-cb50-4f05-940f-61bb37c16267"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9f0747be-7a61-433b-88d7-ae0c27c5d530"]
}, 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["HillCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/HillCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d8e898bd-7104-4b99-bf70-87358f47cb72"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HillCipherInvertibleQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/HillCipherInvertibleQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "760956c3-ca28-4d2b-bfe6-7988e74ddecf"],
        "\[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->
         "80f3608d-47dd-4101-ad3e-a61374eb3996"]
       }], "SeeAlso",ExpressionUUID->"4c6ab72a-ce1a-499e-bd88-c0bf3243c19a"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"49bd73f4-91a6-4547-b9e4-\
407543053abf"],

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["Search"]], 
           "paclet:WolframInstitute/Puzzles/guide/Search"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "5122f26c-edb2-4dad-9b25-cb2c21d949f7"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"e103557b-92cd-450a-84ac-\
8ba0d6d06b7a"],

Cell[" ", "FooterCell",ExpressionUUID->"414bd167-0cbe-4996-8a7c-38316ad0c402"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"HillCipherSolve",
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, 45.754047}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[HillCipherSolve, paclet : \
WolframInstitute/Puzzles/ref/HillCipherSolve, WolframInstitute/ Puzzles \
Package Symbol][knownPlaintext, ciphertext, n] recovers the n*n \
PackageLink[HillCipher, paclet : WolframInstitute/Puzzles/ref/HillCipher, \
WolframInstitute/Puzzles Package Symbol] encryption key matrix from aligned \
known plaintext and its ciphertext.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "HillCipherSolve", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "HillCipherSolve", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/HillCipherSolve", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"8727e1b1-550a-4a98-b810-029dbf7f2daf"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[583, 21, 5417, 134, 70, "AnchorBarGrid",ExpressionUUID->"533edb94-2a50-411b-b9b2-35db1a657390",
 CellID->1],
Cell[6003, 157, 107, 0, 70, "ContextNameCell",ExpressionUUID->"b7b1d09b-5dfd-46e4-8e21-7c6d1f21d511"],
Cell[CellGroupData[{
Cell[6135, 161, 558, 14, 70, "ObjectNameGrid",ExpressionUUID->"ad14535b-f56b-4e54-b1a6-e7e67b95e349"],
Cell[6696, 177, 1363, 37, 70, "Usage",ExpressionUUID->"73515bf9-9a2b-403d-9536-d167cc649045"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8096, 219, 1443, 34, 70, "NotesSection",ExpressionUUID->"4e4d2c1d-3fb3-4375-8263-18699e2f9e40",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->461039059],
Cell[9542, 255, 528, 13, 70, "Notes",ExpressionUUID->"fcd1ff42-db0b-4824-8ab1-1faa61b92b03"],
Cell[10073, 270, 436, 9, 70, "Notes",ExpressionUUID->"41702b0b-d17a-4bd4-8cae-094823d73616"],
Cell[10512, 281, 732, 19, 70, "Notes",ExpressionUUID->"a1560bf4-cfa6-4a69-80ec-015913432b9d"]
}, Closed]],
Cell[11259, 303, 80, 0, 70, "PageDelimiter",ExpressionUUID->"f98983d7-acc7-466c-916c-67aee9abc9de"],
Cell[CellGroupData[{
Cell[11364, 307, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"cc1d5677-f36c-4aa8-8f51-ed32f1bae66f",
 CellID->562466237],
Cell[12767, 346, 216, 4, 70, "Input",ExpressionUUID->"7c33703b-a6b2-4091-886b-2aefea553415",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13008, 354, 1235, 31, 70, "ExampleSection",ExpressionUUID->"4dbb7e88-b430-4cb4-a1ea-36e04f5f7a51",
 CellID->147031165],
Cell[14246, 387, 127, 0, 70, "ExampleText",ExpressionUUID->"f2b7e0f2-4173-414a-b123-41c24b59c945"],
Cell[CellGroupData[{
Cell[14398, 391, 619, 16, 70, "Input",ExpressionUUID->"c52f5ced-cb50-4f05-940f-61bb37c16267"],
Cell[15020, 409, 110, 1, 70, "Output",ExpressionUUID->"9f0747be-7a61-433b-88d7-ae0c27c5d530"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[15169, 415, 1996, 52, 70, "SeeAlsoSection",ExpressionUUID->"49bd73f4-91a6-4547-b9e4-407543053abf"],
Cell[17168, 469, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"e103557b-92cd-450a-84ac-8ba0d6d06b7a"],
Cell[17863, 490, 78, 0, 70, "FooterCell",ExpressionUUID->"414bd167-0cbe-4996-8a7c-38316ad0c402"]
}
]
*)

(* End of internal cache information *)

