def cr.hmac.block
import bend-osdev-crypto@0.1.0.0/hmac.bend as Hmacimport Base
import bend-osdev-bytes@0.1.0.0/bytes.bend as B
42# K0: the key (hashed if longer than bsize), zero-padded to bsize bytes
43def cr.hmac.block(~bsize: Nat, ~digest: B.Octets -> B.Octets, +key: B.Octets) -> List<&2, U32>:
44 +k = cr.hmac.k0(~digest, Nat.is_lt(bsize, B.Octets.len(key)), key)
45 B.append(B.Octets.to_list(k), B.zeros(Nat.sub(bsize, B.Octets.len(k))))