(* 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[     43828,       1152]
NotebookOptionsPosition[     35292,        992]
NotebookOutlinePosition[     37322,       1041]
CellTagsIndexPosition[     37244,       1036]
WindowTitle->BIP32PublicKey
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->
           "e943f142-0f47-4072-a38d-1a84b3750351"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "9de254ed-6894-4da1-ad82-1d2f0f18abfc"],
        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->
           "41926d8e-f893-4cf1-9b7d-d0a4d533a0bd"]
         }],ExpressionUUID->"a4e6dcad-4959-4e73-9f5d-20ae38053456"],
         StripOnInput->False],{
        StyleBox[
          "\"BIP32ChildKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32ChildKey"], 
         StyleBox[
          "\"BIP32DeriveKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey"], 
         StyleBox[
          "\"BIP32ExtendedKeyString\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString"], 
         StyleBox[
          "\"BIP32KeyFingerprint\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32KeyFingerprint"], 
         StyleBox[
          "\"Secp256k1PublicKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Secp256k1PublicKey"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "487c1609-5f6d-4ea5-8688-67f7821689f3"],
     "\[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->
           "764ad9a0-1073-4e2a-943f-994f8391108f"]
         }],ExpressionUUID->"034389d9-1fab-403a-9106-b0ca8a0af37b"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "fd890c78-183d-4588-ab2e-ab1bd5c987d2"],
     "\[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->
           "5e7f961d-a007-4c61-9161-23fe9171800b"]
         }],ExpressionUUID->"c33b5121-e78e-4fc1-8256-03cf65414815"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32PublicKey\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP32PublicKey"], 
         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/BIP32PublicKey.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/BIP32PublicKey" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "d2917218-4b40-484d-acac-b57caa2cab4b"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "446b1145-abe3-4c0d-b589-ff8947309605"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"e8d17d29-b60a-4b4b-bcf9-ecda8edda6f7"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"c4f046d6-7b67-459f-96ba-eee1c53140bf"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32PublicKey", "ObjectName",ExpressionUUID->
      "3e1d9a00-49d7-43d0-b657-120f04b6268b"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"00e3c7cd-64ce-4cef-938e-fe737dc40156"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "5c32707f-5cba-4490-ad97-d0c490e4d318"]
    }],ExpressionUUID->"8a2ba201-f5ca-4567-a78c-89f404741f5e"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"9a848e73-79b4-4645-b3ae-\
df19c76234ae"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32PublicKey"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32PublicKey", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["key", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "aaa95179-af33-4554-8717-5175e433b663"],
     "\[LineSeparator]",
     "gives the extended public key of a BIP32 extended private ",
     StyleBox["key", "TI"],
     "."
    }],ExpressionUUID->"190cf01c-7fc3-4f0a-af20-bd88321262ea"]}
  }]], "Usage",ExpressionUUID->"4badc22f-9791-4647-9f24-c014d7fd2679"]
}, 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->"093dc791-a8df-43e6-b521-64c304fe3734"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"09057fa8-d82b-4d94-a450-dde33b4e1588"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "99553e84-b6d2-4e25-b9a2-10f1bd203b96"]],ExpressionUUID->"88cacf06-4ac3-\
4d4a-a977-380a043dc1eb"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->360271837,ExpressionUUID->"7013e80b-03a5-45ca-8fff-7108aceee26e"],

