Bitcoin/address validation: Difference between revisions

 

=={{header|Ada}}==

with Ada.Streams;

use Ada.Exceptions, Interfaces;

end;

end Bitcoin_Addr_Validate;

 

{{out}}

 

=={{header|C}}==

#include <string.h>

#include <openssl/sha.h>

 

return 0;

Compile with -lcrypto

{{out}}

=={{header|C sharp|C#}}==

This requires [https://www.nuget.org/packages/NUnit/ NUnit package] to compile.

using System;

using System.Linq;

}

}

 

=={{header|D}}==

This requires the D module from the SHA-256 Task.

{{trans|Go}}

 

struct A25 {

writefln(`"%s": %s`, test, err.empty ? "OK." : err);

}

{{out}}

<pre>"1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62i": OK.

This requires [https://pub.dev/packages/crypto Crypto package] to compile.

{{trans|Java}}

 

class Bitcoin {

return true;

}

{{out}}

<pre>"1BNGaR29FmfAqidXmD9HLwsGv9p5WVvvhq" true

=={{header|Delphi}}==

This requires [http://www.cityinthesky.co.uk/opensource/DCPcrypt/ DCPcrypt library] to compile.

uses

DCPsha256;

raise Exception.Create('Bad digest');

end;

 

=={{header|Erlang}}==

Using base58 module from http://github.com/titan098/erl-base58.git.

 

-module( bitcoin_address ).

 

{checksum, Checksum} = {checksum, Four_bytes},

ok.

{{out}}

<pre>

 

=={{header|Factor}}==

math.parser sequences ;

IN: rosetta-code.bitcoin.validation

 

: btc-valid? ( str -- ? ) base58> [ btc-checksum ] [ 4 tail* ] bi = ;

 

{{out}}

 

=={{header|FreeBASIC}}==

' compile with: fbc -s console

 

Print : Print "hit any key to end program"

Sleep

{{out}}

<pre>Bitcoin address: 1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62i is valid

=={{header|Go}}==

{{trans|C}}

 

import (

os.Stderr.WriteString(m + "\n")

os.Exit(1)

{{out}}

Command line usage examples showing program exit status.

 

=={{header|Haskell}}==

import Data.List (elemIndex)

import Data.Monoid ((<>))

validate "1ANa55215ZQXAZUgFiqJ2i7Z2DPU2J6hW62i" -- too long

validate "i55j" -- too short

{{out}}

<pre style="font-size:80%">"1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62i" -> Valid

 

=={{header|Java}}==

import java.security.MessageDigest;

import java.security.NoSuchAlgorithmException;

throw new AssertionError(String.format("Expected %s for %s, but got %s.", expected, address, actual));

}

 

=={{header|Julia}}==

{{works with|Julia|0.6}}

{{trans|Python}}

 

bytes(n::Integer, l::Int) = collect(UInt8, (n >> 8i) & 0xFF for i in l-1:-1:0)

for (addr, corr) in addresses

println("Address: $addr\nExpected: $corr\tChecked: ", checkbcaddress(addr))

 

{{out}}

=={{header|Kotlin}}==

{{trans|Java}}

 

object Bitcoin {

for (address in addresses)

println("${address.padEnd(36)} -> ${if (Bitcoin.validateAddress(address)) "valid" else "invalid"}")

 

{{out}}

 

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

IntegerDigits[

FromDigits[

Hash[FromCharacterCode[

IntegerDigits[Hash[FromCharacterCode[data[[;; -5]]], "SHA256"],

{{in}}

<pre>1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62i

===Using “libssl”===

 

 

const SHA256Len = 32

 

main()

 

{{out}}

===Using “nimcrypto”===

{{libheader|nimcrypto}}

import strformat

 

 

for vector in testVectors:

 

{{out}}

=={{header|Oberon-2}}==

{{works with|oo2c}}{{libheader|Crypto}}

MODULE BitcoinAddress;

IMPORT

Out.Bool(Valid("1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62I"));Out.Ln

END BitcoinAddress.

{{out}}

<pre>

 

=={{header|Perl}}==

1 2 3 4 5 6 7 8 9

A B C D E F G H J K L M N P Q R S T U V W X Y Z

(pack 'C*', @byte[21..24]) eq

substr sha256(sha256 pack 'C*', @byte[0..20]), 0, 4;

 

=={{header|Phix}}==

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\bitcoin_address_validation.exw

<span style="color: #0000FF;">?</span><span style="color: #008000;">"done"</span>

<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>

(No output other than "done" since all tests pass)

 

=={{header|PHP}}==

function validate($address){

$decoded = decodeBase58($address);

main();

 

 

{{out}}

 

=={{header|PicoLisp}}==

 

(setq *Alphabet

(valid "1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62!")

(valid "1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62iz")

 

=={{header|PureBasic}}==

; using PureBasic 5.50 (x64)

EnableExplicit

EndIf

 

 

{{out}}

 

=={{header|Python}}==

 

digits58 = '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz'

 

print(check_bc('1AGNa15ZQXAZUgFiqJ3i7Z2DPU2J6hW62i'))

 

{{out}}

:Yuuki-chan edit: Delete this help if it's not needed anymore

:For those looking at examples here to try and work out what is required, the <code>n.to_bytes()</code> call is equivalent to this code which converts a (long) integer into individual bytes of a byte array in a particular order:

>>> length = 25

>>> list( reversed(range(length)) )

[24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0]

>>> assert n.to_bytes(length, 'big') == bytes( (n >> i*8) & 0xff for i in reversed(range(length)))

 

=={{header|Racket}}==

#lang racket/base

 

(validate-bitcoin-address "1Q1pE5vPGEEMqRcVRMbtBK842Y6Pzo6nK9") ; => #t

(validate-bitcoin-address "1badbadbadbadbadbadbadbadbadbadbad") ; => #f

 

=={{header|Raku}}==

(formerly Perl 6)

given run <openssl dgst -sha256 -binary>, :in, :out, :bin {

.in.write: $b;

/;

{{out}}

<pre>｢1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62i｣</pre>

 

=={{header|Ruby}}==

# Validate Bitcoin address

#

(n.length...42).each{n.insert(0,'0')}

puts "I think the checksum should be #{g}\nI calculate that it is #{Digest::SHA256.hexdigest(Digest::SHA256.digest(convert(n)))[0,8]}"

{{out}}

With A = '1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62i'

This requires the [https://crates.io/crates/rust-crypto rust-crypto] crate for sha256.

extern crate crypto;

 

Ok(res)

}

{{out}}

<pre>

 

=={{header|Scala}}==

import java.util.Arrays.copyOfRange

 

println(s"Successfully completed without errors. [total ${scala.compat.Platform.currentTime - executionStart}ms]")

 

 

=={{header|Seed7}}==

No external library is needed.

 

include "msgdigest.s7i";

include "encoding.s7i";

checkValidationFunction("i55j", FALSE); # wrong length

checkValidationFunction("16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM", TRUE); # okay

 

{{out}}

=={{header|Tcl}}==

{{tcllib|sha256}}

 

# Generate a large and boring piece of code to do the decoding of

}

return "$address is ok"

Testing if it works

{{out}}

<pre>

=={{header|UNIX Shell}}==

{{works with|bash}}

bitcoinregex="^[$(printf "%s" "${base58[@]}")]{34}$"

 

else return 2

fi

 

=={{header|Wren}}==

{{libheader|wren-str}}

{{libheader|Wren-fmt}}

import "/str" for Str

import "/fmt" for Conv, Fmt

for (address in addresses) {

Fmt.print("$-36s -> $s", address, Bitcoin.validateAddress(address) ? "valid" : "invalid")

 

{{out}}

=={{header|zkl}}==

Uses shared library zklMsgHash.

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

"ABCDEFGHJKLMNPQRSTUVWXYZ"

(2).reduce(MsgHash.SHA256.fp1(1,dec),dec); // dec is i/o buffer

dec[0,4]==chkSum;

"1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62X", // checksum changed, original data.

"1ANNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62i", // data changed, original checksum.

"1A Na15ZQXAZUgFiqJ2i7Z2DPU2J6hW62i", // invalid chars

"1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62izz", // too long

{{out}}

<pre>L(True,True,False,False,False,False)</pre>