(* 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[     21898,        559]
NotebookOptionsPosition[     17796,        481]
NotebookOutlinePosition[     20024,        529]
CellTagsIndexPosition[     19981,        526]
WindowTitle->TrifidCipher
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->
           "841b06db-8710-46de-b5e6-4adc178d014d"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "7c9380a0-67ea-41d4-b95f-fa43698dea4d"],
        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->
           "b24fe1d7-2b6c-4222-a587-f0ad1424c78c"]
         }],ExpressionUUID->"9c94b184-54f9-46f9-9394-e11063589d36"],
         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[
          "\"KeyedAlphabet\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "4a15ea2f-0fb9-4218-8ceb-cc2d45b84186"],
     "\[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->
           "30365af7-dfc7-4048-a8ec-51c49ae42623"]
         }],ExpressionUUID->"15334872-2781-444e-a7d8-7fe10fa73432"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b5dc64cd-870e-499a-bddb-9f72cfb1901b"],
     "\[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->
           "981c3cfa-2301-4ada-a07f-27295dba5c44"]
         }],ExpressionUUID->"74c7da1a-b49c-46b2-a767-22bf426f2dfc"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/TrifidCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/TrifidCipher"], 
         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/TrifidCipher.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/TrifidCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "bd58ff4e-f664-4db9-83e7-42b86ebb7e7e"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "b86ef7ea-bae6-4a70-9def-ede2aa86cd60"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"f1d8c70c-6730-44c0-bb7c-69319ff172f8"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"f270dac6-1786-4e7c-aeb4-a838a3e59cd4"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "TrifidCipher", "ObjectName",ExpressionUUID->
      "d9a3f926-8883-46ec-9104-4d0ddabfc11a"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"2d0aed4f-3fa4-4aa2-bef6-d6b7be471c6c"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "caa9b985-8a8c-44a3-a888-233a852b459e"]
    }],ExpressionUUID->"456a9eb4-0bb8-4494-9dce-d23d4ab24b50"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"20a07199-6bcf-46db-8549-\
6d7600e2a71a"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["TrifidCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/TrifidCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"], ",", " ", 
        StyleBox["period", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "57f51c88-3199-49d9-a2cd-c59071b462e4"],
     "\[LineSeparator]",
     "enciphers text with Delastelle's Trifid cipher: the 26 letters and a \
27th filler symbol are keyed into a 3x3x3 cube, each letter is written as its \
three base-3 coordinates, and within each block of ",
     StyleBox["period", "TI"],
     " letters the three coordinate rows are concatenated and re-read as \
fresh triples."
    }],ExpressionUUID->"0bd62773-f869-48c3-b5be-c30dd356ccd4"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["TrifidCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/TrifidCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["key", "TI"], ",", " ", 
        StyleBox["period", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "791388fd-8a6b-496f-ba58-695d7a712270"],
     "\[LineSeparator]",
     "deciphers."
    }],ExpressionUUID->"475a927d-dd66-44fd-a345-02f17f3a219e"]}
  }]], "Usage",ExpressionUUID->"cab78065-a0c5-4238-abea-2b35665adbdc"]
}, 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->"0587243d-3f81-498d-a73d-b93e7959591d"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"4f3c0f7b-08a3-4e49-8331-8e09e4830d38"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "f53cbdb7-d636-4119-a04a-7415075e1fe8"]],ExpressionUUID->"0e631b6a-2884-\
4750-bb65-fa4881851c66"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1632385041,ExpressionUUID->"06c64d5f-3207-4dfa-92f6-21a9f0ad34f5"],

Cell[TextData[{
 "The cube is keyed by ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["KeyedAlphabet"]], 
    "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "561d3f12-3a10-4e54-9cd1-0bdda5015e57"],
 " of ",
 StyleBox["key", "TI"],
 " followed by a ",
 Cell[BoxData["#"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6e97b864-02ad-494f-9c0d-c4b1b2746322"],
 " filler, so the ciphertext can contain ",
 Cell[BoxData["#"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c237b437-08f0-4963-b63c-c2e1dc3eb5e0"],
 " and decryption keeps it."
}], "Notes",ExpressionUUID->"0bdfe11b-dfc7-4b19-833b-972830b6392c"],

Cell["\<\
Trifid spreads each plaintext letter across three ciphertext letters (Bifid \
uses two), flattening the frequency profile more thoroughly; larger periods \
mix more letters together.\
\>", "Notes",ExpressionUUID->"e6234798-2e4c-459e-99e3-b92ef05d8500"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"a02abb2c-4983-479c-90f2-1f2cb6026cd7"],

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->"04fbf9c3-ed51-42bb-a671-86f3cbade8c9"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6624a78b-14f1-426c-a486-716808edaca7"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "40948e41-6c9d-4b23-816e-a0e69a2fd96d"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1391793662,ExpressionUUID->"db3b8c87-4a18-47f7-a4c6-c7c07cded6af"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"8b7be39a-abfb-42e6-b3b4-6a59a16f37b6"],

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->
  "b7af4a4a-2cdc-4469-bc9d-bd2ad4ef245f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"fa6d1ffa-b70b-4fd3-86a7-e95164de38a5"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "e2caa27f-2477-42bc-8d2e-681cba762c60"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1484194110,ExpressionUUID->"3b58dd93-91c7-4f4a-8b0a-61ada1e6b48f"],

Cell["Encipher and recover a message:", "ExampleText",ExpressionUUID->"bef406c5-d5a5-4b0f-bca1-abb488451fcc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrifidCipher", "[", 
  RowBox[{
   RowBox[{"TrifidCipher", "[", 
    RowBox[{"\"\<THEQUICKBROWNFOXJUMPSOVERLAZY\>\"", ",", 
     " ", "\"\<CRYPTO\>\"", ",", " ", "7"}], "]"}], ",", " ", "\"\<CRYPTO\>\"",
    ",", " ", "7", ",", " ", "\"\<Decrypt\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b582840a-6e65-4421-9531-192576a903f2"],

Cell[BoxData["\<\"THEQUICKBROWNFOXJUMPSOVERLAZY\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7f0cd697-f577-4420-af59-8f1ee48f4da5"]
}, 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["BifidCipher"]], 
           "paclet:WolframInstitute/Puzzles/ref/BifidCipher", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "bf931611-0692-4e7f-972b-463e3545baac"],
        "\[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->
         "983c9c3e-a26b-4cbe-b51f-7f6f3da5208f"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["KeyedAlphabet"]], 
           "paclet:WolframInstitute/Puzzles/ref/KeyedAlphabet", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7c508f30-1fc6-4ee9-a793-f855a9866dea"]
       }], "SeeAlso",ExpressionUUID->"ab616a4b-f1ab-4cc4-adac-cdcbc3135580"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"5fff44a1-2e83-42e5-ac3a-\
68c44432ab3f"],

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->
         "de17f0d9-00db-4be2-8bc3-579c2e3f66d6"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"d3156fa6-14d2-43d7-8d2a-\
e260f4d93fa1"],

