#!/usr/bin/env perl

use strict;
use warnings 'all';

my $test_in = 'test.txt';
my $test_out = 'test.bin';

my $cipher = 'des-cbc';
my $iv =        '0123456789ABCDEF';
my $fixed_key = '0123456789ABCDEF';

open (my $infile, '<', $test_in)
	or die "Couldn't open $test_in for input: $!";
undef $/;
my $plaintext = <$infile>;
close ($infile);

# OpenSSL

my $enc = "openssl enc -$cipher -iv $iv -nosalt -out $test_out -K $fixed_key";
print "$enc\n";

open (my $pipe, "|-", $enc);
print $pipe $plaintext;
close $pipe;

# Crypt::CBC
	
require Crypt::CBC;
require Crypt::Cipher::DES;

$iv = pack("h*", $iv);
$fixed_key = pack("h*", $fixed_key);

my $crypt = Crypt::CBC->new(
	-cipher         => 'Cipher::DES',
	-iv             => $iv,
	-key            => $fixed_key,
	-literal_key    => 1,
	-header         => 'none',
);

my $ciphertext = $crypt->encrypt($plaintext);
		
open (my $cipherout, '>', 'cryptx.bin')
	or die "Couldn't open cryptx.bin for output: $!";
binmode($cipherout);
print $cipherout $ciphertext;
close $cipherout;