1
1
mirror of https://github.com/urbit/shrub.git synced 2024-12-24 11:24:21 +03:00
shrub/pkg/arvo/gen/key.hoon
2020-12-08 17:57:41 -08:00

32 lines
851 B
Plaintext

:: Create a private key-file
::
/- *sole
/+ *generators, ethereum
::
:- %ask
|= $: [now=@da eny=@uvJ bec=beak]
[who=ship ~]
life=_1
==
^- (sole-result (cask cord))
%+ print leaf+"generating keys for {(scow %p who)}, life #{(scow %ud life)}"
%+ prompt [%| %pope-pass "passphrase: "]
%+ parse (boss 256 (star prn))
|= fra=@t
=/ bur (shaz (add who (shaz fra)))
=/ cub (pit:nu:crub:crypto 512 bur)
::
=/ pub=pass pub:ex:cub
=/ mag=cord (end 3 pub)
?> =('b' mag)
=/ bod=@ (rsh 3 pub)
=/ cry=@ (rsh 8 bod)
=/ sgn=@ (end 8 bod)
%+ print leaf+" authentication: 0x{(render-hex-bytes:ethereum 32 sgn)}"
%+ print leaf+" networking: 0x{(render-hex-bytes:ethereum 32 cry)}"
%+ print leaf+"ethereum public keys:"
::
=/ sed=seed:jael
[who life sec:ex:cub ~]
%- produce [%atom (scot %uw (jam sed))]