diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -82,7 +82,7 @@ subkeysForDomain "onion" subs = do | |||
82 | maybeToList $ derToBase32 <$> derRSA sub | 82 | maybeToList $ derToBase32 <$> derRSA sub |
83 | subkeysForDomain "ssh-rsa.cryptonomic.net" subs = do | 83 | subkeysForDomain "ssh-rsa.cryptonomic.net" subs = do |
84 | (code,(top,sub), kind, hashed,claimants) <- subs | 84 | (code,(top,sub), kind, hashed,claimants) <- subs |
85 | guard ("ssh-host" `elem` kind) | 85 | guard ("ssh-server" `elem` kind) |
86 | guard (code .&. 0x2 /= 0) | 86 | guard (code .&. 0x2 /= 0) |
87 | RSAKey (MPI n) (MPI e) <- maybeToList $ rsaKeyFromPacket sub | 87 | RSAKey (MPI n) (MPI e) <- maybeToList $ rsaKeyFromPacket sub |
88 | let blob = SSH.sshrsa e n | 88 | let blob = SSH.sshrsa e n |