File Coverage

blib/lib/Crypt/Rabbit.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	3	4	75.0
total	25	30	83.3

package Crypt::Rabbit;

use strict;
use warnings;
require Exporter;

our @EXPORT_OK = qw(new encrypt decrypt keysize rounds);
our $VERSION = '1.0.0';
our @ISA = qw(Exporter);

require XSLoader;
XSLoader::load('Crypt::Rabbit', $VERSION);

# Preloaded methods go here.

sub keysize { 16 }    # 16 bytes
sub rounds { 1 }      # may be useful for some applications

sub encrypt {
    my ($class, $str) = @_;
    my $len = length $str;
    my $pad = pack "a" x ((16 - ($len % 16)) % 16), \000;
    $str .= $pad;
    my $ciphertext = rabbit_enc($class, $str);
    return substr($ciphertext, 0, $len);
}

sub decrypt {
    my ($class, $str) = @_;
    my $len = length $str;
    my $pad = pack "a" x ((16 - ($len % 16)) % 16), \000;
    $str .= $pad;
    my $ciphertext = rabbit_enc($class, $str);
    return substr($ciphertext, 0, $len);
}

1;

__END__