(* 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[     47097,       1254]
NotebookOptionsPosition[     37953,       1086]
NotebookOutlinePosition[     40046,       1135]
CellTagsIndexPosition[     39968,       1130]
WindowTitle->WIFDecode
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->
           "9b8c037c-451b-4769-9a49-7541e9578c9e"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "d8bcc9dd-f432-44d1-a32f-e66df6da6caa"],
        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->
           "af47dfd5-fa04-4374-a3d4-ccf857f2a87a"]
         }],ExpressionUUID->"6522f976-3b40-404a-92d2-e28ca28456aa"],
         StripOnInput->False],{
        StyleBox["\"Failure\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/Failure"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox["\"WIFEncode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/WIFEncode"], 
         StyleBox[
          StyleBox["\"WIFQ\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:WolframInstitute/Puzzles/ref/WIFQ"],
          StyleBox[
          StyleBox[
           "\"Base58CheckDecode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode"], 
         StyleBox[
          StyleBox[
           "\"ByteListToHexString\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "9f2294b3-4358-4f5c-95fa-289ca82ebe82"],
     "\[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->
           "2b27d4ea-5db9-465e-93bd-b64a7c5f8de6"]
         }],ExpressionUUID->"a68d88fe-8388-4fe2-bdf8-86de158d338b"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "d370991d-10d1-4620-a409-d6feec95a6ec"],
     "\[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->
           "aabb209b-1b72-475e-8321-2c7f9746e7a8"]
         }],ExpressionUUID->"aa105bf7-3142-4405-8f98-315f2ccac6ff"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/WIFDecode\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/WIFDecode"], 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/WIFDecode.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/WIFDecode" <> ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "138c4957-053e-44bb-bbd4-9889278e5482"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "2bbd10d6-cb44-4294-9c3c-7160d3d3fb90"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"0ad38db4-5c26-4381-9f01-c76405e28e2f"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"20d95d54-813a-4d2e-bcc7-758d6eb3c7eb"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "WIFDecode", "ObjectName",ExpressionUUID->
      "20191c80-8247-42ca-af48-1c193ec0adb0"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"2021d0d8-d23a-42da-9ce0-1d19ca69dbad"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "e0f5b08c-4861-4387-8991-d6a806a0b370"]
    }],ExpressionUUID->"92bf5b91-3d91-4b8b-aef3-ccc23a8d5ee6"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"44909cc1-246c-4b33-a4a0-\
18271ef9d8bb"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["WIFDecode"]], 
         "paclet:WolframInstitute/Puzzles/ref/WIFDecode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["wif", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "4d4926e1-76f4-494b-8e3d-e1c03f928aca"],
     "\[LineSeparator]",
     "gives an ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Association"]], "paclet:ref/Association"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "03e4a679-48aa-4b5f-93de-2c8b6f2179ef"],
     " with keys ",
     Cell[BoxData["\"\<PrivateKey\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "26dc4bb9-e3b4-43d7-9bcf-5e296343a851"],
     ", ",
     Cell[BoxData["\"\<PrivateKeyHexString\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d195a3af-7a85-40c7-b14f-02bde6d6ca44"],
     ", ",
     Cell[BoxData["\"\<Compressed\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "99f9d9b6-2420-4a08-9d5a-0abdd76e3d5b"],
     ", ",
     Cell[BoxData["\"\<Network\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "0e6f51c6-704a-46f1-a06f-55b5251f8f63"],
     " and ",
     Cell[BoxData["\"\<VersionByte\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c20ab8ba-1c5b-4dcd-b4d7-3c12be3b3b84"],
     " for a Wallet Import Format string, and a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Failure"]], "paclet:ref/Failure"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "8884b4ae-987c-45e4-b985-ee73f8063ef1"],
     " otherwise."
    }],ExpressionUUID->"f4032eda-69b3-4eb7-84f4-e30cb8801957"]}
  }]], "Usage",ExpressionUUID->"756a2fd0-b800-4833-9a25-2c5093741f3b"]
}, 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->"2e4ba3e3-c8c7-484c-9375-791f2be349f6"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"5f6c7b5f-3cb7-4d0c-86ca-a06cb167525f"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "4ee236ba-bf7d-4018-b23e-3f94ac3d4eb2"]],ExpressionUUID->"2c3d980c-b71f-\
471c-93f5-11353945285a"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1864200717,ExpressionUUID->"6e5ca8a1-3180-44a8-9527-41d549896e42"],

