(* 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[     45616,       1201]
NotebookOptionsPosition[     35798,       1021]
NotebookOutlinePosition[     38209,       1075]
CellTagsIndexPosition[     38131,       1070]
WindowTitle->Base58Encode
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->
           "cd50a1ee-d7e0-495f-9969-7894632a6e66"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "79ca3cc7-da3d-48be-b25e-c5196dd7fb2e"],
        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->
           "d724aeb1-a013-4369-baf9-cfbc636793e5"]
         }],ExpressionUUID->"7635ed91-6204-450a-8a0c-43a43f7ab02b"],
         StripOnInput->False],{
        StyleBox["\"BaseEncode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/BaseEncode"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"Base58Decode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58Decode"], 
         StyleBox[
          StyleBox["\"Base58Q\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58Q"], 
         StyleBox[
          StyleBox[
           "\"Base58CheckEncode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode"], 
         StyleBox[
          StyleBox["\"ByteListQ\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListQ"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e5bd157f-0ee9-4bec-b78b-489fb9d163b7"],
     "\[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->
           "d634733a-ba75-4fd3-b955-279894846219"]
         }],ExpressionUUID->"e2cf4891-e93a-4a17-8756-089f6f2afb6a"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "ab46b338-dfe7-4d90-afb9-eb2ff5fcde5b"],
     "\[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->
           "b202c7e5-c1dc-4faf-9679-9d0511041e27"]
         }],ExpressionUUID->"49dd703c-5d38-4d8b-a0b2-5c8c7fd0ed4d"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/Base58Encode\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/Base58Encode"], 
         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/Base58Encode.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/Base58Encode" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "2a27ec2f-f6a4-4e68-a349-9c29553717d7"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "1f72b1f2-b730-4bd0-8172-92f1c5cfead8"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"4584ae4d-6f3f-4e7b-8473-f4bd9245182e"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"a0a9436d-c848-4e4a-85d3-4192d41d5e2f"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "Base58Encode", "ObjectName",ExpressionUUID->
      "834eb73a-36c5-40e6-95cb-62fcf09d3704"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"a68a2a0b-214e-4624-849f-450dc324e9d5"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "08fe605c-618c-49a6-b461-9485df9f27ee"]
    }],ExpressionUUID->"4a29b9b4-34a0-4ad9-b41c-76b3e2e4e623"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"e1bd8fff-f357-425f-a171-\
863cf0d7b0c0"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["Base58Encode"]], 
         "paclet:WolframInstitute/Puzzles/ref/Base58Encode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["bytes", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "72219b02-0227-4314-ae77-9f7501f758c6"],
     "\[LineSeparator]",
     "gives the Base58 string for a list of bytes, with one leading ",
     Cell[BoxData["\"\<1\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "0becf2cb-1c09-4cd7-880d-c9a411b5c9b9"],
     " per leading zero byte."
    }],ExpressionUUID->"0d3310bf-99ca-40d7-a73c-f0bddaf6fa4d"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["Base58Encode"]], 
         "paclet:WolframInstitute/Puzzles/ref/Base58Encode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["byteArray", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "0fc2f895-8c79-453b-b64a-07956f06848c"],
     "\[LineSeparator]",
     "gives the Base58 string for a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["ByteArray"]], "paclet:ref/ByteArray"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "fd55b15f-736b-4009-8a6b-23a8b333a646"],
     "."
    }],ExpressionUUID->"48dd7b70-e5c2-46d2-b2aa-63e892aa400d"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["Base58Encode"]], 
         "paclet:WolframInstitute/Puzzles/ref/Base58Encode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["hexString", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "abbef6a4-387b-4570-b624-3a397b419fd0"],
     "\[LineSeparator]",
     "gives the Base58 string for an even-length hexadecimal string."
    }],ExpressionUUID->"fee60ba6-c6ca-49d2-882b-494e8a598d4a"]}
  }]], "Usage",ExpressionUUID->"221d9824-cb87-4078-9013-ba4ebd12d498"]
}, 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->"aeb816d5-8729-4f79-aa14-b18f43b8ac1f"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"5ac00125-04ca-49ba-b4d5-7d00c4dcda0f"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "a385b424-eda1-46b8-97f6-f657bfda3095"]],ExpressionUUID->"12f226ce-757b-\
4bfb-91b7-6609ae5bc1d0"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1593409886,ExpressionUUID->"24f8386e-401f-4594-9005-49ef15c152dc"],

