law xcbc_accepts

bend-osdev-crypto@0.1.0.0 · LAWS.bend:195

import Base
import bend-osdev-bytes@0.1.0.0/bytes.bend as B
import bend-osdev-crypto@0.1.0.0/xcbc.bend as Xc

195# XCBC-MAC over every block cipher (xcbc.bend) accepts what it computes
196law xcbc_accepts:
197  for ~K: Data
198  for ~Blk: Data
199  for ~bsize: Nat
200  for ~enc: K -> Blk -> Blk
201  for ~blk_of: B.Octets -> Maybe<&2, Blk>
202  for ~blk_to: Blk -> B.Octets
203  for +kk: Xc.CrXcbcKey<K>
204  for +m: B.Octets
205  {Xc.CrXcbc.verify(~K, ~Blk, ~bsize, ~enc, ~blk_of, ~blk_to, kk, m, Xc.CrXcbc.mac(~K, ~Blk, ~bsize, ~enc, ~blk_of, ~blk_to, kk, m)) == True{} : Bool}