(* 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[     47657,       1248]
NotebookOptionsPosition[     38132,       1071]
NotebookOutlinePosition[     40227,       1121]
CellTagsIndexPosition[     40149,       1116]
WindowTitle->BIP39Mnemonic
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->
           "7dad5999-0812-442f-ae7a-b9ad3bb26482"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "b29cf0b0-ec57-4da6-bced-ff8907ed26f5"],
        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->
           "b4377a30-b8cf-49d2-9d8c-a8538070125a"]
         }],ExpressionUUID->"83f78057-bc5d-4798-b7d1-2e7193726fe8"],
         StripOnInput->False],{
        StyleBox["\"BIP39Entropy\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39Entropy"], 
         StyleBox[
          "\"BIP39MnemonicQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39MnemonicQ"], 
         StyleBox["\"BIP39Seed\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39Seed"], 
         StyleBox[
          "\"BIP39FinalWords\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39FinalWords"], 
         StyleBox[
          "\"$BIP39EnglishWords\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$BIP39EnglishWords"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "96a6b180-8d10-468b-a358-dd74bba43bf4"],
     "\[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->
           "cc88c06c-eda1-4d18-aefb-fc2a59f9ba77"]
         }],ExpressionUUID->"4d14ccef-8f28-4a05-a81b-9ea33e842e9d"],
         StripOnInput->False],{
        "\"Seeds\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Seeds"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "a38917ca-9279-44f3-bd48-083e0ea48761"],
     "\[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->
           "2cb2e29e-484d-41c5-80a6-0654bfd12508"]
         }],ExpressionUUID->"f7465e00-aa92-402d-a43f-93c79fbeff65"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP39Mnemonic\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP39Mnemonic"], 
         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/BIP39Mnemonic.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/BIP39Mnemonic" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c4173684-cac8-4611-b9fb-87ad9aebd34f"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "6069e8eb-a587-49fa-a377-b8b146d6ac16"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"738b8a97-b9ca-4f11-be16-146e25e81fea"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"e24febd9-f077-40be-b83d-989d46cd5853"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP39Mnemonic", "ObjectName",ExpressionUUID->
      "7955092d-17ee-4cce-a8d9-149a8334afb5"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"8ddb080f-37ce-4535-b58f-c3f9230e8c3b"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "22e8b42e-e0cb-4ed7-b591-62d4deff9029"]
    }],ExpressionUUID->"78ce1e21-a507-46fa-82b6-ff35edf8ac95"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"e60834ca-d2e3-4f09-8ea2-\
0a55afd9a771"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP39Mnemonic"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP39Mnemonic", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["entropy", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "538a603f-5db7-49b2-9654-de25c60f9f26"],
     "\[LineSeparator]",
     "gives the BIP39 English mnemonic sentence encoding ",
     StyleBox["entropy", "TI"],
     ", given as a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["ByteArray"]], "paclet:ref/ByteArray"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "854e2ee2-bab7-4175-b2c2-e52db98382e3"],
     ", a hexadecimal string, or a list of byte values."
    }],ExpressionUUID->"4ebb93f4-113f-49b5-9673-ef95529c0d25"]}
  }]], "Usage",ExpressionUUID->"d6611e6f-3350-45a8-8db7-0d7d469ea1d3"]
}, 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->"b88278aa-a986-4eb6-8ab1-c866ddfd3872"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"db2541d7-9ed9-4241-9c44-ef8f62d20cdb"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "c9294e90-acec-4fcf-9a9f-1293634b631d"]],ExpressionUUID->"e3e967a4-d107-\
4a54-ae1f-c509daba2051"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1318875912,ExpressionUUID->"24f82dbf-3549-4877-84d3-7caf66f05a3f"],

