SHA - Perl interface to the NIST Secure Hash Algorithm

SHA documentation Contained in the SHA distribution.

Index

Code Index:

NAME

Top

SHA - Perl interface to the NIST Secure Hash Algorithm

SYNOPSIS

Top

    use SHA;

    $version = &SHA::sha_version;

    $context = new SHA;
    $context->reset();

    $context->add(LIST);
    $context->addfile(HANDLE);

    $digest = $context->digest();
    $string = $context->hexdigest();

    $digest = $context->hash($string);
    $string = $context->hexhash($string);

DESCRIPTION

Top

The SHA module is depreciated. Use Digest::SHA1 instead.

The current SHA module is just a wrapper around the Digest::SHA1 module. It is provided so that legacy code that rely on the old interface still work. This wrapper does not support the old (and buggy) SHA-0 algorithm.

In addition to the methods provided by Digest::SHA1 this module provide the class methods SHA->hash() and SHA->hexhash() that basically do the same as the sha1() and sha1_hex() functions provided Digest::SHA1.

The SHA->hex* methods will insert spaces between groups of 8 hex characters, while the Digest::SHA1 version of the same methods will not do this.

SEE ALSO

Top

Digest::SHA1

SHA documentation Contained in the SHA distribution. 
package SHA;

use strict;
use vars qw($VERSION @ISA @EXPORT_OK);

$VERSION = '2.01'; # $Date: 2001/03/14 05:23:06 $

require Digest::SHA1;
@ISA=qw(Digest::SHA1);

require Exporter;
*import = *Exporter::imprt;
@EXPORT_OK=qw(sha_version);

sub hexdigest
{
    my $self = shift;
    join(" ", unpack("A8 A8 A8 A8 A8", $self->SUPER::hexdigest(@_)));
}

sub hash        { shift->new->add(@_)->digest;    }
sub hexhash     { shift->new->add(@_)->hexdigest; }
sub sha_version { "SHA-1"; }

1;

__END__