Add sanity check for wrong uses of check_hash
authorFlorian Weimer <fw@deneb.enyo.de>
Sun, 25 May 2008 10:32:14 +0000 (25 12:32 +0200)
committerFlorian Weimer <fw@deneb.enyo.de>
Sun, 25 May 2008 10:32:14 +0000 (25 12:32 +0200)
This catches bugs in the script which might lead to false positives.
It's a purely defensive change, no such bugs are currently known.

dowkd.in

index d9f2f30..c544af6 100644 (file)
--- a/dowkd.in
+++ b/dowkd.in
@@ -171,6 +171,7 @@ sub print_stats () {
 
 sub check_hash ($$;$) {
     my ($name, $hash, $descr) = @_;
+    $hash && length($hash) == 16 or die "wrong hash size " . length($hash);
     ++$keys_found;
     if (exists $db{$hash}) {
        ++$keys_vulnerable;