Regards,Code:#!perl
# hash.pl (written by n0m3rcy)
use strict;
use Digest::MD5;
use Digest::SHA1;
my $file = shift || die "Must enter a filename.\n";
if (-e $file) {
my ($md5,$sha) = hash($file);
print "File : ".$file."\n";
print "MD5 : ".$md5."\n";
print "SHA-1: ".$sha."\n";
}
else {
print "$file not found.\n";
}
#------------------------------------------
# hash subroutine
#------------------------------------------
sub hash {
my $file = $_[0];
my $md5;
my $sha;
eval {
# Generate MD5 hash
open(FILE, $file);
binmode(FILE);
$md5 = Digest::MD5->new->addfile(*FILE)->hexdigest;
close(FILE);
# Generate SHA-1 hash
open(FILE, $file);
binmode(FILE);
$sha = Digest::SHA1->new->addfile(*FILE)->hexdigest;
close(FILE);
};
($@) ? (return $@) : (return ($md5,$sha));
}
n0m3rcy