2016-10-22 02:44:39 +03:00
|
|
|
:: Create a galactic generator and ames-ready fingerprint
|
2016-02-05 05:57:44 +03:00
|
|
|
::
|
2016-02-05 06:05:37 +03:00
|
|
|
:::: /hoon/pope/gen
|
2016-02-05 05:57:44 +03:00
|
|
|
::
|
2016-02-17 04:40:32 +03:00
|
|
|
/? 310
|
2015-09-12 00:15:25 +03:00
|
|
|
:: Input twitter keys
|
|
|
|
|
/- sole
|
2017-11-10 03:06:58 +03:00
|
|
|
/+ old-zuse
|
|
|
|
|
=, old-zuse
|
2016-11-17 04:42:58 +03:00
|
|
|
::
|
2016-08-11 20:50:58 +03:00
|
|
|
=+ cryp=crub
|
2015-09-12 00:15:25 +03:00
|
|
|
=+ [sole]
|
2015-09-12 03:24:51 +03:00
|
|
|
:- %ask
|
2016-08-11 21:15:06 +03:00
|
|
|
|= $: {now/@da eny/@uvJ bec/beak}
|
2018-03-19 07:18:20 +03:00
|
|
|
{{who/ship ~} ~}
|
2015-09-12 00:15:25 +03:00
|
|
|
==
|
|
|
|
|
^- (sole-result (cask tang))
|
2016-01-26 03:52:58 +03:00
|
|
|
%+ sole-yo leaf+"generating carrier {(scow %p who)} (#{(scow %ud who)})"
|
2015-09-12 00:15:25 +03:00
|
|
|
%+ sole-lo [%| %pope-pass "passphrase: "]
|
|
|
|
|
%+ sole-go (boss 256 (star prn))
|
2016-01-26 03:52:58 +03:00
|
|
|
|= fra/@t
|
2016-08-11 20:50:58 +03:00
|
|
|
=+ bur=(shaz (add who (shaz fra)))
|
|
|
|
|
=+ arc=(pit:nu:cryp 512 bur)
|
2015-09-12 00:15:25 +03:00
|
|
|
%+ sole-so %tang
|
2016-01-26 03:52:58 +03:00
|
|
|
:~ leaf+"generator: {(scow %uw bur)}"
|
|
|
|
|
leaf+"fingerprint: {(scow %uw fig:ex:arc)}"
|
2015-09-12 00:15:25 +03:00
|
|
|
==
|
