Blowfish.bf.pkey: def of bend-osdev-legacy-ciphers@0.1.0.0
Import: import bend-osdev-legacy-ciphers@0.1.0.0/blowfish.bend as Blowfish
Lines 252-258 of bend-osdev-legacy-ciphers@0.1.0.0/blowfish.bend: https://jend.leeeet.dev/read.txt?path=bend-osdev-legacy-ciphers@0.1.0.0/blowfish.bend&start_line=252&end_line=258

import Base
import bend-osdev-legacy-ciphers@0.1.0.0/legacy_ciphers.bend as L

# P xored with the key bytes as big-endian words
def bf.pkey(ps: List<&2, U32>, ks: List<&2, U32>) -> List<&2, U32>:
  match ps ks:
    case Con{p, pt} Con{a, Con{b, Con{c, Con{d, kt}}}}:
      Con{U32.xor(p, L.lc.be(a, b, c, d)), bf.pkey(pt, kt)}
    case _ _:
      Nil{}

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.xor
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-legacy-ciphers@0.1.0.0/legacy_ciphers.bend&name=lc.be