e576b67e1a
- make scripts executable;
- "parameterize" platform selection in c6x/do_fips;
- add c6x/fips_algvs.mak;
- add c6x/run6x.js launcher for more recent CCS versions;
Reviewed-by: Rich Salz <rsalz@openssl.org>
Reviewed-by: Tim Hudson <tjh@openssl.org>
Reviewed-by: Stephen Henson <steve@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4265)
(cherry picked from commit 781280094a)
32 lines
665 B
Perl
Executable file
32 lines
665 B
Perl
Executable file
#!/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";
|
|
}
|