#!/usr/bin/perl -w
#
use strict;

#https://www.madboa.com/geek/openssl/#how-do-i-create-an-md5-or-sha1-digest-of-a-file
#
# encrypt the file using 256-bit AES in CBC mode
# 
# Usage: filedec inFile <outFile>
#
my $inFile  = shift or die "Usage: $0 in_file <out_file>\n";
my $outFile = shift || "";

my $command = "openssl enc -d -aes-256-cbc -in $inFile " .  ($outFile && "-out $outFile");
print `$command`;