2015-09-12 00:15:25 +03:00
|
|
|
:: Input twitter keys
|
|
|
|
|
/- sole
|
|
|
|
|
!:
|
|
|
|
|
=+ cryp=bruw :: XX change to ec2 ++brew eventually
|
|
|
|
|
=+ [sole]
|
2015-09-12 03:24:51 +03:00
|
|
|
:- %ask
|
2015-09-12 00:15:25 +03:00
|
|
|
|= $: [now=@da eny=@uvI 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
|
|
|
|
|
%+ sole-lo [%| %pope-none "[press enter to compute]"] :: XX oy
|
|
|
|
|
%+ sole-go (easy ~)
|
|
|
|
|
|= ~
|
|
|
|
|
=+ bur=(shax (add who (shax fra)))
|
|
|
|
|
~& %computing-fingerprint
|
|
|
|
|
=+ arc=(cryp 2.048 bur)
|
|
|
|
|
%+ sole-so %tang
|
|
|
|
|
:~ leaf/"generator: {(scow %uw bur)}"
|
|
|
|
|
leaf/"fingerprint: {(scow %uw fig:ex:arc)}"
|
|
|
|
|
==
|
