zuse: split sivb keys at correct offset

This commit is contained in:
lukechampine 2020-02-03 16:43:17 -05:00
parent 4b4739f2f9
commit 225fee0258
2 changed files with 4 additions and 4 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:df629686e06b0c56db132076439b03d095bb235fc1a77668022d110559d9b840
size 9650987
oid sha256:e5192f8a6142a706c2d4d79e14e439e953edbe1ce90d4541364ce07195cfe4d7
size 9660213

View File

@ -3357,7 +3357,7 @@
~/ %en
|= txt/@
^- (trel @uxH @ud @ux)
=+ [k1=(rsh 5 3 key) k2=(end 5 3 key)]
=+ [k1=(rsh 6 3 key) k2=(end 6 3 key)]
=+ iv=(s2vb k1 (weld vec (limo ~[txt])))
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
=+ len=(met 3 txt)
@ -3369,7 +3369,7 @@
~/ %de
|= {iv/@H len/@ txt/@}
^- (unit @ux)
=+ [k1=(rsh 5 3 key) k2=(end 5 3 key)]
=+ [k1=(rsh 6 3 key) k2=(end 6 3 key)]
=* hib (dis iv 0xffff.ffff.ffff.ffff.7fff.ffff.7fff.ffff)
=+ ^= pln
(~(de ctrb k2 7 len hib) txt)