2003-07-23 12:12:24 -04:00
|
|
|
/*
|
|
|
|
* $Id$
|
|
|
|
* 'OpenSSL for Ruby' project
|
|
|
|
* Copyright (C) 2001 Michal Rokos <m.rokos@sh.cvut.cz>
|
|
|
|
* All rights reserved.
|
|
|
|
*/
|
|
|
|
/*
|
|
|
|
* This program is licenced under the same licence as Ruby.
|
|
|
|
* (See the file 'LICENCE'.)
|
|
|
|
*/
|
|
|
|
#include "ossl.h"
|
|
|
|
|
|
|
|
#define WrapX509Attr(klass, obj, attr) do { \
|
|
|
|
if (!attr) { \
|
|
|
|
ossl_raise(rb_eRuntimeError, "ATTR wasn't initialized!"); \
|
|
|
|
} \
|
|
|
|
obj = Data_Wrap_Struct(klass, 0, X509_ATTRIBUTE_free, attr); \
|
|
|
|
} while (0)
|
|
|
|
#define GetX509Attr(obj, attr) do { \
|
|
|
|
Data_Get_Struct(obj, X509_ATTRIBUTE, attr); \
|
|
|
|
if (!attr) { \
|
|
|
|
ossl_raise(rb_eRuntimeError, "ATTR wasn't initialized!"); \
|
|
|
|
} \
|
|
|
|
} while (0)
|
|
|
|
#define SafeGetX509Attr(obj, attr) do { \
|
|
|
|
OSSL_Check_Kind(obj, cX509Attr); \
|
|
|
|
GetX509Attr(obj, attr); \
|
|
|
|
} while (0)
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Classes
|
|
|
|
*/
|
|
|
|
VALUE cX509Attr;
|
|
|
|
VALUE eX509AttrError;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Public
|
|
|
|
*/
|
|
|
|
VALUE
|
|
|
|
ossl_x509attr_new(X509_ATTRIBUTE *attr)
|
|
|
|
{
|
|
|
|
X509_ATTRIBUTE *new;
|
|
|
|
VALUE obj;
|
2010-04-22 04:04:13 -04:00
|
|
|
|
2003-07-23 12:12:24 -04:00
|
|
|
if (!attr) {
|
|
|
|
new = X509_ATTRIBUTE_new();
|
|
|
|
} else {
|
|
|
|
new = X509_ATTRIBUTE_dup(attr);
|
|
|
|
}
|
|
|
|
if (!new) {
|
|
|
|
ossl_raise(eX509AttrError, NULL);
|
|
|
|
}
|
|
|
|
WrapX509Attr(cX509Attr, obj, new);
|
|
|
|
|
|
|
|
return obj;
|
|
|
|
}
|
|
|
|
|
|
|
|
X509_ATTRIBUTE *
|
|
|
|
DupX509AttrPtr(VALUE obj)
|
|
|
|
{
|
|
|
|
X509_ATTRIBUTE *attr, *new;
|
|
|
|
|
|
|
|
SafeGetX509Attr(obj, attr);
|
|
|
|
if (!(new = X509_ATTRIBUTE_dup(attr))) {
|
|
|
|
ossl_raise(eX509AttrError, NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
return new;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Private
|
|
|
|
*/
|
2003-09-17 05:05:02 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_x509attr_alloc(VALUE klass)
|
2003-07-23 12:12:24 -04:00
|
|
|
{
|
|
|
|
X509_ATTRIBUTE *attr;
|
2003-09-17 05:05:02 -04:00
|
|
|
VALUE obj;
|
2003-07-23 12:12:24 -04:00
|
|
|
|
2010-04-22 04:04:13 -04:00
|
|
|
if (!(attr = X509_ATTRIBUTE_new()))
|
2003-07-23 12:12:24 -04:00
|
|
|
ossl_raise(eX509AttrError, NULL);
|
|
|
|
WrapX509Attr(klass, obj, attr);
|
2003-09-17 05:05:02 -04:00
|
|
|
|
2003-07-23 12:12:24 -04:00
|
|
|
return obj;
|
|
|
|
}
|
|
|
|
|
2007-04-05 15:03:28 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* Attribute.new(oid [, value]) => attr
|
|
|
|
*/
|
2003-07-23 12:12:24 -04:00
|
|
|
static VALUE
|
2003-09-17 05:05:02 -04:00
|
|
|
ossl_x509attr_initialize(int argc, VALUE *argv, VALUE self)
|
2003-07-23 12:12:24 -04:00
|
|
|
{
|
2003-09-17 05:05:02 -04:00
|
|
|
VALUE oid, value;
|
2008-08-28 23:19:15 -04:00
|
|
|
X509_ATTRIBUTE *attr, *x;
|
2008-07-22 11:34:23 -04:00
|
|
|
const unsigned char *p;
|
2003-09-17 05:05:02 -04:00
|
|
|
|
2004-08-23 19:59:44 -04:00
|
|
|
GetX509Attr(self, attr);
|
2003-09-17 05:05:02 -04:00
|
|
|
if(rb_scan_args(argc, argv, "11", &oid, &value) == 1){
|
|
|
|
oid = ossl_to_der_if_possible(oid);
|
2003-09-20 15:18:22 -04:00
|
|
|
StringValue(oid);
|
2008-07-22 11:34:23 -04:00
|
|
|
p = (unsigned char *)RSTRING_PTR(oid);
|
2008-08-28 23:19:15 -04:00
|
|
|
x = d2i_X509_ATTRIBUTE(&attr, &p, RSTRING_LEN(oid));
|
|
|
|
DATA_PTR(self) = attr;
|
|
|
|
if(!x){
|
2003-09-17 05:05:02 -04:00
|
|
|
ossl_raise(eX509AttrError, NULL);
|
|
|
|
}
|
|
|
|
return self;
|
2003-07-23 12:12:24 -04:00
|
|
|
}
|
2003-09-17 05:05:02 -04:00
|
|
|
rb_funcall(self, rb_intern("oid="), 1, oid);
|
|
|
|
rb_funcall(self, rb_intern("value="), 1, value);
|
|
|
|
|
|
|
|
return self;
|
|
|
|
}
|
|
|
|
|
2007-04-05 15:03:28 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* attr.oid = string => string
|
|
|
|
*/
|
2003-09-17 05:05:02 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_x509attr_set_oid(VALUE self, VALUE oid)
|
|
|
|
{
|
|
|
|
X509_ATTRIBUTE *attr;
|
|
|
|
ASN1_OBJECT *obj;
|
|
|
|
char *s;
|
2010-04-22 04:04:13 -04:00
|
|
|
|
2003-09-17 05:05:02 -04:00
|
|
|
s = StringValuePtr(oid);
|
|
|
|
obj = OBJ_txt2obj(s, 0);
|
|
|
|
if(!obj) obj = OBJ_txt2obj(s, 1);
|
|
|
|
if(!obj) ossl_raise(eX509AttrError, NULL);
|
2004-12-15 01:35:55 -05:00
|
|
|
GetX509Attr(self, attr);
|
2003-09-17 05:05:02 -04:00
|
|
|
X509_ATTRIBUTE_set1_object(attr, obj);
|
2010-04-22 04:04:13 -04:00
|
|
|
|
2003-09-17 05:05:02 -04:00
|
|
|
return oid;
|
|
|
|
}
|
|
|
|
|
2007-04-05 15:03:28 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* attr.oid => string
|
|
|
|
*/
|
2003-09-17 05:05:02 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_x509attr_get_oid(VALUE self)
|
|
|
|
{
|
|
|
|
X509_ATTRIBUTE *attr;
|
|
|
|
ASN1_OBJECT *oid;
|
|
|
|
BIO *out;
|
|
|
|
VALUE ret;
|
|
|
|
int nid;
|
2003-07-23 12:12:24 -04:00
|
|
|
|
2003-09-17 05:05:02 -04:00
|
|
|
GetX509Attr(self, attr);
|
|
|
|
oid = X509_ATTRIBUTE_get0_object(attr);
|
|
|
|
if ((nid = OBJ_obj2nid(oid)) != NID_undef)
|
|
|
|
ret = rb_str_new2(OBJ_nid2sn(nid));
|
|
|
|
else{
|
|
|
|
if (!(out = BIO_new(BIO_s_mem())))
|
|
|
|
ossl_raise(eX509AttrError, NULL);
|
|
|
|
i2a_ASN1_OBJECT(out, oid);
|
|
|
|
ret = ossl_membio2str(out);
|
|
|
|
}
|
2010-04-22 04:04:13 -04:00
|
|
|
|
2003-09-17 05:05:02 -04:00
|
|
|
return ret;
|
2003-07-23 12:12:24 -04:00
|
|
|
}
|
2003-09-17 05:05:02 -04:00
|
|
|
|
|
|
|
#if defined(HAVE_ST_X509_ATTRIBUTE_SINGLE) || defined(HAVE_ST_SINGLE)
|
|
|
|
# define OSSL_X509ATTR_IS_SINGLE(attr) ((attr)->single)
|
|
|
|
# define OSSL_X509ATTR_SET_SINGLE(attr) ((attr)->single = 1)
|
|
|
|
#else
|
|
|
|
# define OSSL_X509ATTR_IS_SINGLE(attr) (!(attr)->set)
|
|
|
|
# define OSSL_X509ATTR_SET_SINGLE(attr) ((attr)->set = 0)
|
2003-07-23 12:12:24 -04:00
|
|
|
#endif
|
|
|
|
|
2007-04-05 15:03:28 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* attr.value = asn1 => asn1
|
|
|
|
*/
|
2003-09-17 05:05:02 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_x509attr_set_value(VALUE self, VALUE value)
|
|
|
|
{
|
2003-10-03 04:58:01 -04:00
|
|
|
X509_ATTRIBUTE *attr;
|
|
|
|
ASN1_TYPE *a1type;
|
|
|
|
|
|
|
|
if(!(a1type = ossl_asn1_get_asn1type(value)))
|
|
|
|
ossl_raise(eASN1Error, "could not get ASN1_TYPE");
|
|
|
|
if(ASN1_TYPE_get(a1type) == V_ASN1_SEQUENCE){
|
|
|
|
ASN1_TYPE_free(a1type);
|
|
|
|
ossl_raise(eASN1Error, "couldn't set SEQUENCE for attribute value.");
|
|
|
|
}
|
2004-12-15 01:35:55 -05:00
|
|
|
GetX509Attr(self, attr);
|
2003-10-03 04:58:01 -04:00
|
|
|
if(attr->value.set){
|
|
|
|
if(OSSL_X509ATTR_IS_SINGLE(attr)) ASN1_TYPE_free(attr->value.single);
|
|
|
|
else sk_ASN1_TYPE_free(attr->value.set);
|
|
|
|
}
|
|
|
|
OSSL_X509ATTR_SET_SINGLE(attr);
|
|
|
|
attr->value.single = a1type;
|
|
|
|
|
2003-09-17 05:05:02 -04:00
|
|
|
return value;
|
|
|
|
}
|
|
|
|
|
2007-04-05 15:03:28 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* attr.value => asn1
|
|
|
|
*/
|
2003-09-17 05:05:02 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_x509attr_get_value(VALUE self)
|
|
|
|
{
|
2003-10-03 04:58:01 -04:00
|
|
|
X509_ATTRIBUTE *attr;
|
|
|
|
VALUE str, asn1;
|
|
|
|
long length;
|
|
|
|
unsigned char *p;
|
|
|
|
|
|
|
|
GetX509Attr(self, attr);
|
|
|
|
if(attr->value.ptr == NULL) return Qnil;
|
|
|
|
if(OSSL_X509ATTR_IS_SINGLE(attr)){
|
|
|
|
length = i2d_ASN1_TYPE(attr->value.single, NULL);
|
|
|
|
str = rb_str_new(0, length);
|
2008-07-22 11:34:23 -04:00
|
|
|
p = (unsigned char *)RSTRING_PTR(str);
|
2003-10-03 04:58:01 -04:00
|
|
|
i2d_ASN1_TYPE(attr->value.single, &p);
|
|
|
|
ossl_str_adjust(str, p);
|
|
|
|
}
|
|
|
|
else{
|
2010-02-27 21:56:26 -05:00
|
|
|
length = i2d_ASN1_SET_OF_ASN1_TYPE(attr->value.set,
|
|
|
|
(unsigned char **) NULL, i2d_ASN1_TYPE,
|
|
|
|
V_ASN1_SET, V_ASN1_UNIVERSAL, 0);
|
2003-10-03 04:58:01 -04:00
|
|
|
str = rb_str_new(0, length);
|
2008-07-22 11:34:23 -04:00
|
|
|
p = (unsigned char *)RSTRING_PTR(str);
|
2003-10-03 04:58:01 -04:00
|
|
|
i2d_ASN1_SET_OF_ASN1_TYPE(attr->value.set, &p,
|
|
|
|
i2d_ASN1_TYPE, V_ASN1_SET, V_ASN1_UNIVERSAL, 0);
|
|
|
|
ossl_str_adjust(str, p);
|
|
|
|
}
|
|
|
|
asn1 = rb_funcall(mASN1, rb_intern("decode"), 1, str);
|
|
|
|
|
|
|
|
return asn1;
|
2003-09-17 05:05:02 -04:00
|
|
|
}
|
|
|
|
|
2007-04-05 15:03:28 -04:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* attr.to_der => string
|
|
|
|
*/
|
2003-09-17 05:05:02 -04:00
|
|
|
static VALUE
|
|
|
|
ossl_x509attr_to_der(VALUE self)
|
|
|
|
{
|
|
|
|
X509_ATTRIBUTE *attr;
|
|
|
|
VALUE str;
|
|
|
|
int len;
|
|
|
|
unsigned char *p;
|
|
|
|
|
|
|
|
GetX509Attr(self, attr);
|
|
|
|
if((len = i2d_X509_ATTRIBUTE(attr, NULL)) <= 0)
|
|
|
|
ossl_raise(eX509AttrError, NULL);
|
|
|
|
str = rb_str_new(0, len);
|
2008-07-22 11:34:23 -04:00
|
|
|
p = (unsigned char *)RSTRING_PTR(str);
|
2003-09-17 05:05:02 -04:00
|
|
|
if(i2d_X509_ATTRIBUTE(attr, &p) <= 0)
|
|
|
|
ossl_raise(eX509AttrError, NULL);
|
2010-04-22 04:04:13 -04:00
|
|
|
rb_str_set_len(str, p - (unsigned char*)RSTRING_PTR(str));
|
2003-09-17 05:05:02 -04:00
|
|
|
|
|
|
|
return str;
|
|
|
|
}
|
|
|
|
|
2003-07-23 12:12:24 -04:00
|
|
|
/*
|
|
|
|
* X509_ATTRIBUTE init
|
|
|
|
*/
|
|
|
|
void
|
|
|
|
Init_ossl_x509attr()
|
|
|
|
{
|
|
|
|
eX509AttrError = rb_define_class_under(mX509, "AttributeError", eOSSLError);
|
|
|
|
|
|
|
|
cX509Attr = rb_define_class_under(mX509, "Attribute", rb_cObject);
|
2003-09-17 05:05:02 -04:00
|
|
|
rb_define_alloc_func(cX509Attr, ossl_x509attr_alloc);
|
|
|
|
rb_define_method(cX509Attr, "initialize", ossl_x509attr_initialize, -1);
|
|
|
|
rb_define_method(cX509Attr, "oid=", ossl_x509attr_set_oid, 1);
|
|
|
|
rb_define_method(cX509Attr, "oid", ossl_x509attr_get_oid, 0);
|
|
|
|
rb_define_method(cX509Attr, "value=", ossl_x509attr_set_value, 1);
|
|
|
|
rb_define_method(cX509Attr, "value", ossl_x509attr_get_value, 0);
|
|
|
|
rb_define_method(cX509Attr, "to_der", ossl_x509attr_to_der, 0);
|
2003-07-23 12:12:24 -04:00
|
|
|
}
|