I want wolfram to start including packaged functions for bitcoin. Here is one that tries to take a large int as an argument and encodes the bitcoin base58 symbol chart, but I'd like someone to check this works
base58encode[v_] :=
StringJoin[
IntegerDigits[v, 58] /. ((*the rest encodes the symbol chart*)
Table[i -> ToString[i + 1], {i, 0, 8}]~Join~
Table[i ->
DeleteCases[CharacterRange["A", "Z"],
x_ /; x == "I" || x == "O"][[i - 8]], {i, 9, 32}]~Join~
Table[i ->
DeleteCases[CharacterRange["a", "z"], "l"][[i - 32]], {i, 33,
57}])]
Here is an example of the function executing
In[11]:= base58encode[2^210-8676823059+9832745091327059]
Out[11]= YMeFyt4YTd4bsX4GLEupDjyGbF2oLbW1LCGw
Sanity check: does it work? What else can we make so that raspberry pi + wolfram people can use bitcoin?
If this works properly, I'll write tools to go from the keys to addresses, etc.