#!/usr/local/bin/perl

require 'des.pl';

( $input , $output ) = @ARGV;

if( $input eq '' || $output eq '' ){
    print "Usage: $0 inputfile outputfile\n";
}

open( I , "< $input" );
open( O , "> $output" );

while( <I> ){
    #print;
    $e = &des::encrypt( "key" , $_ );
    #&des::arrdump( unpack( "C*" , $e ) );
    print O &des::encline( $e ) . "\n";
}