17 my %CTYPE = ("niceprime" => "primeproj",
18 "prime" => "primeproj",
19 "binpoly" => "binproj",
20 "binnorm" => "binproj");
32 print "curve $name $kind\n";
33 $p = "0x".$p if $kind =~ /bin/;
34 system "./ecptd", "$kind $p $CTYPE{$kind} 0x$a 0x$b", "0x$r", $h, $g;