File Coverage

blib/lib/Crypt/Rijndael/MySQL.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	35	38	92.1

use strict;
use warnings;

package Crypt::Rijndael::MySQL;

use base 'Crypt::Rijndael';

our $VERSION = '0.02';

sub new {
    my $class = shift;
    my $key   = shift;

    my @parts = unpack '(A16)*', $key;
    $key = "\0" x 16;
    $key ^= $_ foreach @parts;

    my $self = $class->SUPER::new($key, @_);
    bless $self, $class; # force
}

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

    my $complement = 16 - length($data) % 16;
    $self->SUPER::encrypt($data . (chr($complement) x $complement), @_);
}

sub decrypt {
    my $self = shift;

    my $data = $self->SUPER::decrypt(@_);

    my $complement = ord substr($data, -1);
    if (substr($data, -$complement) ne chr($complement) x $complement) {
        require Carp;
        Carp::croak('Incorrect padding (wrong password or broken data?)');
    }

    substr($data, 0, length($data) - $complement);
}

1;

__END__