def cr.cbc.enc

bend-osdev-crypto@0.1.0.0 · modes.bend:50

import Base

50def cr.cbc.enc(~K: Data, ~Blk: Data, ~enc: K -> Blk -> Blk, ~bxor: Blk -> Blk -> Blk, +k: K, bs: List<&2, Blk>, iv: Blk) -> List<&2, Blk>:
51  match bs:
52    case Nil{}:
53      Nil{}
54    case Con{p, t}:
55      +c = enc(k, bxor(p, iv))
56      Con{c, cr.cbc.enc(~K, ~Blk, ~enc, ~bxor, k, t, c)}