Serpent.sp.lt7: def of bend-osdev-legacy-ciphers@0.1.0.0
Import: import bend-osdev-legacy-ciphers@0.1.0.0/serpent.bend as Serpent
Lines 200-204 of bend-osdev-legacy-ciphers@0.1.0.0/serpent.bend: https://jend.leeeet.dev/read.txt?path=bend-osdev-legacy-ciphers@0.1.0.0/serpent.bend&start_line=200&end_line=204

import Base
import bend-osdev-cipher-modes@0.1.0.0/cipher_modes.bend as M

# X2 = X2 xor X3 xor (X1 << 7) (its own inverse)
def sp.lt7(s: M.CmBlock) -> M.CmBlock:
  match s:
    case M.CmBlock{x0, +x1, x2, +x3}:
      M.CmBlock{x0, x1, U32.xor(x2, U32.xor(x3, U32.shln(x1, 7n))), x3}

Uses (3):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.shln
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.xor
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-cipher-modes@0.1.0.0/cipher_modes.bend&name=CmBlock