$ export PGPPASS="MY PASSPHRASE" $ echo $PGPPASS MY PASSPHRASE $ pgp -feast zzSPECTREz 1024-bit key, key ID 30331F8D, created 2000/11/28 .-----BEGIN PGP MESSAGE----- Version: 2.6.3a hIwDFugMGjAzH40BA/0QTFT3pazbHqhMp7tGiXDG0GBhvc1LOO3Nq0JUxyHKzNRo Zy8KMS186W+bVtEx0Bcp7EWVlQdt9JtFTYl0D9+zitKCmFpg0RT0mWNH9hEtixr3 WufvK4p0B/0wQKQypgS8rl/+cNR4+uGUbsD8YremUDBV8+YoE5B5yn5jh/mYvaYA AADnyBa016F+SSgwl5tUSgDZVBeMnl5mWmGvLivqG5NYrvyb4AATFgPQPeOzksGM bJKf5E3q9uxvtl7mZOuNCf6VC8lZPAt1NGHrGBMwCkptR835ZV1kSoSEMZhU1+nC 6i4g1VZA3bYyE5fOK4gA3IfhRAyvhYY5guCe9ff1+FtGSIVXmR3D8y4GaOrALhAZ FiK3B/FXx81coA3S7xOJnyVbBvTSh0ncppZwE5TvmK5anD4Hl8eJSZsJjwK5Jd5z 9Hs1nbqhAUs96PDnqjRMIP+sPU8dCRgylq9SwombStl18IEtvo/R4XHV =yeUi -----END PGP MESSAGE----- #### #!/usr/bin/perl -w use strict; use IPC::Open2 use FileHandle; $ENV{PGPPASS} = "MY PASSPHRASE"; print "\nEnter user id: "; my $user_id = ; chomp $user_id; print "\nInput file: "; my $inp_file = ; chomp $inp_file; open (INFILE, $inp_file) or die ("Could not open $inp_file: $!\n"); my @in_data = ; close (INFILE); my $pid = open2(\*READER, \*WRITER, 'pgp -feast $user_id') or warn "$!\n"; READER->autoflush(); WRITER->autoflush(); print WRITER @in_data; while () { print; } #### $ ./pgpify.pl Enter user id: zzSPECTREz Input file: test.dat Pretty Good Privacy(tm) 2.6.3a - Public-key encryption for the masses. (c) 1990-96 Philip Zimmermann, Phil's Pretty Good Software. 1996-03-04 Uses the RSAREF(tm) Toolkit, which is copyright RSA Data Security, Inc. Distributed by the Massachusetts Institute of Technology. Export of this software may be restricted by the U.S. government. Current time: 2000/11/28 07:51 GMT