http://www.perlmonks.org?node_id=359092

Public Scratchpad

Download, Select Code To D/L

---

From 'perldoc Crypt::OpenPGP::Cipher'

use Crypt::OpenPGP::Cipher;
    my $cipher = Crypt::OpenPGP::Cipher->new($name);

    my $ct = $cipher->encrypt($plaintext);
    my $pt = $cipher->decrypt($ct);
[download]

Valid cipher names ($name) are: IDEA, DES3, Blowfish, Rijndael, Rijndael192, Rijndael256, and Twofish.