Ready to generate new certificates

This commit is contained in:
nemunaire 2014-01-21 03:07:52 +01:00
commit cc588d51f9
7 changed files with 66 additions and 208 deletions

View file

@ -110,6 +110,11 @@ for my $f (readdir $dh)
elsif ($type eq "sha512") {
$tmp_solution = sha512_hex($solution);
}
elsif ($type eq "whirlpool") {
my $hash = Digest->new( 'Whirlpool' );
$hash->add( $solution );
$tmp_solution = $hash->hexdigest;
}
elsif ($type ne "raw") {
warn "$type not implemented";
}