ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

Crub implementation that seems to be working.

Browse Source
This commit is contained in:
Jared Hance 2014-05-22 11:22:13 -04:00
parent 9171b6a183
commit 421e92a645
4 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ames.hoon
View File

@ -79,10 +79,8 @@
?> ?& |- ^- ?
?~ mac &
?> ?& ?=(^ law)
~& [%law `@ux`r.q.i.law]
~& [%mac `@ux`q.i.mac]
~& [%wear (wear q.i.mac)]
~& [%pub `@ux`pub:ex:(wear q.i.mac)]
~& [%law `@ux`r.q.i.law]
(lth p.p.q.i.law 9) :: 9-lives rule
=(p.p.q.i.law p.i.mac)
=(r.q.i.law pub:ex:(wear q.i.mac))
@ -113,7 +111,7 @@
^- @uvH ^- @
%+ snag zar
^- (list ,@uw)
:~ 0wB.kk54d.O2AH3.sAK-5.w3v6G :: 0, ~zod, Tlon (gleba)
:~ 0w35.RGwxf.Q9W0I.djB~W.~UIbt :: 0, ~zod, Tlon (gleba)
0w0 :: 1, ~nec, Curtis Yarvin (sator)
0w0 :: 2, ~bud, Charles Songhurst (angelus)
0w0 :: 3, ~wes, Tamares Group (angelus)

4
arvo/zuse.hoon
View File

@ -332,7 +332,7 @@
|% ++ fig ^- @uvH (shaf %bfig e.^pub)
++ pac ^- @uvG (end 6 1 (shaf %acod e.sek))
++ pub ^- pass (cat 3 'b' (add (lsh 8 1 c.^pub) e.^pub))
++ sec ^- ring (add (lsh 8 1 c.sek) e.sek)
++ sec ^- ring (cat 3 'B' (add (lsh 8 1 c.sek) e.sek))
--
::
++ nu
@ -371,7 +371,7 @@
|= a=ring
^- acru
=+ [mag=(end 3 1 a) bod=(rsh 3 1 a)]
?> =('b' mag)
?> =('B' mag)
(nol:nu:crub bod)
::
++ trub :: test ed

4
main/bin/begin.hoon
View File

@ -174,10 +174,10 @@
|= [now=@da tic=@p tey=@ ges=gens]
^- bowl
=+ bur=(shax :(mix (jam ges) tey))
%+ pomp "generating 2048-bit RSA key..."
%+ pomp "generating two 256-bit ECC keys..."
%- (posh (add ~s1 now))
|= now=@da
=+ loy=(bruw 2.048 bur)
=+ loy=(brew 2.048 bur)
%- (post bos %ta [mig tic ges pub:ex:loy])
|= [now=@da rup=(unit ,*)]
:_ ~

2
main/bin/pope.hoon
View File

@ -12,7 +12,7 @@
%- (posh (add ~s1 now))
|= now=@da
:_ ~
=+ bur=(shax (add who (shax fra)))
=+ bur=(shaz (add who (shaz fra)))
=+ arc=(brew 2.048 bur)
:~ [%la %leaf "generator: {(scow %uw bur)}"]
[%la %leaf "fingerprint: {(scow %uw fig:ex:arc)}"]