File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	3	0.0
total	27	33	81.8

package Net::SSH::Perl::Cipher::CTR;
use strict;

sub new {
    my($class, $ciph, $iv) = @_;
    bless {
        cipher => $ciph,
        iv => substr($iv,0,$ciph->blocksize) || "\0" x $ciph->blocksize,
    }, $class;
}

sub encrypt {
    my $ctr = shift;
    my $data = shift;

    my $retval = '';
    my $iv = $ctr->{iv};
    my $size = $ctr->{cipher}->blocksize;

    while (length $data) {
        my $in = substr($data, 0, $size, '');
        $in ^= $ctr->{cipher}->encrypt($iv);
        for my $i (1..$size) {
            my $num = (unpack('C', substr($iv,-$i,1)) + 1) & 0xff;
            substr($iv,-$i,1,pack('C',$num));
            last if $num;
        }
        $retval .= $in;
    }
    $ctr->{iv} = $iv;
    $retval;
}

sub decrypt { shift->encrypt(@_) }

1;
__END__