File Coverage

blib/lib/Crypt/Skip32/Base32Crockford.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	28	30	93.3

package Crypt::Skip32::Base32Crockford;
use strict;
use warnings;
use Encode::Base32::Crockford qw(base32_encode base32_decode);
our $VERSION = '0.33';
use base 'Crypt::Skip32';

sub encrypt_number_b32_crockford {
    my ( $self, $number ) = @_;
    my $plaintext  = pack( 'N', $number );
    my $ciphertext = $self->encrypt($plaintext);
    my $b64        = base32_encode( unpack 'N', $ciphertext );
    return $b64;
}

sub decrypt_number_b32_crockford {
    my ( $self, $b64 ) = @_;
    my $ciphertext = base32_decode($b64);
    my $plaintext  = $self->decrypt( pack 'N', $ciphertext );
    my $number     = unpack( 'N', $plaintext );
    return $number;
}

1;

__END__