diff options
| author | Jay Berkenbilt <ejb@ql.org> | 2019-06-15 17:20:55 +0200 |
|---|---|---|
| committer | Jay Berkenbilt <ejb@ql.org> | 2019-06-15 23:24:24 +0200 |
| commit | e2c77bab89f9ac7d55b52697589feaf9afcf6c07 (patch) | |
| tree | c80a4628cf65aab23ada09aff519b83603feb5c8 /fuzz/get_sha1 | |
| parent | 9d31037489501ca05102ace4d9d72a80dd2b5e71 (diff) | |
| download | qpdf-e2c77bab89f9ac7d55b52697589feaf9afcf6c07.tar.zst | |
Populate seed corpus
Diffstat (limited to 'fuzz/get_sha1')
| -rw-r--r-- | fuzz/get_sha1 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/fuzz/get_sha1 b/fuzz/get_sha1 new file mode 100644 index 00000000..4bc34fb6 --- /dev/null +++ b/fuzz/get_sha1 @@ -0,0 +1,9 @@ +#!/usr/bin/env perl +require 5.008; +use warnings; +use strict; +use Digest::SHA; + +binmode STDIN; +my $digest = Digest::SHA->new('sha1')->addfile(*STDIN)->hexdigest; +print "$digest\n"; |