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 $sig_size = $dsa_priv−>get_sig_size();
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);
$sig_obj = Crypt::OpenSSL::DSA::Signature−>new();
Create a new DSA Signature Object. You will need to call set_r and set_s after you create this.
$r = $sig_obj−>get_r;
Gets first member of signature pair.
$s = $sig_obj−>get_s;
Gets second member of signature pair.
$r = $sig_obj−>set_r;
Sets first member of signature pair.
$s = $sig_obj−>set_s;
Sets second member of signature pair.
T.J. Mather, <[email protected]>
Crypt::OpenSSL::DSA