mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
37 lines
762 B
Plaintext
37 lines
762 B
Plaintext
|
|%
|
||
|
|
:: bytes rip: 0x6261 -> ~[98 97]
|
||
|
|
::
|
||
|
|
+$ pubkey (list @ux)
|
||
|
|
+$ chaincode (list @ux)
|
||
|
|
++ big-endian-brip
|
||
|
|
|= a=@ux
|
||
|
|
^- (list @ux)
|
||
|
|
(flop (rip 3 a))
|
||
|
|
:: bytes rap: ~[98 97] -> 0x6261
|
||
|
|
::
|
||
|
|
++ big-endian-brap
|
||
|
|
|= bytes=(list @ux)
|
||
|
|
^- @ux
|
||
|
|
(swp 3 (rap 3 bytes))
|
||
|
|
::
|
||
|
|
++ parse-zpub
|
||
|
|
|= zpub=tape
|
||
|
|
^- [cc=chaincode pubk=pubkey]
|
||
|
|
=/ as-atom=@ux
|
||
|
|
(de-base58:mimes:html zpub)
|
||
|
|
=/ bytes=(list @ux)
|
||
|
|
(big-endian-brip as-atom)
|
||
|
|
[(swag [13 32] bytes) (swag [45 33] bytes)]
|
||
|
|
::
|
||
|
|
++ pubkey-to-point
|
||
|
|
|= pubkey-bytes=pubkey
|
||
|
|
^- pont:secp:crypto
|
||
|
|
=/ as-atom=@
|
||
|
|
(rap 3 (flop (swag [45 33] pubkey-bytes)))
|
||
|
|
(decompress-point:secp256k1:secp:crypto as-atom)
|
||
|
|
::
|
||
|
|
++ is-point
|
||
|
|
|= pubkey=pubkey ^- ?
|
||
|
|
-:(mule |.((pubkey-to-point pubkey)))
|
||
|
|
--
|