File Coverage

blib/lib/Net/SSH/Perl/Cipher/IDEA.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod	3	4	75.0
total	44	46	95.6

package Net::SSH::Perl::Cipher::IDEA;

use strict;
use warnings;

use Net::SSH::Perl::Cipher;
use base qw( Net::SSH::Perl::Cipher );

use Net::SSH::Perl::Cipher::CFB;
use Crypt::IDEA;

sub new {
    my $class = shift;
    my $ciph = bless { }, $class;
    $ciph->init(@_) if @_;
    $ciph;
}

sub init {
    my $ciph = shift;
    my($key, $iv) = @_;
    my $idea = IDEA->new(substr $key, 0, 16);
    $ciph->{cfb} = Net::SSH::Perl::Cipher::CFB->new($idea, $iv);
}

sub encrypt {
    my($ciph, $text) = @_;
    $ciph->{cfb}->encrypt($text);
}

sub decrypt {
    my($ciph, $text) = @_;
    $ciph->{cfb}->decrypt($text);
}

1;
__END__