bin/fileenc

   1 #!/usr/bin/perl -w
   2 #
   3 use strict;
   4
   5 #https://www.madboa.com/geek/openssl/#how-do-i-create-an-md5-or-sha1-digest-of-a-file
   6 #
   7 # encrypt the file using 256-bit AES in CBC mode
   8 #
   9 # Usage: fileenc inFile <outFile>
  10
  11 my $inFile  = shift or die "Usage: $0 in_file <out_file>\n";
  12 my $outFile = shift || "";
  13
  14 my $command = "openssl enc -aes-256-cbc -salt -in $inFile " . ($outFile && "-out $outFile");
  15 print `$command`;