1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-22 06:11:31 +03:00
urbit/main/bin/pope.hoon
2014-05-20 15:51:07 -07:00

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)}"]
==