NAME
Crypt::PK::DH - Public key cryptography based on Diffie-Hellman
SYNOPSIS
### OO interface
#Encryption: Alice
my $pub = Crypt::PK::DH->new('Bob_pub_dh1.der');
my $ct = $pub->encrypt("secret message");
#
#Encryption: Bob (received ciphertext $ct)
my $priv = Crypt::PK::DH->new('Bob_priv_dh1.der');
my $pt = $priv->decrypt($ct);
#Signature: Alice
my $priv = Crypt::PK::DH->new('Alice_priv_dh1.der');
my $sig = $priv->sign($message);
#
#Signature: Bob (received $message + $sig)
my $pub = Crypt::PK::DH->new('Alice_pub_dh1.der');
$pub->verify($sig, $message) or die "ERROR";
#Shared secret
my $priv = Crypt::PK::DH->new('Alice_priv_dh1.der');
my $pub = Crypt::PK::DH->new('Bob_pub_dh1.der');
my $shared_secret = $priv->shared_secret($pub);
#Key generation
my $pk = Crypt::PK::DH->new();
$pk->generate_key(128);
my $private = $pk->export_key('private');
my $public = $pk->export_key('public');
### Functional interface
#Encryption: Alice
my $ct = dh_encrypt('Bob_pub_dh1.der', "secret message");
#Encryption: Bob (received ciphertext $ct)
my $pt = dh_decrypt('Bob_priv_dh1.der', $ct);
#Signature: Alice
my $sig = dh_sign('Alice_priv_dh1.der', $message);
#Signature: Bob (received $message + $sig)
dh_verify('Alice_pub_dh1.der', $sig, $message) or die "ERROR";
#Shared secret
my $shared_secret = dh_shared_secret('Alice_priv_dh1.der', 'Bob_pub_dh1.der');FUNCTIONS
dh_encrypt
dh_decrypt
dh_sign
dh_verify
dh_shared_secret
METHODS
new
generate_key
$pk->generate_key($keysize);
# $keysize:
# 96 => DH-768
# 128 => DH-1024
# 160 => DH-1280
# 192 => DH-1536
# 224 => DH-1792
# 256 => DH-2048
# 320 => DH-2560
# 384 => DH-3072
# 512 => DH-4096