(* 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[     21814,        560]
NotebookOptionsPosition[     17867,        484]
NotebookOutlinePosition[     19846,        529]
CellTagsIndexPosition[     19803,        526]
WindowTitle->BifidSolve
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->
           "1b26aa63-c710-406d-a5e6-fd9b161aaf35"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "2f2c25ed-ef24-4ec9-b3f2-221704d777f1"],
        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->
           "ebd40155-1289-4a3b-9421-61916c28604a"]
         }],ExpressionUUID->"79b1fe20-5880-4c2a-a74f-515a12e56492"],
         StripOnInput->False],{
        StyleBox["\"BifidCipher\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BifidCipher"], 
         StyleBox[
          "\"PolybiusSquare\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PolybiusSquare"], 
         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->
      "c0d13f55-7d76-4157-9a86-d081b460e1f7"],
     "\[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->
           "a31adcb1-dc05-464b-b5fa-f4e71b3a4558"]
         }],ExpressionUUID->"d4ed0220-7158-43b8-8bb9-194b4bc86db9"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b86f27d1-3594-4078-baea-a9d432363820"],
     "\[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->
           "ff2958d1-c7ec-4885-86a4-61c7f622f52d"]
         }],ExpressionUUID->"4f5b959d-d206-46c6-a266-9f992151ec6e"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BifidSolve\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BifidSolve"], 
         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/BifidSolve.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/BifidSolve" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8ab0a3f9-ee90-436e-a0dc-7956420b35ba"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "14cbbcb4-541e-4f0b-bb2c-f830c59db9d8"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"e0616889-e511-4a56-bb63-896f2647e8c0"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"c7e9f953-f460-4770-913a-374fe69943b2"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BifidSolve", "ObjectName",ExpressionUUID->
      "eb3634eb-a32f-4ad6-976b-159c6f32644b"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"0000af2f-85d4-4fa6-b871-417571cfc489"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "875af59d-66c3-4f83-9cf5-0e4aeb862137"]
    }],ExpressionUUID->"691ac9d4-13a4-4708-90d6-ad479de102cc"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"7c53df0d-60e8-4a24-9db3-\
5e520b2c9234"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BifidSolve"]], 
         "paclet:WolframInstitute/Puzzles/ref/BifidSolve", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["text", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "86a4d9b4-81e0-4c8d-a3a3-1ba598aac133"],
     "\[LineSeparator]",
     "recovers a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["BifidCipher"]], 
        "paclet:WolframInstitute/Puzzles/ref/BifidCipher", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "57e5628d-5556-4d72-9a80-b92b634adab4"],
     " from ciphertext alone, giving an Association with the best ",
     Cell[BoxData["\"\<Plaintext\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "71fcdcf0-7789-4c12-9604-52fd443800a4"],
     ", ",
     Cell[BoxData["\"\<Square\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "eb0fa8ec-0e63-475e-a67e-19caf6684735"],
     ", ",
     Cell[BoxData["\"\<Period\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a8cbd30d-967e-4795-99f7-4324b77b91a9"],
     " and ",
     Cell[BoxData["\"\<Score\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ec4ee56f-52ce-4aa8-b46a-500c804b1f06"],
     "."
    }],ExpressionUUID->"8f9534bc-ee09-4feb-beea-1befb0238c5f"]}
  }]], "Usage",ExpressionUUID->"7add2126-e0ca-42e2-8c0e-2aa00382e4e0"]
}, 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->"064d8852-e6dd-49df-8c75-0e05a4b1d5a7"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"ebc8929e-f7ef-4646-8b3b-b090ad92eb0c"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "8e42faa3-a727-4c4c-b0f1-7fe217881781"]],ExpressionUUID->"1bf19c37-0f85-\
44d2-a2a5-7476a8017b36"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1529253544,ExpressionUUID->"c4ab5af4-2146-4ece-90e9-050be521994e"],

