ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-04 10:52:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

Involve all bits of hax in haf

Browse Source 
Not that this buys us anything, of course, but hey.
This commit is contained in:
Steve Dee 2014-04-16 10:29:34 -07:00
parent 2e0dbf2ecf
commit f611a04cfd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
try/lib/cryo.hoon
View File

@ -191,7 +191,7 @@
=+ len=(met 7 msg)
=+ adj=?:(=(0 len) 1 len)
=+ hax=(shax (mix key (shax (mix adj msg))))
=+ haf=(cut 7 [0 1] hax)
=+ haf=(mix (cut 7 [0 1] hax) (cut 7 [1 1] hax))
=+ ret=(can 7 ~[[2 hax] [adj (mix (burn key haf adj) msg)]])
ret
++ de
@ -201,7 +201,7 @@
~
=+ adj=(sub toh 2)
=+ [hax=(end 8 1 cep) bod=(rsh 8 1 cep)]
=+ haf=(cut 7 [0 1] hax)
=+ haf=(mix (cut 7 [0 1] hax) (cut 7 [1 1] hax))
=+ msg=(mix (burn key haf adj) bod)
?. =(hax (shax (mix key (shax (mix adj msg)))))
~