Add ARM files

[dh-make-perl] / dev / arm / libio-socket-ssl-perl / libio-socket-ssl-perl-1.16 / util / export_certs.pl

diff --git a/dev/arm/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/util/export_certs.pl b/dev/arm/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/util/export_certs.pl
new file mode 100644 (file)
index 0000000..917cbd5
--- /dev/null
+++ b/dev/arm/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/util/export_certs.pl
@@ -0,0 +1,60 @@
+#
+# a script for exporting Netscape navigator's certificate database
+# (aspa@hip.fi).
+#
+# $Id: export_certs.pl,v 1.1 2000/08/08 06:37:56 aspa Exp $.
+#
+# additional information:
+# - http://www.drh-consultancy.demon.co.uk/cert7.html
+# - man xxd
+#
+# conversion from DER format:
+# /usr/local/ssl/bin/x509 -inform der -text < cert.der
+#
+
+use strict;
+
+my (%certhash, $key, $val);
+my $cert_db_path = $ENV{'HOME'} . "/.netscape/cert7";
+my $rcnt = 0;
+
+print STDERR "opening '$cert_db_path'.\n";
+
+if( ! dbmopen(%certhash, $cert_db_path, undef) ) {
+       print STDERR "dbmopen failed: '$!'.\n";
+}
+
+while ( ($key, $val) = each %certhash ) {
+  my ($rec_type, $data, $klen, $vlen, $cert);
+
+  $rcnt++;
+
+  # get key info: [type] [data]
+  ($rec_type, $data) = unpack("Ca*", $key);
+  
+  # get additional diagnostics info.
+  $klen = length($key);
+  $vlen = length($val);
+  print STDERR "$rcnt: \t record type: '$rec_type'. key len: " . 
+    "'$klen, \t value len: '$vlen'.\n";
+
+  # check record type.
+  if($rec_type != 1) {
+    # not a certificate record. skip it.
+    next;
+  }
+
+  # it is a certificate record.
+
+  # certificates are stored in DER format starting at offset 13.
+  $cert = substr($val, 13);
+
+  # save cert in DER format.
+  open(C_FILE, ">tmp/cert-$rcnt.der");
+  print C_FILE "$cert";
+  close(C_FILE);
+
+}
+
+dbmclose(%certhash);
+