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

Fix pill.

Browse Source
This commit is contained in:
Jared Hance 2014-05-23 12:04:05 -04:00
parent 421e92a645
commit 2dbb9ff0fd
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
arvo/ames.hoon
View File

@ -79,8 +79,6 @@
?> ?& |- ^- ?
?~ mac &
?> ?& ?=(^ law)
~& [%mac `@ux`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))
@ -546,7 +544,7 @@
:- %fast
%^ cat 7
p.u.yed.caq.dyr
(en:crub q.u.yed.caq.dyr mal) :: TODO DEAL W/ NONCE
(en:crub q.u.yed.caq.dyr mal)
==
::
++ xeno :: xeno:lax:as:go
@ -626,6 +624,7 @@
%^ jam
[`life`p.cay `life`p.yig]
bil
~& [%fmsg hom]
(seal:as:q.yig pub:ex:r.cay tuy hom)
-- :: --zuul:lax:as:go
-- :: --lax:as:go

8
arvo/zuse.hoon
View File

@ -253,7 +253,7 @@
++ skey
|= [a=bloq key=@ nonc=@ ct=@ mctr=@ buf=@]
=+ ctext=(en:aesc key (add (lsh (dec a) 1 nonc) ct))
=+ nbuf=(cat a ctext buf)
=+ nbuf=(cat a ctext buf) :: TODO CAN
?: =(ct mctr)
nbuf
$(ct +(ct), buf nbuf)
@ -315,7 +315,11 @@
=+ cex=(rsh 7 1 cth)
=+ nox=(met 7 cex)
=+ cip=(skey 7 key noc 0 (dec nox) 0)
(some (mix cex (end 3 byt cip))) :: todo send/check hash
=+ msg=(mix cex (end 3 byt cip))
=+ h=(hiv msg)
?: =(h noc)
(some msg)
~
::
++ dy
|+([a=@ b=@] `@`(need (de a b)))