1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/security/crypto/weakcryptospi/test/tcryptospi/testdata/hashhmac/hashgen.pl	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,123 @@
     1.4 +#
     1.5 +# Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
     1.6 +# All rights reserved.
     1.7 +# This component and the accompanying materials are made available
     1.8 +# under the terms of the License "Eclipse Public License v1.0"
     1.9 +# which accompanies this distribution, and is available
    1.10 +# at the URL "http://www.eclipse.org/legal/epl-v10.html".
    1.11 +#
    1.12 +# Initial Contributors:
    1.13 +# Nokia Corporation - initial contribution.
    1.14 +#
    1.15 +# Contributors:
    1.16 +#
    1.17 +# Description: 
    1.18 +#
    1.19 +
    1.20 +use strict;
    1.21 +use Getopt::Long;
    1.22 +my %opt;
    1.23 +
    1.24 +
    1.25 +# HASH MD2/MD4/MD5/SHA1 Digest Generator
    1.26 +
    1.27 +#----------Define Function Headers----------
    1.28 +
    1.29 +#Hash Functions
    1.30 +use Digest::MD2  qw(md2 md2_hex md2_base64);		# Copy-right 1998-2001 Gisle Aas.
    1.31 +use Digest::MD4;					# Mike McCauley/Neil Winton/RSA Data Security
    1.32 +use Digest::MD5  qw(md5 md5_hex md5_base64);		# Copy-right 1998-2002 Gisle Aas.
    1.33 +use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);		# Copy-right 1999-2001 Gisle Aas.
    1.34 +
    1.35 +#HMAC Functions
    1.36 +use Digest::HMAC_MD2 qw(hmac_md2 hmac_md2_hex);
    1.37 +use Digest::HMAC_MD4;
    1.38 +use Digest::HMAC_MD5 qw(hmac_md5 hmac_md5_hex);
    1.39 +use Digest::HMAC_SHA1 qw(hmac_sha1 hmac_sha1_hex);
    1.40 +
    1.41 +#-------------- MAIN SCRIPT -----------------
    1.42 +
    1.43 +my $convfromhex = '';
    1.44 +GetOptions ('convfromhex' => \$convfromhex );
    1.45 +my $numArgs = $#ARGV + 1;
    1.46 +
    1.47 +my $file = @ARGV[0];
    1.48 +my $origkey = @ARGV[1];
    1.49 +my $key = $origkey;
    1.50 +print "key is: $origkey\n";
    1.51 +if ( $convfromhex ) {
    1.52 +  $key = pack("H*", $origkey);
    1.53 +  print "Converting key from hex\n";
    1.54 +}
    1.55 +
    1.56 +#print("Data to be Hashed: \n");
    1.57 +
    1.58 +my $data = "";
    1.59 +open(DATA, "< $file" ) or die "Can't open $file : $!";
    1.60 +binmode(DATA);
    1.61 +
    1.62 +    while ( <DATA> ) {
    1.63 +	$data.= $_;
    1.64 +    }
    1.65 +close(DATA);
    1.66 +
    1.67 +#print($data);
    1.68 +#print("\n");
    1.69 +
    1.70 +#----------Return Hashed Values----------
    1.71 +
    1.72 +my $output = $file;
    1.73 +
    1.74 +substr($output,length($file)-4,length($file),"_HASHDATA.txt");
    1.75 +
    1.76 +open(OUT, "> $output") or die "Can't open $output : $!";
    1.77 +
    1.78 +print OUT "****** HASH MD2/MD4/MD5/SHA1 ******\n";
    1.79 +print OUT "\n";
    1.80 +
    1.81 +print OUT "MD2: ";
    1.82 +print OUT md2_hex($data);
    1.83 +print OUT "\n";
    1.84 +
    1.85 +print OUT "MD4: ";
    1.86 +print OUT Digest::MD4->hexhash($data);
    1.87 +print OUT "\n";
    1.88 +
    1.89 +print OUT "MD5: ";
    1.90 +print OUT md5_hex($data);
    1.91 +print OUT "\n";
    1.92 +
    1.93 +print OUT "SHA1: ";
    1.94 +print OUT sha1_hex($data);
    1.95 +print OUT "\n";
    1.96 +
    1.97 +print OUT "\n";
    1.98 +print OUT "****** HMAC MD2/MD4/MD5/SHA1 ******\n";
    1.99 +print OUT "\n";
   1.100 +
   1.101 +print OUT "HMAC-MD2: ";
   1.102 +print OUT hmac_md2_hex($data, $key);
   1.103 +print OUT "\n";
   1.104 +
   1.105 +my $hmac = Digest::HMAC_MD4->new($key);
   1.106 +$hmac->add($data);
   1.107 +
   1.108 +print OUT "HMAC-MD4: ";
   1.109 +print OUT $hmac->hexdigest;
   1.110 +print OUT "\n";
   1.111 +
   1.112 +print OUT "HMAC-MD5: ";
   1.113 +print OUT hmac_md5_hex($data, $key);
   1.114 +print OUT "\n";
   1.115 +
   1.116 +print OUT "HMAC-SHA1: ";
   1.117 +print OUT hmac_sha1_hex($data, $key);
   1.118 +print OUT "\n";
   1.119 +
   1.120 +print OUT "\n";
   1.121 +
   1.122 +print OUT "Key: ";
   1.123 +print OUT $origkey;
   1.124 +print OUT "\n";
   1.125 +
   1.126 +close(OUT);