You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
293 B
12 lines
293 B
#!/usr/bin/perl
|
|
|
|
|
|
use Crypt::OpenSSL::ECDSA;
|
|
$sig = Crypt::OpenSSL::ECDSA::ECDSA_do_sign( $digest, $eckey );
|
|
$r = $sig->get_r;
|
|
$s = $sig->get_s;
|
|
|
|
$sig = Crypt::OpenSSL::ECDSA::ECDSA_SIG->new();
|
|
$sig->set_r($r);
|
|
$sig->set_s($s);
|
|
Crypt::OpenSSL::ECDSA::ECDSA_do_verify( $digest, $sig, $eckey );
|