From 27846f4db09c99fecdef972fe4a5fc41fd445500 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sun, 3 May 2020 23:00:47 -0400 Subject: Corrected tag ssh-host to ssh-server for ssh self-auth UID. --- kiki.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'kiki.hs') diff --git a/kiki.hs b/kiki.hs index a1727e7..bbe73f8 100644 --- a/kiki.hs +++ b/kiki.hs @@ -82,7 +82,7 @@ subkeysForDomain "onion" subs = do maybeToList $ derToBase32 <$> derRSA sub subkeysForDomain "ssh-rsa.cryptonomic.net" subs = do (code,(top,sub), kind, hashed,claimants) <- subs - guard ("ssh-host" `elem` kind) + guard ("ssh-server" `elem` kind) guard (code .&. 0x2 /= 0) RSAKey (MPI n) (MPI e) <- maybeToList $ rsaKeyFromPacket sub let blob = SSH.sshrsa e n -- cgit v1.2.3