sub decrypt
{
    my ($message, $cipher, $key) = @_;
    my ($plaintext, $comptext, $ciphertext, $armortext, $cbc);

    $cbc = Crypt::CBC->new( -key    => $key,
                            -cipher => $cipher);
    $armortext = $$message;
    $ciphertext = decode_base64($armortext) || out ("Unarmor failed!");
    $comptext = $cbc->decrypt($ciphertext) || out ("Decrypt failed!");
    $plaintext = Compress::Zlib::memGunzip($comptext) || out ("Decompress failed!");
    $$message = $plaintext;

    return (1);
}