File Coverage

blib/lib/Crypt/DES_EEE3.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	24	24	100.0

package Crypt::DES_EEE3;
use strict;

use Crypt::DES;
use Crypt::DES_EDE3;
use vars qw( $VERSION @ISA );
$VERSION = '0.01';
@ISA= qw(Crypt::DES_EDE3);

sub encrypt {
    my($ede3, $block) = @_;
    $ede3->{des3}->encrypt(
        $ede3->{des2}->encrypt(
            $ede3->{des1}->encrypt($block)
        )
    );
}

sub decrypt {
    my($ede3, $block) = @_;
    $ede3->{des1}->decrypt(
        $ede3->{des2}->decrypt(
            $ede3->{des3}->decrypt($block)
        )
    );
}

1;
__END__