From dffebb649da87f47329ef1d6da297932046f4224 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Wed, 11 May 2011 08:26:46 +0100 Subject: [PATCH] add a function to return the certificate fingerprint --- Network/TLS/Extra/Certificate.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Network/TLS/Extra/Certificate.hs b/Network/TLS/Extra/Certificate.hs index 932fe8a..543514e 100644 --- a/Network/TLS/Extra/Certificate.hs +++ b/Network/TLS/Extra/Certificate.hs @@ -11,6 +11,7 @@ module Network.TLS.Extra.Certificate , certificateVerifyAgainst , certificateVerifyDomain , certificateVerifyValidity + , certificateFingerprint ) where import qualified Data.ByteString as B @@ -159,3 +160,6 @@ certificateVerifyValidity _ [] = False certificateVerifyValidity ctime (X509 cert _ _ _ _ :_) = let ((beforeDay,_,_) , (afterDay,_,_)) = certValidity cert in beforeDay < ctime && ctime <= afterDay + +certificateFingerprint :: (L.ByteString -> B.ByteString) -> X509 -> B.ByteString +certificateFingerprint hash x509 = hash $ getSigningData x509