Cell[TextData[{
 "BIP39 appends the leading ",
 Cell[BoxData[
  RowBox[{
   StyleBox["ENT",
    FontSlant->"Plain"], "/", "32"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b2c725f3-cbff-4aa6-b87a-0f134e39fb2d"],
 " bits of ",
 Cell[BoxData[
  RowBox[{
   StyleBox["SHA256",
    FontSlant->"Plain"], 
   StyleBox["(",
    SpanMaxSize->1], 
   StyleBox["entropy",
    FontSlant->"Plain"], 
   StyleBox[")",
    SpanMaxSize->1]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7d3d3686-a263-4a7e-b99a-7cf699b64dd3"],
 " to the entropy bits and cuts the result into 11-bit indices into ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$BIP39EnglishWords"]], 
    "paclet:WolframInstitute/Puzzles/ref/$BIP39EnglishWords", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b794666b-6e37-4852-9e3c-6541ab71f010"],
 "."
}], "Notes",ExpressionUUID->"7148d2c8-7999-4a88-9be4-1299afdb0af8"],

Cell["\<\
The admitted entropy sizes are 16, 20, 24, 28 and 32 bytes, giving 12, 15, \
18, 21 and 24 words and 4, 5, 6, 7 and 8 checksum bits.\
\>", "Notes",ExpressionUUID->"b58e4779-24d1-422f-9c5d-d3662a65b6dd"],

Cell["\<\
The words are joined with single spaces. A wallet that displays them \
differently is displaying the same mnemonic.\
\>", "Notes",ExpressionUUID->"ff34ffcc-74a6-48fd-bf27-06f561f79c0a"],

Cell["\<\
An entropy size BIP39 does not admit, or an argument that is not a byte \
array, a hexadecimal string of even length or a list of byte values, matches \
no definition and the call is returned unevaluated.\
\>", "Notes",ExpressionUUID->"82a81245-4fe0-453c-a290-d768159a17a8"],

Cell["\<\
A hexadecimal string may be given in either case; the entropy is its bytes, \
not its characters.\
\>", "Notes",ExpressionUUID->"daebf34b-697e-4fd3-9c5e-b27a0ffcf6b8"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP39Entropy"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP39Entropy", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "de3e1249-0780-4595-a48e-45044e66946a"],
 " is the inverse and verifies the checksum."
}], "Notes",ExpressionUUID->"ee093a99-588e-4894-ab62-16f5d0e377d4"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"17485f19-5ca7-41a1-9906-9ef060bc93a6"],

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->"c5cfccc7-5796-4fb4-90d7-6e5da5be65d4"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"91b55867-cb8d-486d-80e5-90f0ffd85557"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "c4c48ed0-b5c5-414a-a8c8-b8860fdfb490"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->21248650,ExpressionUUID->"cdcc9fa5-0a5a-4a26-9c36-7375f32b5fd5"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"4a890eb3-daf3-4168-b5b4-d1730354e974"],

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->
  "035ea598-c12f-43e9-a186-5ecbdf55dc29"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d0d8d1a7-c338-41c3-8749-67716af73acd"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "eae19473-fc19-4cbe-b598-81b4b33e6afd"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->643775148,ExpressionUUID->"e8a25f66-1b10-470a-801c-3937749b0d67"],

Cell["\<\
The all-zero 128-bit entropy, the first official BIP39 test vector:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"0190efd4-617d-4be2-a620-3a8db99f9eb9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP39Mnemonic", "[", "\"\<00000000000000000000000000000000\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"349a51d6-4f78-401f-bfb3-351de20f9249"],

Cell[BoxData["\<\"abandon abandon abandon abandon abandon abandon abandon \
abandon abandon abandon abandon about\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b9a3cf38-9215-4e16-b61b-84a46663cdab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "79e021aa-e8ed-458e-98db-54fbb88fc8ce"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d3996410-e8ca-48ce-\
af4d-64ea1c9e2a32"],

Cell["A 256-bit entropy gives a 24-word mnemonic:", "ExampleText",ExpressionUUID->"a5710cb0-bcb8-4769-9644-d2d197052dad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP39Mnemonic", 
  "[", "\"\<f585c11aec520db57dd353c69554b21a89b20fb0650966fa0a9d6f74fd989d8f\>\
\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e8fe29e9-ad75-41fa-9cb6-f228f5ea530d"],

Cell[BoxData["\<\"void come effort suffer camp survey warrior heavy shoot \
primary clutch crush open amazing screen patrol group space point ten exist \
slush involve unfold\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"eccc7e72-742c-4741-8237-0f844a72a9cd"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1c6c57dc-f317-4811-8be6-708341dbbfc3"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"47091308-b71c-4177-\
bf05-13a42da44312"],

Cell[TextData[{
 "Entropy given as a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "600e9f2a-9b19-415d-9732-1184a508d8b4"],
 " encodes the same way:"
}], "ExampleText",ExpressionUUID->"50a36438-6f30-42f6-8f32-67cedb88c118"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP39Mnemonic", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"16^^7f", ",", " ", "16"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a5dcae0c-e9f8-441a-9bbd-e802d8bb7822"],

Cell[BoxData["\<\"legal winner thank year wave sausage worth useful legal \
winner thank yellow\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8aa68af7-ca79-4d7f-a999-61b7ce569b0a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

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->
  "5c89bde8-cc7d-4cb7-86ba-a49723764a50"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4f2d5269-4fe4-4a58-93c3-0f7280c30485"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "78678d7b-e67a-410e-8c11-bad1813d5686"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"7339f1a4-ec86-43ae-9fcf-69d565f653f0"],

Cell["All five admitted entropy sizes, by word count:", "ExampleText",ExpressionUUID->"d2dbb841-c7ab-48e0-b199-23bd36ecde93"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Length", "[", 
    RowBox[{"StringSplit", "[", 
     RowBox[{"BIP39Mnemonic", "[", 
      RowBox[{"ByteArray", "[", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", " ", "size"}], "]"}], "]"}], "]"}], "]"}], "]"}], ",",
    " ", 
   RowBox[{"{", 
    RowBox[{"size", ",", " ", 
     RowBox[{"{", 
      RowBox[{
      "16", ",", " ", "20", ",", " ", "24", ",", " ", "28", ",", " ", "32"}], 
      "}"}]}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"37bb0ad5-0d3e-461b-a361-e07bb207b2e2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"12", ",", "15", ",", "18", ",", "21", ",", "24"}], "}"}]], "Output",\

 CellLabel->"Out[1]= ",ExpressionUUID->"7b4a3383-0e23-4a9c-871c-0b6de821e9d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7c7a5b2a-5433-41e0-b5c1-ff7cf1403d8a"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bbb1db82-557a-48dc-\
8afe-92dc85b6a432"],

Cell["\<\
A list of byte values is accepted, which is the shape the Encodings functions \
produce:\
\>", "ExampleText",ExpressionUUID->"cdd934e6-b827-4c36-99f3-09d20d96383c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP39Mnemonic", "[", 
  RowBox[{
  "HexStringToByteList", "[", "\"\<80808080808080808080808080808080\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ced89f7a-1ea0-4d13-bae1-ef6ebab18dcd"],

Cell[BoxData["\<\"letter advice cage absurd amount doctor acoustic avoid \
letter advice cage above\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4e90c6cc-a852-4d09-9656-16646a2be8eb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3995efe0-22a4-4cbc-bbb8-1423271bd365"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f96ee574-9ec1-40bf-\
860b-869932407fb4"],

Cell["\<\
An entropy size BIP39 does not admit is out of scope, and the call comes back \
unchanged:\
\>", "ExampleText",ExpressionUUID->"10fc0a7d-1723-495e-9f88-6e203a05a9e9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP39Mnemonic", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", " ", "18"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fcaee667-35ef-4eaa-add4-8b07149c0e88"],

Cell[BoxData[
 RowBox[{"BIP39Mnemonic", "[", 
  InterpretationBox[
   RowBox[{
    TagBox["ByteArray",
     "SummaryHead"], "[", 
    DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
     TemplateBox[{
       PaneSelectorBox[{False -> GridBox[{{
             GridBox[{{
                TagBox["\"18 bytes\"", "SummaryItem"]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}], True -> GridBox[{{
             GridBox[{{
                TagBox["\"18 bytes\"", "SummaryItem"]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}]}, 
        Dynamic[Typeset`open$$], ImageSize -> Automatic]},
      "SummaryPanel"],
     DynamicModuleValues:>{}], "]"}],
   ByteArray[{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}],
   Editable->False,
   SelectWithContents->True,
   Selectable->False], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f59df75e-6dc1-4b6c-820a-9a792965ef13"]
}, Open  ]]
}, Open  ]]
}, Closed]],

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->
  "29813d75-e745-4187-adb6-596655345142"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7c4af6b1-2b4c-4edd-8f9c-d2c904bd4fe8"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "47ad2b1f-4d1e-47ac-83e6-cc72224cd1c5"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"96db4750-9cc5-4648-bc13-a3b9d8a3b359"],

Cell["\<\
Entropy taken from a hash is a legitimate mnemonic, which is how a passphrase \
becomes a seed phrase:\
\>", "ExampleText",ExpressionUUID->"877bc858-a659-4d13-b2c8-103ef3f6f8a6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP39Mnemonic", "[", 
  RowBox[{"Hash", "[", 
   RowBox[{"\"\<a puzzle phrase\>\"", ",", " ", "\"\<SHA256\>\"", ",", 
    " ", "\"\<ByteArray\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8d6af679-3d04-4fc0-bcdd-080332e7db2b"],

Cell[BoxData["\<\"vendor list reason electric olive seat crime better sample \
stone subway seek tunnel element term flee own best kitchen together furnace \
cotton trade swift\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e49d41cf-e4fb-4c02-a832-112cb1923555"]
}, Open  ]]
}, Closed]],

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->
  "c6024a26-5bdd-41fc-8fb7-178426e509e4"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2ddedb83-d152-4c24-a9fb-af92452a27a0"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "a04fb4b2-995f-43b8-b376-49da5f5313b6"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"fefa094c-c3c0-4097-9baf-9174d0f424c6"],

Cell[TextData[{
 "The round trip closes: ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP39Entropy"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP39Entropy", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c4781651-f4ae-4ced-89b1-4f87e63931c7"],
 " recovers the entropy from the mnemonic:"
}], "ExampleText",ExpressionUUID->"e1aad978-84fc-4f29-86eb-fedf5840987c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"BIP39Entropy", "[", 
   RowBox[{
   "BIP39Mnemonic", "[", "\"\<7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f\>\"", "]"}], 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f57c8a9a-204f-45d3-9718-e1f84bc951ae"],

Cell[BoxData["\<\"7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ade9ecef-a6b8-4e73-94dc-86689ce07926"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3d8d83c5-450c-43c8-815d-a139928b5e8f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f2756168-7c23-481a-\
b291-48604d03c102"],

Cell["\<\
Everything this function produces is well formed by construction:\
\>", "ExampleText",ExpressionUUID->"9a397f36-5d63-43ba-bf9b-754687934288"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"BIP39Mnemonic", "[", 
      RowBox[{"ByteArray", "[", 
       RowBox[{"RandomInteger", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", " ", "255"}], "}"}], ",", " ", "16"}], "]"}], 
       "]"}], "]"}], ",", " ", "20"}], "]"}], ",", " ", "BIP39MnemonicQ"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"78912ae9-f6ee-4249-b115-05a25f05319a"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3a28445c-c965-49a6-933e-2170600b5a55"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "fdf0d234-82d2-43ff-abfb-9873b37802f6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"54fb6114-7066-41f9-\
94eb-90945f75e44e"],

Cell[TextData[{
 "The last word carries the checksum, so it is one of the completions ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP39FinalWords"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP39FinalWords", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0b61dcf0-61b8-47b1-bbf4-83240c603bb7"],
 " lists:"
}], "ExampleText",ExpressionUUID->"8eb286c7-4e14-4be7-9859-5f19d5a0a484"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MemberQ", "[", 
  RowBox[{
   RowBox[{"BIP39FinalWords", "[", 
    RowBox[{"Most", "[", 
     RowBox[{"StringSplit", "[", 
      RowBox[{
      "BIP39Mnemonic", "[", "\"\<00000000000000000000000000000000\>\"", "]"}],
       "]"}], "]"}], "]"}], ",", " ", 
   RowBox[{"Last", "[", 
    RowBox[{"StringSplit", "[", 
     RowBox[{
     "BIP39Mnemonic", "[", "\"\<00000000000000000000000000000000\>\"", "]"}], 
     "]"}], "]"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3d1f473e-90df-4c4d-804d-419f8d05ee8f"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"85ed9744-70cf-4a75-95a9-edcbbf6255f0"]
}, Open  ]]
}, Open  ]]
}, Closed]],

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->
  "27e1a606-aaae-4cd4-ac59-62aaab09b5e0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"be49457b-fc90-4776-8009-0835f5bc1dbf"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "e4b55c24-5cce-4abb-9faf-86eb004ec114"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"1a669bb4-71c7-4288-a83e-79afbae4a150"],

Cell["\<\
A hexadecimal string of odd length is not a byte count and matches no \
definition:\
\>", "ExampleText",ExpressionUUID->"82c0f0ae-b9be-46ef-94a6-0e8d9464cfe5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP39Mnemonic", "[", "\"\<0000000000000000000000000000000\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"af5f5f63-e7d8-4a7b-b6b1-44549a28cada"],

Cell[BoxData[
 RowBox[{"BIP39Mnemonic", "[", "\<\"0000000000000000000000000000000\"\>", 
  "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ce5edf5e-e442-4411-b984-10bdc7e5e330"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8160cfed-0875-4fc3-9224-85bd680251f7"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7b1d5d40-93bc-4cb5-\
9028-50e8ccd225da"],

Cell["\<\
Only the English wordlist is available, so there is no argument that selects \
another language:\
\>", "ExampleText",ExpressionUUID->"5ea69eea-fbb8-4141-acc6-ee0c8536a1b9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{"$BIP39EnglishWords", ",", " ", "3"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b2df2732-6f1e-4137-92a7-1c4b2796e3a9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"abandon\"\>", ",", "\<\"ability\"\>", ",", "\<\"able\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9c6be7f4-fc2c-4688-9b36-82bc10fa163f"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, 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["BIP39Entropy"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39Entropy", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e8473418-8853-41f5-905c-5aa53686b472"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP39MnemonicQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39MnemonicQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "87f4d3f6-73e4-4b57-bb92-970130ecaa0f"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP39Seed"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39Seed", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7aae09d6-6c55-4c40-9a7c-80497fad4a8d"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP39FinalWords"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39FinalWords", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "779c045a-afe8-4763-9c56-5708486a40a8"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$BIP39EnglishWords"]], 
           "paclet:WolframInstitute/Puzzles/ref/$BIP39EnglishWords", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "3b9c86d8-0fad-4854-9862-842d91aad028"]
       }], "SeeAlso",ExpressionUUID->"a9545ba9-f1db-4439-8e72-470f1c788cd2"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"017ee131-1e51-4224-ac23-\
f9dfa8d98992"],

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["Seeds"]], "paclet:WolframInstitute/Puzzles/guide/Seeds"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "6597f728-76b7-45a6-a752-2c23ca412708"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"c7d72f96-feb9-480a-ac19-\
21c8d67f2440"],

Cell[" ", "FooterCell",ExpressionUUID->"93dd68bf-dcbc-462c-8eb8-ef977242ad93"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP39Mnemonic",
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, 30.041839}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP39Mnemonic,paclet : \
WolframInstitute/Puzzles/ref/BIP39Mnemonic, WolframInstitute/Puzzles Package \
Symbol][entropy] gives the BIP39 English mnemonic sentence encoding entropy, \
given as a ByteArray, a hexadecimal string, or a list of byte values.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "BIP39Mnemonic", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "BIP39Mnemonic", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP39Mnemonic", "WorkflowDockedCell" -> ""},
   "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"686a430b-6789-4a8c-ad78-7ff2deb369da"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15201, 413, 185, 4, 70, "ExampleText",ExpressionUUID->"0190efd4-617d-4be2-a620-3a8db99f9eb9",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 39992, 1110}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[581, 21, 5780, 141, 70, "AnchorBarGrid",ExpressionUUID->"738b8a97-b9ca-4f11-be16-146e25e81fea",
 CellID->1],
Cell[6364, 164, 107, 0, 70, "ContextNameCell",ExpressionUUID->"e24febd9-f077-40be-b83d-989d46cd5853"],
Cell[CellGroupData[{
Cell[6496, 168, 556, 14, 70, "ObjectNameGrid",ExpressionUUID->"e60834ca-d2e3-4f09-8ea2-0a55afd9a771"],
Cell[7055, 184, 1141, 29, 70, "Usage",ExpressionUUID->"d6611e6f-3350-45a8-8db7-0d7d469ea1d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8233, 218, 1444, 34, 70, "NotesSection",ExpressionUUID->"24f82dbf-3549-4877-84d3-7caf66f05a3f",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1318875912],
Cell[9680, 254, 1141, 36, 70, "Notes",ExpressionUUID->"7148d2c8-7999-4a88-9be4-1299afdb0af8"],
Cell[10824, 292, 212, 3, 70, "Notes",ExpressionUUID->"b58e4779-24d1-422f-9c5d-d3662a65b6dd"],
Cell[11039, 297, 195, 3, 70, "Notes",ExpressionUUID->"ff34ffcc-74a6-48fd-bf27-06f561f79c0a"],
Cell[11237, 302, 284, 4, 70, "Notes",ExpressionUUID->"82a81245-4fe0-453c-a290-d768159a17a8"],
Cell[11524, 308, 177, 3, 70, "Notes",ExpressionUUID->"daebf34b-697e-4fd3-9c5e-b27a0ffcf6b8"],
Cell[11704, 313, 495, 13, 70, "Notes",ExpressionUUID->"ee093a99-588e-4894-ab62-16f5d0e377d4"]
}, Closed]],
Cell[12214, 329, 80, 0, 70, "PageDelimiter",ExpressionUUID->"17485f19-5ca7-41a1-9906-9ef060bc93a6"],
Cell[CellGroupData[{
Cell[12319, 333, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"cdcc9fa5-0a5a-4a26-9c36-7375f32b5fd5",
 CellID->21248650],
Cell[13722, 372, 216, 4, 70, "Input",ExpressionUUID->"4a890eb3-daf3-4168-b5b4-d1730354e974",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13963, 380, 1235, 31, 70, "ExampleSection",ExpressionUUID->"e8a25f66-1b10-470a-801c-3937749b0d67",
 CellID->643775148],
Cell[15201, 413, 185, 4, 70, "ExampleText",ExpressionUUID->"0190efd4-617d-4be2-a620-3a8db99f9eb9",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15411, 421, 235, 4, 70, "Input",ExpressionUUID->"349a51d6-4f78-401f-bfb3-351de20f9249"],
Cell[15649, 427, 209, 2, 70, "Output",ExpressionUUID->"b9a3cf38-9215-4e16-b61b-84a46663cdab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15895, 434, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d3996410-e8ca-48ce-af4d-64ea1c9e2a32"],
Cell[16122, 441, 121, 0, 70, "ExampleText",ExpressionUUID->"a5710cb0-bcb8-4769-9644-d2d197052dad"],
Cell[CellGroupData[{
Cell[16268, 445, 269, 5, 70, "Input",ExpressionUUID->"e8fe29e9-ad75-41fa-9cb6-f228f5ea530d"],
Cell[16540, 452, 270, 3, 70, "Output",ExpressionUUID->"eccc7e72-742c-4741-8237-0f844a72a9cd"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16859, 461, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"47091308-b71c-4177-bf05-13a42da44312"],
Cell[17086, 468, 390, 11, 70, "ExampleText",ExpressionUUID->"50a36438-6f30-42f6-8f32-67cedb88c118"],
Cell[CellGroupData[{
Cell[17501, 483, 306, 6, 70, "Input",ExpressionUUID->"a5dcae0c-e9f8-441a-9bbd-e802d8bb7822"],
Cell[17810, 491, 191, 2, 70, "Output",ExpressionUUID->"8aa68af7-ca79-4d7f-a999-61b7ce569b0a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18062, 500, 1227, 31, 70, "ExampleSection",ExpressionUUID->"7339f1a4-ec86-43ae-9fcf-69d565f653f0",
 CellID->1293636265],
Cell[19292, 533, 125, 0, 70, "ExampleText",ExpressionUUID->"d2dbb841-c7ab-48e0-b199-23bd36ecde93"],
Cell[CellGroupData[{
Cell[19442, 537, 635, 17, 70, "Input",ExpressionUUID->"37bb0ad5-0d3e-461b-a361-e07bb207b2e2"],
Cell[20080, 556, 189, 4, 70, "Output",ExpressionUUID->"7b4a3383-0e23-4a9c-871c-0b6de821e9d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20306, 565, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bbb1db82-557a-48dc-8afe-92dc85b6a432"],
Cell[20533, 572, 174, 3, 70, "ExampleText",ExpressionUUID->"cdd934e6-b827-4c36-99f3-09d20d96383c"],
Cell[CellGroupData[{
Cell[20732, 579, 285, 6, 70, "Input",ExpressionUUID->"ced89f7a-1ea0-4d13-bae1-ef6ebab18dcd"],
Cell[21020, 587, 195, 2, 70, "Output",ExpressionUUID->"4e90c6cc-a852-4d09-9656-16646a2be8eb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21264, 595, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f96ee574-9ec1-40bf-860b-869932407fb4"],
Cell[21491, 602, 176, 3, 70, "ExampleText",ExpressionUUID->"10fc0a7d-1723-495e-9f88-6e203a05a9e9"],
Cell[CellGroupData[{
Cell[21692, 609, 301, 6, 70, "Input",ExpressionUUID->"fcaee667-35ef-4eaa-add4-8b07149c0e88"],
Cell[21996, 617, 2294, 48, 70, "Output",ExpressionUUID->"f59df75e-6dc1-4b6c-820a-9a792965ef13"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24351, 672, 1233, 31, 70, "ExampleSection",ExpressionUUID->"96db4750-9cc5-4648-bc13-a3b9d8a3b359",
 CellID->258228157],
Cell[25587, 705, 188, 3, 70, "ExampleText",ExpressionUUID->"877bc858-a659-4d13-b2c8-103ef3f6f8a6"],
Cell[CellGroupData[{
Cell[25800, 712, 324, 6, 70, "Input",ExpressionUUID->"8d6af679-3d04-4fc0-bcdd-080332e7db2b"],
Cell[26127, 720, 272, 3, 70, "Output",ExpressionUUID->"e49d41cf-e4fb-4c02-a832-112cb1923555"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26448, 729, 1244, 31, 70, "ExampleSection",ExpressionUUID->"fefa094c-c3c0-4097-9baf-9174d0f424c6",
 CellID->2123667759],
Cell[27695, 762, 527, 14, 70, "ExampleText",ExpressionUUID->"e1aad978-84fc-4f29-86eb-fedf5840987c"],
Cell[CellGroupData[{
Cell[28247, 780, 326, 7, 70, "Input",ExpressionUUID->"f57c8a9a-204f-45d3-9718-e1f84bc951ae"],
Cell[28576, 789, 146, 1, 70, "Output",ExpressionUUID->"ade9ecef-a6b8-4e73-94dc-86689ce07926"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28759, 795, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f2756168-7c23-481a-b291-48604d03c102"],
Cell[28986, 802, 151, 2, 70, "ExampleText",ExpressionUUID->"9a397f36-5d63-43ba-bf9b-754687934288"],
Cell[CellGroupData[{
Cell[29162, 808, 534, 14, 70, "Input",ExpressionUUID->"78912ae9-f6ee-4249-b115-05a25f05319a"],
Cell[29699, 824, 110, 1, 70, "Output",ExpressionUUID->"3a28445c-c965-49a6-933e-2170600b5a55"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29858, 831, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"54fb6114-7066-41f9-94eb-90945f75e44e"],
Cell[30085, 838, 545, 14, 70, "ExampleText",ExpressionUUID->"8eb286c7-4e14-4be7-9859-5f19d5a0a484"],
Cell[CellGroupData[{
Cell[30655, 856, 595, 15, 70, "Input",ExpressionUUID->"3d1f473e-90df-4c4d-804d-419f8d05ee8f"],
Cell[31253, 873, 110, 1, 70, "Output",ExpressionUUID->"85ed9744-70cf-4a75-95a9-edcbbf6255f0"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[31424, 881, 1237, 31, 70, "ExampleSection",ExpressionUUID->"1a669bb4-71c7-4288-a83e-79afbae4a150",
 CellID->1305812373],
Cell[32664, 914, 169, 3, 70, "ExampleText",ExpressionUUID->"82c0f0ae-b9be-46ef-94a6-0e8d9464cfe5"],
Cell[CellGroupData[{
Cell[32858, 921, 234, 4, 70, "Input",ExpressionUUID->"af5f5f63-e7d8-4a7b-b6b1-44549a28cada"],
Cell[33095, 927, 187, 3, 70, "Output",ExpressionUUID->"ce5edf5e-e442-4411-b984-10bdc7e5e330"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33319, 935, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7b1d5d40-93bc-4cb5-9028-50e8ccd225da"],
Cell[33546, 942, 182, 3, 70, "ExampleText",ExpressionUUID->"5ea69eea-fbb8-4141-acc6-ee0c8536a1b9"],
Cell[CellGroupData[{
Cell[33753, 949, 229, 4, 70, "Input",ExpressionUUID->"b2df2732-6f1e-4137-92a7-1c4b2796e3a9"],
Cell[33985, 955, 204, 4, 70, "Output",ExpressionUUID->"9c6be7f4-fc2c-4688-9b36-82bc10fa163f"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[34240, 965, 3126, 82, 70, "SeeAlsoSection",ExpressionUUID->"017ee131-1e51-4224-ac23-f9dfa8d98992"],
Cell[37369, 1049, 678, 18, 70, "MoreAboutSection",ExpressionUUID->"c7d72f96-feb9-480a-ac19-21c8d67f2440"],
Cell[38050, 1069, 78, 0, 70, "FooterCell",ExpressionUUID->"93dd68bf-dcbc-462c-8eb8-ef977242ad93"]
}
]
*)

(* End of internal cache information *)