Cell[TextData[{
 "The alphabet is ",
 Cell[BoxData["\<\"123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz\
\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e222da89-d829-42aa-b8f0-d7d171a21101"],
 ", the digits and letters that survive hand transcription: ",
 Cell[BoxData["0"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ea34058f-8776-465e-8139-309d538e89a0"],
 ", ",
 Cell[BoxData["O"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9b290b7a-66bd-43c4-8455-49ff10885bce"],
 ", ",
 Cell[BoxData["I"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4da1cbf8-ddef-4d6a-b087-4e160e6779d7"],
 " and ",
 Cell[BoxData["l"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "36e369ae-8942-4a7f-b3db-7944b8781081"],
 " are absent."
}], "Notes",ExpressionUUID->"1b87812a-7f95-42e6-b2f7-c6fb5cd81096"],

Cell["\<\
The significant bytes are read as one big-endian integer and rewritten in \
base 58.\
\>", "Notes",ExpressionUUID->"82f40a4c-6b5a-43f5-b2d7-595d7961d433"],

Cell[TextData[{
 "Leading zero bytes carry no value in a base conversion, so each one is \
spelled separately as the zero character ",
 Cell[BoxData["\<\"1\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ba352bb1-415a-4459-8097-e2a0febd9c44"],
 ". Two payloads differing only in a leading zero byte therefore encode \
differently."
}], "Notes",ExpressionUUID->"cc9dd11a-c0a5-44ca-a293-e741fbf4c8f6"],

Cell["The empty byte list gives the empty string.", "Notes",ExpressionUUID->"a128d003-ea13-465f-b0ab-c25e24b69153"],

Cell[TextData[{
 "This is the raw codec. It appends no checksum; ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58CheckEncode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b1d2680d-519a-466a-a8be-7991c47d4b32"],
 " is the checked envelope that Bitcoin addresses and private keys actually \
use."
}], "Notes",ExpressionUUID->"039e4dbd-1ba5-4c5a-b234-788b7f9a1378"],

Cell["\<\
A list holding an integer outside 0 through 255, or a string that is not \
even-length hexadecimal, matches no definition and the call is returned \
unevaluated.\
\>", "Notes",ExpressionUUID->"8e3e825b-81d2-4ad0-87fb-f6838ff94067"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"98003682-8c3c-4ecd-b122-935e83e8edda"],

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->"fd6e627a-d5d2-4f93-8978-0f0005512b8d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6a0c5436-312d-44e4-abae-5744e88904f7"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "8e2ee275-f88a-4504-8a35-0a28b8306f5b"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1318875912,ExpressionUUID->"cdd8ae24-2a62-4977-bfc2-c8f8e6862f56"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"13138cda-90d0-414c-8a84-87777d4306ac"],

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->
  "69b12b3d-ace2-46f7-a7e7-1357a8a6d18b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c1f6cac9-d100-4245-942c-33cbb4b1070f"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "387ede8e-b840-4e19-8ae6-7933d3a9549a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->21248650,ExpressionUUID->"06037b1d-7ea3-4e22-b848-a541e4e66dda"],

Cell[TextData[{
 "The Bitcoin Core test vector for the ASCII bytes of ",
 Cell[BoxData["\<\"simply a long string\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "fde7e125-561b-4660-89e2-bfe46d484f22"],
 ":"
}], "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"48edbcc8-5373-43ec-99a4-bec8587deacd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Encode", "[", 
  RowBox[{
  "HexStringToByteList", 
   "[", "\"\<73696d706c792061206c6f6e6720737472696e67\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"86eff8a2-5c21-476f-940a-c9c24bb86b88"],

Cell[BoxData["\<\"2cFupjhnEsSn59qHXstmK2ffpLv2\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"753b77e4-ac03-4512-9cb1-265ca676eda5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "66d8901d-4086-49da-84f2-8986bd0e45be"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"91883b09-604b-40d6-\
a702-fa2a997cd8aa"],

Cell["A single byte 0x61:", "ExampleText",ExpressionUUID->"60fd5c1b-eaed-428f-9e1a-7e5d40fb6513"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Encode", "[", 
  RowBox[{"{", "16^^61", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"aa2a7187-19b4-40e1-8ac0-1e5f2f11b3a7"],

Cell[BoxData["\<\"2g\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2c078d44-6343-44d8-8fe2-d18c1c1c8d44"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "75cea63a-47fc-4e09-9a9a-ae221fd73df2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"db7610d3-7a1a-4dc0-\
8088-8cdec77f3934"],

Cell[TextData[{
 "Ten zero bytes encode as ten ",
 Cell[BoxData["\<\"1\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1b9ac53c-d0bd-4fba-aae3-9f7dd31c0468"],
 " characters and nothing else:"
}], "ExampleText",ExpressionUUID->"ce0e3a0a-72c4-409d-b5ca-63a0616dc791"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Encode", "[", 
  RowBox[{"ConstantArray", "[", 
   RowBox[{"0", ",", " ", "10"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a285f817-ab5b-4920-977e-d6bde79231b7"],

Cell[BoxData["\<\"1111111111\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5ea8ebfd-8cb4-4f97-be93-61472653accd"]
}, 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->
  "ef7d709d-bbf1-4cc3-9930-f67071c44200"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"75ad24a0-4994-43cb-a6f0-29121ec8983f"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "7b87b767-f093-479c-a36b-9c38a18f78a3"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"03da3176-bce7-4863-a8e1-327e3169abf6"],

Cell["\<\
A hexadecimal string is accepted directly, which is how published test \
vectors are written:\
\>", "ExampleText",ExpressionUUID->"45cb17dc-85c2-4c69-acd0-b72ef395595a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Encode", "[", "\"\<516b6fcd0f\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3ab170a3-a9d8-47db-8f62-a41accbcc303"],

Cell[BoxData["\<\"ABnLTmg\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"002fbc75-d4dc-4baa-a7d4-68712fe60af4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f926aeb0-22f3-4664-b093-0fef8e58ce7b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"623a65b0-6113-432c-\
ad43-49380b25cf14"],

Cell[TextData[{
 "A ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "e315a848-2aca-4aa8-bab3-b73bdf04742c"],
 " is accepted too:"
}], "ExampleText",ExpressionUUID->"154252a8-05a8-469f-96d0-d96cdd863a3e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Encode", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"{", "16^^61", "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0b068f8e-d6fb-4faa-97cb-b8c48644bce1"],

Cell[BoxData["\<\"2g\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"839457ae-cbcb-47bf-923d-8ad0d3a56cd8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b70929ca-ea5c-4b9e-bc11-8f4bc14e5d3f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"47899771-4006-43aa-\
9ba7-d56d60a4dbe0"],

Cell["The empty byte list gives the empty string:", "ExampleText",ExpressionUUID->"904bbaaa-e553-444b-88b4-83467d17fd72"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Encode", "[", 
  RowBox[{"{", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"47965d74-dbd1-46d2-ad0f-f94595656f05"],

Cell[BoxData["\<\"\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a11d43eb-8460-4a36-aacd-a5f0deaedd27"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "91f9edf0-a72a-4691-b40c-ee9d796ab2d0"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"302acc77-cb14-4faa-\
a048-dd3e1ccdca0a"],

Cell["\<\
The 256-byte payload of every byte value in order, the longest Bitcoin Core \
vector:\
\>", "ExampleText",ExpressionUUID->"3c126cf2-c5c8-43e0-9f3d-44e6f67aeda7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringLength", "[", 
  RowBox[{"Base58Encode", "[", 
   RowBox[{"Range", "[", 
    RowBox[{"0", ",", " ", "255"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d9e80ac7-10c7-4a4c-bf5b-3ddb9c71582c"],

Cell[BoxData["348"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"49a901b4-19cb-4076-9f07-e6260535ffc1"]
}, 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->
  "917a50cc-61c9-4d71-9d31-ed033aceda21"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c170995c-518f-41f4-86dc-c8d63854fc31"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "c147ac7e-0526-4de1-ab08-b0966eff6213"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"068aaa4f-77c8-4076-8504-487841bb08df"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58Decode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58Decode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9e46b1f2-b385-4bcd-9cf3-688cbea2c917"],
 " is the exact inverse, leading zero bytes included:"
}], "ExampleText",ExpressionUUID->"336cc375-653a-450c-b315-85068d012bd8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Decode", "[", 
  RowBox[{"Base58Encode", "[", 
   RowBox[{"{", 
    RowBox[{"0", ",", " ", "0", ",", " ", "97"}], "}"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"dedb448d-e436-4937-a4dc-e58a330c056f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "97"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4af1ced5-493c-47ff-aba5-6a314cd14e4b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3196c146-3a75-4061-9b24-e48c763198dc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9129f37e-0c2f-4a29-\
86d1-8ccc9853cf73"],

Cell["\<\
A leading zero byte changes the encoding, which is why it cannot be folded \
into the arithmetic:\
\>", "ExampleText",ExpressionUUID->"0a4e8ae0-a646-4e02-bcba-00c1c4d733be"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Base58Encode", "[", 
    RowBox[{"{", "97", "}"}], "]"}], ",", " ", 
   RowBox[{"Base58Encode", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "97"}], "}"}], "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9b8c41eb-8928-4c5f-a906-aff3240c824b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"2g\"\>", ",", "\<\"12g\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b97f6852-dcca-4e8f-b9fc-0362e6964120"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8c2d93fc-943f-445e-aa5f-65177ad79e5b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b0d2e1d1-7820-4add-\
a552-e460b882ff5d"],

Cell[TextData[{
 "The kernel's ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BaseEncode"]], "paclet:ref/BaseEncode"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "59f81b6e-bc84-4e13-8d2a-55deeefb9b9b"],
 " gives the base64 spelling of the same bytes, over a different alphabet:"
}], "ExampleText",ExpressionUUID->"83f57a5d-9c90-4a88-9fe1-31d09ede4656"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BaseEncode", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"{", "16^^61", "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1ad957b6-2957-4079-9f93-a1777dd43774"],

Cell[BoxData["\<\"YQ==\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2d0c9b0d-92bc-47fd-a622-c3bf2c619849"]
}, 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->
  "0c6471c0-ba8c-46f6-9697-eb2d10b52dcf"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c8d39825-61fd-4db0-9123-fb4d1754126d"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "5a69467d-ca90-4ebe-ab94-78fb26162978"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"58dcb5b2-a995-416a-bee9-eab1e568febf"],

Cell[TextData[{
 "The result carries no checksum, so any string of alphabet characters \
decodes to something. Use ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58CheckEncode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cb454851-2350-45dd-8e95-a147e0710027"],
 " where a transcription error must be detectable:"
}], "ExampleText",ExpressionUUID->"8ff404f7-a288-4541-914a-2232ba19108f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckEncode", "[", 
  RowBox[{"0", ",", " ", 
   RowBox[{
   "HexStringToByteList", 
    "[", "\"\<62e907b15cbf27d5425399ebf6f0fb50ebb88f18\>\"", "]"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d1bf00dd-7aaf-4809-acb9-7a3859e7180b"],

Cell[BoxData["\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ac1bbc8c-7530-460a-8e81-5670a98238e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a4a64c33-7121-4906-9328-c91d762b8598"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ecf6063e-7920-4b18-\
8536-7c27eb8b55d1"],

Cell["256 is not a byte, so the call is returned unevaluated:", "ExampleText",ExpressionUUID->"c20879d7-62eb-41c0-96c0-931f3dde8014"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Encode", "[", 
  RowBox[{"{", "256", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fdfec0a7-4df3-4086-8585-fed2a27fe9f2"],

Cell[BoxData[
 RowBox[{"Base58Encode", "[", 
  RowBox[{"{", "256", "}"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"43e8d9ce-d057-46b8-bb68-1c1688f51019"]
}, Open  ]]
}, 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["Base58Decode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58Decode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "261b03dd-49b4-4b76-8e55-872718dafd9a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58Q"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58Q", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "935b42bd-0fa3-4b2d-801f-2a13b901d3d8"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58CheckEncode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ab18ae41-b59d-4c0d-a345-e8c6eb35b638"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "210d62cf-671d-4c1c-bdf2-ef004ba21686"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BaseEncode"]], "paclet:ref/BaseEncode"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "245197cc-0b16-4f6c-8f93-6548b2b63171"]
       }], "SeeAlso",ExpressionUUID->"a3f61518-6d9e-45fb-ab8e-7b2ebb5171a8"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"4ec11cf9-f8aa-4104-bdde-\
269a0f0695a8"],

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["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "ae060e11-cfe9-44ba-b63b-e0ca7a3b0d26"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"6da2427e-4a22-41f5-b908-\
32006028bff5"],

Cell[" ", "FooterCell",ExpressionUUID->"c1fe4495-25d1-4cd9-9de3-d84d8946b11a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"Base58Encode",
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, 29.673924}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[Base58Encode,paclet : \
WolframInstitute/Puzzles/ref/Base58Encode, WolframInstitute/Puzzles Package \
Symbol][bytes] gives the Base58 string for a list of bytes, with one leading \
1 per leading zero byte. PackageLink[Base58Encode,paclet : \
WolframInstitute/Puzzles/ref/Base58Encode, WolframInstitute/Puzzles Package \
Symbol][byteArray] gives the Base58 string for a ByteArray. \
PackageLink[Base58Encode,paclet : WolframInstitute/Puzzles/ref/Base58Encode, \
WolframInstitute/Puzzles Package Symbol][hexString] gives the Base58 string \
for an even-length hexadecimal string.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "Base58Encode", "titlemodifier" -> "", "metadescription" -> "",
     "windowtitle" -> "Base58Encode", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/Base58Encode", "WorkflowDockedCell" -> ""}, 
  "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"b0b949bb-c68e-408a-ab05-354ad1590918"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[17196, 457, 366, 9, 70, "ExampleText",ExpressionUUID->"48edbcc8-5373-43ec-99a4-bec8587deacd",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 37974, 1064}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[580, 21, 6242, 151, 70, "AnchorBarGrid",ExpressionUUID->"4584ae4d-6f3f-4e7b-8473-f4bd9245182e",
 CellID->1],
Cell[6825, 174, 107, 0, 70, "ContextNameCell",ExpressionUUID->"a0a9436d-c848-4e4a-85d3-4192d41d5e2f"],
Cell[CellGroupData[{
Cell[6957, 178, 555, 14, 70, "ObjectNameGrid",ExpressionUUID->"e1bd8fff-f357-425f-a171-863cf0d7b0c0"],
Cell[7515, 194, 2556, 66, 70, "Usage",ExpressionUUID->"221d9824-cb87-4078-9013-ba4ebd12d498"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10108, 265, 1444, 34, 70, "NotesSection",ExpressionUUID->"24f8386e-401f-4594-9005-49ef15c152dc",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1593409886],
Cell[11555, 301, 1054, 28, 70, "Notes",ExpressionUUID->"1b87812a-7f95-42e6-b2f7-c6fb5cd81096"],
Cell[12612, 331, 164, 3, 70, "Notes",ExpressionUUID->"82f40a4c-6b5a-43f5-b2d7-595d7961d433"],
Cell[12779, 336, 454, 9, 70, "Notes",ExpressionUUID->"cc9dd11a-c0a5-44ca-a293-e741fbf4c8f6"],
Cell[13236, 347, 115, 0, 70, "Notes",ExpressionUUID->"a128d003-ea13-465f-b0ab-c25e24b69153"],
Cell[13354, 349, 595, 15, 70, "Notes",ExpressionUUID->"039e4dbd-1ba5-4c5a-b234-788b7f9a1378"],
Cell[13952, 366, 241, 4, 70, "Notes",ExpressionUUID->"8e3e825b-81d2-4ad0-87fb-f6838ff94067"]
}, Closed]],
Cell[14208, 373, 80, 0, 70, "PageDelimiter",ExpressionUUID->"98003682-8c3c-4ecd-b122-935e83e8edda"],
Cell[CellGroupData[{
Cell[14313, 377, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"cdd8ae24-2a62-4977-bfc2-c8f8e6862f56",
 CellID->1318875912],
Cell[15718, 416, 216, 4, 70, "Input",ExpressionUUID->"13138cda-90d0-414c-8a84-87777d4306ac",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[15959, 424, 1234, 31, 70, "ExampleSection",ExpressionUUID->"06037b1d-7ea3-4e22-b848-a541e4e66dda",
 CellID->21248650],
Cell[17196, 457, 366, 9, 70, "ExampleText",ExpressionUUID->"48edbcc8-5373-43ec-99a4-bec8587deacd",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[17587, 470, 295, 7, 70, "Input",ExpressionUUID->"86eff8a2-5c21-476f-940a-c9c24bb86b88"],
Cell[17885, 479, 142, 1, 70, "Output",ExpressionUUID->"753b77e4-ac03-4512-9cb1-265ca676eda5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18064, 485, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"91883b09-604b-40d6-a702-fa2a997cd8aa"],
Cell[18291, 492, 97, 0, 70, "ExampleText",ExpressionUUID->"60fd5c1b-eaed-428f-9e1a-7e5d40fb6513"],
Cell[CellGroupData[{
Cell[18413, 496, 220, 4, 70, "Input",ExpressionUUID->"aa2a7187-19b4-40e1-8ac0-1e5f2f11b3a7"],
Cell[18636, 502, 116, 1, 70, "Output",ExpressionUUID->"2c078d44-6343-44d8-8fe2-d18c1c1c8d44"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18801, 509, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"db7610d3-7a1a-4dc0-8088-8cdec77f3934"],
Cell[19028, 516, 320, 7, 70, "ExampleText",ExpressionUUID->"ce0e3a0a-72c4-409d-b5ca-63a0616dc791"],
Cell[CellGroupData[{
Cell[19373, 527, 262, 5, 70, "Input",ExpressionUUID->"a285f817-ab5b-4920-977e-d6bde79231b7"],
Cell[19638, 534, 124, 1, 70, "Output",ExpressionUUID->"5ea8ebfd-8cb4-4f97-be93-61472653accd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19823, 542, 1227, 31, 70, "ExampleSection",ExpressionUUID->"03da3176-bce7-4863-a8e1-327e3169abf6",
 CellID->1293636265],
Cell[21053, 575, 179, 3, 70, "ExampleText",ExpressionUUID->"45cb17dc-85c2-4c69-acd0-b72ef395595a"],
Cell[CellGroupData[{
Cell[21257, 582, 209, 3, 70, "Input",ExpressionUUID->"3ab170a3-a9d8-47db-8f62-a41accbcc303"],
Cell[21469, 587, 121, 1, 70, "Output",ExpressionUUID->"002fbc75-d4dc-4baa-a7d4-68712fe60af4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21627, 593, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"623a65b0-6113-432c-ad43-49380b25cf14"],
Cell[21854, 600, 368, 11, 70, "ExampleText",ExpressionUUID->"154252a8-05a8-469f-96d0-d96cdd863a3e"],
Cell[CellGroupData[{
Cell[22247, 615, 257, 5, 70, "Input",ExpressionUUID->"0b068f8e-d6fb-4faa-97cb-b8c48644bce1"],
Cell[22507, 622, 116, 1, 70, "Output",ExpressionUUID->"839457ae-cbcb-47bf-923d-8ad0d3a56cd8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22672, 629, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"47899771-4006-43aa-9ba7-d56d60a4dbe0"],
Cell[22899, 636, 121, 0, 70, "ExampleText",ExpressionUUID->"904bbaaa-e553-444b-88b4-83467d17fd72"],
Cell[CellGroupData[{
Cell[23045, 640, 210, 4, 70, "Input",ExpressionUUID->"47965d74-dbd1-46d2-ad0f-f94595656f05"],
Cell[23258, 646, 114, 1, 70, "Output",ExpressionUUID->"a11d43eb-8460-4a36-aacd-a5f0deaedd27"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23421, 653, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"302acc77-cb14-4faa-a048-dd3e1ccdca0a"],
Cell[23648, 660, 171, 3, 70, "ExampleText",ExpressionUUID->"3c126cf2-c5c8-43e0-9f3d-44e6f67aeda7"],
Cell[CellGroupData[{
Cell[23844, 667, 296, 6, 70, "Input",ExpressionUUID->"d9e80ac7-10c7-4a4c-bf5b-3ddb9c71582c"],
Cell[24143, 675, 109, 1, 70, "Output",ExpressionUUID->"49a901b4-19cb-4076-9f07-e6260535ffc1"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24313, 683, 1244, 31, 70, "ExampleSection",ExpressionUUID->"068aaa4f-77c8-4076-8504-487841bb08df",
 CellID->2123667759],
Cell[25560, 716, 510, 13, 70, "ExampleText",ExpressionUUID->"336cc375-653a-450c-b315-85068d012bd8"],
Cell[CellGroupData[{
Cell[26095, 733, 304, 7, 70, "Input",ExpressionUUID->"dedb448d-e436-4937-a4dc-e58a330c056f"],
Cell[26402, 742, 163, 3, 70, "Output",ExpressionUUID->"4af1ced5-493c-47ff-aba5-6a314cd14e4b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26602, 750, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9129f37e-0c2f-4a29-86d1-8ccc9853cf73"],
Cell[26829, 757, 183, 3, 70, "ExampleText",ExpressionUUID->"0a4e8ae0-a646-4e02-bcba-00c1c4d733be"],
Cell[CellGroupData[{
Cell[27037, 764, 367, 9, 70, "Input",ExpressionUUID->"9b8c41eb-8928-4c5f-a906-aff3240c824b"],
Cell[27407, 775, 171, 3, 70, "Output",ExpressionUUID->"b97f6852-dcca-4e8f-b9fc-0362e6964120"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27627, 784, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b0d2e1d1-7820-4add-a552-e460b882ff5d"],
Cell[27854, 791, 463, 12, 70, "ExampleText",ExpressionUUID->"83f57a5d-9c90-4a88-9fe1-31d09ede4656"],
Cell[CellGroupData[{
Cell[28342, 807, 255, 5, 70, "Input",ExpressionUUID->"1ad957b6-2957-4079-9f93-a1777dd43774"],
Cell[28600, 814, 118, 1, 70, "Output",ExpressionUUID->"2d0c9b0d-92bc-47fd-a622-c3bf2c619849"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28779, 822, 1237, 31, 70, "ExampleSection",ExpressionUUID->"58dcb5b2-a995-416a-bee9-eab1e568febf",
 CellID->1305812373],
Cell[30019, 855, 619, 15, 70, "ExampleText",ExpressionUUID->"8ff404f7-a288-4541-914a-2232ba19108f"],
Cell[CellGroupData[{
Cell[30663, 874, 331, 8, 70, "Input",ExpressionUUID->"d1bf00dd-7aaf-4809-acb9-7a3859e7180b"],
Cell[30997, 884, 148, 1, 70, "Output",ExpressionUUID->"ac1bbc8c-7530-460a-8e81-5670a98238e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31182, 890, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ecf6063e-7920-4b18-8536-7c27eb8b55d1"],
Cell[31409, 897, 133, 0, 70, "ExampleText",ExpressionUUID->"c20879d7-62eb-41c0-96c0-931f3dde8014"],
Cell[CellGroupData[{
Cell[31567, 901, 217, 4, 70, "Input",ExpressionUUID->"fdfec0a7-4df3-4086-8585-fed2a27fe9f2"],
Cell[31787, 907, 170, 3, 70, "Output",ExpressionUUID->"43e8d9ce-d057-46b8-bb68-1c1688f51019"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[32008, 916, 3004, 80, 70, "SeeAlsoSection",ExpressionUUID->"4ec11cf9-f8aa-4104-bdde-269a0f0695a8"],
Cell[35015, 998, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"6da2427e-4a22-41f5-b908-32006028bff5"],
Cell[35716, 1019, 78, 0, 70, "FooterCell",ExpressionUUID->"c1fe4495-25d1-4cd9-9de3-d84d8946b11a"]
}
]
*)

(* End of internal cache information *)