Cell[TextData[{
 "The 5x5 Polybius square is recovered by a hill-climb on quadgram fitness, \
run through the LibraryLink C accelerator (",
 Cell["LibraryResources/Source/wlqcrack.c", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "5f429340-b0d9-49b0-bb37-9e0d1b64bf4f"],
 ") when a compiler is available, and a slower Wolfram-Language search \
otherwise."
}], "Notes",ExpressionUUID->"645648aa-aa6b-475d-ad7d-060a9d6d92d6"],

Cell[TextData[{
 "The option ",
 Cell[BoxData["\<\"Period\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3a68a535-1c06-4300-abef-51f9221c1cca"],
 " (Automatic tries periods 3 through 12, keeping the best) sets the Bifid \
block period."
}], "Notes",ExpressionUUID->"fc91cbbf-1794-4585-b96e-f07e4c5f8bde"],

Cell["\<\
A few hundred letters is comfortable; a short ciphertext leaves too little \
signal for the square to converge.\
\>", "Notes",ExpressionUUID->"b453e7ed-e4d5-4127-afdc-54b5cb05f329"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"ea96895e-a154-4a2f-aa01-2cb38a867c05"],

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->"f4e6554c-408c-40d8-a276-aca63157c22b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"46f52531-0a79-4c94-a9aa-b8817c362d31"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "36c34c5c-790c-48fe-b802-87dc4a052a42"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1080026712,ExpressionUUID->"970c5557-b778-4ef1-ba38-0b35f3adc1ea"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"29ef743a-a743-447e-b71f-d8e8cd4180f4"],

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->
  "be119d35-b3cd-402d-b2fa-9090e76bb538"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"3f6b8b46-6176-4d7c-92e3-bfc5fc656410"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "20b77d76-a0fc-4eeb-910c-ab42291ffbf6"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1477164140,ExpressionUUID->"be8814df-c9cd-4b4f-aef2-a6a1c065f9e7"],

Cell["Recover a Bifid cipher with no key:", "ExampleText",ExpressionUUID->"db12045b-aae5-498a-ad67-e37b9bec8c67"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "pt", " ", "=", 
   " ", "\"\<\
THEQUICKBROWNFOXIUMPSOVERTHELAZYDOGWHILETHEARCHIVISTSTUDIEDTHEANCIENTMANUSCRIP\
TSSEARCHINGFORANYMENTIONOFTHEHIDDENNEEDLETHATCOULDUNRAVELANYKNOTEVERTIEDBYHUMA\
NHANDSINALLOFRECORDEDHISTORYANDLEGEND\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"BifidSolve", "[", 
    RowBox[{
     RowBox[{"BifidCipher", "[", 
      RowBox[{"pt", ",", " ", "\"\<SECRETKEY\>\"", ",", " ", "7"}], "]"}], ",",
      " ", 
     RowBox[{"\"\<Period\>\"", " ", "->", " ", "7"}]}], "]"}], 
   "[", "\"\<Plaintext\>\"", "]"}], " ", "===", " ", "pt"}]}], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"facd91ee-4c74-4888-a1fb-b19a4cae7d0e"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"34a7f050-794d-464c-a2cf-f0260561de7a"]
}, 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["BifidCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/BifidCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "996b0e1e-b527-4472-a935-002b6c07a0fe"],
        "\[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->
         "9a55ab5c-e913-4614-831c-a518976a1de4"],
        "\[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->
         "0ed2771f-8c44-4520-a0c2-2b237b3a5655"]
       }], "SeeAlso",ExpressionUUID->"04146151-28f5-4430-b97c-f789c43f2bb5"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"9366bde8-a1d9-492a-8b47-\
a20bf8f696a0"],

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->
         "faab99b8-ce31-4ccd-a1e3-0be400afe60f"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"63f691cf-84f8-48ce-b7b2-\
1a366354db04"],

