#!c:/perl/bin/perl -w
use Crypt::TripleDES;
use strict;

my $des = new Crypt::TripleDES;
my $passcode;
my $inst = $ARGV[0];
my $inputfile = $ARGV[1];
my $outputfile = $ARGV[2];
my $i = @ARGV;

&Get_Input;
&Cypher_Run;	

sub Get_Input{
	print "Get pass code > ";
	$passcode = <STDIN>;
}

sub Cypher_Run{
	my @file;
	open(INPUT, "<$inputfile") || die "Could not open input file:$!\n";
	open(OUTPUT, ">$outputfile") || die "Could not open output file:$!\n";
	while (<INPUT>){chomp($_); push (@file, $_)};
	if ($inst eq 'e'){
		foreach (@file){
			my $cyphertext = $des->encrypt3 ( $_, $passcode );
			print OUTPUT "$cyphertext\n";
		}
	}
	elsif ($inst eq 'd'){
		foreach (@file){
			my $plaintext = $des->decrypt3 ( $_, $passcode );
			print OUTPUT "$plaintext\n";
		}
	}
}