3 @cipher = qw(blowfish cast128 cast256 des des3 idea rc2 rc5 rijndael serpent
4 skipjack square tea twofish xtea
);
5 @streams = qw(rc4 seal
);
6 @hash = qw(md5 md4 md2 tiger
7 sha sha256 sha384 sha512
8 rmd128 rmd160 rmd256 rmd320
);
12 if (!ref($x)) { return $x; }
13 elsif (ref($x) eq ARRAY
) { return @
$x }
14 else { die "bad ref"; }
23 foreach my $j (@
$x) { foreach my $k (@y) { push(@x, $j.$k); } }
35 * Cipher.xs [generated]
44 #include <catacomb/gcipher.h>
47 print cross
("#include <catacomb/", \
@cipher, "-",
48 [qw(ecb cbc cfb counter ofb
)], ".h>\n"), "\n";
49 print cross
("#include <catacomb/", \
@hash, ".h>\n"), "\n";
50 print cross
("#include <catacomb/", \
@hash, "-",
51 [qw(mgf hmac
)], ".h>\n"), "\n";