Ready to generate new certificates
This commit is contained in:
parent
ac5aa1099e
commit
cc588d51f9
7 changed files with 66 additions and 208 deletions
5
check.pl
5
check.pl
|
|
@ -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";
|
||||
}
|
||||
|
|
|
|||
Reference in a new issue