1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +03:00
urbit/gen/pope.hoon
2018-03-18 21:18:20 -07:00

28 lines
633 B
Plaintext

:: Create a galactic generator and ames-ready fingerprint
::
:::: /hoon/pope/gen
::
/? 310
:: Input twitter keys
/- sole
/+ old-zuse
=, old-zuse
::
=+ cryp=crub
=+ [sole]
:- %ask
|= $: {now/@da eny/@uvJ bec/beak}
{{who/ship ~} ~}
==
^- (sole-result (cask tang))
%+ sole-yo leaf+"generating carrier {(scow %p who)} (#{(scow %ud who)})"
%+ sole-lo [%| %pope-pass "passphrase: "]
%+ sole-go (boss 256 (star prn))
|= fra/@t
=+ bur=(shaz (add who (shaz fra)))
=+ arc=(pit:nu:cryp 512 bur)
%+ sole-so %tang
:~ leaf+"generator: {(scow %uw bur)}"
leaf+"fingerprint: {(scow %uw fig:ex:arc)}"
==