File Coverage

blib/lib/Crypt/Blowfish/Mod.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	5	8	62.5
condition	5	9	55.5
subroutine	13	13	100.0
pod	6	6	100.0
total	63	70	90.0

package Crypt::Blowfish::Mod;
our $VERSION = '0.05';

use strict;
use warnings;
use Carp;
use MIME::Base64;

use vars qw/$VERSION @ISA/;

require DynaLoader;
@ISA = qw/DynaLoader/;

bootstrap Crypt::Blowfish::Mod $VERSION;

sub new {
    my $class = shift;
    my %p = @_ == 1 ? ( key=>shift ) : ( @_ );

    confess "Missing 'key' parameter to $class->new()" unless( $p{key} || $p{key_raw} );

    my $endianness = $p{endianness} || $class->_detect_endianness;
    my $key = $p{key_raw} || MIME::Base64::decode_base64( $p{key} );
    return bless( {  key => $key, endianness=>$endianness }, $class );
}

sub _detect_endianness {
    return 10002000 == unpack("h*", pack("s2", 1, 2)) ? 'little' : 'big';
}

sub _is_big_endian {
    my $self = shift;
    return $self->{endianness} eq 'little' ? 0 : 1;
}

sub encrypt_raw {
    my ($self, $str ) = @_;
    return MIME::Base64::decode_base64($self->encrypt($str));
}

sub decrypt_raw {
    my ($self, $str ) = @_;
    $self->decrypt( MIME::Base64::encode_base64($str, '') );
}

sub encrypt {
    my ($self, $str ) = @_;
    return Crypt::Blowfish::Mod::b_encrypt( $self->{key}, $str, $self->_is_big_endian, 0 )
}

sub encrypt_legacy {
    my ($self, $str ) = @_;
    return Crypt::Blowfish::Mod::b_encrypt( $self->{key}, $str, $self->_is_big_endian, 1 )
}

sub decrypt {
    my ($self, $str ) = @_;
    return Crypt::Blowfish::Mod::b_decrypt( $self->{key}, $str, $self->_is_big_endian );
}

1;

__END__