automate gpg with perl

[Kai Schlamp]

Hello ...

I want to automate GnuPG via a Perl Script. (I am aware of the security
risk).

The problem is, when I execute the stated below script, i always get the
output "Reading passphrase from file descriptor 3 ..." and gnupg waits
for an input.
If I just press return, I get an encrypted file, but if try to decrypt
it with the password in the pass.txt, it fails.

Here is my little test script:

open(FILE, "./pass.txt") || die($!) ;
$fd = fileno(FILE) ;
system("c:/gnupg/gpg.exe --output test.gpg --passphrase-fd $fd
--symmetric test.txt") ;
close(FILE) || die($!) ;

And another question:
Is there a way to directly pass the password, perhaps in a perl pipe
funktion or something like that? I mean only using perl functions,
without the use of the shell pipe ("|").

greets,
Kai

 

[Matthew Braid]

Hello ...

I want to automate GnuPG via a Perl Script. (I am aware of the security
risk).

The problem is, when I execute the stated below script, i always get the
output "Reading passphrase from file descriptor 3 ..." and gnupg waits
for an input.
If I just press return, I get an encrypted file, but if try to decrypt
it with the password in the pass.txt, it fails.

Here is my little test script:

open(FILE, "./pass.txt") || die($!) ;
$fd = fileno(FILE) ;
system("c:/gnupg/gpg.exe --output test.gpg --passphrase-fd $fd
--symmetric test.txt") ;
close(FILE) || die($!) ;

And another question:
Is there a way to directly pass the password, perhaps in a perl pipe
funktion or something like that? I mean only using perl functions,
without the use of the shell pipe ("|").

greets,
Kai

See my response in comp.security.pgp.discuss