Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.204
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
OMAC	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Perl	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
CMAC.pm	3.13 KB	-rw-rw-rw-	2008-06-01 20:41
HMAC.pm	2.82 KB	-rw-rw-rw-	2011-07-25 20:51
HMAC_MD5.pm	1.09 KB	-rw-rw-rw-	2009-03-06 15:52
HMAC_SHA1.pm	1.14 KB	-rw-rw-rw-	2011-07-25 20:51
MD2.pm	1.33 KB	-rw-rw-rw-	2014-04-28 23:36
OMAC1.pm	447 B	-rw-rw-rw-	2008-06-01 20:40
OMAC2.pm	1.25 KB	-rw-rw-rw-	2008-06-01 20:21
SHA1.pm	6.92 KB	-rw-rw-rw-	2010-07-03 17:20
Whirlpool.pm	3.23 KB	-rw-rw-rw-	2014-12-01 23:08

Rename

package Digest::OMAC2;

use base qw(Digest::OMAC::Base);

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

# we still call it Lu2 even though it's actually no longer squared ;-)

sub _lu2 {
	my ( $self, $blocksize,  $L ) = @_;
	$self->_shift_lu2( $L, $self->_lu2_constant($blocksize) );
}

sub _shift_lu2 {
	my ( $self, $L, $constant ) = @_;

# used to do Bit::Vector's shift_left but that's broken
	my $unpacked = unpack("B*",$L);
	my $lsb = chop $unpacked;
	my $Lt = pack("B*", "0" . $unpacked);

if ( $lsb ) {
		return $Lt ^ $constant;
	} else {
		return $Lt;
	}
}

sub _lu2_constant {
	my ( $self, $blocksize ) = @_;

if ( $blocksize == 16 ) { # 128
		return ("\x80" . ("\x00" x 14) . "\x43");
	} elsif ( $blocksize == 8 ) { # 64
		return ("\x80" . ("\x00" x 6) . "\x0d");
	} else {
		die "Blocksize $blocksize is not supported by OMAC";
	}
}

1;
__END__

=pod

=head1 NAME

Digest::OMAC2 - OMAC 2 implementation

=head1 SYNOPSIS

use Digest::OMAC2;

my $d = Digest::OMAC2->new( $key, $cipher );

=head1 DESCRIPTION

OMAC 2 is a variant of the CMAC/OMAC 1 algorithm. The initialization routines
are slightly different. OMAC2 actually precedes OMAC1, so
L<Digest::CMAC>/L<Digest::OMAC1> is the reccomended version. Supposedly OMAC1
was more rigorously analyzed.