mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
20 lines
462 B
Plaintext
20 lines
462 B
Plaintext
!:
|
|
:: /=main=/bin/pope/hoon
|
|
::
|
|
=> .(+ =>(+ ^/===/lib/pony))
|
|
|= [est=time *]
|
|
|= [who=@p ~]
|
|
^- bowl
|
|
%+ (polo %pass "passphrase: " ~ ~)
|
|
(boss 256 (more gon qit))
|
|
|= [now=@da fra=@]
|
|
%+ pomp "generating carrier {(scow %p who)} (#{(scow %ud who)})"
|
|
%- (posh (add ~s1 now))
|
|
|= now=@da
|
|
:_ ~
|
|
=+ bur=(shax (add who (shax fra)))
|
|
=+ arc=(brew 2.048 bur)
|
|
:~ [%la %leaf "generator: {(scow %uw bur)}"]
|
|
[%la %leaf "fingerprint: {(scow %uw fig:ex:arc)}"]
|
|
==
|