diff -r 000000000000 -r 2c201484c85f cryptoservices/certificateandkeymgmt/tder/importdumpasn1.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cryptoservices/certificateandkeymgmt/tder/importdumpasn1.pl	Wed Jul 08 11:25:26 2009 +0100
@@ -0,0 +1,354 @@
+#
+# Copyright (c) 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: 
+#
+#!/bin/perl
+
+# Copyright (c) 2005-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 "Symbian Foundation License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.symbianfoundation.org/legal/sfl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+# Imports ASN.1 files into a format that may be used by dergen.pl by
+# de-compiing the data using dumpasn1.
+# 
+#
+
+use strict;
+use Getopt::Long;
+
+my $DEBUG = 0;
+my $TABS = "";
+my $OUTPUT_BUFFER = "";
+
+main();
+exit;
+
+sub main() {
+	my $out;
+	my $outFh;
+	my $in;	
+	my @lines;
+
+	GetOptions('debug=i' => \$DEBUG,
+			   'in=s' => \$in,
+			   'out=s' => \$out);
+
+	if (! defined $in && defined $ARGV[0]) {
+		$in = $ARGV[0];
+	}
+
+	if (defined $in) {
+		@lines = decompile($in);
+	}
+	else {
+		die "No input file specified.\n";
+	}
+
+	if (! defined $out && defined $ARGV[1]) {
+		$out = $ARGV[1];
+	}
+	if (defined $out) {
+		open $outFh, ">$out" || die "Cannot open output file $out";
+	}
+	else {
+		$outFh = *STDOUT;
+	}
+	translate(\@lines);
+	print $outFh $OUTPUT_BUFFER; 
+}
+
+sub translate($) {
+	my ($lines) = @_;
+	my $lineCount = scalar(@$lines);
+
+	for (my $i = 0; $i < $lineCount; ++$i) {
+		$_ = @$lines[$i];
+		s/^\s*//g;
+		s/\n//g;
+
+		if ($DEBUG >= 3) {
+			print "$_\n";
+		}
+
+		if ( /^OBJECT\s+IDENTIFIER\s*$/ ) {
+			if ($DEBUG >= 3) {
+				print "reading OID value from next line\n";
+			}
+			if (defined @$lines[$i+1]) {
+				$_ .= @$lines[++$i];
+			}
+		}
+
+		if ( /BIT\s+STRING,\s+encapsulates/i ) {
+			addToOutput("BITSTRING_WRAPPER");
+			nest();
+		}
+		elsif ( /^\s*BIT\s+STRING/i ) {
+			# bitstring defined in binary
+			if ( $$lines[$i+1] =~ /\'([01]+)\'/ ) {
+				$i++;
+				addToOutput("BITSTRING=$1");
+			}
+			# bit string defined in hex
+			elsif ( /^\s*BIT\s+STRING\s+(([A-F0-9][A-F0-9]\s*)+)/i ) {
+				my $bitStr = toBitString($1);
+				addToOutput("BITSTRING=$bitStr");
+			}
+			else {
+			# bit string wrapper
+				addToOutput("BITSTRING_WRAPPER");
+				nest();
+				addToOutput("RAW \{");
+				nest();
+				$i++;
+				addToOutput(getRawHex($lines,\$i));
+				leaveNest();
+				addToOutput(" \}");
+				leaveNest();
+				addToOutput("END");								
+			}
+		}
+		elsif ( /^(BMPSTRING\s+)\'(.*)\'/i ) {
+			addToOutput("BMPSTRING=$2");
+		}
+		elsif ( /^(BOOLEAN\s+)(.*)/i ) {
+			addToOutput("BOOLEAN=$2");
+		}
+		elsif ( /(^ENUMERATED\s+)(\d+)*$/i ) {
+			# small integer - non hex incoded
+			addToOutput("ENUMERATED=$2");
+		}
+		elsif ( /^\[(\d+)\]\s*\'(.*)\'/ ) { 
+			addToOutput("IMPLICIT=$1");
+			nest();
+			addToOutput("PRINTABLESTRING=$2");
+			leaveNest();
+			addToOutput("END");
+		}
+		elsif ( /^\[(\d+)\]/ ) {
+			# general case for implicit & explicit tags
+			my $tag=$1;
+			if (defined @$lines[$i+1] && isRawData(@$lines[$i+1])) {
+				# if there is only raw data assume implicit
+				addToOutput("IMPLICIT=$tag");				
+				nest();
+				addToOutput("OCTETSTRING");
+				nest();
+				addToOutput("RAW \{");
+				while (isRawData(@$lines[++$i])) {
+					addToOutput("" . @$lines[$i] . "");
+				}
+				--$i;
+				addToOutput("\}");
+				leaveNest();
+				addToOutput("END");
+				leaveNest();
+				addToOutput("END");
+				leaveNest();
+			}
+			else {
+				# otherwise assume explicit
+				addToOutput("EXPLICIT=$tag");
+			}
+			nest();
+		}			
+		elsif ( /^(IA5STRING\s+)\'(.*)\'/i ) {
+			addToOutput("IA5STRING=$2");
+		}
+		elsif ( /(^INTEGER\s+)(\d+)*$/i ) {
+			# small integer - non hex incoded
+			addToOutput("INTEGER=$2");
+		}
+		elsif (/^INTEGER/) {
+			# big integer
+			addToOutput("BIGINTEGER {");
+			my $tmp = $_;
+			$tmp =~ s/.*INTEGER\s+//g;
+			nest();
+			if (isRawData($tmp)) {
+				addToOutput($tmp);
+			}
+
+			$i++;
+			addToOutput(getRawHex($lines,\$i));
+			leaveNest();
+			addToOutput("\}");
+		}
+		elsif ( /^NULL/i ) {
+			addToOutput("NULL");
+		}
+		elsif ( /^OCTET STRING\s*$/i ) {
+			$i++;
+			addToOutput("OCTETSTRING");				
+			nest();
+			addToOutput("RAW \{");
+			nest();
+			addToOutput(getRawHex($lines,\$i));
+			leaveNest();
+			addToOutput("\}");
+			leaveNest();
+			addToOutput("END");								
+		}
+		elsif ( /^OCTET\s+STRING.*encapsulates/i ) {
+			addToOutput("OCTETSTRING");
+			nest();			
+		}
+		elsif ( /^OCTET\s+STRING/i ) {
+			addToOutput("OCTETSTRING");
+			nest();			
+			my $hex = $_;
+			$hex =~ s/OCTET\s+STRING\s+//g;
+			addToOutput("RAW=$hex");
+			leaveNest();
+			addToOutput("END");
+		}
+		elsif ( /^OBJECT\s+IDENTIFIER\s+\'([\d ]+)\'/i ) { 
+			# plain oid
+			my $oid = $1;
+			$oid =~ s/ /./g;
+			addToOutput("OID=$oid");
+		}
+		elsif ( /(^OBJECT\s+IDENTIFIER.*\()([\d ]+)/i ) { 
+			# extra information printed with oid
+			my $oid = $2;
+			$oid =~ s/ /./g;
+			addToOutput("OID=$oid");
+		}
+		elsif ( /(^PRINTABLESTRING\s*\')([^\']*)/i ) {
+			addToOutput("PRINTABLESTRING=$2");
+		}
+		elsif ( /^SEQUENCE/i ) {
+			addToOutput("SEQUENCE");
+			nest();
+		}
+		elsif ( /^SET/i ) {
+			addToOutput("SET");
+			nest();
+		}
+		elsif (/^(UTCTIME\s+\')([^\']+)/i) {
+			addToOutput("UTCTIME=$2");
+		}
+		elsif ( /^(UTF8STRING\s+)\'(.*)\'/i ) {
+			addToOutput("UTF8STRING=$2");
+		}
+		elsif ( /^\}/) {				
+			leaveNest();
+			addToOutput("END");
+		}
+		elsif (isRawData($_)) {
+			my $raw = s/\s+/ /g;
+			addToOutput("RAW=$_");
+		}
+
+	}
+}
+
+sub addToOutput($) {
+	my ($text) = @_;
+
+	if ($DEBUG >= 3) {
+		print "+${TABS}$text\n";
+	}
+	$OUTPUT_BUFFER .= "${TABS}$text\n";
+}
+
+sub getRawHex($) {
+	my ($lines,$index) = @_;
+	my $translated = '';
+
+	my $end = 0;
+	do {
+		my $line = $$lines[$$index];
+		last if (!defined $line);
+		chomp($line);
+
+		if (isRawData($line)) {
+			$line =~ s/^\s+//g;
+			addToOutput("$line");
+			$$index++;
+		}
+		else {
+			$$index--;
+			$end = 1;
+		}					
+	} while (! $end);
+	return $translated;
+}
+
+sub isRawData() {
+	my ($line) = @_;
+	my $retVal = ($line =~ /^\s*([A-F0-9][A-F0-9]\s?)+$/i);
+	if ($DEBUG >= 3 && $retVal) {
+		print "RAW: ";
+	}
+	return $retVal;
+}
+
+sub toBitString() {
+	my ($hex) = @_;
+	my $bitStr = "";
+	$hex =~ s/\s//g;
+
+	for (my $i=0; $i < length($hex); $i+=2) {
+		my $num = hex(substr($hex, $i, 2));
+		print ".$num";
+		for (my $j=0; $j < 8; $j++) {
+			$bitStr .= ($num & 0x80) ? '1' : '0';
+			$num <<= 1;
+		}
+	}
+	if ($DEBUG >= 2) {
+		print "\nbitStr: $hex = $bitStr\n";
+	}
+	return $bitStr;
+}
+
+# increment debug tabbing level
+sub nest() {
+	$TABS .= "   ";
+}
+
+# decrement debug tabbing level
+sub leaveNest() {
+	$TABS =~ s/^...//;
+}
+
+
+sub decompile($) {
+	my ($inFile) = @_;
+
+
+	my @command = ("cmd", 
+				   "/C \"dumpasn1 -apruz $inFile > _dump.tmp\"");
+
+	if ((my $err = system(@command)) != 0) {
+		die "decode: " . join(" ", @command) . "\nreturned error $err";
+	}
+
+	my $dumpFh;
+	open $dumpFh, "_dump.tmp";
+	my @lines = <$dumpFh>;
+	close $dumpFh;
+
+	return @lines;
+}