Bitcoin/public point to address: Difference between revisions

 

=={{header|C}}==

#include <string.h>

#include <ctype.h>

0));

return 0;

 

=={{header|Common Lisp}}==

{{libheader|Quicklisp}}

{{libheader|Ironclad}}

;;;; This is a revised version, inspired by a throwaway script originally

;;;; published at http://deedbot.org/bundle-381528.txt by the same Adlai.

(base58enc (checksum (sovcat '(0) (digest '(ripemd-160 sha256) point)))))))

 

 

Here's an example of how to feed a point into the functions defined above:

 

 

;; ? (pubkey-to-p2pkh

;; "16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM"

 

 

=={{header|D}}==

{{trans|C}}

{{trans|Go}}

 

// A Bitcoin public point.

 

p.bitcoinEncode.writeln;

{{out}}

<pre>16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre>

{{libheader| DCPripemd160}}

{{Trans|Go}}

program Public_point_to_address;

 

writeln(a.ToBase58);

readln;

 

=={{header|Factor}}==

math sequences ;

IN: rosetta-code.bitcoin.point-address

dup 0 prefix btc-checksum

append 0 prefix >base58 ;

{{out}}

<pre>

=={{header|Go}}==

{{libheader|Go sub-repositories}}

 

import (

// show base58 representation

fmt.Println(string(a.A58()))

{{out}}

<pre>

 

=={{header|Haskell}}==

import Data.List (unfoldr)

import Data.Binary (Word8)

0x50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352

0x2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6

{{out}}

<pre>"6UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM"

 

'''Main functions''':

function encodebase58(b::Vector{<:Integer})

out = Vector{Char}(34)

end

pubpoint2address(x::AbstractString, y::AbstractString) =

 

'''Main''':

y = "2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6"

 

{{out}}

 

=={{header|Wolfram Language}}/{{header|Mathematica}}==

PublicKey[

<|

"Address",

BlockchainBase-> "Bitcoin"

{{output}}

<pre>16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre>

The “bignum” library is used to check if the public point belongs to the “secp256k1” elliptic curve.

 

import nimcrypto

import bignum

"2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6")

echo "Coordinates are valid."

 

{{out}}

=={{header|Perl}}==

Here we'll use the standard Digest::SHA module, and the CPAN-available Crypt::RIPEMD160 and Encode::Base58::GMP.

use Crypt::RIPEMD160;

use Digest::SHA qw(sha256);

'2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6'

;

{{out}}

<pre>16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre>

 

=={{header|Phix}}==

<span style="color: #008080;">without</span> <span style="color: #008080;">javascript_semantics</span> <span style="color: #000080;font-style:italic;">-- no ripemd160.js as yet</span>

<span style="color: #008080;">include</span> <span style="color: #000000;">builtins</span><span style="color: #0000FF;">\</span><span style="color: #7060A8;">sha256</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #0000FF;">?</span><span style="color: #000000;">coin_encode</span><span style="color: #0000FF;">(</span>x"<span style="color: #0000FF;">50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352</span>"<span style="color: #0000FF;">,</span>

x"<span style="color: #0000FF;">2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6</span>"<span style="color: #0000FF;">)</span>

There is actually an sha256.js included, not that I recommend it.<br>

You could probably get this to work in a browser if you provide a suitable ripemd160.js and tweak p2js to use it.

 

=={{header|PicoLisp}}==

(load "sha256.l")

 

(point2address

"50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352"

{{out}}

<pre>"16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM"</pre>

 

=={{header|Python}}==

 

import binascii

print(public_point_to_address(

b'50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352',

{{out}}

<pre>

Uses code from [[SHA-256#Racket]] (which is isolated in a submodule).

 

(module sha256 racket/base

;; define a quick SH256 FFI interface, similar to the Racket's default

(bytes->HEX-STRING s7) => "D61967F6"

(bytes->HEX-STRING s8) => "00010966776006953D5567439E5E39F86A0D273BEED61967F6"

 

{{out}}

(formerly Perl 6)

 

given run «openssl dgst "-$dgst" -binary», :in, :out, :bin {

.in.write: $b;

0x50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352,

0x2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6;

{{out}}

<pre>6UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre>

 

=={{header|Ruby}}==

# Translate public point to Bitcoin address

#

end

puts res.reverse

{{out}}

<pre>

 

=={{header|Rust}}==

use ring::digest::{digest, SHA256};

use ripemd160::{Digest, Ripemd160};

}

 

{{out}}

<pre>

which encodes a string with the Base58 encoding used by Bitcoin. No external library is needed.

 

include "bytedata.s7i";

include "msgdigest.s7i";

writeln(publicPointToAddress("50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352",

"2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6"));

 

{{out}}

{{tcllib|ripemd160}}

{{tcllib|sha256}}

package require sha256

 

append addr [binary format "a4" [string range $hash 0 3]]

return [base58encode $addr]

Demonstrating

0x50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352 \

{{out}}

<pre>

{{libheader|Wren-str}}

{{libheader|Wren-fmt}}

import "/str" for Str

import "/fmt" for Conv

a.setPoint(p)

// show base58 representation

 

{{out}}

=={{header|zkl}}==

Uses shared library zklMsgHash.

 

const symbols = "123456789" // 58 characters: no cap i,o; ell, zero

d,chkSum := Data(), MsgHash.SHA256(bytes,1,d) : MsgHash.SHA256(_,1,d);

base58Encode(bytes.append(chkSum.del(4,*))); // first 4 bytes of hashed hash

"50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352",

"2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6");

{{out}}

<pre>True</pre>