(* 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[     44781,       1171]
NotebookOptionsPosition[     35754,       1003]
NotebookOutlinePosition[     37813,       1052]
CellTagsIndexPosition[     37735,       1047]
WindowTitle->BIP32DeriveKey
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->
           "91fde139-e206-44e5-bf30-7ee7d298ade1"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "cf9b88a0-fd4b-4a7f-a5f6-66fef8a05ef0"],
        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->
           "c3820421-8fa0-4b2b-a4fb-0ce773fe9f83"]
         }],ExpressionUUID->"48ff50c4-98eb-47b4-8085-1cbdeedb9067"],
         StripOnInput->False],{
        StyleBox[
          "\"BIP32ChildKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32ChildKey"], 
         StyleBox[
          "\"BIP32MasterKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32MasterKey"], 
         StyleBox["\"BIP32Path\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32Path"], 
         StyleBox[
          "\"BIP32StandardPath\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath"], 
         StyleBox[
          "\"BIP32PublicKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32PublicKey"], 
         StyleBox[
          "\"BitcoinAddress\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8ecb0512-7fa1-476a-bd72-abe08cfbd102"],
     "\[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->
           "4ba5ba27-18a9-441a-8343-39cc92a4dc9f"]
         }],ExpressionUUID->"8ab44b3e-4c9c-43f7-b0e8-612f83404997"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "4194e956-f1f7-4ca0-8e79-52ebf0c30d8d"],
     "\[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->
           "3ea8045c-548a-42d3-886c-f269379f875b"]
         }],ExpressionUUID->"dc1d5309-8163-4450-b2fc-43985c2a1b20"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32DeriveKey\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP32DeriveKey"], 
         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/BIP32DeriveKey.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/BIP32DeriveKey" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "50832958-e716-413b-a7b4-1057f087ffa4"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "85fbe386-290b-466f-b83f-c8223fca248f"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"77d1ef15-088f-4082-94f2-9aab6e03c11d"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"0a4561cc-c3e9-4abe-9857-fbb898d4b181"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32DeriveKey", "ObjectName",ExpressionUUID->
      "b2d53615-51ff-4272-8b0a-d18ba31886f3"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"fadb2013-9524-4017-80f5-2aa21db2e68c"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "b1d99eb1-f7e2-4eec-80e8-93383887e231"]
    }],ExpressionUUID->"c592b39d-3092-41e9-9df9-d9538b363f43"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"33e4d233-876c-422a-a5b2-\
e41bd6d8e38d"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32DeriveKey"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["key", "TI"], ",", " ", 
        StyleBox["path", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "4640a48f-ded4-4290-af3e-13ccd5fb53a8"],
     "\[LineSeparator]",
     "gives the extended key reached from a BIP32 extended ",
     StyleBox["key", "TI"],
     " by following a derivation ",
     StyleBox["path", "TI"],
     "."
    }],ExpressionUUID->"0101c51c-fb8a-49ff-b0a7-16146f2fce9c"]}
  }]], "Usage",ExpressionUUID->"15b68858-d526-4ee3-9920-fd4d863ff432"]
}, 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->"adff9257-a1ee-43ae-9285-6e98e5ef2e9d"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"21a9b2ca-302e-4781-b915-0b1ed5046797"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "aa3691f9-39d7-4b12-b13b-9b790cc908c1"]],ExpressionUUID->"ffed9f56-0ca7-\
453d-a978-ce917cc7da9d"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->2037493582,ExpressionUUID->"e2f4e041-f1ae-41be-af9d-1da334caa846"],

Cell[TextData[{
 "The path is a string such as ",
 Cell["\"m/84h/0h/0h/0/0\"", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "b2d16fbc-3119-4cd8-b03b-e5d1635d8c11"],
 ", or a list of child indices; ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32Path"]], "paclet:WolframInstitute/Puzzles/ref/BIP32Path", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ae123dd7-fe06-43ff-886f-ff43d4d629e1"],
 " is what reads either form."
}], "Notes",ExpressionUUID->"473c3c49-c0bb-4bb8-92fe-4811bd2f9ac9"],

