(* 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[     43885,       1152]
NotebookOptionsPosition[     35165,        990]
NotebookOutlinePosition[     37188,       1039]
CellTagsIndexPosition[     37110,       1034]
WindowTitle->BIP32ChildKey
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->
           "49005b8c-0843-4b80-8c40-44e6dd810555"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "75a362e4-4db3-40f7-a0e2-ae376a6da0dd"],
        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->
           "69672215-2b2e-4b15-897c-465dffb2d653"]
         }],ExpressionUUID->"78b0f59d-8dd9-4d99-ad91-8e20ce86ba46"],
         StripOnInput->False],{
        StyleBox[
          "\"BIP32DeriveKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey"], 
         StyleBox[
          "\"BIP32MasterKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32MasterKey"], 
         StyleBox[
          "\"BIP32PublicKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32PublicKey"], 
         StyleBox[
          "\"BIP32KeyFingerprint\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32KeyFingerprint"], 
         StyleBox["\"BIP32Path\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32Path"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "2baec18a-9e30-41ac-bc2b-248633175271"],
     "\[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->
           "4388f9ec-3fbf-4366-910c-05088693561a"]
         }],ExpressionUUID->"219c5082-bccd-4b7a-8922-0a2babe6f369"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "81a12f88-ddc0-4679-b32b-aeb0602cb49a"],
     "\[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->
           "879c1c6b-ac99-44d0-b241-2523e9a05461"]
         }],ExpressionUUID->"053c4384-de46-4902-b131-6c666f02fe5a"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32ChildKey\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP32ChildKey"], 
         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/BIP32ChildKey.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/BIP32ChildKey" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "ff103f82-c63c-4fbe-91d5-68474cace821"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "de9e0740-af5f-476d-9eef-6da5e5566103"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"917bc7e3-cce1-486b-b7e8-6f4b1b0473bb"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"f215f5c9-9406-43df-9156-1daf954e713f"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32ChildKey", "ObjectName",ExpressionUUID->
      "319e84b4-065d-4728-8b48-40c5e85b590e"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"a2fc32a4-9b18-4eb0-a602-3c28bdef2d81"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "36290862-529f-4b49-94e3-a8faabc7b7a0"]
    }],ExpressionUUID->"0fed39b4-8a9b-451b-8acc-e1f0595ddc36"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"554c7e24-e8ad-4559-8543-\
3e9b42f46b13"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32ChildKey"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32ChildKey", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["key", "TI"], ",", " ", 
        StyleBox["i", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a6bd6bbe-3348-4289-9062-29a04a458698"],
     "\[LineSeparator]",
     "gives the child extended key of index ",
     StyleBox["i", "TI"],
     " of a BIP32 extended ",
     StyleBox["key", "TI"],
     "."
    }],ExpressionUUID->"83679024-e8b0-4944-8d14-a6ba88c38785"]}
  }]], "Usage",ExpressionUUID->"38292a0b-045a-484c-9604-dcd412bb86d9"]
}, 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->"c82d159e-bf99-49f2-97cd-6353c406412c"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"bf47ffc3-c805-4963-90d1-c8acac44778f"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "55f7a1d9-c3ea-4c74-aade-963b021384a8"]],ExpressionUUID->"ef587ff0-3d42-\
4b5f-842b-dcee9949731b"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1346274520,ExpressionUUID->"882be99a-2fab-43af-b833-a12c81337d54"],