Cell[" ", "FooterCell",ExpressionUUID->"f4c8d20b-d64a-4845-bcf6-d4332251edec"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BifidSolve",
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, 29.441298}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BifidSolve,paclet : WolframInstitute/Puzzles/ref/BifidSolve, \
WolframInstitute/Puzzles Package Symbol][text] recovers a \
PackageLink[BifidCipher, paclet : WolframInstitute/Puzzles/ref/BifidCipher, \
WolframInstitute/Puzzles Package Symbol] from ciphertext alone, giving an \
Association with the best Plaintext, Square, Period and Score.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "BifidSolve", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "BifidSolve", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BifidSolve", "WorkflowDockedCell" -> ""}, 
  "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"02ea4479-8129-4271-8a2d-fcb8d9adf877"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[578, 21, 5383, 134, 70, "AnchorBarGrid",ExpressionUUID->"e0616889-e511-4a56-bb63-896f2647e8c0",
 CellID->1],
Cell[5964, 157, 107, 0, 70, "ContextNameCell",ExpressionUUID->"c7e9f953-f460-4770-913a-374fe69943b2"],
Cell[CellGroupData[{
Cell[6096, 161, 553, 14, 70, "ObjectNameGrid",ExpressionUUID->"7c53df0d-60e8-4a24-9db3-5e520b2c9234"],
Cell[6652, 177, 1931, 49, 70, "Usage",ExpressionUUID->"7add2126-e0ca-42e2-8c0e-2aa00382e4e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8620, 231, 1444, 34, 70, "NotesSection",ExpressionUUID->"c4ab5af4-2146-4ece-90e9-050be521994e",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1529253544],
Cell[10067, 267, 442, 8, 70, "Notes",ExpressionUUID->"645648aa-aa6b-475d-ad7d-060a9d6d92d6"],
Cell[10512, 277, 360, 8, 70, "Notes",ExpressionUUID->"fc91cbbf-1794-4585-b96e-f07e4c5f8bde"],
Cell[10875, 287, 191, 3, 70, "Notes",ExpressionUUID->"b453e7ed-e4d5-4127-afdc-54b5cb05f329"]
}, Closed]],
Cell[11081, 293, 80, 0, 70, "PageDelimiter",ExpressionUUID->"ea96895e-a154-4a2f-aa01-2cb38a867c05"],
Cell[CellGroupData[{
Cell[11186, 297, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"970c5557-b778-4ef1-ba38-0b35f3adc1ea",
 CellID->1080026712],
Cell[12590, 336, 216, 4, 70, "Input",ExpressionUUID->"29ef743a-a743-447e-b71f-d8e8cd4180f4",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12831, 344, 1236, 31, 70, "ExampleSection",ExpressionUUID->"be8814df-c9cd-4b4f-aef2-a6a1c065f9e7",
 CellID->1477164140],
Cell[14070, 377, 113, 0, 70, "ExampleText",ExpressionUUID->"db12045b-aae5-498a-ad67-e37b9bec8c67"],
Cell[CellGroupData[{
Cell[14208, 381, 743, 18, 70, "Input",ExpressionUUID->"facd91ee-4c74-4888-a1fb-b19a4cae7d0e"],
Cell[14954, 401, 110, 1, 70, "Output",ExpressionUUID->"34a7f050-794d-464c-a2cf-f0260561de7a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[15103, 407, 1984, 52, 70, "SeeAlsoSection",ExpressionUUID->"9366bde8-a1d9-492a-8b47-a20bf8f696a0"],
Cell[17090, 461, 692, 19, 70, "MoreAboutSection",ExpressionUUID->"63f691cf-84f8-48ce-b7b2-1a366354db04"],
Cell[17785, 482, 78, 0, 70, "FooterCell",ExpressionUUID->"f4c8d20b-d64a-4845-bcf6-d4332251edec"]
}
]
*)

(* End of internal cache information *)

