From 056ccb1b87edac25d29736f9835a4e29be6e3205 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Sat, 17 Apr 2010 15:57:47 -0400
Subject: added internal openpgp2sshfpr subcommand for keytrans

---
 src/share/keytrans | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/share')

diff --git a/src/share/keytrans b/src/share/keytrans
index 255a271..ae887de 100755
--- a/src/share/keytrans
+++ b/src/share/keytrans
@@ -1144,6 +1144,19 @@ for (basename($0)) {
 	binmode($instream, ":bytes");
         my $keys = getallprimarykeys($instream);
         printf("%s\n", join("\n", map { uc(unpack('H*', $_)) } keys(%{$keys})));
+      } elsif (/^openpgp2sshfpr$/) {
+        my $fpr = shift;
+        my $instream;
+        open($instream,'-');
+        binmode($instream, ":bytes");
+        my $key = openpgp2rsa($instream, $fpr);
+        if (defined($key)) {
+          # openssh uses MD5 for key fingerprints:
+          use Digest::MD5;
+          printf("%s\n", join(':', map({unpack("H*", $_)} split(//, Digest::MD5::md5(openssh_pubkey_pack($key))))));
+        } else {
+          die "No matching key found.\n";
+        }
       } else {
 	die "Unrecognized subcommand.  keytrans subcommands are not a stable interface!\n";
       }
-- 
cgit v1.2.3