fuzz/get_sha1


1
2
3
4
5
6
7
8
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";