urbit/lib/btc-scratch.hoon
2021-05-26 18:30:11 -07:00

19 lines
464 B
Plaintext

:: btc-scratch.hoon
/- *btc
/+ bip32, btc
=+ ecc=secp256k1:secp:crypto
=, bech32:btc
|%
++ bip84
|_ [network=network:btc xpub=tape]
++ address
|= [change=@ index=@]
^- bech32-address
?> =("zpub" (tape (scag 4 xpub))) :: only for bip84
=/ pubkey=@ux
%- compress-point:ecc
pub:(derive-public:(derive-public:(from-extended:bip32 xpub) change) index)
[%bech32 (need (encode-pubkey network pubkey))]
--
--