Mail::SpamCannibal::GoodPrivacy

PGP for spamcannibal mail.
Download

Mail::SpamCannibal::GoodPrivacy Ranking & Summary

Advertisement

  • Rating:
  • License:
  • GPL
  • Price:
  • FREE
  • Publisher Name:
  • Michael Robinton
  • Publisher web site:
  • http://search.cpan.org/~miker/Net-DNS-Codes-0.09/Codes.pm

Mail::SpamCannibal::GoodPrivacy Tags


Mail::SpamCannibal::GoodPrivacy Description

PGP for spamcannibal mail. Mail::SpamCannibal::GoodPrivacy is a Perl module with PGP for spamcannibal mail.SYNOPSIS use Mail::SpamCannibal::GoodPrivacy; $plaintext = decrypt($hash); or -- defaults shown $plaintext = decrypt( Data => $data, ExeFile => '/usr/local/bin/pgp', KeyPath => '.pgp', Password => 'sometext', UserID => 'default userid', Version => '2.62', ); ($begin,$end) = is_pgp(@lines,$err); $nullchar = whiteclean(@array); $outstrng = whiteclean($instring);Mail::SpamCannibal::GoodPrivacy is a standardized wrapper around 'pgp2x', 'pgp6x', or 'gnupg' that provides encryption and decryption for IPTable::IPv4::DBTables::SpamCannibal.Mail::SpamCannibal::GoodPrivacy has been tested using pgp-2.6.2g, pgp-6.5.8, and gpg-1.2.2 on RSA keys generated by pgp-2.6.2g which are included with this distribution.Utilities to verify that a message has PGP encrypted content prior to decryption so that plain text messages are not inadvertently passed to the decrypt program;$plaintext = decrypt($hash); Decrypt an encoded message. input: a hash or hash pointer return: plaintext or '' on error %hash = ( Data => $data, ExeFile => '/usr/local/bin/gpg', KeyPath => './', Password => 'sometext', UserID => '', Version => '', ); Data: data to decrypt ExeFile: location of executable i.e. /usr/local/bin/pgp /usr/local/bin/gpg WARNING: use appropriate default keyring names. KeyPath: directory for keyrings Password: password for decryption UserID: Optional default user for decryption. The user 'name' or keyID i.e. 'test' or E56C91B9 as displayed by pgp -kv ./keyrings/secring.pgp or ENVGPGHOME=./keyrings gpg --list-secret-keys Version: Version compliance (gpg only) (none) for standard gpg, 2.6x and 6.x for pgp support($begin,$end) = is_pgp(@lines,$err); Test an array of lines to determine if they represent a valid PGP encrypted message. input: pointer to array of lines, pointer to error return string returns: () empty array on failure or begin = pointer to -----BEGIN PGP end = pointer to -----END for the input array $err will contain and empty string on success or a text message indicating the failure reason not an array ref signed cleartext no BEGIN PGP no blank line no armor text invalid armor no END i.e. if (@_ = is_pgp(@lines)) { ($begin,$end) = @_; } else { # sorry, not a PGP message }$nullchar = whiteclean(@array); See below:$outstrng = whiteclean($string); Cleans trailing whitespace from a text string or an array of text lines. If the input is an array pointer to an array of text lines, cleans the lines of trailing whitespace in place. If the input is a string, returns a string with trailing whitespace removed. input: array pointer or string returns: '' if input = ARRAY $outstring if the input was a string Requirements: · Perl


Mail::SpamCannibal::GoodPrivacy Related Software