my $md5zip = ($target_zip);               											 
my $md5list = ($list); 
my $md5pdf = ($target_pdf); 
my $md5file1 = Digest::MD5->new; 
my $md5file2 = Digest::MD5->new; 
my $md5file3 = Digest::MD5->new;                                          			 
$md5file1->add($md5zip); 
$md5file2->add($md5list); 
$md5file3->add($md5pdf); 
my $digest1 = $md5file1->hexdigest; 
my $digest2 = $md5file2->hexdigest; 
my $digest3 = $md5file3->hexdigest; 
print "Zip file hash is $digest1\n"; 
print "List file hash is $digest2\n"; 
print "PDF file hash is $digest3\n"; 
 
my $md5hash = undef; 
open($md5hash,'>',$md5digest) or die "$package: Could not open $md5hash or write, Error: $!\n"; # Make an MD5 file 
print $md5hash "#MD5 hash listing of files for hard drive $P00\n"; 
print $md5hash "$P00.zip $digest1\n"; 
print $md5hash "$P00.lst $digest2\n"; 
print $md5hash "$P00.pdf $digest3\n"; 
close $md5hash; 
print "$package: Wrote MD5 File $md5digest\n";

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Digest::MD5; 
 
my $file = 'named.conf'; 
open my $fh, $file or die $!; 
 
my $digest = `openssl dgst -md5 $file`; 
$digest =~ s/^.+?= //; 
 
my $dgst = Digest::MD5->new; 
$dgst->addfile($fh); 
 
print $digest; 
print $dgst->hexdigest, "\n";

#!/usr/bin/perl 
# 
#   usbzip 
# 
#   Copies all files on a drive $sourcedrive eg: E: to a zip file $target_zip 
#	in a directory made from the $P00, A PDF file is then copied to this DIR 
#	An MD5 and a list file are also created for the zip file	 
# 
package usbzip; 
our $package = 'usbzip'; 
our $version = 0.7; 
 
use strict; 
use warnings; 
 
use Digest::MD5 qw (md5 md5_hex md5_base64); 
use File::Copy qw(copy); 
use File::Copy qw(move); 
# Issue with zip modules in Windows zipped files cannot be opened, until fixed use  
#system installed Info-Zip 
#use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); 
#use IO::Compress::Zip qw(zip $ZipError) ; 
# 
#----------------------------- Global Variables -------------------------------- 
# 
our $sourcepath = 'C:\\Temp\\hddzip\\'; 
our $finalpath 	= 'C:\\Temp\\harddrives\\';                                                                            
#------------------------------------------------------------------------------- 
 
@ARGV or die "$package: no parameters given\n"; 
 
our $P00=shift; 
chomp $P00; 
$P00 =~qr{^[LMP]\d{8}$} or die "$package: $P00 is not a valid Media Identifier\n"; 
 
our $sourcedrive = shift; 
chomp $sourcedrive; 
$sourcedrive =~ qr{^[A-Z]:$} or die "$sourcedrive is not a valid Drive\n"; 
 
print "\n**********Starting USB Zip - Let's GO!**********\n"; 
 
my $destpath = $sourcepath . $P00 . "\\"; 
print "\n$package: Destination path is $destpath\n"; 
#-d $destpath or die "$destpath does not exist\n"; 
 
print "\n**********Forming the file names**********\n"; 
# Form the pdf file name 
my $pdf_file = $sourcepath . 'PDF\\' . $P00 . '.pdf'; 
print "$package: Source PDF file is $pdf_file\n"; 
# Form the zip file name                                
my $target_zip = $destpath . $P00 . '.zip';                              
print "$package: Target zip file is $target_zip\n"; 
# Form the list file name 
my $list = $destpath . $P00 . '.lst'; 
print "$package: List file is $list\n";  
# Form the target PDF file                               
my $target_pdf = $destpath . $P00 . '.pdf';                              
print "$package: Target PDF file is $target_pdf\n"; 
# Form the target MD5 file 
my $md5digest = $destpath . $P00 . '.md5'; 
print "$package: Target MD5 file is $md5digest\n"; 
 
# If the target directory is there 
if (-e $destpath) {  
	# If the target zip file is there 
    if (-e $target_zip) {                                                
		# Remove it 
        unlink $target_zip or die "$package: Could not remove existing $target_zip, Error: $!\n"; 
		print "\n**********Cleaning up files**********\n"; 
		print "$package: Removed Existing ZIP file $target_zip\n"; 
    } 
} 
else { # If the target directory is not there then make it 
	print "\n**********Making directory**********\n"; 
	mkdir $destpath or die "$package: Could not make $destpath, Error: $!\n"; 
    print "$package: Made Directory $destpath\n"; 
} 
 
