law tdes_ecb_round_trip

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

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/tdes.bend as T
import bend-osdev-crypto@0.1.0.0/modes.bend as Md

685# Triple DES (legacy-ciphers) in ECB (modes.bend): decryption undoes encryption, for every key and list of blocks
686law tdes_ecb_round_trip:
687  for +k: T.LcTdesKey
688  for +bs: List<&2, L.LcBlock64>
689  {Md.CrEcb.decrypt_blocks(~T.LcTdesKey, ~L.LcBlock64, ~T.LcTdes.decrypt, k, Md.CrEcb.encrypt_blocks(~T.LcTdesKey, ~L.LcBlock64, ~T.LcTdes.encrypt, k, bs)) == bs : List<&2, L.LcBlock64>}