Slight reorganization. Add elliptic curves from X9.62.

[u/mdw/catacomb] / ectab-canonify.pl

diff --git a/ectab-canonify.pl b/ectab-canonify.pl
deleted file mode 100644 (file)
index e153214..0000000
--- a/ectab-canonify.pl
+++ /dev/null
@@ -1,16 +0,0 @@
-#! /usr/bin/perl
-
-while (<>) {
-  print, next if /^\s*(\#|$)/;
-  @F = split;
-  $k = shift @F;
-  print, next if $k eq "curve";
-  $n = lc(join("", @F));
-  if ($n =~ m"^/") {
-    $p = join(" + ", map("2^$_", split(m"/", substr($n, 1))));
-    $n = `calc 'printf("%x", $p)'`;
-  } elsif ($n =~ /../ && $n !~ /^0x/) {
-    $n = "0x$n";
-  }
-  print "  $k $n\n";
-}