/ 
CryptX-0.005
/ Crypt::PK::DSA
Security Advisories (3)
CVE-2018-25099 (2018-10-26)

A user can pass anything as the tag into gcm_decrypt_verify() and it will return decrypted plaintext.

CVE-2025-40912 (2025-06-11)

CryptX for Perl before version 0.065 contains a dependency that may be susceptible to malformed unicode. CryptX embeds the tomcrypt library. The versions of that library in CryptX before 0.065 may be susceptible to CVE-2019-17362.

CVE-2025-40914 (2025-06-11)

Perl CryptX before version 0.087 contains a dependency that may be susceptible to an integer overflow. CryptX embeds a version of the libtommath library that is susceptible to an integer overflow associated with CVE-2023-36328.

NAME

Crypt::PK::DSA - Public key cryptography based on DSA

SYNOPSIS

### OO interface

#Encryption: Alice
my $pub = Crypt::PK::DSA->new('Bob_pub_dsa1.der'); 
my $ct = $pub->encrypt("secret message");
#
#Encryption: Bob (received ciphertext $ct)
my $priv = Crypt::PK::DSA->new('Bob_priv_dsa1.der');
my $pt = $priv->decrypt($ct);
 
#Signature: Alice
my $priv = Crypt::PK::DSA->new('Alice_priv_dsa1.der');
my $sig = $priv->sign($message);
#
#Signature: Bob (received $message + $sig)
my $pub = Crypt::PK::DSA->new('Alice_pub_dsa1.der');
$pub->verify($sig, $message) or die "ERROR";

#Shared secret
my $priv = Crypt::PK::DSA->new('Alice_priv_dsa1.der');
my $pub = Crypt::PK::DSA->new('Bob_pub_dsa1.der'); 
my $shared_secret = $priv->shared_secret($pub);

#Key generation
my $pk = Crypt::PK::DSA->new();
$pk->generate_key(30, 256);
my $private_der = $pk->export_key_der('private');
my $public_der = $pk->export_key_der('public');
my $private_pem = $pk->export_key_pem('private');
my $public_pem = $pk->export_key_pem('public');

### Functional interface

#Encryption: Alice
my $ct = dsa_encrypt('Bob_pub_dsa1.der', "secret message");
#Encryption: Bob (received ciphertext $ct)
my $pt = dsa_decrypt('Bob_priv_dsa1.der', $ct);
 
#Signature: Alice
my $sig = dsa_sign('Alice_priv_dsa1.der', $message);
#Signature: Bob (received $message + $sig)
dsa_verify('Alice_pub_dsa1.der', $sig, $message) or die "ERROR";

#Shared secret
my $shared_secret = dsa_shared_secret('Alice_priv_dsa1.der', 'Bob_pub_dsa1.der');

FUNCTIONS

dsa_encrypt

dsa_decrypt

dsa_sign

dsa_verify

dsa_shared_secret

METHODS

new

generate_key

$pk->generate_key($group_size, $modulus_size);
# $group_size  ... 15 < $group_size < 1024
# $modulus_size .. ($modulus_size - $group_size) < 512

# Bits of Security  $group_size  $modulus_size
# 80                20           128
# 120               30           256
# 140               35           384
# 160               40           512

import_key

export_key_der

export_key_pem

encrypt

decrypt

sign

verify

shared_secret

is_private

size