From e2c77bab89f9ac7d55b52697589feaf9afcf6c07 Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Sat, 15 Jun 2019 11:20:55 -0400
Subject: Populate seed corpus

---
 fuzz/get_sha1 | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 fuzz/get_sha1

(limited to 'fuzz/get_sha1')

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";
-- 
cgit v1.2.3-54-g00ecf