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