(* 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[     46794,       1238]
NotebookOptionsPosition[     36832,       1054]
NotebookOutlinePosition[     38910,       1103]
CellTagsIndexPosition[     38832,       1098]
WindowTitle->ElectrumV1Mnemonic
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->
           "510bfda9-27fc-44cc-acd3-ea2bca1dd69e"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "4e7e6a47-7a9a-4a5c-86a7-d18047b9b3a4"],
        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->
           "6b92a9fe-473a-45fb-b76e-6b80ff10b1c2"]
         }],ExpressionUUID->"1a2e5c33-4a27-408c-8aec-9e73f3114e64"],
         StripOnInput->False],{
        StyleBox[
          "\"ElectrumV1Seed\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed"], 
         StyleBox[
          "\"ElectrumV1MnemonicQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ"], 
         StyleBox[
          "\"ElectrumV1MasterPrivateKey\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MasterPrivateKey"], 
         StyleBox[
          "\"$ElectrumV1Words\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words"], 
         StyleBox[
          "\"BIP39Mnemonic\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39Mnemonic"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "23f7a17b-18b2-4c93-97c3-247c19fd99f8"],
     "\[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->
           "b56abc0d-8844-4f82-92e2-6c9c0fb8ccd5"]
         }],ExpressionUUID->"64cadbe4-deff-4ae6-a2ae-e0ebafe40028"],
         StripOnInput->False],{
        "\"Seeds\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Seeds"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "cda57dcf-b493-4d14-8e2d-7166d55dbc94"],
     "\[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->
           "3ae75c7e-8610-49b4-b846-79f1d9159c85"]
         }],ExpressionUUID->"4d4a965a-60cb-4049-8c4b-2cc42841ce4a"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic"], 
         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/ElectrumV1Mnemonic.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/ElectrumV1Mnemonic" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "72c15a41-3518-4885-bdef-9241ec0d68a5"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "8262de4d-f6f9-48c7-a924-6780fa2ccff0"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"8a7a44cf-24ef-440b-8dc3-457a31e0b43b"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"9f577027-b1dd-4f75-b6b9-f7b780842ede"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ElectrumV1Mnemonic", "ObjectName",ExpressionUUID->
      "55cac2a2-b32f-4a50-8fff-7142a861cd17"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"470d367b-a19c-4e3c-9674-03e7de5c7135"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "a034a72c-5346-4686-9315-6f715beb07ba"]
    }],ExpressionUUID->"f7d9e294-59ba-4f90-aa9a-3f9765e8a45c"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"4f8bebb4-e9e4-44eb-b87a-\
8d2137325922"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ElectrumV1Mnemonic"]], 
         "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["hex", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "50a374d9-adb4-4154-8402-86ad96403f6c"],
     "\[LineSeparator]",
     "gives the Electrum version 1 mnemonic sentence encoding the hexadecimal \
seed string ",
     StyleBox["hex", "TI"],
     "."
    }],ExpressionUUID->"8f857940-d5fb-43e5-b95e-f8e7aa47ba72"]}
  }]], "Usage",ExpressionUUID->"eb0c1c07-50fa-4662-9847-a1ca4d38ec0a"]
}, 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->"ae1d0517-7dde-4802-94b9-6f6332643bd8"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"dc384159-77e3-4ef9-9722-337406ea910c"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "f4abcfc8-2d25-417e-bba5-55b9b977e252"]],ExpressionUUID->"dd67675b-c561-\
4268-97ba-34d3f5655e1a"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->274026846,ExpressionUUID->"4ca02f9d-fe04-44bc-b2f8-28306e7995f3"],