Cell[" ", "FooterCell",ExpressionUUID->"c147b653-9793-46d0-925f-2113ae18e270"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"TrifidCipher",
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, 12, 3.248467}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[TrifidCipher,paclet : \
WolframInstitute/Puzzles/ref/TrifidCipher, WolframInstitute/Puzzles Package \
Symbol][text, key, period] enciphers text with Delastelle's Trifid cipher: \
the 26 letters and a 27th filler symbol are keyed into a 3x3x3 cube, each \
letter is written as its three base-3 coordinates, and within each block of \
period letters the three coordinate rows are concatenated and re-read as \
fresh triples. PackageLink[TrifidCipher,paclet : \
WolframInstitute/Puzzles/ref/TrifidCipher, WolframInstitute/ Puzzles Package \
Symbol][text, key, period, Decrypt] deciphers.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "TrifidCipher", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "TrifidCipher", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/TrifidCipher", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"6ce93248-c7fc-4924-8cc3-5c8bdef6e0f7"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[580, 21, 5397, 134, 70, "AnchorBarGrid",ExpressionUUID->"f1d8c70c-6730-44c0-bb7c-69319ff172f8",
 CellID->1],
Cell[5980, 157, 107, 0, 70, "ContextNameCell",ExpressionUUID->"f270dac6-1786-4e7c-aeb4-a838a3e59cd4"],
Cell[CellGroupData[{
Cell[6112, 161, 555, 14, 70, "ObjectNameGrid",ExpressionUUID->"20a07199-6bcf-46db-8549-6d7600e2a71a"],
Cell[6670, 177, 1871, 47, 70, "Usage",ExpressionUUID->"cab78065-a0c5-4238-abea-2b35665adbdc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8578, 229, 1444, 34, 70, "NotesSection",ExpressionUUID->"06c64d5f-3207-4dfa-92f6-21a9f0ad34f5",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1632385041],
Cell[10025, 265, 888, 25, 70, "Notes",ExpressionUUID->"0bdfe11b-dfc7-4b19-833b-972830b6392c"],
Cell[10916, 292, 262, 4, 70, "Notes",ExpressionUUID->"e6234798-2e4c-459e-99e3-b92ef05d8500"]
}, Closed]],
Cell[11193, 299, 80, 0, 70, "PageDelimiter",ExpressionUUID->"a02abb2c-4983-479c-90f2-1f2cb6026cd7"],
Cell[CellGroupData[{
Cell[11298, 303, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"db3b8c87-4a18-47f7-a4c6-c7c07cded6af",
 CellID->1391793662],
Cell[12702, 342, 216, 4, 70, "Input",ExpressionUUID->"8b7be39a-abfb-42e6-b3b4-6a59a16f37b6",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12943, 350, 1236, 31, 70, "ExampleSection",ExpressionUUID->"3b58dd93-91c7-4f4a-8b0a-61ada1e6b48f",
 CellID->1484194110],
Cell[14182, 383, 109, 0, 70, "ExampleText",ExpressionUUID->"bef406c5-d5a5-4b0f-bca1-abb488451fcc"],
Cell[CellGroupData[{
Cell[14316, 387, 421, 8, 70, "Input",ExpressionUUID->"b582840a-6e65-4421-9531-192576a903f2"],
Cell[14740, 397, 143, 1, 70, "Output",ExpressionUUID->"7f0cd697-f577-4420-af59-8f1ee48f4da5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14922, 403, 2040, 53, 70, "SeeAlsoSection",ExpressionUUID->"5fff44a1-2e83-42e5-ac3a-68c44432ab3f"],
Cell[16965, 458, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"d3156fa6-14d2-43d7-8d2a-e260f4d93fa1"],
Cell[17714, 479, 78, 0, 70, "FooterCell",ExpressionUUID->"c147b653-9793-46d0-925f-2113ae18e270"]
}
]
*)

(* End of internal cache information *)