Cell[TextData[{
 "Each step is one ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32ChildKey"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32ChildKey", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2a4a45ae-f6d6-40fc-ad9a-8bb911b57428"],
 ", so the same hardening and public-parent rules apply at every level."
}], "Notes",ExpressionUUID->"3d7ea78b-457a-4c3d-a26c-39f7ae7a99f4"],

Cell[TextData[{
 "The empty path, written ",
 Cell[BoxData["\<\"m\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2c5dd78d-1f74-438f-b78b-07a178fbae54"],
 ", returns the key unchanged."
}], "Notes",ExpressionUUID->"10785f17-b4e5-48b1-bd20-a2d1cecc85a5"],

Cell[TextData[{
 "The path is relative to the key it is applied to, whatever depth that key \
sits at; the leading ",
 Cell[BoxData["m"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "73330e20-9c74-4466-aaf3-dccb127c1519"],
 " is notation, not an assertion that the key is a master key."
}], "Notes",ExpressionUUID->"211300bc-18e6-4a22-8ad8-faae0ae796c2"],

Cell["\<\
A Failure at any step, such as a hardened index under a public parent, stops \
the walk and is returned.\
\>", "Notes",ExpressionUUID->"63fdd832-f0c8-462f-bc1e-8edc578f8b71"],

Cell["\<\
A path that is not a valid derivation path matches no definition and the call \
is returned unevaluated.\
\>", "Notes",ExpressionUUID->"8318d62d-856b-464c-8345-487cda054d66"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"3e87b984-2677-4a1e-91c7-b2ed286d6e1d"],

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->"e1a13594-574c-46f3-8a86-66e2ee944fb9"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ccab752c-9502-4da7-a6cf-6cd401ca7e32"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "903a0b96-c5ce-414b-a5ce-c20e8469efae"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->380397612,ExpressionUUID->"44c3d9c1-6ae0-431e-aca9-dd2e8783b0fe"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"4e943c0a-8903-40ae-87ae-9b6a3c3f3435"],

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->
  "120966ac-c18e-4549-9e8c-7d87ce9d2cef"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"856d6632-5928-4c42-8370-3d58f97e73a1"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "6552ba97-0322-4b70-8b0c-730f70cdb94d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->283847765,ExpressionUUID->"22d2eb53-034a-4dd5-87e5-862ae81c0ec0"],

Cell["The BIP32 test vector 1 chain m/0H/1/2H/2/1000000000:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"1c2f6d1a-b983-4019-a8a1-f1187e38c1ba"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    ",", " ", "\"\<m/0h/1/2h/2/1000000000\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d2a61bab-39d3-4b56-92f3-fd26d9cae7ea"],

Cell[BoxData["\<\"\
xprvA41z7zogVVwxVSgdKUHDy1SKmdb533PjDz7J6N6mV6uS3ze1ai8FHa8kmHScGpWmj4WggLyQjg\
Pie1rFSruoUihUZREPSL39UNdE3BBDu76\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a6e2763f-8e04-453a-8d95-3232e421f4c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "07384acb-dbc2-4475-b6af-8d93289c0b52"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"30c05e79-c6b3-40b4-\
9552-c761569b3246"],

Cell["\<\
The BIP86 first receiving key, from the seed of the mnemonic \"abandon \
abandon \[Ellipsis] about\":\
\>", "ExampleText",ExpressionUUID->"1d874000-5c9d-4402-a25b-8a776a26a950"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", 
     "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", 
    " ", "\"\<m/86h/0h/0h/0/0\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"136ed62f-3071-4df5-b93d-182bd5f3ee48"],

Cell[BoxData["\<\"\
xprvA449goEeU9okwCzzZaxiy475EQGQzBkc65su82nXEvcwzfSskb2hAt2WymrjyRL6kpbVTGL3cK\
tp9herYXSjjQ1j4stsXXiRF7kXkCacK3T\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"36c67ba9-7a9d-4907-9f3c-8c31e333df07"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5e0455eb-92a4-4a5c-86db-da813c038e6f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ae34db57-1e22-4059-\
8f9a-d482570e7b97"],

Cell["A path may be given as the list of indices it denotes:", "ExampleText",ExpressionUUID->"b5f398a9-6332-49f8-a754-9b45ff0bea3e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    ",", " ", 
    RowBox[{"{", 
     RowBox[{"2147483648", ",", " ", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5c3fb33b-a7cc-40b9-ab2c-e93bef2ad1e7"],

Cell[BoxData["\<\"\
xprv9wTYmMFdV23N2TdNG573QoEsfRrWKQgWeibmLntzniatZvR9BmLnvSxqu53Kw1UmYPxLgboyZQ\
aXwTCg8MSY3H2EU4pWcQDnRnrVA1xe8fs\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"eadf510e-2b9c-4a6e-be16-3f137a71de75"]
}, 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->
  "77d55a85-7c8d-4056-adea-6ef0f725d1cc"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"3386c80a-997a-4331-8515-03badb577473"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "a811487c-af10-4a9e-8e4d-37583110fb23"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"16dbf991-b600-46b1-b229-f4fd64ddd95a"],

Cell["\<\
The apostrophe of the specification texts and the letter h mark the same \
hardening:\
\>", "ExampleText",ExpressionUUID->"2b8c6406-4642-4f3d-907c-b5ddbc7bc13b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    ",", " ", "\"\<m/0'/1\>\""}], "]"}], " ", "===", " ", 
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    ",", " ", "\"\<m/0h/1\>\""}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ca923f94-d133-4b97-a915-906641178231"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fa9505aa-f930-46ed-ab5a-a4b6a7c3df34"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1792c151-92f9-4180-b359-812aa9c381ff"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"8a2946f4-4a51-4d72-\
93a1-a38eb0a74dee"],

Cell["The empty path returns the key unchanged:", "ExampleText",ExpressionUUID->"b9779807-6596-428c-993f-961ea792d60d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    ",", " ", "\"\<m\>\""}], "]"}], " ", "===", " ", 
  RowBox[{
  "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"860024c7-a024-426a-a33e-b2df68c85148"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d8637a2f-2cf0-42cb-8d38-0ce9b2f98dcd"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7a7dfbc4-328f-4842-bbd7-d9b4bf05af84"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"88639532-649f-47b1-\
a68e-b698bce94c3f"],

Cell["\<\
A hardened step under an extended public key cannot be taken, and the Failure \
is returned:\
\>", "ExampleText",ExpressionUUID->"bea7666f-66b9-4f8e-b142-c5a6902eae12"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{"BIP32PublicKey", "[", 
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      "]"}], ",", " ", "\"\<m/0/1h/2\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3faa51c8-bc30-446b-8fe9-9167b1e86b07"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1764017a-1917-4ae2-8d36-ab4ddb8c2a16"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "fe7cc75c-694e-4c9c-bf9c-3ce1e605ee52"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"09c3a4b4-7d0c-4c5b-\
b0c2-cca32d513192"],

Cell["\<\
A string that is not a derivation path leaves the call unevaluated:\
\>", "ExampleText",ExpressionUUID->"13c2d98a-ea92-49f4-b75a-5abc4d833913"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32DeriveKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "\"\<m/one/two\>\""}], "]"}], ",", " ", "_BIP32DeriveKey"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"869d3d7f-03d9-44d8-8d41-c1f3675bd12f"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e232c01f-b455-4b6b-b3d1-edbd54d4e00b"]
}, 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->
  "726dbbec-ce4a-4e5f-9744-205c55927a02"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"640583b9-e8e7-4327-8eb1-d19ad943c761"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "229ed98b-d5b7-4d47-b419-898a174b2265"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"a224cb45-2c2e-43f1-8e08-df54f4217c82"],

Cell["The first five receiving addresses of a BIP84 account:", "ExampleText",ExpressionUUID->"77dc904d-33b5-4cb2-aad0-5ea5a88cb2b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"BitcoinAddress", "[", 
    RowBox[{
     RowBox[{"BIP32DeriveKey", "[", 
      RowBox[{
       RowBox[{
       "BIP32MasterKey", 
        "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", " ", 
       RowBox[{"BIP32StandardPath", "[", 
        RowBox[{"\"\<P2WPKH\>\"", ",", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", " ", "0", ",", " ", "i"}], "}"}]}], "]"}]}], 
      "]"}], ",", " ", "\"\<P2WPKH\>\""}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"i", ",", " ", "0", ",", " ", "4"}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d5431f01-278d-453c-aa10-baa1d77ea66c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\"\>", 
   ",", "\<\"bc1qnjg0jd8228aq7egyzacy8cys3knf9xvrerkf9g\"\>", 
   ",", "\<\"bc1qp59yckz4ae5c4efgw2s5wfyvrz0ala7rgvuz8z\"\>", 
   ",", "\<\"bc1qgl5vlg0zdl7yvprgxj9fevsc6q6x5dmcyk3cn3\"\>", 
   ",", "\<\"bc1qm97vqzgj934vnaq9s53ynkyf9dgr05rargr04n\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"32e98288-beb1-4046-9aa1-284f7cd06160"]
}, 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->
  "52f64347-c797-4f69-b6e8-34576e2637b6"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"1ffa423e-2306-4b10-85ca-0ca903d09da1"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "9c0127df-2462-4212-a6fe-0665654b17a7"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"6c712e9e-3253-4ac2-bf67-e3f5c3cb90c2"],

Cell["Deriving in one call and in two steps gives the same key:", \
"ExampleText",ExpressionUUID->"b36f8cbe-4c6f-4f8b-9429-449dcd1e126d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    ",", " ", "\"\<m/0h/1/2h\>\""}], "]"}], " ", "===", " ", 
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{"BIP32DeriveKey", "[", 
     RowBox[{
      RowBox[{
      "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
       "]"}], ",", " ", "\"\<m/0h\>\""}], "]"}], ",", " ", "\"\<m/1/2h\>\""}],
    "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f080756c-1fdf-46a7-8439-177fc088c2a6"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b288842a-1d1a-4148-b99c-ba8e4cabd14d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7293f799-cc30-4d81-baca-132ab15bad22"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"845f93d2-ee68-4029-\
b843-ea540b237a9a"],

Cell["\<\
The depth of the result is the length of the path plus the depth it started \
from:\
\>", "ExampleText",ExpressionUUID->"fb1178f7-d7d4-41f8-9eb1-65740fbf40c7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    ",", " ", "\"\<m/0h/1/2h/2/1000000000\>\""}], "]"}], "[", "\"\<Depth\>\"",
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"59b6c648-6ba3-4f34-8393-58ecdb3059cd"],

