(* 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[     49465,       1305]
NotebookOptionsPosition[     39227,       1117]
NotebookOutlinePosition[     41477,       1169]
CellTagsIndexPosition[     41399,       1164]
WindowTitle->ElectrumV1Seed
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->
           "1704a6c6-00cb-40d3-a7c8-65295fe35d28"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "1cdadedf-720f-4412-aae9-6bcb830cff97"],
        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->
           "2da0ddf0-2c1a-44df-ba21-c48c2a8b5104"]
         }],ExpressionUUID->"5b3e13cd-beba-4e9e-a34c-78627da73174"],
         StripOnInput->False],{
        StyleBox[
          "\"ElectrumV1Mnemonic\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic"], 
         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[
          "\"ElectrumSeedVersion\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion"], 
         StyleBox[
          "\"$ElectrumV1Words\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "0b62fe7a-29ab-4f4d-ba1c-0e7749314d3c"],
     "\[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->
           "a249b3c6-2551-4b25-b589-b26072a3d578"]
         }],ExpressionUUID->"b38e76ac-12b5-4c97-a3b6-05f257600ceb"],
         StripOnInput->False],{
        "\"Seeds\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Seeds"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "51a69633-395d-4089-a711-b03209fb3dff"],
     "\[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->
           "a2a52945-62f1-425b-9352-d58398bd479e"]
         }],ExpressionUUID->"926b89de-42dd-4274-8ef7-bf15bf2a796f"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ElectrumV1Seed\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ElectrumV1Seed"], 
         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/ElectrumV1Seed.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/ElectrumV1Seed" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "bb3f12df-a71f-47a8-ae25-5008fa6a086b"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "313ce6bb-3bb1-40ce-8ebf-1ebca9047641"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"63e85dff-7f7f-4537-bc5c-e2c1c8fcae79"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"4e9caba7-a151-4497-b2d1-396f7e660198"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ElectrumV1Seed", "ObjectName",ExpressionUUID->
      "e46dddb1-0f13-4814-9414-8513449a72c7"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"8afbd4fa-fce1-4be3-a977-e24135aed3a9"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "c1765abd-4453-40f1-a66b-97624661310e"]
    }],ExpressionUUID->"edb526d9-1602-4b0c-ba2d-c98c0dfe4fc9"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"6f29ae8f-0254-4294-9cfe-\
e32e760df953"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ElectrumV1Seed"]], 
         "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["mnemonic", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "7fc94237-3e40-4ea0-b1ee-ec97746f99ec"],
     "\[LineSeparator]",
     "gives the hexadecimal seed string of an Electrum version 1 ",
     StyleBox["mnemonic", "TI"],
     ", as a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["String"]], "paclet:ref/String"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "12fc3c21-a7a5-4b51-9afe-9ddba6435529"],
     "."
    }],ExpressionUUID->"ed059643-2dfe-4288-a210-259335771fa3"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ElectrumV1Seed"]], 
         "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox[
           StyleBox["word", "TI"], 
           StyleBox["_", "TI"]], "1", "$"}], ",", " ", 
         RowBox[{
          SubscriptBox[
           StyleBox["word", "TI"], 
           StyleBox["_", "TI"]], "2", "$"}], ",", " ", "\[Ellipsis]"}], "}"}],
        "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "1678f616-b9af-4835-b856-d76f31c2019f"],
     "\[LineSeparator]",
     "takes the mnemonic as a list of words."
    }],ExpressionUUID->"82fee7bd-3496-4051-b1b2-ed91b850b3a7"]}
  }]], "Usage",ExpressionUUID->"d9f03c45-8c38-41de-a740-e47cb666e096"]
}, 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->"07fe8727-34f5-4c03-ac57-5ed0758a1d21"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"e7aed9d9-4c7e-4adf-a99b-76bbe14063e2"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "9513edd1-06de-4152-834a-967673426b61"]],ExpressionUUID->"c8e9ecba-2163-\
436a-9496-3ef7f90c3f3f"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1476097411,ExpressionUUID->"08d08e7b-52e1-44f0-8b16-30c7b75baceb"],