Cell[TextData[{
 "This is the neutering operator ",
 Cell[BoxData[
  StyleBox["N", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "19114b8d-46ea-443d-9252-b22728e9c2e9"],
 " of BIP32: the 32-byte private key is replaced by its 33-byte compressed \
public key, and the version by the matching public version."
}], "Notes",ExpressionUUID->"20935297-1f68-4cc0-ac74-bfbeb9162ed3"],

Cell["\<\
The depth, parent fingerprint, child number and chain code are unchanged, so \
the neutered key sits at the same place in the tree.\
\>", "Notes",ExpressionUUID->"d744161c-7f68-484e-b044-deb020189097"],

Cell["\<\
An extended public key is returned unchanged, so the operation is idempotent.\
\
\>", "Notes",ExpressionUUID->"003e822a-5e2b-4297-8385-edde8b68eb28"],

Cell[TextData[{
 "The version pairing follows the SLIP-132 table: ",
 Cell[BoxData["xprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6bfad6cb-461c-45b1-846c-a13f5c5636b8"],
 " neuters to ",
 Cell[BoxData["xpub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "fdd7bea0-d64d-478e-901d-69f2388d4aa2"],
 ", ",
 Cell[BoxData["yprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "abaf538e-2f10-4156-950e-cef4a471e0e2"],
 " to ",
 Cell[BoxData["ypub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3588c264-1656-4eed-a1c7-0217b98e74ed"],
 ", ",
 Cell[BoxData["zprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ace07fa6-b715-4a57-9228-7a5c1647c370"],
 " to ",
 Cell[BoxData["zpub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7f5e92d1-f46b-4625-8bbf-7478042469be"],
 ", and the testnet ",
 Cell[BoxData["tprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3d25c0ea-2f09-429d-936f-b1f83aef79ee"],
 ", ",
 Cell[BoxData["uprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0f9e5387-c5dd-400a-8209-a69dbeab4471"],
 " and ",
 Cell[BoxData["vprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c2ebbeff-c94e-47f1-bae5-0c056ac530d4"],
 " to ",
 Cell[BoxData["tpub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cd4962c0-fcc2-4f31-b166-c40c647d9ca5"],
 ", ",
 Cell[BoxData["upub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3186b6b2-d2bd-45ff-9d5b-6522abde6682"],
 " and ",
 Cell[BoxData["vpub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "591692c3-0f92-4851-826c-f3425cc50142"],
 "."
}], "Notes",ExpressionUUID->"8cd6d06f-6805-4410-bed6-aa39721cc3e5"],

Cell["\<\
An Association that is not an extended key matches no definition and the call \
is returned unevaluated.\
\>", "Notes",ExpressionUUID->"c2acba50-0bae-43b3-8b0c-6500177383d5"],

Cell["\<\
The neutered key can derive every non-hardened descendant of its position, \
and no hardened one.\
\>", "Notes",ExpressionUUID->"c0c5d059-c978-4527-b61b-e4181fc1706b"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"ef731636-53dc-42eb-b999-124c1b6c5b39"],

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->"2b958983-3d12-4748-baf6-6e4e25cc1ed0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"f1c993c0-319d-4d8f-812c-0b7a8e7460f3"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "80f9c508-7719-4565-8b60-d6dc1375ec96"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1332363566,ExpressionUUID->"86504d34-f7d1-4a35-8f6d-2d6bd6cca05c"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"a47b701a-0457-4e3d-a0d9-cecc09ee3443"],

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->
  "175eaf5b-aff6-45ac-826e-61bc90b0ea5d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"cd1eba5a-f744-487e-8dc0-bc55f09f3c8f"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "4786f49d-0dc0-412a-9403-00901ef2a55a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1222466493,ExpressionUUID->"06b9ac22-e5fd-41eb-97f2-4827e8f6480c"],

Cell["The extended public key of BIP32 test vector 1's master key:", \
"ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"c508ab5c-280d-4111-b2d6-e32793ec166b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{"BIP32PublicKey", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"415dd83e-3b68-439b-8316-78905afc5caf"],

Cell[BoxData["\<\"\
xpub661MyMwAqRbcFtXgS5sYJABqqG9YLmC4Q1Rdap9gSE8NqtwybGhePY2gZ29ESFjqJoCu1Rupje\
8YtGqsefD265TMg7usUDFdp6W1EGMcet8\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"352cd6c4-a539-4f53-b626-07094b776230"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "83406241-ffd0-4fd1-9494-8967c7e093bc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6ca114a3-8391-417a-\
ad29-0dba41e7972e"],

Cell["\<\
Neutering replaces the key material and the version, and keeps everything \
else:\
\>", "ExampleText",ExpressionUUID->"ae015ff6-b0d7-4b53-a29c-c47257bbdcce"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{"BIP32PublicKey", "[", 
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Type\>\"", ",", " ", "\"\<Depth\>\"", ",", 
     " ", "\"\<ChildNumber\>\"", ",", " ", "\"\<Network\>\""}], "}"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"67c0246c-57b4-4c54-a12a-27112ca0f031"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Type\"\>", "\[Rule]", "\<\"Public\"\>"}], ",", 
   RowBox[{"\<\"Depth\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"ChildNumber\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Mainnet\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5d92ca42-98e2-468f-ba13-759eaf039896"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d1749af4-a3b2-4517-aab5-4a76adbd2815"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f0b19bec-6d4c-4f49-\
9dc9-c4ecb7164e48"],

Cell["\<\
The public key it carries is the compressed SEC1 key of the private scalar:\
\>", "ExampleText",ExpressionUUID->"d73389ce-7eb3-4e0c-a302-7b74ebfd9dff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BIP32PublicKey", "[", 
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    "]"}], "[", "\"\<Key\>\"", "]"}], " ", "===", " ", 
  RowBox[{"Secp256k1PublicKey", "[", 
   RowBox[{
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    "[", "\"\<Key\>\"", "]"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"62b1a0da-1ba5-474f-9e3f-43748ec7d77b"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8fc7128b-ddae-4b32-94f9-74396fd126e7"]
}, 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->
  "4375a017-93a4-4965-8fcc-5619f4b2bba8"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a730ed7e-5306-4242-979c-c521c7d61301"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "e5246b2d-5e02-436b-98c9-81e5ae05c162"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"b7d205a3-471a-4b2f-8a25-578d442b64bc"],

Cell["An extended public key is returned unchanged:", "ExampleText",ExpressionUUID->"7126aadc-9273-493e-9e45-21c50c5c9bd7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32PublicKey", "[", 
   RowBox[{"BIP32PublicKey", "[", 
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    "]"}], "]"}], " ", "===", " ", 
  RowBox[{"BIP32PublicKey", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f83de932-75fe-426c-a034-2aeb92c91683"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9344e1a7-f3c8-4560-ae51-dd96fd3676ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "644d8bbc-c942-47c4-9984-9ab34e4bbc19"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"499ea576-b4d2-4f16-\
a4f9-a32e7a5b8b30"],

Cell["\<\
A zprv neuters to a zpub, the BIP84 account key the specification publishes:\
\>", "ExampleText",ExpressionUUID->"cef4456e-6359-4994-807d-d31ac0e68160"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{
   RowBox[{"BIP32PublicKey", "[", 
    RowBox[{"BIP32DeriveKey", "[", 
     RowBox[{
      RowBox[{
      "BIP32MasterKey", 
       "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", 
      " ", "\"\<m/84h/0h/0h\>\""}], "]"}], "]"}], ",", " ", "\"\<zpub\>\""}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3ece6fdb-79e6-4d38-ab2b-14307a24a587"],

Cell[BoxData["\<\"\
zpub6rFR7y4Q2AijBEqTUquhVz398htDFrtymD9xYYfG1m4wAcvPhXNfE3EfH1r1ADqtfSdVCToUG8\
68RvUUkgDKf31mGDtKsAYz2oz2AGutZYs\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"14481b9a-b16f-4737-bb2e-1e6929d76c36"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "270a2734-faf9-49ca-b715-f54d01b6f6ed"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e99f0964-34df-4b6b-\
acb0-7c1e86b4edb2"],

Cell["An Association that is not an extended key is left alone:", \
"ExampleText",ExpressionUUID->"14b88587-0bd4-4eda-958b-bd8c4a601bd6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32PublicKey", "[", 
    RowBox[{"<|", 
     RowBox[{"\"\<Type\>\"", " ", "->", " ", "\"\<Private\>\""}], "|>"}], 
    "]"}], ",", " ", "_BIP32PublicKey"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5505ceca-ab2f-48f3-8ca5-17f90f8a8534"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cbe8166a-fdd4-486a-a417-b5a8b30e6707"]
}, 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->
  "4f403985-62ee-4048-96a3-67ca4cb084ac"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"5a0e0767-55d7-409d-85a2-3f77ac432689"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "15dee3be-a4bd-4e4a-a889-b4fbae292cb8"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"d4ceb6f8-43a2-414b-8426-b4d6d1b75e04"],

Cell["\<\
A watch-only wallet: the account xpub alone generates every receiving address:\
\>", "ExampleText",ExpressionUUID->"aa8d4aa3-ebce-4401-a61b-49cf2d2e8a3f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"BitcoinAddress", "[", 
    RowBox[{
     RowBox[{"BIP32DeriveKey", "[", 
      RowBox[{
       RowBox[{"BIP32PublicKey", "[", 
        RowBox[{"BIP32DeriveKey", "[", 
         RowBox[{
          RowBox[{
          "BIP32MasterKey", 
           "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", 
          " ", "\"\<m/84h/0h/0h\>\""}], "]"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "i"}], "}"}]}], "]"}], ",", 
     " ", "\"\<P2WPKH\>\""}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"i", ",", " ", "0", ",", " ", "2"}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"265e9d9b-c35c-4b21-aeb9-eb44f3dfc24f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\"\>", 
   ",", "\<\"bc1qnjg0jd8228aq7egyzacy8cys3knf9xvrerkf9g\"\>", 
   ",", "\<\"bc1qp59yckz4ae5c4efgw2s5wfyvrz0ala7rgvuz8z\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"720cd524-2ed6-4eeb-aa5a-6dc4cd85eb5b"]
}, 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->
  "bce2d253-04d5-4604-802e-6b2000bc72d8"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6333d5b7-5d67-4b9c-828d-8bc609ba1857"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "5d62b710-ef6c-4501-b535-6ad5856d78ab"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"da62478f-6f80-42cc-b743-038532db3348"],

Cell["\<\
Neutering commutes with non-hardened derivation, which is what makes a \
watch-only wallet possible:\
\>", "ExampleText",ExpressionUUID->"6f4cf2e5-5a31-41f5-ba9c-99b89da4c411"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32PublicKey", "[", 
   RowBox[{"BIP32DeriveKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "\"\<m/1/2\>\""}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{"BIP32PublicKey", "[", 
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      "]"}], ",", " ", "\"\<m/1/2\>\""}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"186d687d-f217-4ac8-a621-e62435b2f1bd"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5a588f29-dbfb-4eba-b3be-d7799f2c7666"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cc62ef92-35f6-4c62-af01-313419a9bff5"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b61ba16f-c56a-44dd-\
84e1-a517b42d6575"],

Cell["\<\
The fingerprint is unchanged by neutering, since it is computed from the \
public key either way:\
\>", "ExampleText",ExpressionUUID->"195c0df2-cebe-4b23-9f41-64b1544f0882"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32KeyFingerprint", "[", 
   RowBox[{"BIP32PublicKey", "[", 
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    "]"}], "]"}], " ", "===", " ", 
  RowBox[{"BIP32KeyFingerprint", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3df313c6-fd2b-4af0-8e61-5d51f4d70813"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d9eac091-9693-4e3c-8224-75c60d2e4d75"]
}, 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->
  "71eb9ae8-5a95-4af0-a73d-4e8a5db11e9e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"099dd199-83e6-4fa8-889b-a6185db34e8f"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "f08c281b-49f1-45c2-b040-bc313bb24e38"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"b0f04813-b537-478a-b31a-ac556580b911"],

Cell["\<\
Neutering is not reversible: the extended public key carries no scalar, so a \
hardened descendant of it cannot be reached at all:\
\>", "ExampleText",ExpressionUUID->"0e9985f5-2378-46a0-a51c-03a07518261a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"BIP32DeriveKey", "[", 
   RowBox[{
    RowBox[{"BIP32PublicKey", "[", 
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      "]"}], ",", " ", "\"\<m/0h\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"018e912b-63f8-48ea-9641-8f1fca60a055"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7d7eab9a-91dd-43d4-9ccf-6d273d200367"]
}, 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->
         "27f93bb7-89ff-4367-81b7-045b7abf300a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32DeriveKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "3292633a-94d1-44cc-b822-d6710085f534"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32ExtendedKeyString"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1e96ac5f-127d-4c76-aa52-310871b96ae7"],
        "\[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->
         "2cedb392-2e5d-4d39-bf0a-61935675ed52"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Secp256k1PublicKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/Secp256k1PublicKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "4eda978c-4d52-4b6f-b500-e06f35fa1144"]
       }], "SeeAlso",ExpressionUUID->"29efee69-c0d9-491e-8881-9b3d3652f50f"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"91223582-ecc8-4a46-94c2-\
1c8ca2739a56"],

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->
         "6860edea-6a0a-4c33-80bf-a71d8c2bb8e6"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"46495d42-93ae-4672-891a-\
fc45ebd0e980"],

Cell[" ", "FooterCell",ExpressionUUID->"2d784ed0-28aa-43d7-a1a2-23e50ebd3f9f"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32PublicKey",
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, 13.426869}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP32PublicKey,paclet : \
WolframInstitute/Puzzles/ref/BIP32PublicKey, WolframInstitute/Puzzles Package \
Symbol][key] gives the extended public key of a BIP32 extended private key.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "BIP32PublicKey", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "BIP32PublicKey", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP32PublicKey", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"1073fc93-1f3b-4354-8d59-161874fc6605"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15750, 427, 172, 3, 70, "ExampleText",ExpressionUUID->"c508ab5c-280d-4111-b2d6-e32793ec166b",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 37087, 1030}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 5854, 143, 70, "AnchorBarGrid",ExpressionUUID->"e8d17d29-b60a-4b4b-bcf9-ecda8edda6f7",
 CellID->1],
Cell[6439, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"c4f046d6-7b67-459f-96ba-eee1c53140bf"],
Cell[CellGroupData[{
Cell[6571, 170, 557, 14, 70, "ObjectNameGrid",ExpressionUUID->"9a848e73-79b4-4645-b3ae-df19c76234ae"],
Cell[7131, 186, 789, 20, 70, "Usage",ExpressionUUID->"4badc22f-9791-4647-9f24-c014d7fd2679"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7957, 211, 1443, 34, 70, "NotesSection",ExpressionUUID->"7013e80b-03a5-45ca-8fff-7108aceee26e",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->360271837],
Cell[9403, 247, 432, 9, 70, "Notes",ExpressionUUID->"20935297-1f68-4cc0-ac74-bfbeb9162ed3"],
Cell[9838, 258, 211, 3, 70, "Notes",ExpressionUUID->"d744161c-7f68-484e-b044-deb020189097"],
Cell[10052, 263, 159, 3, 70, "Notes",ExpressionUUID->"003e822a-5e2b-4297-8385-edde8b68eb28"],
Cell[10214, 268, 2164, 62, 70, "Notes",ExpressionUUID->"8cd6d06f-6805-4410-bed6-aa39721cc3e5"],
Cell[12381, 332, 184, 3, 70, "Notes",ExpressionUUID->"c2acba50-0bae-43b3-8b0c-6500177383d5"],
Cell[12568, 337, 177, 3, 70, "Notes",ExpressionUUID->"c0c5d059-c978-4527-b61b-e4181fc1706b"]
}, Closed]],
Cell[12760, 343, 80, 0, 70, "PageDelimiter",ExpressionUUID->"ef731636-53dc-42eb-b999-124c1b6c5b39"],
Cell[CellGroupData[{
Cell[12865, 347, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"86504d34-f7d1-4a35-8f6d-2d6bd6cca05c",
 CellID->1332363566],
Cell[14270, 386, 216, 4, 70, "Input",ExpressionUUID->"a47b701a-0457-4e3d-a0d9-cecc09ee3443",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14511, 394, 1236, 31, 70, "ExampleSection",ExpressionUUID->"06b9ac22-e5fd-41eb-97f2-4827e8f6480c",
 CellID->1222466493],
Cell[15750, 427, 172, 3, 70, "ExampleText",ExpressionUUID->"c508ab5c-280d-4111-b2d6-e32793ec166b",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15947, 434, 332, 7, 70, "Input",ExpressionUUID->"415dd83e-3b68-439b-8316-78905afc5caf"],
Cell[16282, 443, 229, 3, 70, "Output",ExpressionUUID->"352cd6c4-a539-4f53-b626-07094b776230"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16548, 451, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6ca114a3-8391-417a-ad29-0dba41e7972e"],
Cell[16775, 458, 167, 3, 70, "ExampleText",ExpressionUUID->"ae015ff6-b0d7-4b53-a29c-c47257bbdcce"],
Cell[CellGroupData[{
Cell[16967, 465, 497, 12, 70, "Input",ExpressionUUID->"67c0246c-57b4-4c54-a12a-27112ca0f031"],
Cell[17467, 479, 412, 8, 70, "Output",ExpressionUUID->"5d92ca42-98e2-468f-ba13-759eaf039896"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17928, 493, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f0b19bec-6d4c-4f49-9dc9-c4ecb7164e48"],
Cell[18155, 500, 161, 2, 70, "ExampleText",ExpressionUUID->"d73389ce-7eb3-4e0c-a302-7b74ebfd9dff"],
Cell[CellGroupData[{
Cell[18341, 506, 536, 13, 70, "Input",ExpressionUUID->"62b1a0da-1ba5-474f-9e3f-43748ec7d77b"],
Cell[18880, 521, 110, 1, 70, "Output",ExpressionUUID->"8fc7128b-ddae-4b32-94f9-74396fd126e7"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19051, 529, 1227, 31, 70, "ExampleSection",ExpressionUUID->"b7d205a3-471a-4b2f-8a25-578d442b64bc",
 CellID->1293636265],
Cell[20281, 562, 123, 0, 70, "ExampleText",ExpressionUUID->"7126aadc-9273-493e-9e45-21c50c5c9bd7"],
Cell[CellGroupData[{
Cell[20429, 566, 493, 12, 70, "Input",ExpressionUUID->"f83de932-75fe-426c-a034-2aeb92c91683"],
Cell[20925, 580, 110, 1, 70, "Output",ExpressionUUID->"9344e1a7-f3c8-4560-ae51-dd96fd3676ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21072, 586, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"499ea576-b4d2-4f16-a4f9-a32e7a5b8b30"],
Cell[21299, 593, 162, 2, 70, "ExampleText",ExpressionUUID->"cef4456e-6359-4994-807d-d31ac0e68160"],
Cell[CellGroupData[{
Cell[21486, 599, 584, 14, 70, "Input",ExpressionUUID->"3ece6fdb-79e6-4d38-ab2b-14307a24a587"],
Cell[22073, 615, 229, 3, 70, "Output",ExpressionUUID->"14481b9a-b16f-4737-bb2e-1e6929d76c36"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22351, 624, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e99f0964-34df-4b6b-acb0-7c1e86b4edb2"],
Cell[22578, 631, 137, 1, 70, "ExampleText",ExpressionUUID->"14b88587-0bd4-4eda-958b-bd8c4a601bd6"],
Cell[CellGroupData[{
Cell[22740, 636, 364, 8, 70, "Input",ExpressionUUID->"5505ceca-ab2f-48f3-8ca5-17f90f8a8534"],
Cell[23107, 646, 110, 1, 70, "Output",ExpressionUUID->"cbe8166a-fdd4-486a-a417-b5a8b30e6707"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23278, 654, 1233, 31, 70, "ExampleSection",ExpressionUUID->"d4ceb6f8-43a2-414b-8426-b4d6d1b75e04",
 CellID->258228157],
Cell[24514, 687, 164, 2, 70, "ExampleText",ExpressionUUID->"aa8d4aa3-ebce-4401-a61b-49cf2d2e8a3f"],
Cell[CellGroupData[{
Cell[24703, 693, 879, 22, 70, "Input",ExpressionUUID->"265e9d9b-c35c-4b21-aeb9-eb44f3dfc24f"],
Cell[25585, 717, 320, 6, 70, "Output",ExpressionUUID->"720cd524-2ed6-4eeb-aa5a-6dc4cd85eb5b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25954, 729, 1244, 31, 70, "ExampleSection",ExpressionUUID->"da62478f-6f80-42cc-b743-038532db3348",
 CellID->2123667759],
Cell[27201, 762, 186, 3, 70, "ExampleText",ExpressionUUID->"6f4cf2e5-5a31-41f5-ba9c-99b89da4c411"],
Cell[CellGroupData[{
Cell[27412, 769, 628, 15, 70, "Input",ExpressionUUID->"186d687d-f217-4ac8-a621-e62435b2f1bd"],
Cell[28043, 786, 110, 1, 70, "Output",ExpressionUUID->"5a588f29-dbfb-4eba-b3be-d7799f2c7666"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28190, 792, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b61ba16f-c56a-44dd-84e1-a517b42d6575"],
Cell[28417, 799, 183, 3, 70, "ExampleText",ExpressionUUID->"195c0df2-cebe-4b23-9f41-64b1544f0882"],
Cell[CellGroupData[{
Cell[28625, 806, 503, 12, 70, "Input",ExpressionUUID->"3df313c6-fd2b-4af0-8e61-5d51f4d70813"],
Cell[29131, 820, 110, 1, 70, "Output",ExpressionUUID->"d9eac091-9693-4e3c-8224-75c60d2e4d75"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29302, 828, 1237, 31, 70, "ExampleSection",ExpressionUUID->"b0f04813-b537-478a-b31a-ac556580b911",
 CellID->1305812373],
Cell[30542, 861, 216, 3, 70, "ExampleText",ExpressionUUID->"0e9985f5-2378-46a0-a51c-03a07518261a"],
Cell[CellGroupData[{
Cell[30783, 868, 407, 9, 70, "Input",ExpressionUUID->"018e912b-63f8-48ea-9641-8f1fca60a055"],
Cell[31193, 879, 110, 1, 70, "Output",ExpressionUUID->"7d7eab9a-91dd-43d4-9ccf-6d273d200367"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[31342, 885, 3162, 82, 70, "SeeAlsoSection",ExpressionUUID->"91223582-ecc8-4a46-94c2-1c8ca2739a56"],
Cell[34507, 969, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"46495d42-93ae-4672-891a-fc45ebd0e980"],
Cell[35210, 990, 78, 0, 70, "FooterCell",ExpressionUUID->"2d784ed0-28aa-43d7-a1a2-23e50ebd3f9f"]
}
]
*)

(* End of internal cache information *)

