[ Mini Kiebo ]

Server: Windows NT DESKTOP-5B8S0D4 6.2 build 9200 (Windows 8 Professional Edition) i586 Path: D:/0xampp/perl/vendor/lib/Crypt/OpenSSL/DSA/ [ Home ]

File: Signature.pod

=head1 NAME

  Crypt::OpenSSL::DSA::Signature - Digital Signature Object

=head1 SYNOPSIS

  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);

=head1 CLASS METHODS

=over

=item $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.

=back

=head1 OBJECT METHODS

=over

=item $r = $sig_obj->get_r;

Gets first member of signature pair.

=item $s = $sig_obj->get_s;

Gets second member of signature pair.

=item $r = $sig_obj->set_r;

Sets first member of signature pair.

=item $s = $sig_obj->set_s;

Sets second member of signature pair.

=back

=head1 AUTHOR

T.J. Mather, E<lt>tjmather@maxmind.comE<gt>

=head1 SEE ALSO

L<Crypt::OpenSSL::DSA>

=cut