CHips L MINI SHELL

CHips L pro

Current Path : /proc/self/root/proc/2/root/usr/local/share/perl5/x86_64-linux-thread-multi/Crypt/Mac/
Upload File :
Current File : //proc/self/root/proc/2/root/usr/local/share/perl5/x86_64-linux-thread-multi/Crypt/Mac/OMAC.pm

package Crypt::Mac::OMAC;

### BEWARE - GENERATED FILE, DO NOT EDIT MANUALLY!

use strict;
use warnings;
our $VERSION = '0.050';

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__

Copyright 2K16 - 2K18 Indonesian Hacker Rulez