Cell[TextData[{
 Cell[BoxData["\<\"PrivateKey\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "26834c03-4aa3-496b-8b8b-507243829a17"],
 " is the 32-byte scalar as a byte list and ",
 Cell[BoxData["\<\"PrivateKeyHexString\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "615fb29a-46a6-4ec0-8146-cf0c8548684d"],
 " is the same bytes in lower-case hexadecimal, which is how published \
vectors print them."
}], "Notes",ExpressionUUID->"5e310c67-4ff5-4ffb-98a3-e7a4828dad37"],

Cell[TextData[{
 Cell[BoxData["\<\"Compressed\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e3e8cc9c-ce96-4d9a-ac24-359590d097ec"],
 " is ",
 Cell[BoxData["True"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e1ad39cc-b439-4045-8994-71a9f1242d00"],
 " when the payload carries the trailing ",
 Cell[BoxData[
  RowBox[{"0", "x01"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "66d28e28-8c9e-4af8-937f-84c765dd6d9c"],
 " marker, and ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dd97e015-1dad-453f-9589-adb8b214fd72"],
 " when it stops after 32 bytes."
}], "Notes",ExpressionUUID->"9fc14ece-4143-4f6d-8b18-4bb80dc1e3ba"],

Cell[TextData[{
 Cell[BoxData["\<\"Network\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f7dced06-a7c5-4155-8157-7604b5e0cbfb"],
 " is ",
 Cell[BoxData["\<\"Mainnet\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "729b8871-5f0d-4fae-9737-e331f103150e"],
 " for version byte ",
 Cell[BoxData[
  RowBox[{"0", "x80"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "47de8a12-6b5b-40b8-a274-d97117d51dca"],
 " and ",
 Cell[BoxData["\<\"Testnet\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d51f3025-5f9f-4904-923c-3fef6043a177"],
 " for ",
 Cell[BoxData[
  RowBox[{"0", "xef"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "03f97909-9057-4531-a5b7-3035c1b2e7cd"],
 "; testnet, signet and regtest share ",
 Cell[BoxData[
  RowBox[{"0", "xef"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "036e0046-ca37-403c-bf09-9a979f266886"],
 "."
}], "Notes",ExpressionUUID->"e35d7aa3-46e4-42c5-8798-db2c44dc5be0"],

Cell[TextData[{
 "A ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "4a6a4eac-599f-4318-a96a-95f060158ffe"],
 " results when the Base58Check checksum fails, when the version byte is \
neither ",
 Cell[BoxData[
  RowBox[{"0", "x80"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "56b121b1-adc7-48b8-b633-d7b8dd2119e2"],
 " nor ",
 Cell[BoxData[
  RowBox[{"0", "xef"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "15ddb803-b1f2-40b5-b65a-4dc20df56d78"],
 ", or when the payload after the version byte is neither 32 bytes nor 33 \
bytes ending in ",
 Cell[BoxData[
  RowBox[{"0", "x01"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3395405b-3891-473a-9739-ef71079b300b"],
 "."
}], "Notes",ExpressionUUID->"e9db76d5-0725-4b0a-aeba-928a53ffaff6"],

Cell["\<\
A string holding a character outside the Base58 alphabet matches no \
definition and the call is returned unevaluated.\
\>", "Notes",ExpressionUUID->"03af774d-aabd-4c9b-bead-95dc7f4adb11"],

Cell["\<\
Format only. The scalar is not checked against the secp256k1 group order.\
\>", "Notes",ExpressionUUID->"10c55bf1-b56e-4e3e-abfe-7aa6153260ac"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["WIFQ"]], "paclet:WolframInstitute/Puzzles/ref/WIFQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0c9d0cbc-a617-448e-aa21-1e55068018f7"],
 " gives the same verdict as a boolean."
}], "Notes",ExpressionUUID->"0e67171a-1249-4cc6-bfb6-06384291e012"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"47172efa-b5c5-4265-827e-b2553c4e9db0"],

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->"6c816f18-10e0-4aa5-8d29-ec37153c2912"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"749b9f08-c555-452b-aa29-19dbbfaca261"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "ee5ec72e-65ff-43ac-9777-7ef7bfb5918f"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1982524536,ExpressionUUID->"a705f716-2415-4275-ab0f-4ac720866a7a"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"7cc24273-c0ee-4d9b-8772-c870154668f0"],

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->
  "244bb3dd-94cf-4e42-b624-a0b35ffe6f96"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d61356ff-7c14-4f07-abfc-957c019bf26a"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "faadcb1e-a7e7-4aec-ad35-48ef6ca345ed"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2081093347,ExpressionUUID->"de338939-9acb-42ee-8109-afe216bf7560"],

Cell["\<\
The Bitcoin Core key_io vector for an uncompressed mainnet key:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"d43dfebe-1e95-443b-9fcb-86f6755b6937"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "WIFDecode", 
   "[", "\"\<5JuW2AMDYu4xVwRG9DZW18VbzQrGcd5RCgb99sS6ehJsNQXu5b9\>\"", "]"}], 
  "[", "\"\<PrivateKeyHexString\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8e6d0850-048e-4e05-adfb-096770c0329f"],

Cell[BoxData["\<\"\
8f8943bf956de595665c38ffff23827e17c10cdc1c27a028caae6c9810626198\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4772e9f4-7fd5-42c9-a288-f4c94557f9db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3927cfaf-e40e-4120-85e9-acca49e72008"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"0905c6c7-a0c9-4996-\
aef8-34683f15d590"],

Cell["\<\
The whole record for a compressed mainnet key, with the 32-byte list dropped \
for brevity:\
\>", "ExampleText",ExpressionUUID->"c9096b86-41fc-4ce3-81ed-254ad834f120"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"KeyDrop", "[", 
   RowBox[{
    RowBox[{
    "WIFDecode", 
     "[", "\"\<L5nJeqKmpHp4P7F8ZYyjwc5a7P4d8EabuGAzfGJk7yC1BJyzNaEd\>\"", 
     "]"}], ",", " ", "\"\<PrivateKey\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d78f0621-da9a-4cb7-a57e-fab9b32e900c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"PrivateKeyHexString\"\>", 
    "\[Rule]", \
"\<\"ff778740f88ddcf102aeb81daee289c044c4a4571c4b6f287400f4b8e0b843f8\"\>"}], 
   ",", 
   RowBox[{"\<\"Compressed\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Mainnet\"\>"}], ",", 
   RowBox[{"\<\"VersionByte\"\>", "\[Rule]", "128"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"22a0368e-581e-4cbb-b056-a9c8fcd83600"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "15db7b46-41fd-4471-a672-cc6e21ba8f50"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"5b774078-c8f5-439d-\
a721-38059113ab53"],

Cell[TextData[{
 "The compression marker is what distinguishes the ",
 Cell[BoxData["5"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2807487f-8903-49e5-96c6-fcf5b59e9925"],
 " form from the ",
 Cell[BoxData["K"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "26ae6496-450b-48c4-a962-a69a1489cf72"],
 " and ",
 Cell[BoxData["L"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8d2acb98-eadf-4e36-97d0-6ba6da5de049"],
 " forms:"
}], "ExampleText",ExpressionUUID->"ef0b88a6-42cf-44ea-929a-1738cc7fa0b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "WIFDecode", 
   "[", "\"\<5JuW2AMDYu4xVwRG9DZW18VbzQrGcd5RCgb99sS6ehJsNQXu5b9\>\"", "]"}], 
  "[", "\"\<Compressed\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"64d44470-bffe-4e0a-b034-0f6b07edd90b"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1cacd52f-c8fc-47c8-a096-5153709187ac"]
}, 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->
  "097a2fc3-b4d3-4652-bd1d-f814b7fe90b7"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"0869b850-274c-47b3-a8b2-6ee8dff8103e"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "8eaddcee-68d7-40d1-a945-be579c0eacfd"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"8731d582-a53c-4a9f-9ad9-45a5ec35a359"],

Cell[TextData[{
 "A testnet key decodes under version byte ",
 Cell[BoxData[
  RowBox[{"0", "xef"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ec7ec9f5-93a1-4535-aa03-6f527598d6f9"],
 ":"
}], "ExampleText",ExpressionUUID->"4705f7af-0203-4f70-9458-7bf82f5c6bb1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "WIFDecode", 
   "[", "\"\<92ZdE5HoLafywnTBbzPxbvRmp75pSfzvdU3XaZGh1cToipgdHVh\>\"", "]"}], 
  "[", "\"\<Network\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"18c1f38b-e102-469c-88c0-3d54a701696e"],

Cell[BoxData["\<\"Testnet\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e1353a7c-fc99-43b0-90da-0a586b6163d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "84f122e4-f976-49a2-a620-aaad6f8bc8a1"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"848223a9-de26-4054-\
a426-71539bd488d7"],

Cell["\<\
Bitcoin Core's signet and regtest vectors share that version byte, so they \
read as testnet too:\
\>", "ExampleText",ExpressionUUID->"793c1bc0-b6c9-4953-95dc-81da691fe296"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "WIFDecode", 
   "[", "\"\<cPisAUdLvqqAr6MYtXnrWvgvyUAwuNyuTvZkDGw6miPhZdaiSDNH\>\"", "]"}],
   "[", "\"\<VersionByte\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f0ac07ce-e974-4f1e-837b-c6099bc8d2ef"],

Cell[BoxData["239"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"be3e138b-f03c-473d-948c-253c30b6f28c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2239284f-7f4d-4ab9-9cee-6dc2eef27b1d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"89086a9a-0c9d-4d79-\
9c2c-811d54998994"],

Cell["\<\
The key itself is available as a byte list for a downstream derivation:\
\>", "ExampleText",ExpressionUUID->"9bce91dd-80e5-4468-8d69-a1e0a0a7c4c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
    "WIFDecode", 
     "[", "\"\<L5nJeqKmpHp4P7F8ZYyjwc5a7P4d8EabuGAzfGJk7yC1BJyzNaEd\>\"", 
     "]"}], "[", "\"\<PrivateKey\>\"", "]"}], ",", " ", "4"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5e0b91e7-c516-42fd-be6f-542c13f7e16a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"255", ",", "119", ",", "135", ",", "64"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e540f17c-ff23-4d25-ba7b-95bd996dee78"]
}, 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->
  "70f12de3-819b-4e2b-a7b4-3caea5988345"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7a85729d-9761-4167-8e11-f5bafd85b30b"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "d35e4f4b-4fae-4183-806d-3b0f943136fb"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"6f460a93-9c0d-4f79-8d4e-3d933cc005bb"],

Cell["Decoding inverts encoding, flags included:", "ExampleText",ExpressionUUID->"b039968e-9d5e-4857-a9f3-66de00a9d2f3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"decoded", " ", "=", " ", 
     RowBox[{
     "WIFDecode", 
      "[", "\"\<cV83kKisF3RQSvXbUCm9ox3kaz5JjEUBWcx8tNydfGJcyeUxuH47\>\"", 
      "]"}]}], "}"}], ",", " ", 
   RowBox[{"WIFEncode", "[", 
    RowBox[{
     RowBox[{"decoded", "[", "\"\<PrivateKey\>\"", "]"}], ",", " ", 
     RowBox[{"\"\<Compressed\>\"", " ", "->", " ", 
      RowBox[{"decoded", "[", "\"\<Compressed\>\"", "]"}]}], ",", " ", 
     RowBox[{"\"\<Network\>\"", " ", "->", " ", 
      RowBox[{"decoded", "[", "\"\<Network\>\"", "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a82182d8-5a8b-4c7e-bf66-2d69b98fa223"],

Cell[BoxData["\<\"cV83kKisF3RQSvXbUCm9ox3kaz5JjEUBWcx8tNydfGJcyeUxuH47\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d31c45a2-ee59-41fd-8807-3a986626edef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c8f95fd6-c8e7-487f-8b0d-4e850b7f876e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"97831b1f-af47-4fa8-\
9636-abdfec2973d1"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58CheckDecode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8afa7485-5eb1-4787-a7e4-5d2ad4487a18"],
 " sees the same string one layer down, as a payload with its version byte in \
front:"
}], "ExampleText",ExpressionUUID->"194c5bd1-4f9b-48ad-ae93-6cfa31504cb6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{
  "Base58CheckDecode", 
   "[", "\"\<5JuW2AMDYu4xVwRG9DZW18VbzQrGcd5RCgb99sS6ehJsNQXu5b9\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9130d404-4291-4b2c-9e0d-c5edd96e9cbf"],

Cell[BoxData["\<\"\
808f8943bf956de595665c38ffff23827e17c10cdc1c27a028caae6c9810626198\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"30b21f33-4283-4d47-8d48-3d7917dc1ad8"]
}, 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->
  "6e731616-7693-4aef-a7a8-80fd3d880563"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"46c61860-ca13-47f8-97d5-728658bddbf4"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "be5d0976-5c0e-4b49-ae1b-30a7fd5a1bb8"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"79e3c861-85c3-4aaf-b003-eb8012703493"],

Cell[TextData[{
 "A Bitcoin address has a valid Base58Check checksum and the wrong version \
byte, so it gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "7ea2d85d-3922-4b4c-b155-158b1581ef32"],
 ":"
}], "ExampleText",ExpressionUUID->"f4ef0dfd-f1f0-4d1a-a144-4fc451ad0fac"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "WIFDecode", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"15986800-ebba-4c27-9b22-624e773b8f7e"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cc4a85ed-e596-4c1d-af2e-0ecaea6b65d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8e19e356-b681-49dd-8a41-01c214dc8052"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e2c439ab-7975-41c5-\
88ae-633de986ef50"],

Cell[TextData[{
 "A single-character corruption breaks the checksum, which is also a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "a12ebf2d-1fff-4020-9af8-f1cb5155cd4c"],
 ":"
}], "ExampleText",ExpressionUUID->"e74da4ab-cc85-44b1-b682-01e2ba5a26e7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "WIFDecode", 
   "[", "\"\<5JuW2AMDYu4xVwRG9DZW18VbzQrGcd5RCgb99sS6ehJsNQXu5b8\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"79997765-04ca-4a7c-8f81-9315f26ab6f7"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"84dc5ce3-761a-4f11-a8c9-be08bb0240ed"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8daac440-2122-416b-a839-eaf81131a2c3"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9d4e10cf-1fe7-44cf-\
a834-577eb6b37b72"],

Cell["\<\
A string outside the Base58 alphabet has no reading at all, so the call is \
returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"a4f8299d-506d-4dae-a01a-b1a75e918bb9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFDecode", "[", "\"\<0OIl\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5d8debc9-c599-4718-84f8-06d95ad367fd"],

Cell[BoxData[
 RowBox[{"WIFDecode", "[", "\<\"0OIl\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6ca2a44e-3614-41f5-9985-a7b9c93fbe86"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["WIFEncode"]], 
           "paclet:WolframInstitute/Puzzles/ref/WIFEncode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "6ebc181a-0e04-4142-b595-98b22f833360"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["WIFQ"]], "paclet:WolframInstitute/Puzzles/ref/WIFQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d99b26e4-4350-4a74-a5d8-a11c32983dd6"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58CheckDecode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8daacb47-4a79-425b-975a-7fb18f1b9643"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListToHexString"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7be1d036-443a-4366-8c5e-defd5cf6a5b1"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Failure"]], "paclet:ref/Failure"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8ce7cba7-8c49-48a6-a5cf-bee51c88046a"]
       }], "SeeAlso",ExpressionUUID->"7b404b93-6203-4206-ba33-e42fe7d2f336"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"bbd85e2e-b4f6-4a6e-b6e9-\
e70adf38f82e"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, "RelatedGuide.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "5ddab290-efb4-4a75-9a35-abad568f1e57"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"b2be26c5-3744-4920-b3dc-\
db984cd91777"],

Cell[" ", "FooterCell",ExpressionUUID->"626f729b-7e19-4e85-8c7c-98e7f246f91e"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"WIFDecode",
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, 12, 1.600336}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[WIFDecode,paclet : WolframInstitute/Puzzles/ref/WIFDecode, \
WolframInstitute/Puzzles Package Symbol][wif] gives an Association with keys \
PrivateKey, PrivateKeyHexString, Compressed, Network and VersionByte for a \
Wallet Import Format string, and a Failure otherwise.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "WIFDecode", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "WIFDecode", "type" -> "Symbol",
     "uri" -> "WolframInstitute/Puzzles/ref/WIFDecode", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"2a83835a-7514-425d-abf2-914b822b2aee"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[18864, 509, 181, 4, 70, "ExampleText",ExpressionUUID->"d43dfebe-1e95-443b-9fcb-86f6755b6937",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 39811, 1124}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[577, 21, 6207, 149, 70, "AnchorBarGrid",ExpressionUUID->"0ad38db4-5c26-4381-9f01-c76405e28e2f",
 CellID->1],
Cell[6787, 172, 107, 0, 70, "ContextNameCell",ExpressionUUID->"20d95d54-813a-4d2e-bcc7-758d6eb3c7eb"],
Cell[CellGroupData[{
Cell[6919, 176, 552, 14, 70, "ObjectNameGrid",ExpressionUUID->"44909cc1-246c-4b33-a4a0-18271ef9d8bb"],
Cell[7474, 192, 2348, 61, 70, "Usage",ExpressionUUID->"756a2fd0-b800-4833-9a25-2c5093741f3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9859, 258, 1444, 34, 70, "NotesSection",ExpressionUUID->"6e5ca8a1-3180-44a8-9527-41d549896e42",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1864200717],
Cell[11306, 294, 579, 12, 70, "Notes",ExpressionUUID->"5e310c67-4ff5-4ffb-98a3-e7a4828dad37"],
Cell[11888, 308, 856, 22, 70, "Notes",ExpressionUUID->"9fc14ece-4143-4f6d-8b18-4bb80dc1e3ba"],
Cell[12747, 332, 1219, 34, 70, "Notes",ExpressionUUID->"e35d7aa3-46e4-42c5-8798-db2c44dc5be0"],
Cell[13969, 368, 1061, 31, 70, "Notes",ExpressionUUID->"e9db76d5-0725-4b0a-aeba-928a53ffaff6"],
Cell[15033, 401, 198, 3, 70, "Notes",ExpressionUUID->"03af774d-aabd-4c9b-bead-95dc7f4adb11"],
Cell[15234, 406, 153, 2, 70, "Notes",ExpressionUUID->"10c55bf1-b56e-4e3e-abfe-7aa6153260ac"],
Cell[15390, 410, 469, 12, 70, "Notes",ExpressionUUID->"0e67171a-1249-4cc6-bfb6-06384291e012"]
}, Closed]],
Cell[15874, 425, 80, 0, 70, "PageDelimiter",ExpressionUUID->"47172efa-b5c5-4265-827e-b2553c4e9db0"],
Cell[CellGroupData[{
Cell[15979, 429, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"a705f716-2415-4275-ab0f-4ac720866a7a",
 CellID->1982524536],
Cell[17384, 468, 216, 4, 70, "Input",ExpressionUUID->"7cc24273-c0ee-4d9b-8772-c870154668f0",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[17625, 476, 1236, 31, 70, "ExampleSection",ExpressionUUID->"de338939-9acb-42ee-8109-afe216bf7560",
 CellID->2081093347],
Cell[18864, 509, 181, 4, 70, "ExampleText",ExpressionUUID->"d43dfebe-1e95-443b-9fcb-86f6755b6937",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[19070, 517, 311, 7, 70, "Input",ExpressionUUID->"8e6d0850-048e-4e05-adfb-096770c0329f"],
Cell[19384, 526, 182, 3, 70, "Output",ExpressionUUID->"4772e9f4-7fd5-42c9-a288-f4c94557f9db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19603, 534, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"0905c6c7-a0c9-4996-aef8-34683f15d590"],
Cell[19830, 541, 177, 3, 70, "ExampleText",ExpressionUUID->"c9096b86-41fc-4ce3-81ed-254ad834f120"],
Cell[CellGroupData[{
Cell[20032, 548, 380, 9, 70, "Input",ExpressionUUID->"d78f0621-da9a-4cb7-a57e-fab9b32e900c"],
Cell[20415, 559, 468, 10, 70, "Output",ExpressionUUID->"22a0368e-581e-4cbb-b056-a9c8fcd83600"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20932, 575, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"5b774078-c8f5-439d-a721-38059113ab53"],
Cell[21159, 582, 652, 17, 70, "ExampleText",ExpressionUUID->"ef0b88a6-42cf-44ea-929a-1738cc7fa0b1"],
Cell[CellGroupData[{
Cell[21836, 603, 302, 7, 70, "Input",ExpressionUUID->"64d44470-bffe-4e0a-b034-0f6b07edd90b"],
Cell[22141, 612, 111, 1, 70, "Output",ExpressionUUID->"1cacd52f-c8fc-47c8-a096-5153709187ac"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22313, 620, 1227, 31, 70, "ExampleSection",ExpressionUUID->"8731d582-a53c-4a9f-9ad9-45a5ec35a359",
 CellID->1293636265],
Cell[23543, 653, 316, 8, 70, "ExampleText",ExpressionUUID->"4705f7af-0203-4f70-9458-7bf82f5c6bb1"],
Cell[CellGroupData[{
Cell[23884, 665, 299, 7, 70, "Input",ExpressionUUID->"18c1f38b-e102-469c-88c0-3d54a701696e"],
Cell[24186, 674, 121, 1, 70, "Output",ExpressionUUID->"e1353a7c-fc99-43b0-90da-0a586b6163d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24344, 680, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"848223a9-de26-4054-a426-71539bd488d7"],
Cell[24571, 687, 183, 3, 70, "ExampleText",ExpressionUUID->"793c1bc0-b6c9-4953-95dc-81da691fe296"],
Cell[CellGroupData[{
Cell[24779, 694, 304, 7, 70, "Input",ExpressionUUID->"f0ac07ce-e974-4f1e-837b-c6099bc8d2ef"],
Cell[25086, 703, 109, 1, 70, "Output",ExpressionUUID->"be3e138b-f03c-473d-948c-253c30b6f28c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25244, 710, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"89086a9a-0c9d-4d79-9c2c-811d54998994"],
Cell[25471, 717, 157, 2, 70, "ExampleText",ExpressionUUID->"9bce91dd-80e5-4468-8d69-a1e0a0a7c4c6"],
Cell[CellGroupData[{
Cell[25653, 723, 374, 10, 70, "Input",ExpressionUUID->"5e0b91e7-c516-42fd-be6f-542c13f7e16a"],
Cell[26030, 735, 179, 3, 70, "Output",ExpressionUUID->"e540f17c-ff23-4d25-ba7b-95bd996dee78"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26270, 745, 1244, 31, 70, "ExampleSection",ExpressionUUID->"6f460a93-9c0d-4f79-8d4e-3d933cc005bb",
 CellID->2123667759],
Cell[27517, 778, 120, 0, 70, "ExampleText",ExpressionUUID->"b039968e-9d5e-4857-a9f3-66de00a9d2f3"],
Cell[CellGroupData[{
Cell[27662, 782, 746, 18, 70, "Input",ExpressionUUID->"a82182d8-5a8b-4c7e-bf66-2d69b98fa223"],
Cell[28411, 802, 168, 2, 70, "Output",ExpressionUUID->"d31c45a2-ee59-41fd-8807-3a986626edef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28616, 809, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"97831b1f-af47-4fa8-9636-abdfec2973d1"],
Cell[28843, 816, 553, 14, 70, "ExampleText",ExpressionUUID->"194c5bd1-4f9b-48ad-ae93-6cfa31504cb6"],
Cell[CellGroupData[{
Cell[29421, 834, 311, 7, 70, "Input",ExpressionUUID->"9130d404-4291-4b2c-9e0d-c5edd96e9cbf"],
Cell[29735, 843, 184, 3, 70, "Output",ExpressionUUID->"30b21f33-4283-4d47-8d48-3d7917dc1ad8"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29980, 853, 1237, 31, 70, "ExampleSection",ExpressionUUID->"79e3c861-85c3-4aaf-b003-eb8012703493",
 CellID->1305812373],
Cell[31220, 886, 441, 12, 70, "ExampleText",ExpressionUUID->"f4ef0dfd-f1f0-4d1a-a144-4fc451ad0fac"],
Cell[CellGroupData[{
Cell[31686, 902, 271, 6, 70, "Input",ExpressionUUID->"15986800-ebba-4c27-9b22-624e773b8f7e"],
Cell[31960, 910, 110, 1, 70, "Output",ExpressionUUID->"cc4a85ed-e596-4c1d-af2e-0ecaea6b65d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32107, 916, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e2c439ab-7975-41c5-88ae-633de986ef50"],
Cell[32334, 923, 413, 11, 70, "ExampleText",ExpressionUUID->"e74da4ab-cc85-44b1-b682-01e2ba5a26e7"],
Cell[CellGroupData[{
Cell[32772, 938, 292, 7, 70, "Input",ExpressionUUID->"79997765-04ca-4a7c-8f81-9315f26ab6f7"],
Cell[33067, 947, 110, 1, 70, "Output",ExpressionUUID->"84dc5ce3-761a-4f11-a8c9-be08bb0240ed"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33226, 954, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9d4e10cf-1fe7-44cf-a834-577eb6b37b72"],
Cell[33453, 961, 184, 3, 70, "ExampleText",ExpressionUUID->"a4f8299d-506d-4dae-a01a-b1a75e918bb9"],
Cell[CellGroupData[{
Cell[33662, 968, 200, 3, 70, "Input",ExpressionUUID->"5d8debc9-c599-4718-84f8-06d95ad367fd"],
Cell[33865, 973, 153, 2, 70, "Output",ExpressionUUID->"6ca2a44e-3614-41f5-9985-a7b9c93fbe86"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[34069, 981, 3050, 80, 70, "SeeAlsoSection",ExpressionUUID->"bbd85e2e-b4f6-4a6e-b6e9-e70adf38f82e"],
Cell[37122, 1063, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"b2be26c5-3744-4920-b3dc-db984cd91777"],
Cell[37871, 1084, 78, 0, 70, "FooterCell",ExpressionUUID->"626f729b-7e19-4e85-8c7c-98e7f246f91e"]
}
]
*)

(* End of internal cache information *)

