From 70d47516ab1f7a2aaab86fb3d872d16a6d5a3a82 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Sat, 17 Apr 2010 16:05:55 -0400
Subject: [PATCH] keytrans openpgp2sshfpr now prints out the key size and type

---
 src/share/keytrans | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/share/keytrans b/src/share/keytrans
index ae887de..33a6bc5 100755
--- a/src/share/keytrans
+++ b/src/share/keytrans
@@ -1153,7 +1153,11 @@ for (basename($0)) {
         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))))));
+          printf("%d %s %s\n",
+                 $key->size() * 8, # size() is in bytes -- we want bits
+                 join(':', map({unpack("H*", $_)} split(//, Digest::MD5::md5(openssh_pubkey_pack($key))))),
+                 '(RSA)', # FIXME when we support other than RSA.
+                );
         } else {
           die "No matching key found.\n";
         }
-- 
2.26.2