xca/lib/pki_x509.cpp
Christian Hohnstaedt 766648be49 fix string conversion from QString to ASN1
Synopsis: When using special chars in the DN entries
           they sometimes got corrupted.

 - the toUtf8() method returned a temporary QByteArray
   and the pointer to its memory became invalid befor using it.

 - also checked other invalid uses of temporary QByteArray objects
2010-01-05 07:37:38 +01:00

798 lines
15 KiB
C++

/* vi: set sw=4 ts=4:
*
* Copyright (C) 2001 - 2009 Christian Hohnstaedt.
*
* All rights reserved.
*/
#include "pki_x509.h"
#include "pki_evp.h"
#include "pki_scard.h"
#include "func.h"
#include "base.h"
#include "exception.h"
#include "pass_info.h"
#include "widgets/MainWindow.h"
#include <qdir.h>
QPixmap *pki_x509::icon[5] = { NULL, NULL, NULL, NULL, NULL };
pki_x509::pki_x509(X509 *c)
:pki_x509super()
{
init();
cert = c;
openssl_error();
}
pki_x509::pki_x509(const pki_x509 *crt)
:pki_x509super(crt->desc)
{
init();
cert = X509_dup(crt->cert);
openssl_error();
psigner = crt->psigner;
setRefKey(crt->getRefKey());
trust = crt->trust;
efftrust = crt->efftrust;
revoked = crt->revoked;
caSerial = crt->caSerial;
caTemplate = crt->caTemplate;
crlDays = crt->crlDays;
crlExpiry = crt->crlExpiry;
isrevoked = isrevoked;
openssl_error();
}
pki_x509::pki_x509(const QString name)
:pki_x509super(name)
{
init();
cert = X509_new();
X509_set_version(cert, 2);
openssl_error();
}
void pki_x509::fromPEM_BIO(BIO *bio, QString name)
{
X509 *_cert;
_cert = PEM_read_bio_X509(bio, NULL, NULL, NULL);
openssl_error(name);
X509_free(cert);
cert = _cert;
autoIntName();
if (getIntName().isEmpty())
setIntName(rmslashdot(name));
trust = 1;
efftrust = 1;
}
void pki_x509::fload(const QString fname)
{
FILE *fp = fopen(QString2filename(fname), "r");
X509 *_cert;
if (!fp) {
fopen_error(fname);
return;
}
_cert = PEM_read_X509(fp, NULL, NULL, NULL);
if (!_cert) {
ign_openssl_error();
rewind(fp);
_cert = d2i_X509_fp(fp, NULL);
}
fclose(fp);
openssl_error(fname);
X509_free(cert);
cert = _cert;
autoIntName();
if (getIntName().isEmpty())
setIntName(rmslashdot(fname));
trust = 1;
efftrust = 1;
}
pki_x509::~pki_x509()
{
if (cert) {
X509_free(cert);
}
openssl_error();
}
void pki_x509::init()
{
psigner = NULL;
trust = 0;
efftrust = 0;
revoked.now();
caSerial = 1;
caTemplate = "";
crlDays = 30;
crlExpiry.now();
class_name = "pki_x509";
cert = NULL;
isrevoked = false;
dataVersion=1;
pkiType=x509;
cols=6;
}
void pki_x509::setSerial(const a1int &serial)
{
if (cert->cert_info->serialNumber != NULL ) {
ASN1_INTEGER_free(cert->cert_info->serialNumber);
}
cert->cert_info->serialNumber = serial.get();
openssl_error();
}
a1int pki_x509::getSerial() const
{
a1int a(X509_get_serialNumber(cert));
return a;
}
a1int pki_x509::hashInfo(const EVP_MD *md) const
{
unsigned char digest[EVP_MAX_MD_SIZE];
unsigned len = 0;
if (!ASN1_item_digest(ASN1_ITEM_rptr(X509_CINF), md,
(char*)cert->cert_info,digest,&len))
openssl_error();
a1int a;
a.setRaw(digest,len);
return a;
}
a1int pki_x509::getQASerial(const a1int &secret) const
{
ASN1_INTEGER *hold = cert->cert_info->serialNumber;
cert->cert_info->serialNumber = secret.get();
a1int ret = hashInfo(EVP_md5());
ASN1_INTEGER_free(cert->cert_info->serialNumber);
cert->cert_info->serialNumber = hold;
return ret;
}
void pki_x509::load_token(pkcs11 &p11, CK_OBJECT_HANDLE object)
{
QStringList sl = p11.tokenInfo();
const unsigned char *p;
unsigned long s;
QString desc;
pk11_attr_ulong type(CKA_CERTIFICATE_TYPE);
p11.loadAttribute(type, object);
if (type.getValue() != CKC_X_509)
throw errorEx(QString("Unsupported Certificate type %1"
).arg(type.getValue()));
try {
pk11_attr_data label(CKA_LABEL);
p11.loadAttribute(label, object);
desc = label.getText();
} catch(errorEx &err) {
printf("No Cert Label: %s\n", err.getCString());
// IGNORE
}
pk11_attr_data x509(CKA_VALUE);
p11.loadAttribute(x509, object);
s = x509.getValue(&p);
if (cert)
X509_free(cert);
cert = d2i_X509(NULL, &p, s);
if (desc.isEmpty()) {
try {
x509name xn;
pk11_attr_data subj(CKA_SUBJECT);
p11.loadAttribute(subj, object);
s = subj.getValue(&p);
xn.d2i(p, s);
desc = xn.getMostPopular();
openssl_error();
} catch(errorEx &err) {
printf("No Cert Subject: %s\n", err.getCString());
// IGNORE
}
}
setIntName(sl[0] + " (" + desc + ")");
openssl_error();
}
void pki_x509::store_token()
{
pki_scard *card = (pki_scard *)privkey;
int slot, size, id_size;
unsigned char *p, *p1, *id;
QList<CK_OBJECT_HANDLE> objects;
if (!privkey || !privkey->isScard())
throw errorEx(tr("No associated Smart card"));
slot = card->prepare_card();
size = i2d_X509(cert, NULL);
openssl_error();
p = p1 = (unsigned char*)OPENSSL_malloc(size);
i2d_X509(cert, &p1);
openssl_error();
id_size = card->getIdBin(&id);
openssl_error();
pk11_attlist p11_atts;
p11_atts <<
pk11_attr_ulong(CKA_CLASS, CKO_CERTIFICATE) <<
pk11_attr_ulong(CKA_CERTIFICATE_TYPE, CKC_X_509) <<
pk11_attr_bool(CKA_TOKEN, true) <<
pk11_attr_data(CKA_VALUE, p, size) <<
pk11_attr_data(CKA_ID, id, id_size) <<
pk11_attr_data(CKA_LABEL, desc.toUtf8());
free(p);
free(id);
pkcs11 p11;
p11.startSession(slot, true);
if (card->scardLogin(p11, false).isNull())
return;
p11.createObject(p11_atts);
}
bool pki_x509::verifyQASerial(const a1int &secret) const
{
return getQASerial(secret) == getSerial();
}
void pki_x509::set_date(ASN1_TIME **a, const a1time &a1)
{
if (*a != NULL )
ASN1_TIME_free(*a);
*a = a1.get_utc();
if (*a == NULL)
*a = a1.get();
openssl_error();
}
void pki_x509::setNotBefore(const a1time &a1)
{
set_date(&X509_get_notBefore(cert), a1);
}
void pki_x509::setNotAfter(const a1time &a1)
{
set_date(&X509_get_notAfter(cert), a1);
}
a1time pki_x509::getNotBefore() const
{
a1time a(X509_get_notBefore(cert));
return a;
}
a1time pki_x509::getNotAfter() const
{
a1time a(X509_get_notAfter(cert));
return a;
}
x509name pki_x509::getSubject() const
{
x509name x(cert->cert_info->subject);
openssl_error();
return x;
}
x509name pki_x509::getIssuer() const
{
x509name x(cert->cert_info->issuer);
openssl_error();
return x;
}
void pki_x509::setSubject(const x509name &n)
{
if (cert->cert_info->subject != NULL)
X509_NAME_free(cert->cert_info->subject);
cert->cert_info->subject = n.get();
}
void pki_x509::setIssuer(const x509name &n)
{
if ((cert->cert_info->issuer) != NULL)
X509_NAME_free(cert->cert_info->issuer);
cert->cert_info->issuer = n.get();
}
void pki_x509::addV3ext(const x509v3ext &e)
{
if (!e.isValid()) return;
X509_EXTENSION *ext = e.get();
X509_add_ext(cert, ext, -1);
X509_EXTENSION_free(ext);
openssl_error();
}
void pki_x509::delSigner(pki_base *s)
{
if (s == psigner)
psigner = NULL;
}
bool pki_x509::canSign()
{
BASIC_CONSTRAINTS *bc;
int crit;
if (!privkey || privkey->isPubKey())
return false;
if (privkey->isScard() && !pkcs11::loaded())
return false;
bc = (BASIC_CONSTRAINTS *)X509_get_ext_d2i(cert, NID_basic_constraints, &crit, NULL);
openssl_error();
if (!bc || !bc->ca)
return false;
return true;
}
bool pki_x509::hasExtension(int nid)
{
int i;
STACK_OF(X509_EXTENSION) *x = cert->cert_info->extensions;
for(i = 0; i < sk_X509_EXTENSION_num(x); i++) {
X509_EXTENSION *ex = sk_X509_EXTENSION_value(x, i);
if (OBJ_obj2nid(ex->object) == nid) {
return true;
}
}
return false;
}
void pki_x509::sign(pki_key *signkey, const EVP_MD *digest)
{
EVP_PKEY *tkey;
if (!signkey) {
my_error(tr("There is no key for signing !"));
}
tkey = signkey->decryptKey();
openssl_error();
X509_sign(cert, tkey, digest);
openssl_error();
EVP_PKEY_free(tkey);
openssl_error();
}
void pki_x509::fromData(const unsigned char *p, db_header_t *head)
{
int version, size;
const unsigned char *p1 = p;
X509 *cert_sik = cert;
version = head->version;
size = head->len - sizeof(db_header_t);
cert = D2I_CLASH(d2i_X509, NULL, &p1, size);
trust = db::intFromData(&p1);
isrevoked = db::boolFromData(&p1);
p1 = revoked.d2i(p1, size - (p1-p));
caSerial.setHex(db::stringFromData(&p1));
caTemplate = db::stringFromData(&p1);
crlDays = db::intFromData(&p1);
crlExpiry.d2i(p1, size - (p1-p));
if (cert)
X509_free(cert_sik);
else
cert = cert_sik;
openssl_error();
}
unsigned char *pki_x509::toData(int *size)
{
unsigned char *p, *p1;
// calculate the needed size
*size = i2d_X509(cert, NULL) + 11 + caSerial.toHex().length() +
caTemplate.length() + crlExpiry.derSize() + revoked.derSize();
openssl_error();
p = p1 = (unsigned char*)OPENSSL_malloc(*size);
i2d_X509(cert, &p1); // cert
db::intToData(&p1, trust); // trust
db::boolToData(&p1, isrevoked);
p1 = revoked.i2d(p1); // revokation date
// the serial if this is a CA
db::stringToData(&p1, caSerial.toHex());
// the name of the template to use for signing
db::stringToData(&p1, caTemplate);
// version 3
db::intToData(&p1, crlDays); // the CRL period
p1 = crlExpiry.i2d(p1); // last CRL date
openssl_error();
if (*size != p1-p) {
printf("pki_x509::toData: Size = %d, real size=%zd\n", *size, p1-p);
//abort();
}
return p;
}
void pki_x509::writeDefault(const QString fname)
{
writeCert(fname + QDir::separator() + getIntName() + ".crt",
true, false);
}
void pki_x509::writeCert(const QString fname, bool PEM, bool append)
{
FILE *fp;
const char *p = "w";
if (append)
p = "a";
fp = fopen(QString2filename(fname), p);
if (fp != NULL) {
if (cert){
if (PEM)
PEM_write_X509(fp, cert);
else
i2d_X509_fp(fp, cert);
}
fclose(fp);
openssl_error();
} else
fopen_error(fname);
}
bool pki_x509::compare(pki_base *ref)
{
bool ret = !X509_cmp(cert, ((pki_x509 *)ref)->cert);
ign_openssl_error();
return ret;
}
bool pki_x509::cmpIssuerAndSerial(pki_x509 *refcert)
{
bool ret = X509_issuer_and_serial_cmp(cert, refcert->cert);
openssl_error();
return ret;
}
bool pki_x509::verify(pki_x509 *signer)
{
if (psigner == signer)
return true;
if ((psigner != NULL )||( signer == NULL))
return false;
X509_NAME *subject = X509_get_subject_name(signer->cert);
X509_NAME *issuer = X509_get_issuer_name(cert);
openssl_error();
if (X509_NAME_cmp(subject, issuer)) {
return false;
}
int i = X509_verify(cert, X509_get_pubkey(signer->cert));
ign_openssl_error();
if (i>0) {
psigner = signer;
return true;
}
return false;
}
pki_key *pki_x509::getPubKey() const
{
EVP_PKEY *pkey = X509_get_pubkey(cert);
openssl_error();
pki_evp *key = new pki_evp(pkey);
return key;
}
void pki_x509::setPubKey(pki_key *key)
{
X509_set_pubkey(cert, key->getPubKey());
}
QString pki_x509::fingerprint(const EVP_MD *digest)
{
int j;
QString fp="";
char zs[4];
unsigned int n;
unsigned char md[EVP_MAX_MD_SIZE];
X509_digest(cert, digest, md, &n);
openssl_error();
for (j=0; j<(int)n; j++) {
sprintf(zs, "%02X%c",md[j], (j+1 == (int)n) ?'\0':':');
fp += zs;
}
return fp;
}
int pki_x509::checkDate()
{
a1time a; a.now();
int ret = 0;
if (getNotAfter() < a) ret = -1;
if (getNotBefore() > a) ret = 1;
openssl_error();
return ret;
}
int pki_x509::resetTimes(pki_x509 *signer)
{
int ret = 0;
if (!signer) return -1;
if (getNotAfter() > signer->getNotAfter()) {
// client cert is longer valid....
setNotAfter(signer->getNotAfter());
ret=1;
}
if (getNotBefore() < signer->getNotBefore()) {
// client cert is longer valid....
setNotBefore(signer->getNotBefore());
ret=2;
}
openssl_error();
return ret;
}
extList pki_x509::getV3ext()
{
extList el;
el.setStack(cert->cert_info->extensions);
return el;
}
x509v3ext pki_x509::getExtByNid(int nid)
{
extList el = getV3ext();
int i = el.idxByNid(nid);
if (i == -1)
return x509v3ext();
return el[i];
}
pki_x509 *pki_x509::getSigner()
{
return (pki_x509 *)psigner;
}
int pki_x509::getTrust()
{
if (trust > 2) trust = 2;
if (trust < 0) trust = 0;
return trust;
}
void pki_x509::setTrust(int t)
{
if (t>=0 && t<=2)
trust = t;
}
int pki_x509::getEffTrust()
{
if (efftrust > 2) efftrust = 2;
if (efftrust < 0) efftrust = 0;
return efftrust;
}
void pki_x509::setEffTrust(int t)
{
if (t>= 0 && t<= 2)
efftrust = t;
}
bool pki_x509::isRevoked()
{
return isrevoked ;
}
void pki_x509::setRevoked(bool rev)
{
if (rev) {
setEffTrust(0);
setTrust(0);
revoked.now();
openssl_error();
}
isrevoked = rev;
openssl_error();
}
a1time &pki_x509::getRevoked()
{
return revoked;
}
void pki_x509::setRevoked(const a1time &when)
{
isrevoked = true;
revoked = when;
setEffTrust(0);
setTrust(0);
openssl_error();
}
int pki_x509::calcEffTrust()
{
int mytrust = trust;
if (mytrust != 1) {
efftrust = mytrust;
return mytrust;
}
if (getSigner() == this && trust == 1) { // inherit trust, but self signed
trust=0;
efftrust=0;
return 0;
}
//we must look at the parent certs
pki_x509 *signer = getSigner();
while (mytrust == 1 && signer && signer != this) {
mytrust = signer->getTrust();
signer = signer->getSigner();
}
if (mytrust == 1) mytrust = 0;
efftrust = mytrust;
return mytrust;
}
a1int pki_x509::getIncCaSerial() { return caSerial++; }
a1int pki_x509::getCaSerial() { return caSerial; }
void pki_x509::setCaSerial(a1int s) { caSerial = s; }
int pki_x509::getCrlDays() {return crlDays;}
void pki_x509::setCrlDays(int s){if (s>0) crlDays = s;}
QString pki_x509::getTemplate(){ return caTemplate; }
void pki_x509::setTemplate(QString s) {if (s.length()>0) caTemplate = s; }
void pki_x509::setCrlExpiry(const a1time &time)
{
crlExpiry = time;
openssl_error();
}
x509rev pki_x509::getRev()
{
x509rev a;
a.setDate(getRevoked());
a.setSerial(getSerial());
return a;
}
QVariant pki_x509::column_data(int col)
{
QString truststatus[] =
{ tr("Not trusted"), tr("Trust inherited"), tr("Always Trusted") };
switch (col) {
case 0:
return QVariant(getIntName());
case 1:
return QVariant(getSubject().getEntryByNid(NID_commonName));
case 2:
return QVariant(getSerial().toHex());
case 3:
return QVariant(getNotAfter().toSortable());
case 4:
return QVariant(truststatus[ getTrust() ]);
case 5:
if (isRevoked())
return QVariant(getRevoked().toSortable());
else if (canSign())
return QVariant(tr("CRL expires: ")+ crlExpiry.toSortable());
}
return QVariant();
}
QVariant pki_x509::getIcon(int column)
{
int pixnum = 0;
if (column != 0)
return QVariant();
if (getRefKey()) {
pixnum += 1;
}
if (calcEffTrust() == 0){
pixnum += 2;
}
return QVariant(*icon[pixnum]);
}
QString pki_x509::getSigAlg()
{
QString alg = OBJ_nid2ln(OBJ_obj2nid(cert->sig_alg->algorithm));
return alg;
}
const EVP_MD *pki_x509::getDigest()
{
return EVP_get_digestbyobj(cert->sig_alg->algorithm);
}
void pki_x509::oldFromData(unsigned char *p, int size)
{
int version, sCert, sRev, sLastCrl;
const unsigned char *p1 = p;
X509 *cert_sik = cert;
version = intFromData(&p1);
if (version >=1 && version <= 5) {
sCert = intFromData(&p1);
cert = D2I_CLASH(d2i_X509, NULL, &p1, sCert);
trust = intFromData(&p1);
sRev = intFromData(&p1);
if (sRev) {
if (version != 3) isrevoked = true;
p1 = revoked.d2i(p1, sRev);
}
else {
isrevoked = false;
revoked.now();
}
if (version == 1) {
caTemplate="";
caSerial=1;
crlExpiry.now();
crlDays=30;
}
if (version >= 2 ) {
if (version >= 5)
caSerial.setHex(db::stringFromData(&p1));
else {
int i = intFromData(&p1);
if (i>=0)
caSerial = i;
else {
caSerial = getSerial();
++caSerial;
}
}
caTemplate = db::stringFromData(&p1);
}
if (version >= 3 ) {
crlDays = intFromData(&p1);
sLastCrl = intFromData(&p1);
if (sLastCrl) {
crlExpiry.d2i(p1, sLastCrl);
}
}
// version 4 saves a NULL as revoked
// version 3 did save a recent date :-((
}
else { // old version
p1 = p;
cert = D2I_CLASH(d2i_X509, NULL, &p1, size);
revoked = NULL;
trust = 1;
efftrust = 1;
}
if (cert)
X509_free(cert_sik);
else
cert = cert_sik;
openssl_error();
}