mdw@git.distorted.org.uk Git - catacomb-perl/blob - algs.PL

   1 # -*-perl-*-
   2 #
   3 # $Id$
   4 #
   5 # Create tables of algorithms
   6 #
   7 # (c) 2001 Straylight/Edgeware
   8 #
   9
  10 #----- Licensing notice -----------------------------------------------------
  11 #
  12 # This file is part of the Perl interface to Catacomb.
  13 #
  14 # Catacomb/Perl is free software; you can redistribute it and/or modify
  15 # it under the terms of the GNU General Public License as published by
  16 # the Free Software Foundation; either version 2 of the License, or
  17 # (at your option) any later version.
  18 #
  19 # Catacomb/Perl is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU General Public License for more details.
  23 #
  24 # You should have received a copy of the GNU General Public License
  25 # along with Catacomb/Perl; if not, write to the Free Software Foundation,
  26 # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  27
  28 @cipher = qw(des desx des3
  29              blowfish twofish
  30              cast128 cast256
  31              idea safer safersk
  32              rc2 rc5
  33              square rijndael rijndael192 rijndael256
  34              serpent noekeon
  35              skipjack
  36              mars
  37              tea xtea);
  38 @stream = qw(rc4 seal);
  39 @hash = qw(md5 md4 md2 tiger has160
  40            sha sha224 sha256 sha384 sha512
  41            rmd128 rmd160 rmd256 rmd320);
  42
  43 sub enum {
  44   $x = shift;
  45   if (!ref($x)) { return $x; }
  46   elsif (ref($x) eq ARRAY) { return @$x }
  47   else { die "bad ref"; }
  48 }
  49
  50 sub cross {
  51   my $x = [];
  52   foreach my $i (@_) {
  53     my @y = enum($i);
  54     if (@$x) {
  55       my @x = ();
  56       foreach my $j (@$x) { foreach my $k (@y) { push(@x, $j.$k); } }
  57       $x = \@x;
  58     } else {
  59       $x = \@y;
  60     }
  61   }
  62   return @$x;
  63 }
  64
  65 open OUT, "> $ARGV[0]" or die "couldn't write `$ARGV[0]': $!";
  66
  67 print OUT <<EOF;
  68 /* -*-c-*-
  69  *
  70  * algs.c [generated]
  71  */
  72
  73 #include "catacomb-perl.h"
  74
  75 EOF
  76 print OUT cross("#include <catacomb/", \@cipher, ".h>\n"), "\n";
  77 print OUT cross("#include <catacomb/", \@cipher, "-",
  78                 [qw(counter ofb)], ".h>\n"), "\n";
  79 print OUT cross("#include <catacomb/", \@hash, "-mgf.h>\n"), "\n";
  80
  81 print OUT <<EOF;
  82
  83 const struct randtab mgftab[] = {
  84 EOF
  85 foreach my $i (@hash) { print OUT "  { \"$i\", ${i}_mgfrand },\n"; }
  86 print OUT <<EOF;
  87   { 0, 0 }
  88 };
  89
  90 const struct randtab ctrtab[] = {
  91 EOF
  92 foreach my $i (@cipher) { print OUT "  { \"$i\", ${i}_counterrand },\n"; }
  93 print OUT <<EOF;
  94   { 0, 0 }
  95 };
  96
  97 const struct randtab ofbtab[] = {
  98 EOF
  99 foreach my $i (@cipher) { print OUT "  { \"$i\", ${i}_ofbrand },\n"; }
 100 print OUT <<EOF;
 101   { 0, 0 }
 102 };
 103 EOF
 104
 105 foreach my $i (@cipher) {
 106   my $I = uc($i);
 107   print OUT <<EOF;
 108
 109 static void init_$i(void *ctx, const void *k, size_t ksz) {
 110   ${i}_init(ctx, k, ksz);
 111 }
 112 static void eblk_$i(const void *ctx, const void *in, void *out) {
 113   uint32 w[${I}_BLKSZ / 4];
 114   BLKC_LOAD(${I}, w, in);
 115   ${i}_eblk(ctx, w, w);
 116   BLKC_STORE(${I}, out, w);
 117 }
 118 static void dblk_$i(const void *ctx, const void *in, void *out) {
 119   uint32 w[${I}_BLKSZ / 4];
 120   BLKC_LOAD(${I}, w, in);
 121   ${i}_dblk(ctx, w, w);
 122   BLKC_STORE(${I}, out, w);
 123 }
 124 static PRPClass prp_$i = {
 125   "$i",
 126   ${i}_keysz, sizeof(${i}_ctx), ${I}_BLKSZ,
 127   init_$i, eblk_$i, dblk_$i
 128 };
 129 EOF
 130 }
 131
 132 print OUT <<EOF;
 133
 134 PRPClass *const prptab[] = {
 135 EOF
 136 foreach my $i (@cipher) {
 137   print OUT "  &prp_$i,\n";
 138 }
 139 print OUT "  0\n};\n";
 140
 141 #----- That's all, folks ----------------------------------------------------