|
|
Crypt::OpenSSL::DSA::Signature - Digital Signature Object
use Crypt::OpenSSL::DSA; my $dsa_priv = Crypt::OpenSSL::DSA->read_priv_key( $filename ); my $sig_obj = $dsa_priv->do_sign($message); my $dsa_pub = Crypt::OpenSSL::DSA->read_pub_key( $filename ); my $valid = $dsa_pub->do_verify($message, $sig_obj);
my $r = $sig_obj->get_r; my $s = $sig_obj->get_s;
my $sig_obj2 = Crypt::OpenSSL::DSA::Signature->new(); $sig_obj2->set_r($r); $sig_obj2->set_s($s); my $valid = $dsa_pub->do_verify($message, $sig_obj2);
Create a new DSA Signature Object. You will need to call set_r and set_s after you create this.
Gets first member of signature pair.
Gets second member of signature pair.
Sets first member of signature pair.
Sets second member of signature pair.
T.J. Mather, <tjmather@maxmind.com>