Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
# gpg.pl
...
open(OUT, ">testfile");
print OUT $ciphertext, "\n";
close(OUT);
  2. or download this
    #!/usr/bin/perl
# gupg.pl
...
 
die "Decryption failed: ", $pgp->errstr unless $plaintext;
print $plaintext, "\n";
  3. or download this
    #!/usr/bin/perl
# gpg.pl
...
);
 
$sth->execute($ciphertext) || die $dbh->stderr;
  4. or download this
    #!/usr/bin/perl
# gupg.pl
...
 
die "Decryption failed: ", $pgp->errstr unless $plaintext;
print $plaintext, "\n";