#Read the source directory 
our $DIR = undef; 
opendir($DIR,$sourcedrive) or die "Could not open $sourcedrive, Error :$!\n"; 
our @dirlist = sort readdir $DIR; 
close $DIR; 
undef $DIR; 
@dirlist or die "No Directories found in $destpath\n";  
                                 
# If the target pdf file is there 
if (-e $target_pdf) { 
	print "\n**********Cleaning up**********\n"; 
    print "$package: $target_pdf already exists - removing it\n";			 
	# Remove it 
	unlink $target_pdf or die "$package: Could not remove existing $target_pdf, Error: $!\n"; 
	# Copy the PDF file from the PDF directory 
	-e $pdf_file or die "$package: No PDF File found $pdf_file\n"; 
	copy("$pdf_file","$destpath"); 
	print "$package: Copied $pdf_file to $destpath\n"; 
} 
else { 
	# Copy the PDF file from the PDF directory 
	print "\n**********Copying**********\n"; 
	print "$package: Copying $pdf_file to $target_pdf\n";                    
	-e $pdf_file or die "$package: No PDF File $pdf_file\n"; 
	copy("$pdf_file","$destpath"); 
	print "$package: Copied $pdf_file to $destpath\n"; 
} 
 
print "\n**********Zipping $sourcedrive**********\n"; 
my $zipCmd = "zip -r $target_zip $sourcedrive"; 
#print "DEBUG: " . $zipCmd . "\n"; 
system($zipCmd); 
 
#Issue with 7zip, it doesn't like duplicate file names, apparently a feature... 
#system '"C:\\Program Files\\7-Zip\\7z.exe" a -tzip target.zip @listing.txt"';\ 
#move("target.zip","$P00.zip");  
#move("$P00.zip","$destpath"); 
#print "$package: Copied $P00.zip to $destpath\n"; 
 
my $drivelisting = `dir /B /S /ONG $sourcedrive`; 
#print "DEBUG: " . $drivelisting . "\n"; 
#system($drivelisting); 
 
#Make source drive file and folder listing 
my $ZLIST = undef; 
open($ZLIST,'>',$list) or die "$package: Could not open $list for write, Error: $!\n"; 
print $ZLIST "#List of files inside $P00 zip file\n";	    		# Add some header bumpf 
print $ZLIST "#\n"; 
print $ZLIST "$drivelisting\n"; 
#foreach my $f (@dirlist) {                                         # Write each file to the list file 
#    print $ZLIST "$f\n"; 
#} 
close $ZLIST; 
 
print "\n**********Writing list and MD5 files**********\n"; 
print "$package: Wrote List File $list\n"; 
 
#Small Windows MD5 command line program Author: Jem Berkes 
#my $md5command = `md5sums -b -e $destpath`; 
 
#my $md5hash = undef; 
#open($md5hash,'>',$md5digest) or die "$package: Could not open $md5hash or write, Error: $!\n"; # Make an MD5 file 
#print $md5hash "#MD5 hash listing of files for hard drive $P00\n"; 
#print $md5hash "$md5command\n"; 
#close $md5hash; 
#print "$package: Wrote MD5 File $md5digest\n"; 
 
#Making the MD5 hashes and the MD5 file 
my $md5zip = ($target_zip);               											 
my $md5list = ($list); 
my $md5pdf = ($target_pdf); 
my $md5file1 = Digest::MD5->new; 
my $md5file2 = Digest::MD5->new; 
my $md5file3 = Digest::MD5->new; 
my $md5all = Digest::MD5->new; 
$md5file1->add($md5zip); 
$md5file2->add($md5list); 
$md5file3->add($md5pdf); 
$md5all->add($md5zip,$md5list,$md5pdf); 
my $digest1 = $md5file1->hexdigest; 
my $digest2 = $md5file2->hexdigest; 
my $digest3 = $md5file3->hexdigest; 
my $digest4 = $md5all->hexdigest; 
print "Zip file hash is $digest1\n"; 
print "List file hash is $digest2\n"; 
print "PDF file hash is $digest3\n"; 
print "Hash for all files is $digest4\n"; 
 
my $md5hash = undef; 
open($md5hash,'>',$md5digest) or die "$package: Could not open $md5hash or write, Error: $!\n"; # Make an MD5 file 
print $md5hash "#MD5 hash listing of files for hard drive $P00\n"; 
print $md5hash "$P00.zip $digest1\n"; 
print $md5hash "$P00.lst $digest2\n"; 
print $md5hash "$P00.pdf $digest3\n"; 
print $md5hash "$digest4\n"; 
close $md5hash; 
print "$package: Wrote MD5 File $md5digest\n"; 
 
