storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RFC2818 server identity check update

Browse Source
This commit is contained in:
Fumitoshi UKAI
2001-12-26 12:58:49 +00:00
parent f67501a12a
commit 2b86b4b794
4 changed files with 73 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
istream.c
View File

@@ -1,7 +1,10 @@
/* $Id: istream.c,v 1.7 2001/12/26 12:18:06 ukai Exp $ */
/* $Id: istream.c,v 1.8 2001/12/26 12:58:49 ukai Exp $ */
#include "fm.h"
#include "istream.h"
#include <signal.h>
#ifdef USE_SSL
#include <x509v3.h>
#endif
#define uchar unsigned char
@@ -380,11 +383,12 @@ ssl_get_certificate(InputStream stream)
}
Str
ssl_check_cert_ident(SSL *handle, char *hostname)
ssl_check_cert_ident(SSL * handle, char *hostname)
{
X509 *x;
int i;
Str ret = Strnew_charp("SSL error: failed to check certificate chain");
Str ret = NULL;
int match_ident = FALSE;
/*
* All we need to do here is check that the CN matches.
*
@@ -396,67 +400,72 @@ ssl_check_cert_ident(SSL *handle, char *hostname)
* Certification Authorities are encouraged to use the dNSName instead.
*/
x = SSL_get_peer_certificate(handle);
if (!x) {
if (!x) {
ret = Strnew_charp("Unable to get peer certificate");
return ret;
}
i = X509_get_ext_by_NID(x, NID_subject_alt_name, -1);
if (i >= 0) {
X509_EXTENSION *ex;
STACK_OF(GENERAL_NAME) *alt;
if (i >= 0) {
X509_EXTENSION *ex;
STACK_OF(GENERAL_NAME) * alt;
ex = X509_get_ext(x, i);
alt = X509V3_EXT_d2i(ex);
if (alt) {
int n, len1, len2 = 0;
char *domain;
GENERAL_NAME *gn;
X509V3_EXT_METHOD *method;
ex = X509_get_ext(x, i);
alt = X509V3_EXT_d2i(ex);
if (alt) {
int n, len1, len2 = 0;
char *domain;
GENERAL_NAME *gn;
X509V3_EXT_METHOD *method;
Str seen_dnsname = NULL;
len1 = strlen(hostname);
n = sk_GENERAL_NAME_num(alt);
domain = strchr(hostname, '.');
if (domain)
len2 = len1 - (domain - hostname);
for (i = 0; i < n; i++) {
gn = sk_GENERAL_NAME_value(alt, i);
if (gn->type == GEN_DNS) {
char *sn = ASN1_STRING_data(gn->d.ia5);
int sl = ASN1_STRING_length(gn->d.ia5);
len1 = strlen(hostname);
n = sk_GENERAL_NAME_num(alt);
domain = strchr(hostname, '.');
if (domain)
len2 = len1 - (domain - hostname);
for (i = 0; i < n; i++) {
gn = sk_GENERAL_NAME_value(alt, i);
if (gn->type == GEN_DNS) {
char *sn = ASN1_STRING_data(gn->d.ia5);
int sl = ASN1_STRING_length(gn->d.ia5);
/* Is this an exact match? */
if ((len1 == sl) && !strncasecmp(hostname, sn, len1))
break;
if (!seen_dnsname)
seen_dnsname = Strnew();
Strcat_m_charp(seen_dnsname, sn, " ");
/* Is this an exact match? */
if ((len1 == sl) && !strncasecmp(hostname, sn, len1))
break;
/* Is this a wildcard match? */
if ((*sn == '*') && domain && (len2 == sl-1) &&
!strncasecmp(domain, sn+1, len2))
break;
}
}
method = X509V3_EXT_get(ex);
method->ext_free(alt);
if (i < n) /* Found a match */
ret = NULL;
}
/* Is this a wildcard match? */
if ((*sn == '*') && domain && (len2 == sl - 1) &&
!strncasecmp(domain, sn + 1, len2))
break;
}
}
method = X509V3_EXT_get(ex);
method->ext_free(alt);
if (i < n) /* Found a match */
match_ident = TRUE;
else if (seen_dnsname)
ret = Sprintf("Bad cert ident from %s: dNSName=%s", hostname,
seen_dnsname->ptr);
}
}
if (ret != NULL) {
X509_NAME *xn;
char buf[2048];
if (match_ident == FALSE && ret == NULL) {
X509_NAME *xn;
char buf[2048];
xn = X509_get_subject_name(x);
xn = X509_get_subject_name(x);
if (X509_NAME_get_text_by_NID(xn, NID_commonName,
buf, sizeof(buf)) == -1) {
if (X509_NAME_get_text_by_NID(xn, NID_commonName,
buf, sizeof(buf)) == -1)
ret = Strnew_charp("Unable to get common name from peer cert");
return ret;
}
else if (strcasecmp(hostname, buf))
ret = Sprintf("Bad cert ident %s from %s", buf, hostname);
else
ret = NULL;
match_ident = TRUE;
}
X509_free(x);
return ret;