def c6.ks

bend-osdev-legacy-ciphers@0.1.0.0 · cast6.bend:139

import Base
import bend-osdev-legacy-ciphers@0.1.0.0/legacy_ciphers.bend as L
import bend-osdev-legacy-ciphers@0.1.0.0/cast5.bend as C5

139# the key set read from KAPPA: Km = H, F, D, B and Kr = A, C, E, G (low 5 bits)
140def c6.ks(+t: C5.LcCastTabs, +k: List<&2, U32>) -> LcCast6Ks:
141  LcCast6Ks{L.lc.at(k, 7n), L.lc.at(k, 5n), L.lc.at(k, 3n), L.lc.at(k, 1n), U32.and(31, L.lc.at(k, 0n)), U32.and(31, L.lc.at(k, 2n)), U32.and(31, L.lc.at(k, 4n)), U32.and(31, L.lc.at(k, 6n)), t}