Bitcoin/public point to address: Difference between revisions

 

''Extra credit:'' add a verification procedure about the public point, making sure it belongs to the secp256k1 elliptic curve

=={{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}}==

Requires the second D module from the SHA-256 task.

{{trans|C}}

{{trans|Go}}

 

// A Bitcoin public point.

 

p.bitcoinEncode.writeln;

{{out}}

<pre>16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre>

 

=={{header|Factor}}==

math sequences ;

IN: rosetta-code.bitcoin.point-address

dup 0 prefix btc-checksum

append 0 prefix >base58 ;

{{out}}

<pre>

point>address . ! "16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM"

</pre>

=={{header|Go}}==

{{libheader|Go sub-repositories}}

 

import (

// show base58 representation

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

{{out}}

<pre>

16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM

</pre>

=={{header|Haskell}}==

import Data.List (unfoldr)

import Data.Binary (Word8)

0x50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352

0x2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6

{{out}}

<pre>"6UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM"

</pre>

=={{header|Julia}}==

{{works with|Julia|0.6}}

 

'''Main functions''':

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

out = Vector{Char}(34)

end

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

 

'''Main''':

y = "2CD470243453A299FA9E77237716103ABC11A1DF38855ED6F2EE187E9C582BA6"

 

{{out}}

<pre>6UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre>

=={{header|Nim}}==

 

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}}

<pre>Coordinates are valid.

Address is: 16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre>

=={{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}}==

 

{{out}}

<pre>

"16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM"

</pre>

=={{header|PicoLisp}}==

(load "sha256.l")

 

(point2address

"50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352"

{{out}}

<pre>"16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM"</pre>

=={{header|Python}}==

 

import binascii

print(public_point_to_address(

b'50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352',

{{out}}

<pre>

b'6UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM'

</pre>

=={{header|Racket}}==

 

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}}

1 test passed

8 tests passed</pre>

=={{header|Raku}}==

(formerly Perl 6)

 

}

sub public_point_to_address( UInt $x, UInt $y ) {

}

say public_point_to_address

{{out}}

<pre>6UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre>

=={{header|Ruby}}==

# Translate public point to Bitcoin address

#

end

puts res.reverse

{{out}}

<pre>

6UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM

</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}}

16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM

</pre>

=={{header|Tcl}}==

{{tcllib|ripemd160}}

{{tcllib|sha256}}

package require sha256

 

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

return [base58encode $addr]

Demonstrating

0x50863AD64A87AE8A2FE83C1AF1A8403CB53F53E486D8511DAD8A04887E5B2352 \

{{out}}

<pre>

=={{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>

{{omit from|Brlcad}}

{{omit from|GUISS}}