yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add a function to return the certificate fingerprint

Browse source
This commit is contained in:
Vincent Hanquez 2011-05-11 08:26:46 +01:00
parent 1dbf712ba9
commit dffebb649d
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Network/TLS/Extra/Certificate.hs
View file

@ -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