Cell[TextData[{
 "Each group of three words at indices ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["w", "TI"], "1"], ",", 
   SubscriptBox[
    StyleBox["w", "TI"], "2"], ",", 
   SubscriptBox[
    StyleBox["w", "TI"], "3"]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "49c932a5-c4ea-44b8-8161-80f7718bd1c2"],
 " decodes to ",
 Cell[BoxData[
  RowBox[{
   StyleBox["x", "TI"], "=", 
   SubscriptBox[
    StyleBox["w", "TI"], "1"], "+", 
   StyleBox["n", "TI"], "\[ThinSpace]", 
   StyleBox["(",
    SpanMaxSize->1], 
   RowBox[{
    StyleBox["(",
     SpanMaxSize->1], 
    RowBox[{
     SubscriptBox[
      StyleBox["w", "TI"], "2"], "-", 
     SubscriptBox[
      StyleBox["w", "TI"], "1"]}], 
    StyleBox[")",
     SpanMaxSize->1], 
    StyleBox["mod",
     FontSlant->"Plain"], "\[ThinSpace]", 
    StyleBox["n", "TI"]}], 
   StyleBox[")",
    SpanMaxSize->1], "+", 
   SuperscriptBox[
    StyleBox["n", "TI"], "2"], "\[ThinSpace]", 
   StyleBox["(",
    SpanMaxSize->1], 
   RowBox[{
    StyleBox["(",
     SpanMaxSize->1], 
    RowBox[{
     SubscriptBox[
      StyleBox["w", "TI"], "3"], "-", 
     SubscriptBox[
      StyleBox["w", "TI"], "2"]}], 
    StyleBox[")",
     SpanMaxSize->1], 
    StyleBox["mod",
     FontSlant->"Plain"], "\[ThinSpace]", 
    StyleBox["n", "TI"]}], 
   StyleBox[")",
    SpanMaxSize->1]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "648ca9a1-6e3f-4e9a-afa9-213e846b4ab6"],
 " with ",
 Cell[BoxData[
  RowBox[{
   StyleBox["n", "TI"], "=", "1626"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "54e0c4e6-541b-4d95-818b-add9c573313c"],
 ", written as eight hexadecimal digits."
}], "Notes",ExpressionUUID->"9a5c49cd-df1c-40d9-9c83-785e4f427f16"],

Cell[TextData[{
 "The result is a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["String"]], "paclet:ref/String"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "e5d70801-358d-4015-944f-e80a4897b4b4"],
 " of hexadecimal digits, not a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "81f34cf5-b1fa-4881-96d9-af5b313f63d4"],
 ", because that string is the object the version 1 key stretch consumes: ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumV1MasterPrivateKey"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MasterPrivateKey", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dd096f8c-3001-411d-a282-36090f585b22"],
 " hashes its ASCII digits, not the bytes they spell."
}], "Notes",ExpressionUUID->"f41e3e1b-0728-40b4-b009-03c71239b24d"],

Cell["\<\
The mnemonic is normalized the way Electrum normalizes it before anything \
else: NFKD, lowercase, combining marks dropped, whitespace collapsed. Mixed \
case and extra spaces are therefore harmless.\
\>", "Notes",ExpressionUUID->"b5373f01-fab4-42a6-90e4-281371790280"],

Cell[TextData[{
 "The result is a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "043ca79e-509b-4129-9cdf-590b42ab9f60"],
 " when the words are not all in ",
 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->
  "2bc67848-e655-48dd-9e76-57b4ce737f1b"],
 " or when there are not a positive multiple of three of them."
}], "Notes",ExpressionUUID->"b00d4e71-27d9-4313-af26-deff7cf3979e"],

Cell["\<\
There is no checksum, so any triple of wordlist words decodes successfully. A \
decoded seed being well formed says nothing about it being the intended one.\
\>", "Notes",ExpressionUUID->"9635665a-ce89-495e-9d07-4875d27d2f6c"],

Cell[TextData[{
 "A triple can decode above ",
 Cell[BoxData[
  SuperscriptBox["2", "32"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2e3ee962-1a96-4324-8be9-36683c0dcf09"],
 ", in which case its group is nine hexadecimal digits rather than eight. \
That is a malformed old seed, and Electrum still classifies it as one; the \
digits are reported as they come out."
}], "Notes",ExpressionUUID->"98fb0e69-f01b-41d0-aada-fd62ef96085f"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumV1Mnemonic"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7073e243-fb3e-40c6-89f8-0d609b56270c"],
 " is the inverse."
}], "Notes",ExpressionUUID->"cc07258d-e39d-415c-988d-9488d96a7e8c"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"6c8ed9a1-7f4a-46e8-a823-ffe32d1c4bd4"],

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->"2fcca3df-7303-4588-8bac-e9eba4b2182e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"75f59f51-beb4-4660-9001-9efb845069bd"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(13)", "ExampleCount",ExpressionUUID->
  "51ff7dea-d480-4ecc-b4ed-51e7047fd3ee"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1038096533,ExpressionUUID->"5e6983d9-a842-47c3-8ed7-e67a896a819b"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"397ef208-bc9d-4bba-b05b-5790cb84333e"],

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->
  "81dccf2d-6da0-4f8d-8a49-9f828032591f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4d1b52fc-e548-4176-af56-cb1a3825ff7c"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "e4b63a1d-f64f-4dc4-89c0-de11a3c95875"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1131281903,ExpressionUUID->"4e7c5dde-3fd1-4242-bbe7-dc9f2d222fee"],

Cell["\<\
The Electrum old-mnemonic test vector decodes to its published seed:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"a45609ab-57bd-4363-b888-7e3832f73bfe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Seed", 
  "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"16a767db-7cd5-4311-b37a-28b6e9455521"],

Cell[BoxData["\<\"8edad31a95e7d59f8837667510d75a4d\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b68c7e0d-fe6a-4464-b5a0-59744f69e07c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "aa0c3852-bf40-45b1-a66b-08d162b96145"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7b80c15a-e9fe-46f3-\
af2a-4a9f9a1fc279"],

Cell["The Electrum wallet test vector:", "ExampleText",ExpressionUUID->"c483cfb7-881c-4b6b-9d77-52132762227a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Seed", 
  "[", "\"\<powerful random nobody notice nothing important anyway look away \
hidden message over\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b1b712a4-a396-4c05-b089-515a9dcc958d"],

Cell[BoxData["\<\"acb740e454c3134901d7c8f16497cc1c\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"86415097-17e3-460b-adc6-1fa4b45eac89"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3e279bcc-e1fd-4b78-b390-87f9e099ad81"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"aa97048a-8499-4c68-\
82d5-14975942aa19"],

Cell["\<\
A 12-word mnemonic always gives 32 hexadecimal digits, when it is well formed:\
\>", "ExampleText",ExpressionUUID->"d4cb1cfa-9d07-4ad7-a4ae-fedb62047054"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringLength", "[", 
  RowBox[{
  "ElectrumV1Seed", 
   "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"838e71a0-74a3-45b5-a58f-3ad1d4a0840a"],

Cell[BoxData["32"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b30637ff-5899-4192-8992-6b58f96c9342"]
}, 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->
  "4201780c-3206-4b43-8267-eaa02087547e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c6ecb132-9d9c-45d6-b599-4a44fc7f6aea"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "378d290d-4bb4-4dc7-afe6-c5bc95dc9bb1"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"9814493b-38cf-4ab4-bde1-172fa3dd6b01"],

Cell["The mnemonic may be given as a list of words:", "ExampleText",ExpressionUUID->"0c987d1d-4c99-4bdc-a8f6-f2b6aa45ced6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Seed", "[", 
  RowBox[{"{", 
   RowBox[{"\"\<hardly\>\"", ",", " ", "\"\<point\>\"", ",", 
    " ", "\"\<goal\>\"", ",", " ", "\"\<hallway\>\"", ",", 
    " ", "\"\<patience\>\"", ",", " ", "\"\<key\>\"", ",", 
    " ", "\"\<stone\>\"", ",", " ", "\"\<difference\>\"", ",", 
    " ", "\"\<ready\>\"", ",", " ", "\"\<caught\>\"", ",", 
    " ", "\"\<listen\>\"", ",", " ", "\"\<fact\>\""}], "}"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8b75bcf9-2587-44d9-afc3-ce49157ddb0b"],

Cell[BoxData["\<\"8edad31a95e7d59f8837667510d75a4d\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4cc9dd0b-63d8-4416-aae8-6ecc33ee1ca3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "90701b12-7ced-4e99-93a8-03c8d195bf61"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"0a0a1d6b-e330-40b0-\
8521-cce0bf36aa3f"],

Cell["Case and spacing are normalized away before decoding:", "ExampleText",ExpressionUUID->"b66ef702-9209-440b-ab8d-cf425323707d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Seed", 
  "[", "\"\<  HaRdLy  point goal hallway patience key stone difference ready \
caught listen FACT \>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"eaae1661-928e-4c1c-aaf9-605faff7ccbc"],

Cell[BoxData["\<\"8edad31a95e7d59f8837667510d75a4d\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b3c7208e-7a09-4983-9bfa-5f8dce041629"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4bfb9cb7-5010-463e-ba39-aa4a55dc7a62"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9501d565-3a4d-4ad3-\
adc0-d6e01811cd12"],

Cell["A 24-word mnemonic decodes to 64 digits:", "ExampleText",ExpressionUUID->"13d57eaf-ba41-48dc-bcf2-7a807da0a653"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Seed", "[", 
  RowBox[{
  "ElectrumV1Mnemonic", 
   "[", "\"\<0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"04fd8ce1-0dca-42e6-803a-56d71c07db82"],

Cell[BoxData["\<\"\
0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"10df143e-0220-4341-b141-d850d0c75071"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8ff5c038-2f93-4592-9f09-0cb52b48d075"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f623ba75-fa5b-4955-\
8a44-7ceaf0a47566"],

Cell["\<\
A word count that is not a multiple of three is a failed attempt:\
\>", "ExampleText",ExpressionUUID->"67083785-f334-416f-baf8-7675d4be397a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"ElectrumV1Seed", "[", "\"\<hardly point goal hallway\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f1809acc-bec2-4e31-a573-eb776af19dbe"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"07223044-b037-45f7-b115-550c4f6beafe"]
}, 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->
  "1fc6a78f-70c1-4bf1-a7f8-eff4d78ad61d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"aa449a94-fae5-4bec-a9c6-cb1203a71670"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "cee160c7-2a75-4350-883f-543fcbddc564"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"3a39b79e-ed87-4045-abf7-6ff6f7a2223d"],

Cell["\<\
The seed of a legacy Electrum wallet is what the master key is stretched from:\
\>", "ExampleText",ExpressionUUID->"4fb91015-42d5-4f26-8a13-342afa7b785d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "ElectrumV1Seed", 
   "[", "\"\<powerful random nobody notice nothing important anyway look away \
hidden message over\>\"", "]"}], " ", "===", 
  " ", "\"\<acb740e454c3134901d7c8f16497cc1c\>\""}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"efaab7de-e818-49b1-82c8-70e017920b51"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"92c097fd-5321-49d8-9c79-bbaabe076858"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ae093d04-9796-412d-aff1-cf074dcf074f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c894ca11-8c5b-4932-\
88ae-ce50db858525"],

Cell["\<\
Electrum's own \"invalid old\" example, whose triples overflow and give 33 \
digits rather than 32:\
\>", "ExampleText",ExpressionUUID->"717a706f-199a-480b-a1c5-a2ba407d2a50"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
   "ElectrumV1Seed", 
    "[", "\"\<hurry idiot prefer sunset mention mist jaw inhale impossible \
kingdom rare squeeze\>\"", "]"}], ",", " ", 
   RowBox[{
   "ElectrumSeedVersion", 
    "[", "\"\<hurry idiot prefer sunset mention mist jaw inhale impossible \
kingdom rare squeeze\>\"", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a2ec9a5a-7028-4d22-8dd8-e2dc7dc9bbed"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"025d2f2d005036911003ca78900ca155c\"\>", ",", "\<\"Old\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bbf700b6-648f-4ac5-8db0-29e90c44e45f"]
}, 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->
  "a027d5f5-f8a4-4b2c-86bd-8a05907bb200"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"901b247b-d013-4576-9550-ae0341e11b1f"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "5d5113d0-4f37-4920-9269-c531bb29c5e4"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"f61022a6-55c9-42a5-9e66-a87da47a768d"],

Cell["The round trip closes for a well-formed seed:", "ExampleText",ExpressionUUID->"fa540a57-31c2-4919-9b7a-2223ca2ca8c0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", "[", 
  RowBox[{
  "ElectrumV1Seed", 
   "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c8c2931d-49eb-4ded-84a7-14fa778d22a1"],

Cell[BoxData["\<\"hardly point goal hallway patience key stone difference \
ready caught listen fact\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8f569c09-5607-4347-a794-c0c697ba5c90"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b8ce7ff3-4287-4a72-b5c0-e6b9889d17a5"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"02bce4ee-ce9d-4f2f-\
9e82-cb717ebfd340"],

Cell["\<\
Because there is no checksum, an arbitrary twelve wordlist words still decode:\
\>", "ExampleText",ExpressionUUID->"ad886b35-808c-40d2-a4d8-687c760393c0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Seed", "[", 
  RowBox[{"StringRiffle", "[", 
   RowBox[{"Take", "[", 
    RowBox[{"$ElectrumV1Words", ",", " ", "12"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6e2bd13c-ad59-4ef7-abcd-f60a6d54964e"],

Cell[BoxData["\<\"00285dfe00285e0100285e0400285e07\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f5aa6448-0e7c-4454-b906-819eee047112"]
}, 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->
  "3a5a1717-9292-4244-806a-21854e9aec07"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"79f66c25-693b-450d-a5b1-ca346b9b4a9e"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "d5b395e8-efd8-4fb6-b8cc-46a50eafb72d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"117119f0-773b-4921-bac2-116c5c242e61"],

Cell["\<\
A word outside the version 1 wordlist makes the attempt fail, even if it is a \
perfectly good BIP39 word:\
\>", "ExampleText",ExpressionUUID->"841d7a4e-d966-49b6-9829-6c1e5c9ca06d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "ElectrumV1Seed", 
   "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen abandon\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"aa7e7114-dcab-4f6e-b3b3-0fe6b1ed2ceb"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8d499ba1-85d0-4fda-a166-72974f93a8f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a5837bca-3636-41e4-98b0-ae5043699822"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6adf6c66-c568-4cc5-\
98c0-e97f4dd68806"],

Cell["\<\
The result is a hexadecimal string, not bytes; hashing the bytes it spells is \
the classic way to derive the wrong key:\
\>", "ExampleText",ExpressionUUID->"865a1d92-8173-48bd-af54-17dfe3094c35"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Head", "[", 
  RowBox[{
  "ElectrumV1Seed", 
   "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2c4f24a5-4ac8-4e5e-a593-afb6afa2fe49"],

Cell[BoxData["String"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"634c9655-9280-4afe-a30f-21535cf2206c"]
}, 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["ElectrumV1Mnemonic"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e38c7df1-3970-4052-b910-601e433c6e13"],
        "\[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->
         "ba6dc56d-c72e-47a9-acfb-1413237a80d4"],
        "\[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->
         "0d556ca8-04eb-427b-8fea-d1b43181878b"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ElectrumSeedVersion"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "35249efc-55ee-4e31-b9d6-62bc3e341865"],
        "\[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->
         "d8a92e75-3c19-4e07-97ab-d3764c300124"]
       }], "SeeAlso",ExpressionUUID->"3d9a5577-52d9-4286-8d59-2dcb05300ee8"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"7c0fa171-90e3-492d-8a22-\
ed863e52908e"],

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->
         "641984c5-dd40-4f5c-b6ef-dc7bf90dcb7e"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"c9de5c8c-a1c5-4291-a36b-\
50505dec23a8"],

Cell[" ", "FooterCell",ExpressionUUID->"94f65a69-8383-4479-b270-92a1c545997f"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ElectrumV1Seed",
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, 49.973860}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ElectrumV1Seed,paclet : \
WolframInstitute/Puzzles/ref/ElectrumV1Seed, WolframInstitute/Puzzles Package \
Symbol][mnemonic] gives the hexadecimal seed string of an Electrum version 1 \
mnemonic, as a String. PackageLink[ElectrumV1Seed,paclet : \
WolframInstitute/Puzzles/ref/ElectrumV1Seed, WolframInstitute/Puzzles Package \
Symbol][{word_ 1 $, word_ 2 $, ...}] takes the mnemonic as a list of words.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "ElectrumV1Seed", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "ElectrumV1Seed", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/ElectrumV1Seed", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"26b16c3d-2ad7-43da-960e-95fffe6bb2f5"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[19017, 534, 186, 4, 70, "ExampleText",ExpressionUUID->"a45609ab-57bd-4363-b888-7e3832f73bfe",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 41242, 1158}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 5868, 143, 70, "AnchorBarGrid",ExpressionUUID->"63e85dff-7f7f-4537-bc5c-e2c1c8fcae79",
 CellID->1],
Cell[6453, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"4e9caba7-a151-4497-b2d1-396f7e660198"],
Cell[CellGroupData[{
Cell[6585, 170, 557, 14, 70, "ObjectNameGrid",ExpressionUUID->"6f29ae8f-0254-4294-9cfe-e32e760df953"],
Cell[7145, 186, 2039, 56, 70, "Usage",ExpressionUUID->"d9f03c45-8c38-41de-a740-e47cb666e096"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9221, 247, 1444, 34, 70, "NotesSection",ExpressionUUID->"08d08e7b-52e1-44f0-8b16-30c7b75baceb",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1476097411],
Cell[10668, 283, 1857, 67, 70, "Notes",ExpressionUUID->"9a5c49cd-df1c-40d9-9c83-785e4f427f16"],
Cell[12528, 352, 1161, 32, 70, "Notes",ExpressionUUID->"f41e3e1b-0728-40b4-b009-03c71239b24d"],
Cell[13692, 386, 279, 4, 70, "Notes",ExpressionUUID->"b5373f01-fab4-42a6-90e4-281371790280"],
Cell[13974, 392, 825, 23, 70, "Notes",ExpressionUUID->"b00d4e71-27d9-4313-af26-deff7cf3979e"],
Cell[14802, 417, 236, 3, 70, "Notes",ExpressionUUID->"9635665a-ce89-495e-9d07-4875d27d2f6c"],
Cell[15041, 422, 487, 10, 70, "Notes",ExpressionUUID->"98fb0e69-f01b-41d0-aada-fd62ef96085f"],
Cell[15531, 434, 481, 13, 70, "Notes",ExpressionUUID->"cc07258d-e39d-415c-988d-9488d96a7e8c"]
}, Closed]],
Cell[16027, 450, 80, 0, 70, "PageDelimiter",ExpressionUUID->"6c8ed9a1-7f4a-46e8-a823-ffe32d1c4bd4"],
Cell[CellGroupData[{
Cell[16132, 454, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"5e6983d9-a842-47c3-8ed7-e67a896a819b",
 CellID->1038096533],
Cell[17537, 493, 216, 4, 70, "Input",ExpressionUUID->"397ef208-bc9d-4bba-b05b-5790cb84333e",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[17778, 501, 1236, 31, 70, "ExampleSection",ExpressionUUID->"4e7c5dde-3fd1-4242-bbe7-dc9f2d222fee",
 CellID->1131281903],
Cell[19017, 534, 186, 4, 70, "ExampleText",ExpressionUUID->"a45609ab-57bd-4363-b888-7e3832f73bfe",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[19228, 542, 286, 5, 70, "Input",ExpressionUUID->"16a767db-7cd5-4311-b37a-28b6e9455521"],
Cell[19517, 549, 146, 1, 70, "Output",ExpressionUUID->"b68c7e0d-fe6a-4464-b5a0-59744f69e07c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19700, 555, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7b80c15a-e9fe-46f3-af2a-4a9f9a1fc279"],
Cell[19927, 562, 110, 0, 70, "ExampleText",ExpressionUUID->"c483cfb7-881c-4b6b-9d77-52132762227a"],
Cell[CellGroupData[{
Cell[20062, 566, 290, 5, 70, "Input",ExpressionUUID->"b1b712a4-a396-4c05-b089-515a9dcc958d"],
Cell[20355, 573, 146, 1, 70, "Output",ExpressionUUID->"86415097-17e3-460b-adc6-1fa4b45eac89"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20550, 580, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"aa97048a-8499-4c68-82d5-14975942aa19"],
Cell[20777, 587, 164, 2, 70, "ExampleText",ExpressionUUID->"d4cb1cfa-9d07-4ad7-a4ae-fedb62047054"],
Cell[CellGroupData[{
Cell[20966, 593, 329, 7, 70, "Input",ExpressionUUID->"838e71a0-74a3-45b5-a58f-3ad1d4a0840a"],
Cell[21298, 602, 108, 1, 70, "Output",ExpressionUUID->"b30637ff-5899-4192-8992-6b58f96c9342"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21467, 610, 1227, 31, 70, "ExampleSection",ExpressionUUID->"9814493b-38cf-4ab4-bde1-172fa3dd6b01",
 CellID->1293636265],
Cell[22697, 643, 123, 0, 70, "ExampleText",ExpressionUUID->"0c987d1d-4c99-4bdc-a8f6-f2b6aa45ced6"],
Cell[CellGroupData[{
Cell[22845, 647, 576, 11, 70, "Input",ExpressionUUID->"8b75bcf9-2587-44d9-afc3-ce49157ddb0b"],
Cell[23424, 660, 146, 1, 70, "Output",ExpressionUUID->"4cc9dd0b-63d8-4416-aae8-6ecc33ee1ca3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23607, 666, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"0a0a1d6b-e330-40b0-8521-cce0bf36aa3f"],
Cell[23834, 673, 131, 0, 70, "ExampleText",ExpressionUUID->"b66ef702-9209-440b-ab8d-cf425323707d"],
Cell[CellGroupData[{
Cell[23990, 677, 290, 5, 70, "Input",ExpressionUUID->"eaae1661-928e-4c1c-aaf9-605faff7ccbc"],
Cell[24283, 684, 146, 1, 70, "Output",ExpressionUUID->"b3c7208e-7a09-4983-9bfa-5f8dce041629"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24478, 691, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9501d565-3a4d-4ad3-adc0-d6e01811cd12"],
Cell[24705, 698, 118, 0, 70, "ExampleText",ExpressionUUID->"13d57eaf-ba41-48dc-bcf2-7a807da0a653"],
Cell[CellGroupData[{
Cell[24848, 702, 319, 7, 70, "Input",ExpressionUUID->"04fd8ce1-0dca-42e6-803a-56d71c07db82"],
Cell[25170, 711, 182, 3, 70, "Output",ExpressionUUID->"10df143e-0220-4341-b141-d850d0c75071"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25401, 720, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f623ba75-fa5b-4955-8a44-7ceaf0a47566"],
Cell[25628, 727, 151, 2, 70, "ExampleText",ExpressionUUID->"67083785-f334-416f-baf8-7675d4be397a"],
Cell[CellGroupData[{
Cell[25804, 733, 264, 5, 70, "Input",ExpressionUUID->"f1809acc-bec2-4e31-a573-eb776af19dbe"],
Cell[26071, 740, 110, 1, 70, "Output",ExpressionUUID->"07223044-b037-45f7-b115-550c4f6beafe"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26242, 748, 1233, 31, 70, "ExampleSection",ExpressionUUID->"3a39b79e-ed87-4045-abf7-6ff6f7a2223d",
 CellID->258228157],
Cell[27478, 781, 164, 2, 70, "ExampleText",ExpressionUUID->"4fb91015-42d5-4f26-8a13-342afa7b785d"],
Cell[CellGroupData[{
Cell[27667, 787, 371, 8, 70, "Input",ExpressionUUID->"efaab7de-e818-49b1-82c8-70e017920b51"],
Cell[28041, 797, 110, 1, 70, "Output",ExpressionUUID->"92c097fd-5321-49d8-9c79-bbaabe076858"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28188, 803, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c894ca11-8c5b-4932-88ae-ce50db858525"],
Cell[28415, 810, 185, 3, 70, "ExampleText",ExpressionUUID->"717a706f-199a-480b-a1c5-a2ba407d2a50"],
Cell[CellGroupData[{
Cell[28625, 817, 491, 12, 70, "Input",ExpressionUUID->"a2ec9a5a-7028-4d22-8dd8-e2dc7dc9bbed"],
Cell[29119, 831, 205, 4, 70, "Output",ExpressionUUID->"bbf700b6-648f-4ac5-8db0-29e90c44e45f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29385, 842, 1244, 31, 70, "ExampleSection",ExpressionUUID->"f61022a6-55c9-42a5-9e66-a87da47a768d",
 CellID->2123667759],
Cell[30632, 875, 123, 0, 70, "ExampleText",ExpressionUUID->"fa540a57-31c2-4919-9b7a-2223ca2ca8c0"],
Cell[CellGroupData[{
Cell[30780, 879, 335, 7, 70, "Input",ExpressionUUID->"c8c2931d-49eb-4ded-84a7-14fa778d22a1"],
Cell[31118, 888, 196, 2, 70, "Output",ExpressionUUID->"8f569c09-5607-4347-a794-c0c697ba5c90"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31351, 895, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"02bce4ee-ce9d-4f2f-9e82-cb717ebfd340"],
Cell[31578, 902, 164, 2, 70, "ExampleText",ExpressionUUID->"ad886b35-808c-40d2-a4d8-687c760393c0"],
Cell[CellGroupData[{
Cell[31767, 908, 314, 7, 70, "Input",ExpressionUUID->"6e2bd13c-ad59-4ef7-abcd-f60a6d54964e"],
Cell[32084, 917, 146, 1, 70, "Output",ExpressionUUID->"f5aa6448-0e7c-4454-b906-819eee047112"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[32291, 925, 1237, 31, 70, "ExampleSection",ExpressionUUID->"117119f0-773b-4921-bac2-116c5c242e61",
 CellID->1305812373],
Cell[33531, 958, 192, 3, 70, "ExampleText",ExpressionUUID->"841d7a4e-d966-49b6-9829-6c1e5c9ca06d"],
Cell[CellGroupData[{
Cell[33748, 965, 328, 7, 70, "Input",ExpressionUUID->"aa7e7114-dcab-4f6e-b3b3-0fe6b1ed2ceb"],
Cell[34079, 974, 110, 1, 70, "Output",ExpressionUUID->"8d499ba1-85d0-4fda-a166-72974f93a8f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34226, 980, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6adf6c66-c568-4cc5-98c0-e97f4dd68806"],
Cell[34453, 987, 206, 3, 70, "ExampleText",ExpressionUUID->"865a1d92-8173-48bd-af54-17dfe3094c35"],
Cell[CellGroupData[{
Cell[34684, 994, 321, 7, 70, "Input",ExpressionUUID->"2c4f24a5-4ac8-4e5e-a593-afb6afa2fe49"],
Cell[35008, 1003, 112, 1, 70, "Output",ExpressionUUID->"634c9655-9280-4afe-a30f-21535cf2206c"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[35171, 1010, 3242, 83, 70, "SeeAlsoSection",ExpressionUUID->"7c0fa171-90e3-492d-8a22-ed863e52908e"],
Cell[38416, 1095, 726, 18, 70, "MoreAboutSection",ExpressionUUID->"c9de5c8c-a1c5-4291-a36b-50505dec23a8"],
Cell[39145, 1115, 78, 0, 70, "FooterCell",ExpressionUUID->"94f65a69-8383-4479-b270-92a1c545997f"]
}
]
*)

(* End of internal cache information *)

