git.iko.soy/urbit.org
on 492ae2f help sign in
urbit.org/docs/programming/reference/library/src/3d/gate/shan.md
74 lines 2.2 kB history raw
1### `++shan`
3 ++ shan :: sha-1 (deprecated)
4 |= ruz/@
5 =+ [few==>(fe .(a 5)) wac=|=({a/@ b/@} (cut 5 [a 1] b))]
6 =+ [sum=sum.few ror=ror.few rol=rol.few net=net.few inv=inv.few]
7 =+ ral=(lsh 0 3 (met 3 ruz))
8 =+ ^= ful
9 %+ can 0
10 :~ [ral ruz]
11 [8 128]
12 [(mod (sub 960 (mod (add 8 ral) 512)) 512) 0]
13 [64 (~(net fe 6) ral)]
14 ==
15 =+ lex=(met 9 ful)
16 =+ kbx=0xca62.c1d6.8f1b.bcdc.6ed9.eba1.5a82.7999
17 =+ hax=0xc3d2.e1f0.1032.5476.98ba.dcfe.efcd.ab89.6745.2301
18 =+ i=0
19 |-
20 ?: =(i lex)
21 (rep 5 (flop (rip 5 hax)))
22 =+ ^= wox
23 =+ dux=(cut 9 [i 1] ful)
24 =+ wox=(rep 5 (turn (rip 5 dux) net))
25 =+ j=16
26 |- ^- @
27 ?: =(80 j)
28 wox
29 =+ :* l=(wac (sub j 3) wox)
30 m=(wac (sub j 8) wox)
31 n=(wac (sub j 14) wox)
32 o=(wac (sub j 16) wox)
33 ==
34 =+ z=(rol 0 1 :(mix l m n o))
35 $(wox (con (lsh 5 j z) wox), j +(j))
36 =+ j=0
37 =+ :* a=(wac 0 hax)
38 b=(wac 1 hax)
39 c=(wac 2 hax)
40 d=(wac 3 hax)
41 e=(wac 4 hax)
42 ==
43 |- ^- @
44 ?: =(80 j)
45 %= ^$
46 i +(i)
47 hax %+ rep 5
48 :~
49 (sum a (wac 0 hax))
50 (sum b (wac 1 hax))
51 (sum c (wac 2 hax))
52 (sum d (wac 3 hax))
53 (sum e (wac 4 hax))
54 ==
55 ==
56 =+ fx=(con (dis b c) (dis (not 5 1 b) d))
57 =+ fy=:(mix b c d)
58 =+ fz=:(con (dis b c) (dis b d) (dis c d))
59 =+ ^= tem
60 ?: &((gte j 0) (lte j 19))
61 :(sum (rol 0 5 a) fx e (wac 0 kbx) (wac j wox))
62 ?: &((gte j 20) (lte j 39))
63 :(sum (rol 0 5 a) fy e (wac 1 kbx) (wac j wox))
64 ?: &((gte j 40) (lte j 59))
65 :(sum (rol 0 5 a) fz e (wac 2 kbx) (wac j wox))
66 :(sum (rol 0 5 a) fy e (wac 3 kbx) (wac j wox))
67 $(j +(j), a tem, b a, c (rol 0 30 b), d c, e d)
68 ::
70XX document
74***