Cell[TextData[{
 "Each group of eight hexadecimal digits, read as a 32-bit integer ",
 Cell[BoxData[
  StyleBox["x", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "79eb01f5-861e-4224-b773-925bef3f3324"],
 ", becomes three words at indices ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["w", "TI"], "1"], "=", 
   StyleBox["x", "TI"], 
   StyleBox["mod",
    FontSlant->"Plain"], "\[ThinSpace]", 
   StyleBox["n", "TI"]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0a1e7b0a-57a9-4a38-9bb4-af49f386a55d"],
 ", ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["w", "TI"], "2"], "=", 
   StyleBox["(",
    SpanMaxSize->1], 
   RowBox[{
    StyleBox["\[LeftFloor]",
     SpanMaxSize->1], 
    RowBox[{
     StyleBox["x", "TI"], "/", 
     StyleBox["n", "TI"]}], "\[VeryThinSpace]", 
    StyleBox["\[RightFloor]",
     SpanMaxSize->1], "+", 
    SubscriptBox[
     StyleBox["w", "TI"], "1"]}], 
   StyleBox[")",
    SpanMaxSize->1], 
   StyleBox["mod",
    FontSlant->"Plain"], "\[ThinSpace]", 
   StyleBox["n", "TI"]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5f57212c-3972-481a-a38a-446aeb1fd98c"],
 " and ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["w", "TI"], "3"], "=", 
   StyleBox["(",
    SpanMaxSize->1], 
   RowBox[{
    StyleBox["\[LeftFloor]",
     SpanMaxSize->1], 
    RowBox[{
     StyleBox["x", "TI"], "/", 
     SuperscriptBox[
      StyleBox["n", "TI"], "2"]}], 
    StyleBox["\[RightFloor]",
     SpanMaxSize->1], "+", 
    SubscriptBox[
     StyleBox["w", "TI"], "2"]}], 
   StyleBox[")",
    SpanMaxSize->1], 
   StyleBox["mod",
    FontSlant->"Plain"], "\[ThinSpace]", 
   StyleBox["n", "TI"]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c50b9429-b16c-4348-8897-c195b34753ac"],
 " into ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$ElectrumV1Words"]], 
    "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7d81dce6-6ac4-4bfc-8e9a-1e79047b4dae"],
 ", with ",
 Cell[BoxData[
  RowBox[{
   StyleBox["n", "TI"], "=", "1626"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8685e7d4-eb06-48d4-b29c-cb18ceadaa2b"],
 "."
}], "Notes",ExpressionUUID->"b29fddc1-c8c0-4072-ac3a-62f2dfbfc00d"],

Cell["\<\
The usual seed is 32 hexadecimal digits, giving 12 words; 64 digits give 24.\
\>", "Notes",ExpressionUUID->"341e7b4a-3fda-4755-a3ff-68b3138f182c"],

Cell[TextData[{
 "The length of ",
 StyleBox["hex", "TI"],
 " must be a multiple of eight. Anything else, including an odd-length string \
or a non-hexadecimal one, matches no definition and the call is returned \
unevaluated."
}], "Notes",ExpressionUUID->"d525a276-29b7-4ec2-8140-76261fc79cce"],

Cell[TextData[{
 "The scheme has no checksum. Every triple of words decodes to something, \
which is why ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumV1MnemonicQ"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0ed66c1d-ec56-40c2-a5f6-e8a48541ce44"],
 " can only check the wordlist and the word count."
}], "Notes",ExpressionUUID->"84b5be2a-5f6c-48e8-80a1-60b61beb85aa"],

Cell["\<\
The words are joined with single spaces and are all lowercase.\
\>", "Notes",ExpressionUUID->"26777d84-11aa-4a59-881e-d37516571a32"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumV1Seed"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3922e209-784c-4d6f-a049-f80dbe0e7e9a"],
 " is the inverse."
}], "Notes",ExpressionUUID->"4bd315f8-0eb5-48fd-ba73-ec69a283f460"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"230008a3-f013-4fd6-9fd6-401d84682e7a"],

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->"086c1cea-9113-4cf9-ae33-2d04830637d7"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ca58a2cf-1689-4701-a51b-51b42e0bf847"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(13)", "ExampleCount",ExpressionUUID->
  "f1d31d6b-f4c4-4975-8605-5208796beb1c"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1364261554,ExpressionUUID->"97abbea6-843b-4902-b926-d445c136c6a1"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"741ba52a-e547-4f74-baf0-df7e5ae33332"],

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->
  "4f61e7c2-b6c4-4e72-936f-99866ad02a8d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ae4b5b91-e82a-4c6b-86dd-85797d26516b"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "10deec42-1465-458f-a7d0-4e94dd4d0f89"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->461039059,ExpressionUUID->"4614af29-3c87-44b3-a718-ec7d371b783e"],

