#!/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> ){
    chomp( $_ );
    $u = &des::decline( $_ );
    $d = &des::decrypt( "key" , $u );
    print ">";
    &des::arrdump( unpack( "C*" , $d ) );
#    print $d;
    print O $d;
}