[php] Perl 2 PHP for use of PGP

[Cyrill Schumacher]

irgendwie reimt sich das :-)

könnte mir einer mal folgendes Perl Script so
ungefähr nach PHP portieren oder wenigstens
er klären wie ich pgp über exec() aufrufe ???

#!/usr/bin/perl

$| = 1;
print "Content-type: text/plain\n\n";

$pgpcmd = '/u/web/bhsbin/cgi-local/pgpe -r mail_(at)_srv.com -aft 2>&1';

# We need a library function
use IPC::Open2;

# Open the PGP program for bidirectional I/O
$pid = open2(\*READPGP, \*WRITEPGP, $pgpcmd);

# Send text to be encrypted to PGP
print WRITEPGP "Das ist ein Test von PGP 5 mit einem Perl-Script\n\n";
print WRITEPGP "Das ist ein Test von PGP 5 mit einem Perl-Script\n\n";
print WRITEPGP "Das ist ein Test von PGP 5 mit einem Perl-Script\n\n";
print WRITEPGP "Das ist ein Test von PGP 5 mit einem Perl-Script\n\n";
print WRITEPGP "Das ist ein Test von PGP 5 mit einem Perl-Script\n\n";
print WRITEPGP "Das ist ein Test von PGP 5 mit einem Perl-Script\n\n";

# Encrypt the data
close(WRITEPGP);

# Get the encrypted data from PGP
_(at)_pgptext = <READPGP>;
close(READPGP);

# Return information to user
print _(at)_pgptext;
--------------------------------

danke !

kiri