Cell["The seed of the Electrum old-mnemonic test vector:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"ee1e29c8-1579-4f78-80ef-3c4baba15c7b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", "[", "\"\<8edad31a95e7d59f8837667510d75a4d\>\"",
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1390c2e7-af6e-452f-b04d-f32b91a66bd2"],

Cell[BoxData["\<\"hardly point goal hallway patience key stone difference \
ready caught listen fact\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"03cc1a55-ddd4-4fd1-b4d5-98d9fc6e70cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "14c81689-27ac-426b-8c5f-efcc8d9ffcc0"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7fba331e-ab8a-469d-\
a099-30b99488d694"],

Cell["The seed of the Electrum wallet test vector:", "ExampleText",ExpressionUUID->"254d7dce-c2da-4ee2-a218-457e13836341"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", "[", "\"\<acb740e454c3134901d7c8f16497cc1c\>\"",
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3cc0eb36-aec1-4255-be39-f67951566ee3"],

Cell[BoxData["\<\"powerful random nobody notice nothing important anyway look \
away hidden message over\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8efb84c2-dd3a-4229-850a-39087861d427"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c6d24ca6-64da-4b01-bafc-a784c606f330"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e4033478-3143-43e1-\
baea-49917c584c09"],

Cell["A 32-digit seed always gives twelve words:", "ExampleText",ExpressionUUID->"773727a6-ebf2-4683-a14c-ff896eb85f96"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"StringSplit", "[", 
   RowBox[{
   "ElectrumV1Mnemonic", "[", "\"\<00000000000000000000000000000000\>\"", 
    "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3adc99a0-ba9b-4521-ba34-01cafe8548a7"],

Cell[BoxData["12"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ab84fd0a-392b-4231-b8cf-2ac7c40426a0"]
}, 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->
  "f41b17c1-f793-4a12-af80-6cca0309e689"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e610b7a5-3297-4542-b9f2-a85ee3f94dd8"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "d2e4819d-303a-454d-99ac-422c1662f507"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"5c4e1c6f-3998-4027-9d86-ef1356698113"],

Cell["A 64-digit seed gives 24 words, three per 32-bit group:", "ExampleText",ExpressionUUID->"e69dd197-d4f9-4ab0-a0c7-f9415856723e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", 
  "[", "\"\<0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\>\
\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9fef3883-9ffb-4dfa-a50d-0078411326c6"],

Cell[BoxData["\<\"pleasure patience practice maybe creep hang pleasure \
patience practice maybe creep hang pleasure patience practice maybe creep \
hang pleasure patience practice maybe creep hang\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c0da5ad1-eef6-48b4-b505-3899f61cb56f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5725858c-93cc-4ced-939a-9381192bbbe3"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c7271ba1-60f2-416d-\
b561-a5186c36b209"],

Cell["\<\
A single group of eight digits gives three words, which is the smallest \
encoding the scheme has:\
\>", "ExampleText",ExpressionUUID->"7a7cf464-e295-43dd-8fcb-f6a0c83e804f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", "[", "\"\<deadbeef\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"66523a6b-c70f-4ed7-a10e-666e4417df2c"],

Cell[BoxData["\<\"off such ashamed\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2ca026ce-6f75-49b2-aedf-10bc677e005b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "6168df8f-1991-4ff7-8990-c2e6c266e252"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"762fac66-5130-409e-\
a3cb-3d9a6a10bc24"],

Cell["Upper case digits are accepted and give the same words:", "ExampleText",ExpressionUUID->"786b86bd-8a07-4e60-b2b3-31a599af31f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "ElectrumV1Mnemonic", "[", "\"\<8EDAD31A95E7D59F8837667510D75A4D\>\"", 
   "]"}], " ", "===", " ", 
  RowBox[{
  "ElectrumV1Mnemonic", "[", "\"\<8edad31a95e7d59f8837667510d75a4d\>\"", 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6af0dd75-bd7a-4c82-90b0-b45774d8b333"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a2c78d55-e9ac-4ccd-8dfc-0c6bb6e436eb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b7b1433c-7c53-48b9-8c98-49ddebfb74f8"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"1f1e1ea5-5767-4ed5-\
a249-71fd0a2a31da"],

Cell["\<\
A length that is not a multiple of eight is out of scope, and the call comes \
back unchanged:\
\>", "ExampleText",ExpressionUUID->"b64495ab-327f-46bf-b5fe-b445bd9bc837"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", "[", "\"\<8edad31a95e7d59f8837667510d75a4\>\"",
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ac31ac10-e673-4de3-9bfa-d1f9ef3145cc"],

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", "[", "\<\"8edad31a95e7d59f8837667510d75a4\"\>",
   "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4bbe1817-e5bd-476d-bd56-fe20da6a6f22"]
}, 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->
  "6ce1dc6b-2b86-479d-8fde-68e5193c511f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"8aa8acbf-6202-41aa-a702-2093069d585a"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "7272abf6-9a64-4109-b8a5-5baf4f931c3f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"61322147-5cbc-4136-9683-5e0bf1d768fc"],

Cell["\<\
Because the encoding is positional and has no checksum, a one-digit change \
moves exactly one group of three words:\
\>", "ExampleText",ExpressionUUID->"63598dd3-4d1c-4202-84f3-0892a27101b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Column", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"ElectrumV1Mnemonic", "[", "\"\<00000000deadbeef\>\"", "]"}], ",",
     " ", 
    RowBox[{"ElectrumV1Mnemonic", "[", "\"\<00000001deadbeef\>\"", "]"}]}], 
   "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"35b5c1cb-e087-4d8c-afd6-c76ad99a947b"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"like like like off such ashamed\"\>"},
    {"\<\"just just just off such ashamed\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"60eaae1b-ede1-480e-93ee-6dc1344fee40"]
}, 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->
  "580f2333-4b2d-4c23-8338-2b73bcfec1cb"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"520dd8fb-4ef8-4e17-bfef-8fec4d0ddeb5"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "a98d3f49-d92f-4b64-ad7f-f42c9e0324a5"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"c8455b7f-032e-41f0-bd4d-ad381fb7f3d3"],

Cell["The round trip closes:", "ExampleText",ExpressionUUID->"d5d78541-28d5-4505-a860-167780f5ad67"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Seed", "[", 
  RowBox[{
  "ElectrumV1Mnemonic", "[", "\"\<8edad31a95e7d59f8837667510d75a4d\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ee9a5c3f-b608-48a8-8945-d1e90986cad3"],

Cell[BoxData["\<\"8edad31a95e7d59f8837667510d75a4d\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a5e84dd6-2fd8-44f0-9b0c-10a450d7bc50"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c16adbbb-9c7e-4a6a-9e02-c332469109c0"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"06708f4c-4771-4743-\
8ac4-ffa5e91d5c45"],

Cell["\<\
Everything this produces is recognized as a version 1 mnemonic at the usual \
seed lengths:\
\>", "ExampleText",ExpressionUUID->"372d8827-8ab0-48a4-9085-b7211f9bf82d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", "[", 
  RowBox[{
  "ElectrumV1Mnemonic", "[", "\"\<8edad31a95e7d59f8837667510d75a4d\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fcbb71a4-64c3-4acf-98cf-3ddc60790e08"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c9fbfd04-2b83-4216-8b00-ab57fca194ad"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e48cd943-e796-4703-904c-a23b54adbca1"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"835ca20b-5d7f-494f-\
a7c9-867e78ae48e8"],

Cell["\<\
Unlike BIP39, no word position is a checksum, so all 1626 words appear as \
final words:\
\>", "ExampleText",ExpressionUUID->"cb9eba2e-f284-45ff-ad57-960fb5c4f308"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"DeleteDuplicates", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Last", "[", 
      RowBox[{"StringSplit", "[", 
       RowBox[{"ElectrumV1Mnemonic", "[", 
        RowBox[{"IntegerString", "[", 
         RowBox[{"k", ",", " ", "16", ",", " ", "8"}], "]"}], "]"}], "]"}], 
      "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"k", ",", " ", "0", ",", " ", "4000"}], "}"}]}], "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"86222da3-91d8-43b9-9cbf-696289d007a8"],

Cell[BoxData["1626"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1d230665-5fd4-4d01-bd8c-d439557e7e54"]
}, 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->
  "925e79b2-1c3f-4891-a2fb-0bf93f20d2ec"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"06562b8f-8ccc-4194-91a5-3a0a3a90b932"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "b3c19295-1693-4b22-9d0b-ba86fb27070b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"1cd7eb1a-94cb-47f6-a9ed-af51cca03e47"],

Cell["\<\
The scheme is not BIP39 and the words are not BIP39 words, so a version 1 \
mnemonic is usually not a valid BIP39 mnemonic:\
\>", "ExampleText",ExpressionUUID->"e11b2879-f0fb-4281-80eb-5a01d62ba669"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP39MnemonicQ", "[", 
  RowBox[{
  "ElectrumV1Mnemonic", "[", "\"\<8edad31a95e7d59f8837667510d75a4d\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"07db6b67-a6c8-4a90-acad-c6657af59230"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"eb4ed604-a690-4ac2-859e-4d0f71cb43e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3d9a29c1-690c-441e-94b6-2d006dd8fd4c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"071203ac-284d-4bb8-\
982d-a7ab50226c6d"],

Cell["\<\
A string with a non-hexadecimal character matches no definition:\
\>", "ExampleText",ExpressionUUID->"107d9153-0e5a-4fe9-8313-8633b687690a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", "[", "\"\<zzzzzzzz\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6f86d88e-b2b5-4b3a-b436-7b0bf4c83b2f"],

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", "[", "\<\"zzzzzzzz\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ddc5eb1e-7843-4842-9996-54267786dbb6"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, 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["ElectrumV1Seed"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "122e3aea-c260-40d4-b364-645c96033b21"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ElectrumV1MnemonicQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "3c9f8e5f-5ed7-4fda-8ae6-669d2a59d92b"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ElectrumV1MasterPrivateKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MasterPrivateKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "4d519b96-0f92-4152-aa77-d54ccb39bafd"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$ElectrumV1Words"]], 
           "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "5d77a094-36aa-47bf-8206-2c71e0659e82"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP39Mnemonic"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39Mnemonic", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "cfa416f9-747d-44fe-a220-4097a820dc84"]
       }], "SeeAlso",ExpressionUUID->"f938d9ad-a35b-4024-8c49-0695e3667df4"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"8c368582-65fe-42a9-9f35-\
f9c243dbab25"],

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["Seeds"]], "paclet:WolframInstitute/Puzzles/guide/Seeds"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "5fc5e03d-8365-4b45-9e5b-f5980e6098e3"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"44b8ba17-6b6f-4b66-a7c6-\
0d9ecb551fd8"],

Cell[" ", "FooterCell",ExpressionUUID->"ed13ed1f-86c7-4c4a-999a-710f0e473630"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ElectrumV1Mnemonic",
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, 46.366755}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ElectrumV1Mnemonic, paclet : \
WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic, WolframInstitute/Puzzles \
Package Symbol][hex] gives the Electrum version 1 mnemonic sentence encoding \
the hexadecimal seed string hex.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "ElectrumV1Mnemonic", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "ElectrumV1Mnemonic", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"01b0fe02-d12b-46f1-9638-ba6c058d32cc"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[16775, 473, 160, 2, 70, "ExampleText",ExpressionUUID->"ee1e29c8-1579-4f78-80ef-3c4baba15c7b",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 38675, 1092}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[586, 21, 5864, 143, 70, "AnchorBarGrid",ExpressionUUID->"8a7a44cf-24ef-440b-8dc3-457a31e0b43b",
 CellID->1],
Cell[6453, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"9f577027-b1dd-4f75-b6b9-f7b780842ede"],
Cell[CellGroupData[{
Cell[6585, 170, 561, 14, 70, "ObjectNameGrid",ExpressionUUID->"4f8bebb4-e9e4-44eb-b87a-8d2137325922"],
Cell[7149, 186, 825, 21, 70, "Usage",ExpressionUUID->"eb0c1c07-50fa-4662-9847-a1ca4d38ec0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8011, 212, 1443, 34, 70, "NotesSection",ExpressionUUID->"4ca02f9d-fe04-44bc-b2f8-28306e7995f3",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->274026846],
Cell[9457, 248, 2626, 90, 70, "Notes",ExpressionUUID->"b29fddc1-c8c0-4072-ac3a-62f2dfbfc00d"],
Cell[12086, 340, 156, 2, 70, "Notes",ExpressionUUID->"341e7b4a-3fda-4755-a3ff-68b3138f182c"],
Cell[12245, 344, 295, 6, 70, "Notes",ExpressionUUID->"d525a276-29b7-4ec2-8140-76261fc79cce"],
Cell[12543, 352, 607, 15, 70, "Notes",ExpressionUUID->"84b5be2a-5f6c-48e8-80a1-60b61beb85aa"],
Cell[13153, 369, 142, 2, 70, "Notes",ExpressionUUID->"26777d84-11aa-4a59-881e-d37516571a32"],
Cell[13298, 373, 473, 13, 70, "Notes",ExpressionUUID->"4bd315f8-0eb5-48fd-ba73-ec69a283f460"]
}, Closed]],
Cell[13786, 389, 80, 0, 70, "PageDelimiter",ExpressionUUID->"230008a3-f013-4fd6-9fd6-401d84682e7a"],
Cell[CellGroupData[{
Cell[13891, 393, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"97abbea6-843b-4902-b926-d445c136c6a1",
 CellID->1364261554],
Cell[15296, 432, 216, 4, 70, "Input",ExpressionUUID->"741ba52a-e547-4f74-baf0-df7e5ae33332",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[15537, 440, 1235, 31, 70, "ExampleSection",ExpressionUUID->"4614af29-3c87-44b3-a718-ec7d371b783e",
 CellID->461039059],
Cell[16775, 473, 160, 2, 70, "ExampleText",ExpressionUUID->"ee1e29c8-1579-4f78-80ef-3c4baba15c7b",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[16960, 479, 240, 4, 70, "Input",ExpressionUUID->"1390c2e7-af6e-452f-b04d-f32b91a66bd2"],
Cell[17203, 485, 196, 2, 70, "Output",ExpressionUUID->"03cc1a55-ddd4-4fd1-b4d5-98d9fc6e70cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17436, 492, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7fba331e-ab8a-469d-a099-30b99488d694"],
Cell[17663, 499, 122, 0, 70, "ExampleText",ExpressionUUID->"254d7dce-c2da-4ee2-a218-457e13836341"],
Cell[CellGroupData[{
Cell[17810, 503, 240, 4, 70, "Input",ExpressionUUID->"3cc0eb36-aec1-4255-be39-f67951566ee3"],
Cell[18053, 509, 200, 2, 70, "Output",ExpressionUUID->"8efb84c2-dd3a-4229-850a-39087861d427"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18302, 517, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e4033478-3143-43e1-baea-49917c584c09"],
Cell[18529, 524, 120, 0, 70, "ExampleText",ExpressionUUID->"773727a6-ebf2-4683-a14c-ff896eb85f96"],
Cell[CellGroupData[{
Cell[18674, 528, 318, 7, 70, "Input",ExpressionUUID->"3adc99a0-ba9b-4521-ba34-01cafe8548a7"],
Cell[18995, 537, 108, 1, 70, "Output",ExpressionUUID->"ab84fd0a-392b-4231-b8cf-2ac7c40426a0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19164, 545, 1227, 31, 70, "ExampleSection",ExpressionUUID->"5c4e1c6f-3998-4027-9d86-ef1356698113",
 CellID->1293636265],
Cell[20394, 578, 133, 0, 70, "ExampleText",ExpressionUUID->"e69dd197-d4f9-4ab0-a0c7-f9415856723e"],
Cell[CellGroupData[{
Cell[20552, 582, 274, 5, 70, "Input",ExpressionUUID->"9fef3883-9ffb-4dfa-a50d-0078411326c6"],
Cell[20829, 589, 293, 3, 70, "Output",ExpressionUUID->"c0da5ad1-eef6-48b4-b505-3899f61cb56f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21159, 597, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c7271ba1-60f2-416d-b561-a5186c36b209"],
Cell[21386, 604, 184, 3, 70, "ExampleText",ExpressionUUID->"7a7cf464-e295-43dd-8fcb-f6a0c83e804f"],
Cell[CellGroupData[{
Cell[21595, 611, 213, 3, 70, "Input",ExpressionUUID->"66523a6b-c70f-4ed7-a10e-666e4417df2c"],
Cell[21811, 616, 130, 1, 70, "Output",ExpressionUUID->"2ca026ce-6f75-49b2-aedf-10bc677e005b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21990, 623, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"762fac66-5130-409e-a3cb-3d9a6a10bc24"],
Cell[22217, 630, 133, 0, 70, "ExampleText",ExpressionUUID->"786b86bd-8a07-4e60-b2b3-31a599af31f6"],
Cell[CellGroupData[{
Cell[22375, 634, 370, 9, 70, "Input",ExpressionUUID->"6af0dd75-bd7a-4c82-90b0-b45774d8b333"],
Cell[22748, 645, 110, 1, 70, "Output",ExpressionUUID->"a2c78d55-e9ac-4ccd-8dfc-0c6bb6e436eb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22907, 652, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"1f1e1ea5-5767-4ed5-a249-71fd0a2a31da"],
Cell[23134, 659, 180, 3, 70, "ExampleText",ExpressionUUID->"b64495ab-327f-46bf-b5fe-b445bd9bc837"],
Cell[CellGroupData[{
Cell[23339, 666, 239, 4, 70, "Input",ExpressionUUID->"ac31ac10-e673-4de3-9bfa-d1f9ef3145cc"],
Cell[23581, 672, 192, 3, 70, "Output",ExpressionUUID->"4bbe1817-e5bd-476d-bd56-fe20da6a6f22"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23834, 682, 1233, 31, 70, "ExampleSection",ExpressionUUID->"61322147-5cbc-4136-9683-5e0bf1d768fc",
 CellID->258228157],
Cell[25070, 715, 202, 3, 70, "ExampleText",ExpressionUUID->"63598dd3-4d1c-4202-84f3-0892a27101b1"],
Cell[CellGroupData[{
Cell[25297, 722, 387, 9, 70, "Input",ExpressionUUID->"35b5c1cb-e087-4d8c-afd6-c76ad99a947b"],
Cell[25687, 733, 390, 9, 70, "Output",ExpressionUUID->"60eaae1b-ede1-480e-93ee-6dc1344fee40"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26126, 748, 1244, 31, 70, "ExampleSection",ExpressionUUID->"c8455b7f-032e-41f0-bd4d-ad381fb7f3d3",
 CellID->2123667759],
Cell[27373, 781, 100, 0, 70, "ExampleText",ExpressionUUID->"d5d78541-28d5-4505-a860-167780f5ad67"],
Cell[CellGroupData[{
Cell[27498, 785, 285, 6, 70, "Input",ExpressionUUID->"ee9a5c3f-b608-48a8-8945-d1e90986cad3"],
Cell[27786, 793, 146, 1, 70, "Output",ExpressionUUID->"a5e84dd6-2fd8-44f0-9b0c-10a450d7bc50"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27969, 799, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"06708f4c-4771-4743-8ac4-ffa5e91d5c45"],
Cell[28196, 806, 177, 3, 70, "ExampleText",ExpressionUUID->"372d8827-8ab0-48a4-9085-b7211f9bf82d"],
Cell[CellGroupData[{
Cell[28398, 813, 290, 6, 70, "Input",ExpressionUUID->"fcbb71a4-64c3-4acf-98cf-3ddc60790e08"],
Cell[28691, 821, 110, 1, 70, "Output",ExpressionUUID->"c9fbfd04-2b83-4216-8b00-ab57fca194ad"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28850, 828, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"835ca20b-5d7f-494f-a7c9-867e78ae48e8"],
Cell[29077, 835, 174, 3, 70, "ExampleText",ExpressionUUID->"cb9eba2e-f284-45ff-ad57-960fb5c4f308"],
Cell[CellGroupData[{
Cell[29276, 842, 601, 15, 70, "Input",ExpressionUUID->"86222da3-91d8-43b9-9cbf-696289d007a8"],
Cell[29880, 859, 110, 1, 70, "Output",ExpressionUUID->"1d230665-5fd4-4d01-bd8c-d439557e7e54"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30051, 867, 1237, 31, 70, "ExampleSection",ExpressionUUID->"1cd7eb1a-94cb-47f6-a9ed-af51cca03e47",
 CellID->1305812373],
Cell[31291, 900, 209, 3, 70, "ExampleText",ExpressionUUID->"e11b2879-f0fb-4281-80eb-5a01d62ba669"],
Cell[CellGroupData[{
Cell[31525, 907, 285, 6, 70, "Input",ExpressionUUID->"07db6b67-a6c8-4a90-acad-c6657af59230"],
Cell[31813, 915, 111, 1, 70, "Output",ExpressionUUID->"eb4ed604-a690-4ac2-859e-4d0f71cb43e6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31961, 921, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"071203ac-284d-4bb8-982d-a7ab50226c6d"],
Cell[32188, 928, 150, 2, 70, "ExampleText",ExpressionUUID->"107d9153-0e5a-4fe9-8313-8633b687690a"],
Cell[CellGroupData[{
Cell[32363, 934, 213, 3, 70, "Input",ExpressionUUID->"6f86d88e-b2b5-4b3a-b436-7b0bf4c83b2f"],
Cell[32579, 939, 166, 2, 70, "Output",ExpressionUUID->"ddc5eb1e-7843-4842-9996-54267786dbb6"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[32796, 947, 3222, 83, 70, "SeeAlsoSection",ExpressionUUID->"8c368582-65fe-42a9-9f35-f9c243dbab25"],
Cell[36021, 1032, 726, 18, 70, "MoreAboutSection",ExpressionUUID->"44b8ba17-6b6f-4b66-a7c6-0d9ecb551fd8"],
Cell[36750, 1052, 78, 0, 70, "FooterCell",ExpressionUUID->"ed13ed1f-86c7-4c4a-999a-710f0e473630"]
}
]
*)

(* End of internal cache information *)

