def Cbc.encrypt_padded

bend-osdev-cbc@0.1.0.0 · cbc.bend:151

import Base
import bend-osdev-bytes@0.1.1.0/bytes.bend as B
import bend-osdev-mode-core@0.1.0.0/mode_core.bend as M
import bend-osdev-pkcs7@0.1.0.0/pkcs7.bend as P

151# m of any length, PKCS #7 padded to whole blocks, then encrypted
152def Cbc.encrypt_padded(~K: Data, ~enc: K -> M.CmBlock -> M.CmBlock, +k: K, iv: B.Octets, m: B.Octets) -> Result<&2, &2, M.CmError, B.Octets>:
153  do Result<&2, &2, M.CmError, B.Octets>:
154    padded : B.Octets <- P.Pkcs7.pad(16n, m)
155    Cbc.encrypt(~K, ~enc, k, iv, padded)