File Coverage

blib/lib/LibWeb/Digest.pm

Criterion	Covered	Total	%
statement	10	30	33.3
branch	0	12	0.0
condition	1	3	33.3
subroutine	3	6	50.0
pod			n/a
total	14	51	27.4

#==============================================================================
# LibWeb::Digest -- Digest generation for libweb applications.

package LibWeb::Digest;

# Copyright (C) 2000  Colin Kong
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#=============================================================================

# $Id: Digest.pm,v 1.2 2000/07/18 06:33:30 ckyc Exp $

#-##############################
# Use standard library.
use strict;
use vars qw($VERSION @ISA);
require Digest::HMAC;
require Digest::SHA1;
require Digest::MD5;

#-##############################
# Use custom library.
require LibWeb::Class;

#-##############################
# Version.
$VERSION = '0.02';

#-##############################
# Inheritance.
@ISA = qw(LibWeb::Class);

#-##############################
# Methods.
sub new {
    my ($class, $Class, $self);
    $class = shift;
    $Class = ref($class) || $class;
    $self = $Class->SUPER::new(shift);
    bless($self, $Class);
}

sub DESTROY {}

sub generate_MAC {
    #
    # Params: -data=>, -key=>, -algorithm=>, -format=>
    # e.g. -algorithm => 'Digest::MD5'
    # e.g. -algorithm => 'Digest::SHA1'
    # e.g. -format => 'binary' or 'hex' or 'b64'.
    #
    my ($self, $data, $key, $algorithm, $format, $hmac);
    $self = shift;
    ($data, $key, $algorithm, $format) =
      $self->rearrange(['DATA', 'KEY', 'ALGORITHM', 'FORMAT'], @_);

    $format = uc($format);
    $hmac = Digest::HMAC->new($key, $algorithm);
    $hmac->add($data);
    return $hmac->digest if ($format eq 'BINARY');
    return $hmac->hexdigest if ($format eq 'HEX');
    return $hmac->b64digest if ($format eq 'B64');
}

sub generate_digest {
    #
    # Params: -data=>, -key=>, -algorithm=>, -format=>
    # e.g. -algorithm => 'Digest::MD5'
    # e.g. -algorithm => 'Digest::SHA1'
    # e.g. -format => 'binary' or 'hex' or 'b64'.
    #
    my ($self, $data, $key, $algorithm, $format, $ctx);
    $self = shift;
    ($data, $key, $algorithm, $format) =
      $self->rearrange(['DATA', 'KEY', 'ALGORITHM', 'FORMAT'], @_);

    $format = uc($format);
    $ctx = $algorithm->new;
    $ctx->add( $data . $key );
    return $ctx->digest if ($format eq 'BINARY');
    return $ctx->hexdigest if ($format eq 'HEX');
    return $ctx->b64digest if ($format eq 'B64');
}

1;
__END__