Допустим у меня сервер получает от клиента его сертификат и хочет посчитать его хэш:
import OpenSSL (withOpenSSL)
import OpenSSL.Session as SSL
import OpenSSL.X509 as X509
import OpenSSL.EVP.Digest as EVP
sslStuff :: SSL.SSL -> IO String
sslStuff ssl = withOpenSSL $ do
x509 <- liftM fromJust $ SSL.getPeerCertificate ssl
issuer <- X509.getIssuerName x509 False
subj <- X509.getSubjectName x509 False
putStrLn $ "\tsubject: " ++show subj
putStrLn $ "\tissuer: " ++show issuer
dg <- liftM fromJust $ EVP.getDigestByName "SHA1"
cert <- X509.printX509 x509
putStrLn cert
let s = EVP.digest dg cert
putStrLn $ "After Digest: "++s
return s
Он мне возвращает строку всего в 15 символов хотя SHA-1 должен вернуть 20 байт. Я не знаю как правильно это сделать, но мне надо сделать то что в openssl называется X509_digest (client_cert, EVP_sha1(), md, &mdlen);
Кто-нибудь подскажет?
