File Coverage

blib/lib/Crypt/FDH.pm

Criterion	Covered	Total	%
statement	31	34	91.1
branch	2	4	50.0
condition	1	2	50.0
subroutine	7	10	70.0
pod	4	4	100.0
total	45	54	83.3

# -*-cperl-*-
#
# Crypt::FDH - Full Domain Hash
# Copyright (c) Ashish Gulhati
#
# $Id: lib/Crypt/FDH.pm v1.010 Sat Oct 27 21:26:17 PDT 2018 $

use strict;

package Crypt::FDH;

use warnings;
use strict;
use Digest::SHA;

use vars qw( @ISA $VERSION $AUTOLOAD );

BEGIN {
  require Exporter;
  our ( $VERSION ) = '$Revision: 1.010 $' =~ /\s+([\d\.]+)/;
  our @ISA         = qw(Exporter);
  our @EXPORT_OK   = qw(hash hexhash hexdigest fdh);
}

my $VALGOS = 'sha1|sha256';
my %hashsz = ('sha256' => 256, 'sha1' => 160);

sub hash {
  my %args = @_;
  my ($size, $m, $algo) = ($args{Size},$args{Message},$args{Algorithm}||'sha256');
  die "Invalid hash algorithm: $algo" unless $algo =~ /$VALGOS/;
  my $ctx = Digest::SHA->new($algo);
  my $hash; my $n = int($size / $hashsz{$algo});
  die "Hash size does not fit into target size\n"
    unless $n * $hashsz{$algo} == $size; my $hexlen = $size / 4;
  for (0..$n-1) {
    $ctx->add($m.$_);
    $hash .= $ctx->hexdigest;
  }
  return $hash;
}

sub fdh {
  hash @_
}

sub hexhash {
  hash @_
}

sub hexdigest {
  hash @_
}

1; # End of Crypt::FDH

=head1 NAME

Crypt::FDH - Full Domain Hash

=head1 VERSION

 $Revision: 1.010 $
 $Date: Sat Oct 27 21:26:17 PDT 2018 $

=head1 SYNOPSIS

Provides a Full Domain Hash of the input for cryptograhic uses.

    use Crypt::FDH qw (hash);

    my $fdh = hash(Size => 2048, Message => "Hello world!\n", Algorithm => 'SHA256');

=head1 SUBROUTINES

=head2 hash / hexhash / hexdigest / fdh

All of these names are aliases for one subroutine which returns a Full
Domain Hash of the input message, as a hex number.

=head1 AUTHOR

Ashish Gulhati, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Crypt::FDH

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back

=head1 LICENSE AND COPYRIGHT

Copyright (c) Ashish Gulhati.

This software package is Open Software; you can use, redistribute,
and/or modify it under the terms of the Open Artistic License 2.0.

Please see L for the full license
terms, and ensure that the license grant applies to you before using
or modifying this software. By using or modifying this software, you
indicate your agreement with the license terms.