Cell[TextData[{
 "A private parent uses CKDpriv and a public parent uses CKDpub; the child \
has the same ",
 Cell[BoxData["\<\"Type\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f4f7488a-3cbb-45f9-9b46-35981b189397"],
 " and ",
 Cell[BoxData["\<\"Version\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ebe48571-8095-401d-aeeb-e041a05ada74"],
 " as its parent."
}], "Notes",ExpressionUUID->"24ca63cb-8c5e-4611-8ddc-0731b054121c"],

Cell[TextData[{
 "An index of ",
 Cell[BoxData[
  SuperscriptBox["2", "31"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6f86ecee-1d8e-4b63-bfac-96ddc659794d"],
 " or more is hardened. A hardened child of a private parent hashes the \
parent private key; a hardened child of a public parent does not exist, and a \
Failure is returned."
}], "Notes",ExpressionUUID->"c98752a5-0c8a-419c-b9bc-20eceb9c7ecd"],

Cell["\<\
A non-hardened child hashes the parent compressed public key, so it can be \
derived from either kind of parent.\
\>", "Notes",ExpressionUUID->"90d42a91-ce85-4245-9adf-afef43bc6cf4"],

Cell[TextData[{
 "The child chain code and the tweak are the two halves of ",
 Cell["HMAC-SHA512", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "38d7cbe7-bb0e-4eb9-b1d5-90560d7c486a"],
 " of that data under the parent chain code."
}], "Notes",ExpressionUUID->"49cf2466-1d1e-463c-8440-e172dcf5439e"],

Cell["\<\
CKDpriv adds the tweak to the parent scalar modulo the group order; CKDpub \
adds the tweak times the generator to the parent point.\
\>", "Notes",ExpressionUUID->"09f34ecf-6a0a-4639-b2b0-4ef63f914e60"],

Cell[TextData[{
 "The child ",
 Cell[BoxData["\<\"Depth\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ef8a0c23-60ab-4161-9b96-73763362b1f2"],
 " is one more than the parent's, and ",
 Cell[BoxData["\<\"ParentFingerprint\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9350df7f-4ddb-446b-92d8-73b2a7df728e"],
 " is ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32KeyFingerprint"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32KeyFingerprint", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1e615674-bfff-45cb-be13-a1064825c39b"],
 " of the parent."
}], "Notes",ExpressionUUID->"9dd1f29d-86b8-47c0-9dd9-946bd219c238"],

Cell[TextData[{
 "An index below 0 or at ",
 Cell[BoxData[
  SuperscriptBox["2", "32"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9176f890-3b07-4e2b-861c-ee17c8f6fc23"],
 " or above is not a child number and the call is returned unevaluated."
}], "Notes",ExpressionUUID->"150d84d8-5a03-4ae4-9d9f-44e75c653607"],

Cell["\<\
A tweak at or above the group order, or a child key of zero, is invalid; \
BIP32 says to use the next index, and a Failure is returned.\
\>", "Notes",ExpressionUUID->"0620bfab-24c1-4c50-9295-4152007cd3da"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"2ee831c2-1cfc-4093-9581-dcd5c8f1cf95"],

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->"31d681f6-afbf-4d15-bfdb-09e742403417"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"dadcae25-f899-46b8-9b44-aff43c86858d"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "1973bf23-77ec-4ed2-8b08-0e8530c46a8d"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->948152848,ExpressionUUID->"f1de58bc-5918-4f1f-952e-9578ce31c923"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"ca44439d-c7ec-4501-a651-b4ee37eac476"],

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->
  "6f2029cd-0376-41de-9cc3-9e5070768598"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b94b8e6e-28e0-4567-9942-68b8c40f98b5"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "31ab5ef4-fb60-4429-945c-499a024b6a19"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1276255596,ExpressionUUID->"6f0e6b2d-c288-4b3f-9b0d-2926350ad3ff"],

Cell["\<\
The first hardened child of the BIP32 test vector 1 master key:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"565b043c-df0f-4876-a27c-05afbcdabd9e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{"BIP32ChildKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    ",", " ", "2147483648"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"71b47334-0df7-4c54-b22c-ed8be6a31191"],

Cell[BoxData["\<\"\
xprv9uHRZZhk6KAJC1avXpDAp4MDc3sQKNxDiPvvkX8Br5ngLNv1TxvUxt4cV1rGL5hj6KCesnDYUh\
d7oWgT11eZG7XnxHrnYeSvkzY7d2bhkJ7\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"548115ab-de8a-4ec8-9800-55bd32b53c26"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3360740f-4860-4155-a232-6c817e1f22a8"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"cd546898-9316-4736-\
a13e-3a27afd3ef57"],

Cell["A non-hardened child, index 1 of that hardened child:", "ExampleText",ExpressionUUID->"5aa3840b-7804-45fb-b9d4-7361006ce472"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{"BIP32ChildKey", "[", 
   RowBox[{
    RowBox[{"BIP32ChildKey", "[", 
     RowBox[{
      RowBox[{
      "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
       "]"}], ",", " ", "2147483648"}], "]"}], ",", " ", "1"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"14ad89f3-5ed2-40ad-9bd0-86becf305bdc"],

Cell[BoxData["\<\"\
xprv9wTYmMFdV23N2TdNG573QoEsfRrWKQgWeibmLntzniatZvR9BmLnvSxqu53Kw1UmYPxLgboyZQ\
aXwTCg8MSY3H2EU4pWcQDnRnrVA1xe8fs\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0af76a95-2164-43d6-88fb-315e265ad0bb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2e21dabe-0a8f-4825-bd4d-c22af32d5d1b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"866b353f-53c5-45f9-\
ae78-c3197d1bf38b"],

Cell["\<\
The same non-hardened child derived from the neutered parent, by CKDpub:\
\>", "ExampleText",ExpressionUUID->"41776f22-b237-4561-80aa-b8942c86d94a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{"BIP32ChildKey", "[", 
   RowBox[{
    RowBox[{"BIP32PublicKey", "[", 
     RowBox[{"BIP32ChildKey", "[", 
      RowBox[{
       RowBox[{
       "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
        "]"}], ",", " ", "2147483648"}], "]"}], "]"}], ",", " ", "1"}], "]"}],
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f6afacee-0e2a-4380-963c-8058cc34f1e3"],

Cell[BoxData["\<\"\
xpub6ASuArnXKPbfEwhqN6e3mwBcDTgzisQN1wXN9BJcM47sSikHjJf3UFHKkNAWbWMiGj7Wf5uMas\
h7SyYq527Hqck2AxYysAA7xmALppuCkwQ\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c3c3519f-4f1f-4d10-8fb4-b5f83bf74d82"]
}, 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->
  "8d896fb8-c95c-48d0-b8ac-4f9601109d6b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"52b52173-a566-4285-b398-29b0d8d66213"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "5991fc99-8568-42e8-b949-4dd7d3c9ca55"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"29f7c47e-2cfe-4c47-8cec-038c8a059ca2"],

Cell["\<\
Deriving privately and then neutering gives the same key as neutering and \
then deriving, for a non-hardened index:\
\>", "ExampleText",ExpressionUUID->"7c75490b-69d6-4942-a8f4-9baef8eb573b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32PublicKey", "[", 
   RowBox[{"BIP32ChildKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "5"}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"BIP32ChildKey", "[", 
   RowBox[{
    RowBox[{"BIP32PublicKey", "[", 
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      "]"}], ",", " ", "5"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0b666f3f-2bf2-48fd-8dfe-670330b8b6cb"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f8b0ad0f-25af-4a6b-9ed4-ca5d8c049c06"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c9472321-9bbd-44e0-b910-34600cef7ca2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2970c674-7930-496d-\
b432-c446c7477d90"],

Cell["\<\
A hardened child of an extended public key does not exist, and the attempt \
gives a Failure:\
\>", "ExampleText",ExpressionUUID->"6e78caaf-7c24-4d3c-9550-9037d6f2e43c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"BIP32ChildKey", "[", 
   RowBox[{
    RowBox[{"BIP32PublicKey", "[", 
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      "]"}], ",", " ", "2147483648"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4c3fbc52-3c27-4225-994f-3a9fe4d91d21"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cf2f0582-c68f-47e1-a819-4f60150dc084"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "04b0adea-bb3a-4326-aa84-e9d6fdc03f17"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4d419413-e55a-4768-\
b586-2bd868ff4212"],

Cell[TextData[{
 "An index at ",
 Cell[BoxData[
  SuperscriptBox["2", "32"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7b153b0d-f5df-4638-ac79-2e6c56c41479"],
 " is not a BIP32 child number, so the call is returned unevaluated:"
}], "ExampleText",ExpressionUUID->"33b8a446-3b4c-4505-b440-15ebfdd04e5d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32ChildKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "4294967296"}], "]"}], ",", " ", "_BIP32ChildKey"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1b70d2e7-dfc3-4c31-9c83-0e2c9725ec39"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6ccaa310-efa2-4d96-ae30-d761c8f46c97"]
}, 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->
  "9fd29c40-9ade-4b7d-a413-4cb71c2dedb0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c67ec41b-7931-4bc8-993d-604badd8dde9"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "f6ddcb81-4997-4967-b85f-59bc1dac9a9d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"535a2550-7595-4b0e-bda1-07594aab3806"],

Cell[TextData[{
 "Walking a path one index at a time is what ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32DeriveKey"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a6125fe9-25fd-4274-8525-039be5337ae5"],
 " folds:"
}], "ExampleText",ExpressionUUID->"49b142a9-87c8-471d-9f7c-f5a89ba30cb4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{"Fold", "[", 
   RowBox[{"BIP32ChildKey", ",", " ", 
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    ",", " ", 
    RowBox[{"BIP32Path", "[", "\"\<m/0h/1\>\"", "]"}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"00cb43ca-9704-4542-add7-c0771eab1cd5"],

Cell[BoxData["\<\"\
xprv9wTYmMFdV23N2TdNG573QoEsfRrWKQgWeibmLntzniatZvR9BmLnvSxqu53Kw1UmYPxLgboyZQ\
aXwTCg8MSY3H2EU4pWcQDnRnrVA1xe8fs\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b16e5da3-3f4b-4276-878a-b7e8989afdc8"]
}, 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->
  "5773f0d3-8d14-41d3-a448-f77b149dab5b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"59b888d5-d78c-40f9-a793-8f4b2546e0dc"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "f51938ae-6139-49dd-a84d-7632ad1140b7"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"478a8d98-a7c2-4837-8c70-c741f007cdde"],

Cell["The child carries its parent's fingerprint:", "ExampleText",ExpressionUUID->"42310309-3fa8-4b02-b828-b44172cd48d6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BIP32ChildKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "0"}], "]"}], "[", "\"\<ParentFingerprint\>\"", "]"}], " ", "===",
   " ", 
  RowBox[{"BIP32KeyFingerprint", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"266f9651-b17a-4879-97b1-417d9f7a6f29"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6221510c-eb31-4d10-9dca-4f5e176fdbd1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "730bcc03-7f8b-433e-8b42-96777af7dd51"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b62abdb5-7c33-4a15-\
a042-5ac436b4c4ac"],

Cell["Depth increases by one at each step:", "ExampleText",ExpressionUUID->"5f6a6c48-02d0-4f05-847e-332f966ba791"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"#", "[", "\"\<Depth\>\"", "]"}], " ", "&"}], ",", " ", 
   RowBox[{"NestList", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"BIP32ChildKey", "[", 
       RowBox[{"#", ",", " ", "0"}], "]"}], " ", "&"}], ",", " ", 
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "3"}], "]"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9bf2ed46-6135-4733-b4b0-25807bcd3bf6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cb93dae9-abf4-4b2a-afb9-a37844a8f26b"]
}, 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->
  "c453bdad-0cea-42a3-93f1-899361bc34e2"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"858154c3-dbf5-41ed-b3ae-d51aa9198952"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "5ddfcd01-2323-41df-a27f-79f48b28672f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"9ed64d66-17bc-4c3a-8cbb-fd4e5709224e"],

Cell["\<\
A hardened and a non-hardened child of the same nominal index are different \
keys, so dropping the hardening marker from a path silently derives the wrong \
wallet:\
\>", "ExampleText",ExpressionUUID->"50fb8e20-7d59-463f-8446-02683dcdf255"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BIP32ChildKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "0"}], "]"}], "[", "\"\<Key\>\"", "]"}], " ", "===", " ", 
  RowBox[{
   RowBox[{"BIP32ChildKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "2147483648"}], "]"}], "[", "\"\<Key\>\"", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e0baaf24-045c-4425-bee7-2be5995aaa50"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"14bb900c-29fe-47a7-89ed-5ef4b4916eb0"]
}, 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["BIP32DeriveKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "bac0f77b-553c-4c8b-b3fa-7bd3ec7a82cb"],
        "\[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->
         "f334b4f2-22a0-459c-ad42-60f33a0df7a5"],
        "\[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->
         "207ae424-36ca-461b-a638-0ff9326fe9be"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32KeyFingerprint"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32KeyFingerprint", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "48ae4591-6f94-4de6-a9ff-10134e4e86b1"],
        "\[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->
         "4ca421d1-e801-4d33-9539-d00311c08ebe"]
       }], "SeeAlso",ExpressionUUID->"02e2f484-275a-41e4-9fd6-113f40a8f6c6"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"e620a496-c9d7-4624-bae0-\
76b9fd7f391b"],

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->
         "fb6d0cd6-d92e-4a63-a10f-563fefa58752"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"e3bda7d5-d4d6-4121-bbd9-\
c211fad62f3f"],

Cell[" ", "FooterCell",ExpressionUUID->"de16531a-71a3-487a-92f1-fdab3772f750"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32ChildKey",
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, 6.109486}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP32ChildKey,paclet : \
WolframInstitute/Puzzles/ref/BIP32ChildKey, WolframInstitute/Puzzles Package \
Symbol][key, i] gives the child extended key of index i of a BIP32 extended \
key.", "synonyms" -> {}, "tabletags" -> {}, "title" -> "BIP32ChildKey", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "BIP32ChildKey", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP32ChildKey", "WorkflowDockedCell" -> ""},
   "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"d24cf312-cd32-40c1-8249-b7d300a2a4a7"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15667, 421, 181, 4, 70, "ExampleText",ExpressionUUID->"565b043c-df0f-4876-a27c-05afbcdabd9e",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 36953, 1028}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[581, 21, 5805, 142, 70, "AnchorBarGrid",ExpressionUUID->"917bc7e3-cce1-486b-b7e8-6f4b1b0473bb",
 CellID->1],
Cell[6389, 165, 107, 0, 70, "ContextNameCell",ExpressionUUID->"f215f5c9-9406-43df-9156-1daf954e713f"],
Cell[CellGroupData[{
Cell[6521, 169, 556, 14, 70, "ObjectNameGrid",ExpressionUUID->"554c7e24-e8ad-4559-8543-3e9b42f46b13"],
Cell[7080, 185, 882, 24, 70, "Usage",ExpressionUUID->"38292a0b-045a-484c-9604-dcd412bb86d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7999, 214, 1444, 34, 70, "NotesSection",ExpressionUUID->"882be99a-2fab-43af-b833-a12c81337d54",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1346274520],
Cell[9446, 250, 542, 13, 70, "Notes",ExpressionUUID->"24ca63cb-8c5e-4611-8ddc-0731b054121c"],
Cell[9991, 265, 457, 10, 70, "Notes",ExpressionUUID->"c98752a5-0c8a-419c-b9bc-20eceb9c7ecd"],
Cell[10451, 277, 192, 3, 70, "Notes",ExpressionUUID->"90d42a91-ce85-4245-9adf-afef43bc6cf4"],
Cell[10646, 282, 318, 6, 70, "Notes",ExpressionUUID->"49cf2466-1d1e-463c-8440-e172dcf5439e"],
Cell[10967, 290, 212, 3, 70, "Notes",ExpressionUUID->"09f34ecf-6a0a-4639-b2b0-4ef63f914e60"],
Cell[11182, 295, 895, 24, 70, "Notes",ExpressionUUID->"9dd1f29d-86b8-47c0-9dd9-946bd219c238"],
Cell[12080, 321, 365, 8, 70, "Notes",ExpressionUUID->"150d84d8-5a03-4ae4-9d9f-44e75c653607"],
Cell[12448, 331, 215, 3, 70, "Notes",ExpressionUUID->"0620bfab-24c1-4c50-9295-4152007cd3da"]
}, Closed]],
Cell[12678, 337, 80, 0, 70, "PageDelimiter",ExpressionUUID->"2ee831c2-1cfc-4093-9581-dcd5c8f1cf95"],
Cell[CellGroupData[{
Cell[12783, 341, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"f1de58bc-5918-4f1f-952e-9578ce31c923",
 CellID->948152848],
Cell[14187, 380, 216, 4, 70, "Input",ExpressionUUID->"ca44439d-c7ec-4501-a651-b4ee37eac476",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14428, 388, 1236, 31, 70, "ExampleSection",ExpressionUUID->"6f0e6b2d-c288-4b3f-9b0d-2926350ad3ff",
 CellID->1276255596],
Cell[15667, 421, 181, 4, 70, "ExampleText",ExpressionUUID->"565b043c-df0f-4876-a27c-05afbcdabd9e",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15873, 429, 372, 8, 70, "Input",ExpressionUUID->"71b47334-0df7-4c54-b22c-ed8be6a31191"],
Cell[16248, 439, 229, 3, 70, "Output",ExpressionUUID->"548115ab-de8a-4ec8-9800-55bd32b53c26"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16514, 447, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"cd546898-9316-4736-a13e-3a27afd3ef57"],
Cell[16741, 454, 131, 0, 70, "ExampleText",ExpressionUUID->"5aa3840b-7804-45fb-b9d4-7361006ce472"],
Cell[CellGroupData[{
Cell[16897, 458, 455, 11, 70, "Input",ExpressionUUID->"14ad89f3-5ed2-40ad-9bd0-86becf305bdc"],
Cell[17355, 471, 229, 3, 70, "Output",ExpressionUUID->"0af76a95-2164-43d6-88fb-315e265ad0bb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17633, 480, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"866b353f-53c5-45f9-ae78-c3197d1bf38b"],
Cell[17860, 487, 158, 2, 70, "ExampleText",ExpressionUUID->"41776f22-b237-4561-80aa-b8942c86d94a"],
Cell[CellGroupData[{
Cell[18043, 493, 503, 12, 70, "Input",ExpressionUUID->"f6afacee-0e2a-4380-963c-8058cc34f1e3"],
Cell[18549, 507, 229, 3, 70, "Output",ExpressionUUID->"c3c3519f-4f1f-4d10-8fb4-b5f83bf74d82"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18839, 517, 1227, 31, 70, "ExampleSection",ExpressionUUID->"29f7c47e-2cfe-4c47-8cec-038c8a059ca2",
 CellID->1293636265],
Cell[20069, 550, 202, 3, 70, "ExampleText",ExpressionUUID->"7c75490b-69d6-4942-a8f4-9baef8eb573b"],
Cell[CellGroupData[{
Cell[20296, 557, 602, 15, 70, "Input",ExpressionUUID->"0b666f3f-2bf2-48fd-8dfe-670330b8b6cb"],
Cell[20901, 574, 110, 1, 70, "Output",ExpressionUUID->"f8b0ad0f-25af-4a6b-9ed4-ca5d8c049c06"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21048, 580, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2970c674-7930-496d-b432-c446c7477d90"],
Cell[21275, 587, 179, 3, 70, "ExampleText",ExpressionUUID->"6e78caaf-7c24-4d3c-9550-9037d6f2e43c"],
Cell[CellGroupData[{
Cell[21479, 594, 404, 9, 70, "Input",ExpressionUUID->"4c3fbc52-3c27-4225-994f-3a9fe4d91d21"],
Cell[21886, 605, 110, 1, 70, "Output",ExpressionUUID->"cf2f0582-c68f-47e1-a819-4f60150dc084"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22045, 612, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4d419413-e55a-4768-b586-2bd868ff4212"],
Cell[22272, 619, 357, 8, 70, "ExampleText",ExpressionUUID->"33b8a446-3b4c-4505-b440-15ebfdd04e5d"],
Cell[CellGroupData[{
Cell[22654, 631, 405, 10, 70, "Input",ExpressionUUID->"1b70d2e7-dfc3-4c31-9c83-0e2c9725ec39"],
Cell[23062, 643, 110, 1, 70, "Output",ExpressionUUID->"6ccaa310-efa2-4d96-ae30-d761c8f46c97"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23233, 651, 1233, 31, 70, "ExampleSection",ExpressionUUID->"535a2550-7595-4b0e-bda1-07594aab3806",
 CellID->258228157],
Cell[24469, 684, 518, 14, 70, "ExampleText",ExpressionUUID->"49b142a9-87c8-471d-9f7c-f5a89ba30cb4"],
Cell[CellGroupData[{
Cell[25012, 702, 435, 10, 70, "Input",ExpressionUUID->"00cb43ca-9704-4542-add7-c0771eab1cd5"],
Cell[25450, 714, 229, 3, 70, "Output",ExpressionUUID->"b16e5da3-3f4b-4276-878a-b7e8989afdc8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25728, 723, 1244, 31, 70, "ExampleSection",ExpressionUUID->"478a8d98-a7c2-4837-8c70-c741f007cdde",
 CellID->2123667759],
Cell[26975, 756, 121, 0, 70, "ExampleText",ExpressionUUID->"42310309-3fa8-4b02-b828-b44172cd48d6"],
Cell[CellGroupData[{
Cell[27121, 760, 544, 14, 70, "Input",ExpressionUUID->"266f9651-b17a-4879-97b1-417d9f7a6f29"],
Cell[27668, 776, 110, 1, 70, "Output",ExpressionUUID->"6221510c-eb31-4d10-9dca-4f5e176fdbd1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27815, 782, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b62abdb5-7c33-4a15-a042-5ac436b4c4ac"],
Cell[28042, 789, 114, 0, 70, "ExampleText",ExpressionUUID->"5f6a6c48-02d0-4f05-847e-332f966ba791"],
Cell[CellGroupData[{
Cell[28181, 793, 556, 14, 70, "Input",ExpressionUUID->"9bf2ed46-6135-4733-b4b0-25807bcd3bf6"],
Cell[28740, 809, 172, 3, 70, "Output",ExpressionUUID->"cb93dae9-abf4-4b2a-afb9-a37844a8f26b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28973, 819, 1237, 31, 70, "ExampleSection",ExpressionUUID->"9ed64d66-17bc-4c3a-8cbb-fd4e5709224e",
 CellID->1305812373],
Cell[30213, 852, 251, 4, 70, "ExampleText",ExpressionUUID->"50fb8e20-7d59-463f-8446-02683dcdf255"],
Cell[CellGroupData[{
Cell[30489, 860, 605, 15, 70, "Input",ExpressionUUID->"e0baaf24-045c-4425-bee7-2be5995aaa50"],
Cell[31097, 877, 111, 1, 70, "Output",ExpressionUUID->"14bb900c-29fe-47a7-89ed-5ef4b4916eb0"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[31247, 883, 3130, 82, 70, "SeeAlsoSection",ExpressionUUID->"e620a496-c9d7-4624-bae0-76b9fd7f391b"],
Cell[34380, 967, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"e3bda7d5-d4d6-4121-bbd9-c211fad62f3f"],
Cell[35083, 988, 78, 0, 70, "FooterCell",ExpressionUUID->"de16531a-71a3-487a-92f1-fdab3772f750"]
}
]
*)

(* End of internal cache information *)

