Skip to main content
Revision 7fb7844f3b40b60c2df77e093398da55d7928e9d authored by Dr. Stephen Henson on 11 July 2014, 18:12:21 UTC, committed by Dr. Stephen Henson on 11 July 2014, 18:14:15 UTC
Remove Dual EC DRBG again...
Dual EC DRBG removal now accepted for 2.0.8 onwards.
1 parent 005563b
Raw File
fips_standalone_sha1
#!/usr/bin/env perl
#
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;

unshift(@INC,$dir);
require "hmac_sha1.pl";

(!@ARV[0] && -f @ARGV[$#ARGV]) || die "usage: $0 [-verify] file";

$verify=shift	if (@ARGV[0] eq "-verify");

sysopen(FD,@ARGV[0],0) || die "$!";
binmode(FD);

my $ctx = HMAC->Init("etaonrishdlcupfm");

while (read(FD,$blob,4*1024)) { $ctx->Update($blob); }

close(FD);

my $signature = unpack("H*",$ctx->Final());

print "HMAC-SHA1(@ARGV[0])= $signature\n";

if ($verify) {
	open(FD,"<@ARGV[0].sha1") || die "$!";
	$line = <FD>;
	close(FD);
	exit(0)	if ($line =~ /HMAC\-SHA1\([^\)]*\)=\s*([0-9a-f]+)/i &&
				$1 eq $signature);
	die "signature mismatch";
}
back to top