# -*-perl-*-
#
-# $Id: algs.PL,v 1.1 2004/04/02 18:04:01 mdw Exp $
+# $Id$
#
# Create tables of algorithms
#
# along with Catacomb/Perl; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-#----- Revision history -----------------------------------------------------
-#
-# $Log: algs.PL,v $
-# Revision 1.1 2004/04/02 18:04:01 mdw
-# Initial checkin.
-#
-
@cipher = qw(des desx des3
blowfish twofish
cast128 cast256
idea safer safersk
rc2 rc5
square rijndael rijndael192 rijndael256
- serpent
+ serpent noekeon
skipjack
mars
tea xtea);
@stream = qw(rc4 seal);
-@hash = qw(md5 md4 md2 tiger
- sha sha256 sha384 sha512
+@hash = qw(md5 md4 md2 tiger has160
+ sha sha224 sha256 sha384 sha512
rmd128 rmd160 rmd256 rmd320);
sub enum {
#include "catacomb-perl.h"
-#include <catacomb/crc32.h>
-
EOF
print OUT cross("#include <catacomb/", \@cipher, "-",
- [qw(ecb cbc cfb counter ofb)], ".h>\n"), "\n";
-print OUT cross("#include <catacomb/", \@stream, ".h>\n"), "\n";
-print OUT cross("#include <catacomb/", \@hash, ".h>\n"), "\n";
-print OUT cross("#include <catacomb/", \@hash, "-",
- [qw(mgf hmac)], ".h>\n"), "\n";
-
-print OUT <<EOF;
-
-const gccipher *ciphertab[] = {
-EOF
-print OUT cross(" &", \@cipher, "_", [qw(ecb cbc cfb counter ofb)], ",\n");
-print OUT cross(" &", \@hash, "_", [qw(mgf)], ",\n");
-print OUT cross(" &", \@stream, ",\n");
-print OUT <<EOF;
- 0
-};
-
-const gchash *hashtab[] = {
-EOF
-print OUT cross(" &", \@hash, ",\n");
-print OUT <<EOF;
- &gcrc32,
- 0
-};
+ [qw(counter ofb)], ".h>\n"), "\n";
+print OUT cross("#include <catacomb/", \@hash, "-mgf.h>\n"), "\n";
-const gcmac *mactab[] = {
-EOF
-print OUT cross(" &", \@hash, "_", [qw(hmac nmac sslmac)], ",\n");
print OUT <<EOF;
- 0
-};
const struct randtab mgftab[] = {
EOF