Bitcoin/public point to address: Difference between revisions

Line 664:
=={{header|Wolfram Language}}/{{header|Mathematica}}==
<lang Mathematica>BlockchainKeyEncode[
PublicKey[
<|
"Type" -> "EllipticCurve",
"PublicCurvePoint" -> ({
" 16^^50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352",
FromDigits[#, 16] & /@ {
" 16^^2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6"
"50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352",
|> }
"2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6"
}|>
)],
"Address",
|>
], "Address", BlockchainBase -> "Bitcoin"]</lang>
]</lang>
{{output}}
<pre>16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre>
1,934

edits