libcryptx-perl/lib/Crypt/Mac/OMAC.pm

158 lines
3.6 KiB
Perl
Raw Normal View History

2018-03-22 15:51:09 +01:00
package Crypt::Mac::OMAC;
### BEWARE - GENERATED FILE, DO NOT EDIT MANUALLY!
use strict;
use warnings;
our $VERSION = '0.048';
use base qw(Crypt::Mac Exporter);
our %EXPORT_TAGS = ( all => [qw( omac omac_hex omac_b64 omac_b64u )] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();
use CryptX;
use Crypt::Cipher;
sub new { my $class = shift; _new(Crypt::Cipher::_trans_cipher_name(shift), @_) }
sub omac { Crypt::Mac::OMAC->new(shift, shift)->add(@_)->mac }
sub omac_hex { Crypt::Mac::OMAC->new(shift, shift)->add(@_)->hexmac }
sub omac_b64 { Crypt::Mac::OMAC->new(shift, shift)->add(@_)->b64mac }
sub omac_b64u { Crypt::Mac::OMAC->new(shift, shift)->add(@_)->b64umac }
1;
=pod
=head1 NAME
Crypt::Mac::OMAC - Message authentication code OMAC
=head1 SYNOPSIS
### Functional interface:
use Crypt::Mac::OMAC qw( omac omac_hex );
# calculate MAC from string/buffer
$omac_raw = omac($cipher_name, $key, 'data buffer');
$omac_hex = omac_hex($cipher_name, $key, 'data buffer');
$omac_b64 = omac_b64($cipher_name, $key, 'data buffer');
$omac_b64u = omac_b64u($cipher_name, $key, 'data buffer');
### OO interface:
use Crypt::Mac::OMAC;
$d = Crypt::Mac::OMAC->new($cipher_name, $key);
$d->add('any data');
$d->addfile('filename.dat');
$d->addfile(*FILEHANDLE);
$result_raw = $d->mac; # raw bytes
$result_hex = $d->hexmac; # hexadecimal form
$result_b64 = $d->b64mac; # Base64 form
$result_b64u = $d->b64umac; # Base64 URL Safe form
=head1 DESCRIPTION
Provides an interface to the OMAC message authentication code (MAC) algorithm.
=head1 EXPORT
Nothing is exported by default.
You can export selected functions:
use Crypt::Mac::OMAC qw(omac omac_hex );
Or all of them at once:
use Crypt::Mac::OMAC ':all';
=head1 FUNCTIONS
=head2 omac
Logically joins all arguments into a single string, and returns its OMAC message authentication code encoded as a binary string.
$omac_raw = omac($cipher_name, $key, 'data buffer');
#or
$omac_raw = omac($cipher_name, $key, 'any data', 'more data', 'even more data');
=head2 omac_hex
Logically joins all arguments into a single string, and returns its OMAC message authentication code encoded as a hexadecimal string.
$omac_hex = omac_hex($cipher_name, $key, 'data buffer');
#or
$omac_hex = omac_hex($cipher_name, $key, 'any data', 'more data', 'even more data');
=head2 omac_b64
Logically joins all arguments into a single string, and returns its OMAC message authentication code encoded as a Base64 string.
$omac_b64 = omac_b64($cipher_name, $key, 'data buffer');
#or
$omac_b64 = omac_b64($cipher_name, $key, 'any data', 'more data', 'even more data');
=head2 omac_b64u
Logically joins all arguments into a single string, and returns its OMAC message authentication code encoded as a Base64 URL Safe string (see RFC 4648 section 5).
$omac_b64url = omac_b64u($cipher_name, $key, 'data buffer');
#or
$omac_b64url = omac_b64u($cipher_name, $key, 'any data', 'more data', 'even more data');
=head1 METHODS
=head2 new
$d = Crypt::Mac::OMAC->new($cipher_name, $key);
=head2 clone
$d->clone();
=head2 reset
$d->reset();
=head2 add
$d->add('any data');
#or
$d->add('any data', 'more data', 'even more data');
=head2 addfile
$d->addfile('filename.dat');
#or
$d->addfile(*FILEHANDLE);
=head2 mac
$result_raw = $d->mac();
=head2 hexmac
$result_hex = $d->hexmac();
=head2 b64mac
$result_b64 = $d->b64mac();
=head2 b64umac
$result_b64url = $d->b64umac();
=head1 SEE ALSO
=over
=item * L<CryptX|CryptX>
=item * L<https://en.wikipedia.org/wiki/OMAC_%28cryptography%29|https://en.wikipedia.org/wiki/OMAC_%28cryptography%29>
=back
=cut
__END__