Код:
base58encode [V_]: =
StringJoin [
IntegerDigits [V, 58] /. ((* Остаток кодирует символ диаграммы *)
Таблица [я -> ToString [+ 1], {I, 0, 8}] ~ ~ Регистрация
Таблица [я ->
DeleteCases [ДиапазонСимволов ["", "Z"],
Икс_ /; х == "я" || х == "О"] [[Я - 8]], {я, 9, 32}] ~ ~ Регистрация
Таблица [я ->
DeleteCases [ДиапазонСимволов ["", "Z"], "L"] [[Я - 32]], {я, 33,
57}])]
StringJoin [
IntegerDigits [V, 58] /. ((* Остаток кодирует символ диаграммы *)
Таблица [я -> ToString [+ 1], {I, 0, 8}] ~ ~ Регистрация
Таблица [я ->
DeleteCases [ДиапазонСимволов ["", "Z"],
Икс_ /; х == "я" || х == "О"] [[Я - 8]], {я, 9, 32}] ~ ~ Регистрация
Таблица [я ->
DeleteCases [ДиапазонСимволов ["", "Z"], "L"] [[Я - 32]], {я, 33,
57}])]
Вот пример функции выполнения
Код:
В работе [11]: = base58encode [2 ^ 210-8676823059 + 9832745091327059]
Из [11] = YMeFyt4YTd4bsX4GLEupDjyGbF2oLbW1LCGw
Из [11] = YMeFyt4YTd4bsX4GLEupDjyGbF2oLbW1LCGw
проверка Sanity: это работает? Что еще мы можем сделать так, что Raspberry Pi + вольфрамовые люди могут использовать Bitcoin?
Если это работает должным образом, я буду писать инструменты, чтобы перейти от ключей к адресам и т.д.