Perl - Cipher Block Chaning Mode

#!/data/atlas2ar/pdev01/perl/bin/perl

use lib '../blib/lib';

use lib '/data/atlas2ar/pdev01/perl/lib';

use Getopt::Std;

use Crypt::DES;

use Crypt::CBC;

use strict vars;

my %opciones;

getopts('edk:i:o:',\%opciones) || die <<USO;

Usage: des.pl [opciones] archivo1 archivo2 archivo3...

   DES encripta/decripta archivos usando Modo CBC(Cipher Block Chaining.

opciones:

       -e         encripta (default)

       -d         decripta

       -k 'key'   pasar clave

       -i archivo archivo de entrada

       -o archivo archivo de salida

USO

    ;

@ARGV = $opciones{'i'} if $opciones{'i'};

push(@ARGV,'-') unless @ARGV;

open (STDOUT,">$opciones{'o'}") || die "$opciones{'o'}: $!"

    if $opciones{'o'};

my $key = $opciones{'k'} || get_key();

$key = pack("H16", $key);

# DES used by default

my $cipher = Crypt::CBC->new($key) || die "No se puede crear objeto CBC"

+;

my $decrypt = $opciones{'d'} and !$opciones{'e'};

$cipher->start($decrypt ? 'decrypt' : 'encrypt');

my $in;

while (@ARGV) {

    my $archivo = shift @ARGV;

    open(ARGV,$archivo) || die "$archivo: $!";

    print $cipher->crypt($in) while read(ARGV,$in,1024);

    close ARGV;

}

print $cipher->finish;

sub get_key {

    local($|) = 1;

    local(*TTY);

    open(TTY,"/dev/tty");

    my ($key1,$key2);

    system "stty -echo </dev/tty";

    do {

    print STDERR "DES key: ";

        chomp($key1 = <TTY>);

    print STDERR "\r\nRe-type key: ";

        chomp($key2 = <TTY>);

        print STDERR "\r\n";

        print STDERR "Las 2 claves no coinciden.\r\n"

            unless $key1 eq $key2;

    } until $key1 eq $key2;

    system "stty echo </dev/tty";

    close(TTY);

    $key1;

}