#!/usr/bin/perl -w
use strict;
use Digest::SHA;
my $sha = Digest::SHA->new();
#my $filename='/tmp/FlashV0KX9e';
my $filename='/tmp/FlashrvVWCa';
print "160 7ce4127e51c0e038644065d07ced72149b2aa7fc\n";
print "256 c4ba65f778bcd52d2d0dcf33780dca4d9025714518fabd28d3de93bb96bf6662\n";
$sha->addfile($filename);
my $digest = $sha->hexdigest;
print $sha->hashsize," ",$digest,"\n";
$digest = $sha->sha1_hex;
print $sha->hashsize," ",$digest,"\n";
$digest = $sha->sha512_hex;
print $sha->hashsize," ",$digest,"\n";