[php] Perl 2 PHP for use of PGP

[Roger Faust]

> irgendwie reimt sich das :-)

irgendwie ist das OT ;)

>
> 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 ???
>

ich kanns versuchen, ist aber lang her das ich was in perl
gemacht habe

> #!/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);

programm wird gestartet. (denke open2 gehört zum modul IPC::Open2)
scheint zwei datenströme zu öffnen. zum schreiben an das programm
und zum lesen.

>
> # 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";
>

schreibt an das programm

> # Encrypt the data
> close(WRITEPGP);
>

schliesst den schreib kanal

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

liesst alle ausgaben des programms in einen array und
schliesst ihn

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

druckt den array über die standard ausgabe

habe aber keine ahnung, wie udn ob das mit php geht :(

mfG Roger