#!/usr/bin/perl -s
##
##
##
## Copyright (c) 1999, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id$


use Crypt::TripleDES; 

my $des = new Crypt::TripleDES; 
die "syntax: $0 -e|-d -pass=passphrase datafile\n" unless $pass; 
$data = join'',<>; 
print $des->encrypt3 ( $data, $pass ) if $e; 
print $des->decrypt3 ( $data, $pass ) if $d;