---
name: "Crypt::OpenSSL::DSA::Signature"
section: "3pm"
platform: "linux"
package: "perl-crypt-openssl-dsa"
version: "0.20-9"
release: "Arch Linux 2026-11-01"
platforms: ["linux"]
url: "https://new.carta.tech/Crypt::OpenSSL::DSA::Signature"
---

# Crypt::OpenSSL::DSA::Signature(3pm)

## NAME

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

## 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 $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);
```

## CLASS METHODS

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

## OBJECT METHODS

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

## AUTHOR

T.J. Mather, \<tjmather@maxmind.com\>

## SEE ALSO

Crypt::OpenSSL::DSA