Cell[BoxData["5"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7180b5dc-9f1b-4e63-bd68-f1d8669a201d"]
}, 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->
  "82f88af3-79ba-4824-b06f-25ab93b66c37"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6304da40-f266-443d-b2a9-6eaef0522743"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "a62addd6-17e5-47ca-8a48-6dcbc5ad536e"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"55336504-0ce0-4aaf-ae06-8eace7e2dedd"],

Cell["\<\
The path is relative, so applying a full account path to a key that is \
already the account derives a different, valid-looking key ten levels deep:\
\>", "ExampleText",ExpressionUUID->"3646e580-3e64-406c-9802-e76a2930bd1b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{"BIP32DeriveKey", "[", 
     RowBox[{
      RowBox[{
      "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
       "]"}], ",", " ", "\"\<m/84h/0h/0h\>\""}], "]"}], ",", 
    " ", "\"\<m/84h/0h/0h/0/0\>\""}], "]"}], "[", "\"\<Depth\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e04148ed-07a8-4dd8-9279-0b8fc30ac2ca"],

Cell[BoxData["8"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e85ae340-deda-4a60-83c6-bab8125e922d"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32ChildKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32ChildKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a56699b4-b104-4742-bf0a-885962e94695"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32MasterKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32MasterKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1f4eed6c-f847-4b30-9bcc-63afb2763115"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32Path"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32Path", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "b37be5fd-a533-4606-ae7d-71be7fcf2bd1"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32StandardPath"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f53a744c-e4b6-4d0d-817e-42b53bbd5f17"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32PublicKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32PublicKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7da542ed-fe8c-4f84-b57f-c6b08d4895a7"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BitcoinAddress"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8e47d741-2687-4172-b63e-e21b8e10f8ee"]
       }], "SeeAlso",ExpressionUUID->"50a0e1cd-8aac-44ba-90ab-8fdcb6d6cce7"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"fda1d22a-bbbf-4ea6-bbc3-\
08b878331062"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Derivation"]], 
           "paclet:WolframInstitute/Puzzles/guide/Derivation"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "d2cfef79-1103-4e48-a2d5-70c77bbd4048"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"1362d7f1-e4e3-4107-b0a9-\
620d0f67ea20"],

