Perl script to generate MD5 hashes
Tuesday, May 16th, 2006#!/usr/bin/env perl
# This perl script generates MD5 Checksums
# Jason Powers
# 16 MAY 2006
use 5.8.6;
use strict;
use IO::File;
use Getopt::Long;
use Digest::MD5;
my $myFile = $ARGV[0];
my $md5 = Digest::MD5->new;
my $check = 1;
open(FILE, $myFile) or die �Couldn�t open $myFile for md5 checksum generation.�;
binmode(FILE);
my $sum = $md5->addfile(*FILE)->hexdigest;
close FILE;
print “\n—————————- \n”;
print “MD5 Checksum of $myFile:\n”;
print “$sum\n”;
print “\n—————————- \n”;