Perl module interface to the gnu privacy guard (v1.x.x series)
use GnuPG qw( :algo );
my $gpg = new GnuPG();
$gpg->encrypt( plaintext => "file.txt", output => "file.gpg",
armor => 1, sign => 1,
passphrase => $secret );
$gpg->decrypt( ciphertext => "file.gpg", output => "file.txt" );
$gpg->clearsign( plaintext => "file.txt", output => "file.txt.asc",
passphrase => $secret, armor => 1,
);
$gpg->verify( signature => "file.txt.asc", file => "file.txt" );
$gpg->gen_key( name => "Joe Blow", comment => "My GnuPG key",
passphrase => $secret,
);
GnuPG is a perl interface to the \s-1GNU\s0 Privacy Guard. It uses the shared memory coprocess interface that gpg provides for its wrappers. It tries its best to map the interactive interface of the gpg to a more programmatic model.
The \s-1API\s0 is accessed through methods on a GnuPG object which is a wrapper around the gpg program. All methods takes their argument using named parameters, and errors are returned by throwing an exception (using croak). If you wan't to catch errors you will have to use eval.
When handed in a file handle for input or output parameters on many of the functions, the \s-1API\s0 attempts to tie that handle to \s-1STDIN\s0 and \s-1STDOUT\s0. In certain persistent environments (particularly a web environment), this will not work. This problem can be avoided by passing in file names to all relevant parameters rather than a Perl file handle.
There is also a tied file handle interface which you may find more convenient for encryption and decryption. See GnuPG::Tie\|(3) for details.
You create a new GnuPG wrapper object by invoking its new method. (How original !). The module will try to finds the gpg program in your path and will croak if it can't find it. Here are the parameters that it accepts :
Path to the gpg program.
Path to the options file for gpg. If not specified, it will use the default one (usually ~/.gnupg/options).
Path to the gpg home directory. This is the directory that contains the default options file, the public and private key rings as well as the trust database.
If this variable is set to true, gpg debugging output will be sent to stderr.
Example: my $gpg = new GnuPG();
This methods is used to create a new gpg key pair. The methods croaks if there is an error. It is a good idea to press random keys on the keyboard while running this methods because it consumes a lot of entropy from the computer. Here are the parameters it accepts :
This is the algorithm use to create the key. Can be \s-1DSA_ELGAMAL\s0, \s-1DSA\s0, \s-1RSA_RSA\s0 or \s-1RSA\s0. It defaults to \s-1DSA_ELGAMAL\s0. To import those constant in your name space, use the :algo tag.
The size of the public key. Defaults to 1024. Cannot be less than 768 bits, and keys longer than 2048 are also discouraged. (You *DO* know that your monitor may be leaking sensitive information ;-).
How long the key is valid. Defaults to 0 or never expire.
This is the only mandatory argument. This is the name that will used to construct the user id.
Optional email portion of the user id.
Optional comment portion of the user id.
The passphrase that will be used to encrypt the private key. Optional but strongly recommended.
Example: $gpg->gen_key( algo => DSA_ELGAMAL, size => 1024, name => "My name" );
Import keys into the GnuPG private or public keyring. The method croaks if it encounters an error. It returns the number of keys imported. Parameters :
Only parameter and mandatory. It can either be a filename or a reference to an array containing a list of files that will be imported.
Example: $gpg->import_keys( keys => [ qw( key.pub key.sec ) ] );
Exports keys from the GnuPG keyrings. The method croaks if it encounters an error. Parameters :
Optional argument that restricts the keys that will be exported. Can either be a user id or a reference to an array of userid that specifies the keys to be exported. If left unspecified, all keys will be exported.
If this argument is to true, the secret keys rather than the public ones will be exported.
If this argument is set to true, all keys (even those that aren't OpenPGP compliant) will be exported.
This argument specifies where the keys will be exported. Can be either a file name or a reference to a file handle. If not specified, the keys will be exported to stdout.
Set this parameter to true, if you want the exported keys to be \s-1ASCII\s0 armored.
Example: $gpg->export_keys( armor => 1, output => "keyring.pub" );
This method is used to encrypt a message, either using assymetric or symmetric cryptography. The methods croaks if an error is encountered. Parameters:
This argument specifies what to encrypt. It can be either a filename or a reference to a file handle. If left unspecified, \s-1STDIN\s0 will be encrypted.
This optional argument specifies where the ciphertext will be output. It can be either a file name or a reference to a file handle. If left unspecified, the ciphertext will be sent to \s-1STDOUT\s0.
If this parameter is set to true, the ciphertext will be \s-1ASCII\s0 armored.
If this parameter is set to true, symmetric cryptography will be used to encrypt the message. You will need to provide a passphrase parameter.
If not using symmetric cryptography, you will have to provide this parameter. It should contains the userid of the intended recipient of the message. It will be used to look up the key to use to encrypt the message. The parameter can also take an array ref, if you want to encrypt the message for a group of recipients.
If this parameter is set to true, the message will also be signed. You will probably have to use the passphrase parameter to unlock the private key used to sign message. This option is incompatible with the symmetric one.
This parameter is used to specified the private key that will be used to sign the message. If left unspecified, the default user will be used. This option only makes sense when using the sign option.
This parameter contains either the secret passphrase for the symmetric algorithm or the passphrase that should be used to decrypt the private key.
Example: $gpg->encrypt( plaintext => file.txt, output => "file.gpg", sign => 1, passphrase => $secret );
This method is used create a signature for a file or stream of data. This method croaks on errors. Parameters :
This argument specifies what to sign. It can be either a filename or a reference to a file handle. If left unspecified, the data read on \s-1STDIN\s0 will be signed.
This optional argument specifies where the signature will be output. It can be either a file name or a reference to a file handle. If left unspecified, the signature will be sent to \s-1STDOUT\s0.
If this parameter is set to true, the signature will be \s-1ASCII\s0 armored.
This parameter contains the secret that should be used to decrypt the private key.
This parameter is used to specified the private key that will be used to make the signature . If left unspecified, the default user will be used.
If set to true, a digest of the data will be signed rather than the whole file.
Example: $gpg->sign( plaintext => "file.txt", output => "file.txt.asc", armor => 1, );
This methods clearsign a message. The output will contains the original message with a signature appended. It takes the same parameters as the sign method.
This method verifies a signature against the signed message. The methods croaks if the signature is invalid or an error is encountered. If the signature is valid, it returns an hash with the signature parameters. Here are the method's parameters :
If the message and the signature are in the same file (i.e. a clearsigned message), this parameter can be either a file name or a reference to a file handle. If the signature doesn't follows the message, than it must be the name of the file that contains the signature.
This is a file name or a reference to an array of file names that contains the signed data.
When the signature is valid, here are the elements of the hash that is returned by the method :
The signature id. This can be used to protect against replay attack.
The data at which the signature has been made.
The epoch timestamp of the signature.
The key id used to make the signature.
The userid of the signer.
The fingerprint of the signature.
The trust value of the public key of the signer. Those are values that can be imported in your namespace with the :trust tag. They are (\s-1TRUST_UNDEFINED\s0, \s-1TRUST_NEVER\s0, \s-1TRUST_MARGINAL\s0, \s-1TRUST_FULLY\s0, \s-1TRUST_ULTIMATE\s0).
Example : my $sig = $gpg->verify( signature => "file.txt.asc", file => "file.txt" );
This method decrypts an encrypted message. It croaks, if there is an error while decrypting the message. If the message was signed, this method also verifies the signature. If decryption is sucessful, the method either returns the valid signature parameters if present, or true. Method parameters :
This optional parameter contains either the name of the file containing the ciphertext or a reference to a file handle containing the ciphertext. If not present, \s-1STDIN\s0 will be decrypted.
This optional parameter determines where the plaintext will be stored. It can be either a file name or a reference to a file handle. If left unspecified, the plaintext will be sent to \s-1STDOUT\s0.
This should be set to true, if the message is encrypted using symmetric cryptography.
The passphrase that should be used to decrypt the message (in the case of a message encrypted using a symmetric cipher) or the secret that will unlock the private key that should be used to decrypt the message.
Example: $gpg->decrypt( ciphertext => "file.gpg", output => "file.txt" passphrase => $secret );
This module doesn't work (yet) with the v2 branch of GnuPG.
Francis J. Lacoste <[email protected]>
Copyright (c) 1999,2000 iNsu Innovations. Inc. Copyright (c) 2001 Francis J. Lacoste
This program is free software; you can redistribute it and/or modify it under the terms of the \s-1GNU\s0 General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
GnuPG::Tie
Alternative module: GnuPG::Interface
gpg\|(1)