Upgrade to Digest-SHA-5.43

[p5sagit/p5-mst-13.2.git] / ext / Digest / SHA / t / 2-nist-vectors-bit.t

# Test against SHA-1 Sample Vectors from NIST
#
#	ref: http://csrc.nist.gov/cryptval/shs.html
#
# Uses files "nist/bit-messages.sha1" and "nist/bit-hashes.sha1"

use Test;
use strict;
use integer;

use File::Basename qw(dirname);
use File::Spec;
use Digest::SHA;

BEGIN {
	if ($ENV{PERL_CORE}) {
		chdir 't' if -d 't';
		@INC = '../lib';
	}
}

my @hashes;

BEGIN {
	my $file = File::Spec->catfile(dirname($0), "nist", "bit-hashes.sha1");
	open(my $fh, q{<}, $file);
	while (<$fh>) {
		next unless (/^[0-9A-F]/);
		s/[\r\n]+$//;
		if (/\^$/) {
			s/\s*\^$//;
			push(@hashes, $_);
		}
	}
	close($fh);
	plan tests => scalar(@hashes);
}

sub doType3 {
	my $hash;
	my $str = pack("B*", shift);
	my $ctx = Digest::SHA->new(1);
	for (my $j = 0; $j <= 99; $j++) {
		for (my $i = 1; $i <= 50000; $i++) {
			$str .= chr(0x00) x (int($j/4)+3);
			$str .= pack("N", $i);
			$str = $ctx->add($str)->digest;
		}
		ok(uc(unpack("H*", $str)), $hash = shift(@hashes));
	}
}

my @msgs;
my @cnts;
my $bitstr;
my $bitval;
my $line;
my $hash;
my $type3 = 0;
my $ctx = Digest::SHA->new(1);

my $file = File::Spec->catfile(dirname($0), "nist", "bit-messages.sha1");
open(my $fh, q{<}, $file);
while (<$fh>) {
	$type3 = 1 if (/Type 3/);
	$type3 = 0 if (/^<D/);
	next unless (/^[0-9^ ]/);
	s/[\r\n]+$//;
	$line .= $_;
	if (/\^$/) {
		$line =~ s/\s*\^$//;
		@cnts = split(/\s+/, $line);
		$bitstr = "";
		$bitval = $cnts[1];
		for (my $i = 0; $i < $cnts[0]; $i++) {
			$bitstr .= $bitval x $cnts[$i+2];
			$bitval = $bitval eq "1" ? "0" : "1";
		}
		ok(
			uc($ctx->add_bits($bitstr)->hexdigest),
			$hash = shift(@hashes)
		) unless $type3;
		doType3($bitstr) if ($type3);
		$line = "";
	}
}
close($fh);