Backup verschlüssel und in Cloud kopieren - #178915 (Netzwerkprogrammierung und Netzwerke mit Perl)

GwenDragon

2014-12-27 10:11

User since
2005-01-17
14788 Artikel
Admin1

Du hast GnuPG2 installiert statt des "Simple installer for GnuPG classic 1.4"!?

Der Modulauthor hat Mist gebaut und benutzt hartkodierte Pfadtrenner von Linux:

Code (perl): (dl )

1
2
3

my ($path) = grep { -x "$_/gpg" } split /:/, $ENV{PATH};
    croak ( "Couldn't find gpg in PATH ($ENV{PATH})\n" )
      unless $path;

https://metacpan.org/source/YANICK/GnuPG-0.19/GnuP...
Das ist wohl Linux-only!?
Pfade unter Windows sind nicht mit : sondern ; getrennt.

Andere Module mit GPG auf CPAN bauen auf IPC oder fork auf, was unter Windows ja hakt wie du weißt :(

Ich empfehl dir, gpg über system() oder als Pipe auszurufen und dann $? o. ä. zu prüfen.

Als Batchmodus mit GnuPG geht das symmetrische Verschlüsseln so:
echo M3InpAsSw0rD | gpg --batch --passphrase-fd 0 -o backup.gpg --symmetric --cipher-algo AES256 backup

Entschlüsseln:
echo M3InpAsSw0rD | gpg --batch --passphrase-fd 0 -o backup -d backup.gpg

//EDIT:
Einfachstes Beispiel, mit Password an Pipe

Code (perl): (dl )

my $file_from = 'test.txt';
my $file_to = 'test.gpg';

my $password = ' Blaaah';

open (my $FH, qq(| gpg --batch --passphrase-fd 0 -o "$file_to" --symmetric --cipher-algo AES256 "$file_from") );
print $FH $password;
close $FH or die $!;

Editiert von GwenDragon: Ver-/Entschlüsselung auf Kommandozeile
Last edited: 2014-12-27 14:38:13 +0100 (CET)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten