#

 # Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).

 # All rights reserved.

 # This component and the accompanying materials are made available

 # under the terms of the License "Eclipse Public License v1.0"

 # which accompanies this distribution, and is available

 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

 #

 # Initial Contributors:

 # Nokia Corporation - initial contribution.

 #

 # Contributors:

 #

 # Description: 

 #

 use strict;

 use Getopt::Long;

 my %opt;

 # HASH MD2/MD4/MD5/SHA1 Digest Generator

 #----------Define Function Headers----------

 #Hash Functions

 use Digest::MD2  qw(md2 md2_hex md2_base64);		# Copy-right 1998-2001 Gisle Aas.

 use Digest::MD4;					# Mike McCauley/Neil Winton/RSA Data Security

 use Digest::MD5  qw(md5 md5_hex md5_base64);		# Copy-right 1998-2002 Gisle Aas.

 use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);		# Copy-right 1999-2001 Gisle Aas.

 #HMAC Functions

 use Digest::HMAC_MD2 qw(hmac_md2 hmac_md2_hex);

 use Digest::HMAC_MD4;

 use Digest::HMAC_MD5 qw(hmac_md5 hmac_md5_hex);

 use Digest::HMAC_SHA1 qw(hmac_sha1 hmac_sha1_hex);

 #-------------- MAIN SCRIPT -----------------

 my $convfromhex = '';

 GetOptions ('convfromhex' => \$convfromhex );

 my $numArgs = $#ARGV + 1;

 my $file = @ARGV[0];

 my $origkey = @ARGV[1];

 my $key = $origkey;

 print "key is: $origkey\n";

 if ( $convfromhex ) {

   $key = pack("H*", $origkey);

   print "Converting key from hex\n";

 }

 #print("Data to be Hashed: \n");

 my $data = "";

 open(DATA, "< $file" ) or die "Can't open $file : $!";

 binmode(DATA);

     while ( <DATA> ) {

 	$data.= $_;

     }

 close(DATA);

 #print($data);

 #print("\n");

 #----------Return Hashed Values----------

 my $output = $file;

 substr($output,length($file)-4,length($file),"_HASHDATA.txt");

 open(OUT, "> $output") or die "Can't open $output : $!";

 print OUT "****** HASH MD2/MD4/MD5/SHA1 ******\n";

 print OUT "\n";

 print OUT "MD2: ";

 print OUT md2_hex($data);

 print OUT "\n";

 print OUT "MD4: ";

 print OUT Digest::MD4->hexhash($data);

 print OUT "\n";

 print OUT "MD5: ";

 print OUT md5_hex($data);

 print OUT "\n";

 print OUT "SHA1: ";

 print OUT sha1_hex($data);

 print OUT "\n";

 print OUT "\n";

 print OUT "****** HMAC MD2/MD4/MD5/SHA1 ******\n";

 print OUT "\n";

 print OUT "HMAC-MD2: ";

 print OUT hmac_md2_hex($data, $key);

 print OUT "\n";

 my $hmac = Digest::HMAC_MD4->new($key);

 $hmac->add($data);

 print OUT "HMAC-MD4: ";

 print OUT $hmac->hexdigest;

 print OUT "\n";

 print OUT "HMAC-MD5: ";

 print OUT hmac_md5_hex($data, $key);

 print OUT "\n";

 print OUT "HMAC-SHA1: ";

 print OUT hmac_sha1_hex($data, $key);

 print OUT "\n";

 print OUT "\n";

 print OUT "Key: ";

 print OUT $origkey;

 print OUT "\n";

 close(OUT);