generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Maintain fingerprint hashes as C source.

Browse Source
This commit is contained in:
Andy Polyakov
2005-04-19 15:11:59 +00:00
parent c61a8ad5b0
commit f868b61376
4 changed files with 39 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
util/checkhash.pl
View File

@@ -1,4 +1,4 @@
#!/usr/local/bin/perl -w
#!/usr/bin/env perl -w
my $package = caller;
@@ -22,7 +22,7 @@ sub check_hashes
my $badfiles = 0;
my $rebuild = 0;
my $force_rewrite = 0;
my $hash_file = "fipshashes.sha1";
my $hash_file = "fipshashes.c";
my $recurse = 0;
my @fingerprint_files;
@@ -98,8 +98,9 @@ sub check_hashes
while (<IN>)
{
chomp;
if (!(($file, $hash) = /^HMAC-SHA1\((.*)\)\s*=\s*(\w*)$/))
if (!(($file, $hash) = /^[\"]*HMAC-SHA1\((.*)\)\s*=\s*(\w*)[\",]*$/))
{
/^\"/ || next;
print STDERR "FATAL: Invalid syntax in file $fp\n";
print STDERR "Line:\n$_\n";
fatal_error();
@@ -194,10 +195,12 @@ sub check_hashes
print STDERR "Error rewriting $hash_file";
return 1;
}
print OUT "const char * const FIPS_source_hashes[] = {\n";
foreach (@hashed_files)
{
print OUT "HMAC-SHA1($_)= $hashes{$_}\n";
print OUT "\"HMAC-SHA1($_)= $hashes{$_}\",\n";
}
print OUT "};\n";
close OUT;
}