Cell[" ", "FooterCell",ExpressionUUID->"21e2fa1f-a17b-4b36-8dca-9c321f99860a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32DeriveKey",
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, 10.609930}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP32DeriveKey,paclet : \
WolframInstitute/Puzzles/ref/BIP32DeriveKey, WolframInstitute/Puzzles Package \
Symbol][key, path] gives the extended key reached from a BIP32 extended key \
by following a derivation path.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "BIP32DeriveKey", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "BIP32DeriveKey", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP32DeriveKey", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"239d1a87-ef2c-4ffc-9913-5c2e9177984b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[14990, 403, 163, 2, 70, "ExampleText",ExpressionUUID->"1c2f6d1a-b983-4019-a8a1-f1187e38c1ba",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 37578, 1041}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 6000, 146, 70, "AnchorBarGrid",ExpressionUUID->"77d1ef15-088f-4082-94f2-9aab6e03c11d",
 CellID->1],
Cell[6585, 169, 107, 0, 70, "ContextNameCell",ExpressionUUID->"0a4561cc-c3e9-4abe-9857-fbb898d4b181"],
Cell[CellGroupData[{
Cell[6717, 173, 557, 14, 70, "ObjectNameGrid",ExpressionUUID->"33e4d233-876c-422a-a5b2-e41bd6d8e38d"],
Cell[7277, 189, 911, 24, 70, "Usage",ExpressionUUID->"15b68858-d526-4ee3-9920-fd4d863ff432"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8225, 218, 1444, 34, 70, "NotesSection",ExpressionUUID->"e2f4e041-f1ae-41be-af9d-1da334caa846",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->2037493582],
Cell[9672, 254, 673, 17, 70, "Notes",ExpressionUUID->"473c3c49-c0bb-4bb8-92fe-4811bd2f9ac9"],
Cell[10348, 273, 546, 14, 70, "Notes",ExpressionUUID->"3d7ea78b-457a-4c3d-a26c-39f7ae7a99f4"],
Cell[10897, 289, 308, 7, 70, "Notes",ExpressionUUID->"10785f17-b4e5-48b1-bd20-a2d1cecc85a5"],
Cell[11208, 298, 405, 8, 70, "Notes",ExpressionUUID->"211300bc-18e6-4a22-8ad8-faae0ae796c2"],
Cell[11616, 308, 184, 3, 70, "Notes",ExpressionUUID->"63fdd832-f0c8-462f-bc1e-8edc578f8b71"],
Cell[11803, 313, 184, 3, 70, "Notes",ExpressionUUID->"8318d62d-856b-464c-8345-487cda054d66"]
}, Closed]],
Cell[12002, 319, 80, 0, 70, "PageDelimiter",ExpressionUUID->"3e87b984-2677-4a1e-91c7-b2ed286d6e1d"],
Cell[CellGroupData[{
Cell[12107, 323, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"44c3d9c1-6ae0-431e-aca9-dd2e8783b0fe",
 CellID->380397612],
Cell[13511, 362, 216, 4, 70, "Input",ExpressionUUID->"4e943c0a-8903-40ae-87ae-9b6a3c3f3435",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13752, 370, 1235, 31, 70, "ExampleSection",ExpressionUUID->"22d2eb53-034a-4dd5-87e5-862ae81c0ec0",
 CellID->283847765],
Cell[14990, 403, 163, 2, 70, "ExampleText",ExpressionUUID->"1c2f6d1a-b983-4019-a8a1-f1187e38c1ba",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15178, 409, 393, 8, 70, "Input",ExpressionUUID->"d2a61bab-39d3-4b56-92f3-fd26d9cae7ea"],
Cell[15574, 419, 229, 3, 70, "Output",ExpressionUUID->"a6e2763f-8e04-453a-8d95-3232e421f4c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15840, 427, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"30c05e79-c6b3-40b4-9552-c761569b3246"],
Cell[16067, 434, 187, 3, 70, "ExampleText",ExpressionUUID->"1d874000-5c9d-4402-a25b-8a776a26a950"],
Cell[CellGroupData[{
Cell[16279, 441, 492, 11, 70, "Input",ExpressionUUID->"136ed62f-3071-4df5-b93d-182bd5f3ee48"],
Cell[16774, 454, 229, 3, 70, "Output",ExpressionUUID->"36c67ba9-7a9d-4907-9f3c-8c31e333df07"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17052, 463, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ae34db57-1e22-4059-8f9a-d482570e7b97"],
Cell[17279, 470, 132, 0, 70, "ExampleText",ExpressionUUID->"b5f398a9-6332-49f8-a754-9b45ff0bea3e"],
Cell[CellGroupData[{
Cell[17436, 474, 429, 10, 70, "Input",ExpressionUUID->"5c3fb33b-a7cc-40b9-ab2c-e93bef2ad1e7"],
Cell[17868, 486, 229, 3, 70, "Output",ExpressionUUID->"eadf510e-2b9c-4a6e-be16-3f137a71de75"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18158, 496, 1227, 31, 70, "ExampleSection",ExpressionUUID->"16dbf991-b600-46b1-b229-f4fd64ddd95a",
 CellID->1293636265],
Cell[19388, 529, 171, 3, 70, "ExampleText",ExpressionUUID->"2b8c6406-4642-4f3d-907c-b5ddbc7bc13b"],
Cell[CellGroupData[{
Cell[19584, 536, 538, 13, 70, "Input",ExpressionUUID->"ca923f94-d133-4b97-a915-906641178231"],
Cell[20125, 551, 110, 1, 70, "Output",ExpressionUUID->"fa9505aa-f930-46ed-ab5a-a4b6a7c3df34"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20272, 557, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"8a2946f4-4a51-4d72-93a1-a38eb0a74dee"],
Cell[20499, 564, 119, 0, 70, "ExampleText",ExpressionUUID->"b9779807-6596-428c-993f-961ea792d60d"],
Cell[CellGroupData[{
Cell[20643, 568, 445, 11, 70, "Input",ExpressionUUID->"860024c7-a024-426a-a33e-b2df68c85148"],
Cell[21091, 581, 110, 1, 70, "Output",ExpressionUUID->"d8637a2f-2cf0-42cb-8d38-0ce9b2f98dcd"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21250, 588, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"88639532-649f-47b1-a68e-b698bce94c3f"],
Cell[21477, 595, 178, 3, 70, "ExampleText",ExpressionUUID->"bea7666f-66b9-4f8e-b142-c5a6902eae12"],
Cell[CellGroupData[{
Cell[21680, 602, 411, 9, 70, "Input",ExpressionUUID->"3faa51c8-bc30-446b-8fe9-9167b1e86b07"],
Cell[22094, 613, 110, 1, 70, "Output",ExpressionUUID->"1764017a-1917-4ae2-8d36-ab4ddb8c2a16"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22253, 620, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"09c3a4b4-7d0c-4c5b-b0c2-cca32d513192"],
Cell[22480, 627, 153, 2, 70, "ExampleText",ExpressionUUID->"13c2d98a-ea92-49f4-b75a-5abc4d833913"],
Cell[CellGroupData[{
Cell[22658, 633, 414, 10, 70, "Input",ExpressionUUID->"869d3d7f-03d9-44d8-8d41-c1f3675bd12f"],
Cell[23075, 645, 110, 1, 70, "Output",ExpressionUUID->"e232c01f-b455-4b6b-b3d1-edbd54d4e00b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23246, 653, 1233, 31, 70, "ExampleSection",ExpressionUUID->"a224cb45-2c2e-43f1-8e08-df54f4217c82",
 CellID->258228157],
Cell[24482, 686, 132, 0, 70, "ExampleText",ExpressionUUID->"77dc904d-33b5-4cb2-aad0-5ea5a88cb2b1"],
Cell[CellGroupData[{
Cell[24639, 690, 829, 20, 70, "Input",ExpressionUUID->"d5431f01-278d-453c-aa10-baa1d77ea66c"],
Cell[25471, 712, 446, 8, 70, "Output",ExpressionUUID->"32e98288-beb1-4046-9aa1-284f7cd06160"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25966, 726, 1244, 31, 70, "ExampleSection",ExpressionUUID->"6c712e9e-3253-4ac2-bf67-e3f5c3cb90c2",
 CellID->2123667759],
Cell[27213, 759, 137, 1, 70, "ExampleText",ExpressionUUID->"b36f8cbe-4c6f-4f8b-9429-449dcd1e126d"],
Cell[CellGroupData[{
Cell[27375, 764, 637, 16, 70, "Input",ExpressionUUID->"f080756c-1fdf-46a7-8439-177fc088c2a6"],
Cell[28015, 782, 110, 1, 70, "Output",ExpressionUUID->"b288842a-1d1a-4148-b99c-ba8e4cabd14d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28162, 788, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"845f93d2-ee68-4029-b843-ea540b237a9a"],
Cell[28389, 795, 169, 3, 70, "ExampleText",ExpressionUUID->"fb1178f7-d7d4-41f8-9eb1-65740fbf40c7"],
Cell[CellGroupData[{
Cell[28583, 802, 387, 9, 70, "Input",ExpressionUUID->"59b6c648-6ba3-4f34-8393-58ecdb3059cd"],
Cell[28973, 813, 107, 1, 70, "Output",ExpressionUUID->"7180b5dc-9f1b-4e63-bd68-f1d8669a201d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29141, 821, 1237, 31, 70, "ExampleSection",ExpressionUUID->"55336504-0ce0-4aaf-ae06-8eace7e2dedd",
 CellID->1305812373],
Cell[30381, 854, 234, 3, 70, "ExampleText",ExpressionUUID->"3646e580-3e64-406c-9802-e76a2930bd1b"],
Cell[CellGroupData[{
Cell[30640, 861, 484, 12, 70, "Input",ExpressionUUID->"e04148ed-07a8-4dd8-9279-0b8fc30ac2ca"],
Cell[31127, 875, 107, 1, 70, "Output",ExpressionUUID->"e85ae340-deda-4a60-83c6-bab8125e922d"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[31273, 881, 3693, 97, 70, "SeeAlsoSection",ExpressionUUID->"fda1d22a-bbbf-4ea6-bbc3-08b878331062"],
Cell[34969, 980, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"1362d7f1-e4e3-4107-b0a9-620d0f67ea20"],
Cell[35672, 1001, 78, 0, 70, "FooterCell",ExpressionUUID->"21e2fa1f-a17b-4b36-8dca-9c321f99860a"]
}
]
*)

(* End of internal cache information *)

