Initial Commit

database/perl/vendor/lib/Crypt/OpenSSL/DSA/Signature.pod

@@ -0,0 +1,62 @@
+=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