# Copying the folder to the destination folder 
our $endpath = $finalpath . $P00 . "\\"; 
print "\n**********Moving things around**********\n"; 
print "Copying $destpath to $endpath\n"; 
my $robocopyCmd = "robocopy.exe $destpath $endpath *.* /V /TEE /S /E /NP /COPY:DAT /R:60 /W:60 /LOG:$P00.log\n"; 
#print "DEBUG: " . $robocopyCmd . "\n"; 
system($robocopyCmd); 
print "\n$package: Copied $destpath to $endpath\n"; 
 
# Removing old files and directory 
print "\n**********Cleaning up old directory**********\n"; 
unlink $pdf_file or die "$package: Could not remove existing $pdf_file, Error: $!\n"; 
print "Removed $pdf_file\n"; 
unlink $target_pdf or die "$package: Could not remove existing $target_pdf, Error: $!\n"; 
print "Removed $target_pdf\n"; 
unlink $target_zip or die "$package: Could not remove existing $target_zip, Error: $!\n"; 
print "Removed $target_zip\n"; 
unlink $md5digest or die "$package: Could not remove existing $md5digest, Error: $!\n"; 
print "Removed $md5digest\n"; 
unlink $list or die "$package: Could not remove existing $list, Error: $!\n"; 
print "Removed $list\n"; 
rmdir $destpath or die "$package: Could not remove existing $destpath, Error: $!\n"; 
print "Removed $destpath\n"; 
 
print "$package: Archiving of the USB drive $sourcedrive to $endpath completed successfully\n"; 
exit 0;

#Making the MD5 hashes and the MD5 file 
my @files = (); 
push @files,$target_zip; 
push @files,$list; 
push @files,$target_pdf; 
my @all=(); 
foreach my $f (@files) { 
	my $md5file = Digest::MD5->new; 
	my $FH1=undef; 
	if (not sysopen($FH1, $f, O_BINARY)) { 
		print "Could not open file $f, Error=$!\n"; 
		exit 0; 
	} 
	$md5file->addfile($FH1); 
	my $digest1 = $md5file->hexdigest; 
	push @all, "$digest1,$f"; 
	print "$f hash is $digest1\n"; 
} 
 
my $md5hash = undef; 
open($md5hash,'>',$md5digest) or die "$package: Could not open $md5hash or write, Error: $!\n"; # Make an MD5 file 
print $md5hash "#MD5 hash listing of files for hard drive $P00\n"; 
my $md5all = Digest::MD5->new; 
foreach my $l (@all) { 
	print $md5hash "$l\n"; 
	$md5all->add($l); 
} 
 
my $alldigest=$md5all->hexdigest; 
print $md5hash "CHECKSUM: $alldigest\n"; 
close $md5hash; 
print "$package: Wrote MD5 File $md5digest\n"; 
 
# Copying the folder to the destination folder 
print "\n**********Moving things around**********\n"; 
our $endpath = $finalpath . $P00 . "\\"; 
print "Copying $destpath to $endpath\n"; 
my $robocopyCmd = "robocopy.exe $destpath $endpath *.* /V /TEE /S /E /NP /COPY:DAT /R:60 /W:60 /LOG:$P00.log\n"; 
#print "DEBUG: " . $robocopyCmd . "\n"; 
system($robocopyCmd); 
print "\n$package: Copied $destpath to $endpath\n"; 
 
#Comparing Source and Target directory zip file MD5 hashes 
print "\n**********Checking source and target MD5 hashes**********\n"; 
my $md5dest = ($destpath . $P00 . '.zip');               											 
my $md5end = ($endpath . $P00 . '.zip'); 
 
#Create MD5 hash of Source Zip 
my $md5filedest = Digest::MD5->new; 
my $FHDest=undef; 
if (not sysopen($FHDest, $md5dest, O_BINARY)) { 
	print "Could not open file $md5dest, Error=$!\n"; 
	exit 0; 
} 
$md5filedest->addfile($FHDest); 
my $digestdest = $md5filedest->hexdigest; 
print "$md5dest hash is $digestdest\n"; 
 
#Create MD5 hash of Target Zip 
my $md5filend = Digest::MD5->new; 
my $FHEnd=undef; 
if (not sysopen($FHEnd, $md5end, O_BINARY)) { 
	print "Could not open file $md5end, Error=$!\n"; 
	exit 0; 
} 
$md5filend->addfile($FHEnd); 
my $digestend = $md5filend->hexdigest; 
print "$md5end hash is $digestend\n"; 
 
#Compare zip file MD5 hashes 
if (not $digestdest eq $digestend) { 
	print "MD5 Checksum for $md5dest and $md5end do not match!\n"; 
	exit 0; 
} 
else { 
	print "MD5 hashes match - continuing\n"; 
}