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