325 lines
7.3 KiB
C
325 lines
7.3 KiB
C
/*
|
|
* 'OpenSSL for Ruby' project
|
|
* Copyright (C) 2001 Michal Rokos <m.rokos@sh.cvut.cz>
|
|
* All rights reserved.
|
|
*/
|
|
/*
|
|
* This program is licensed under the same licence as Ruby.
|
|
* (See the file 'LICENCE'.)
|
|
*/
|
|
#include "ossl.h"
|
|
|
|
#define NewX509Attr(klass) \
|
|
TypedData_Wrap_Struct((klass), &ossl_x509attr_type, 0)
|
|
#define SetX509Attr(obj, attr) do { \
|
|
if (!(attr)) { \
|
|
ossl_raise(rb_eRuntimeError, "ATTR wasn't initialized!"); \
|
|
} \
|
|
RTYPEDDATA_DATA(obj) = (attr); \
|
|
} while (0)
|
|
#define GetX509Attr(obj, attr) do { \
|
|
TypedData_Get_Struct((obj), X509_ATTRIBUTE, &ossl_x509attr_type, (attr)); \
|
|
if (!(attr)) { \
|
|
ossl_raise(rb_eRuntimeError, "ATTR wasn't initialized!"); \
|
|
} \
|
|
} while (0)
|
|
|
|
/*
|
|
* Classes
|
|
*/
|
|
VALUE cX509Attr;
|
|
VALUE eX509AttrError;
|
|
|
|
static void
|
|
ossl_x509attr_free(void *ptr)
|
|
{
|
|
X509_ATTRIBUTE_free(ptr);
|
|
}
|
|
|
|
static const rb_data_type_t ossl_x509attr_type = {
|
|
"OpenSSL/X509/ATTRIBUTE",
|
|
{
|
|
0, ossl_x509attr_free,
|
|
},
|
|
0, 0, RUBY_TYPED_FREE_IMMEDIATELY,
|
|
};
|
|
|
|
/*
|
|
* Public
|
|
*/
|
|
VALUE
|
|
ossl_x509attr_new(X509_ATTRIBUTE *attr)
|
|
{
|
|
X509_ATTRIBUTE *new;
|
|
VALUE obj;
|
|
|
|
obj = NewX509Attr(cX509Attr);
|
|
if (!attr) {
|
|
new = X509_ATTRIBUTE_new();
|
|
} else {
|
|
new = X509_ATTRIBUTE_dup(attr);
|
|
}
|
|
if (!new) {
|
|
ossl_raise(eX509AttrError, NULL);
|
|
}
|
|
SetX509Attr(obj, new);
|
|
|
|
return obj;
|
|
}
|
|
|
|
X509_ATTRIBUTE *
|
|
GetX509AttrPtr(VALUE obj)
|
|
{
|
|
X509_ATTRIBUTE *attr;
|
|
|
|
GetX509Attr(obj, attr);
|
|
|
|
return attr;
|
|
}
|
|
|
|
/*
|
|
* Private
|
|
*/
|
|
static VALUE
|
|
ossl_x509attr_alloc(VALUE klass)
|
|
{
|
|
X509_ATTRIBUTE *attr;
|
|
VALUE obj;
|
|
|
|
obj = NewX509Attr(klass);
|
|
if (!(attr = X509_ATTRIBUTE_new()))
|
|
ossl_raise(eX509AttrError, NULL);
|
|
SetX509Attr(obj, attr);
|
|
|
|
return obj;
|
|
}
|
|
|
|
/*
|
|
* call-seq:
|
|
* Attribute.new(oid [, value]) => attr
|
|
*/
|
|
static VALUE
|
|
ossl_x509attr_initialize(int argc, VALUE *argv, VALUE self)
|
|
{
|
|
VALUE oid, value;
|
|
X509_ATTRIBUTE *attr, *x;
|
|
const unsigned char *p;
|
|
|
|
GetX509Attr(self, attr);
|
|
if(rb_scan_args(argc, argv, "11", &oid, &value) == 1){
|
|
oid = ossl_to_der_if_possible(oid);
|
|
StringValue(oid);
|
|
p = (unsigned char *)RSTRING_PTR(oid);
|
|
x = d2i_X509_ATTRIBUTE(&attr, &p, RSTRING_LEN(oid));
|
|
DATA_PTR(self) = attr;
|
|
if(!x){
|
|
ossl_raise(eX509AttrError, NULL);
|
|
}
|
|
return self;
|
|
}
|
|
rb_funcall(self, rb_intern("oid="), 1, oid);
|
|
rb_funcall(self, rb_intern("value="), 1, value);
|
|
|
|
return self;
|
|
}
|
|
|
|
static VALUE
|
|
ossl_x509attr_initialize_copy(VALUE self, VALUE other)
|
|
{
|
|
X509_ATTRIBUTE *attr, *attr_other, *attr_new;
|
|
|
|
rb_check_frozen(self);
|
|
GetX509Attr(self, attr);
|
|
GetX509Attr(other, attr_other);
|
|
|
|
attr_new = X509_ATTRIBUTE_dup(attr_other);
|
|
if (!attr_new)
|
|
ossl_raise(eX509AttrError, "X509_ATTRIBUTE_dup");
|
|
|
|
SetX509Attr(self, attr_new);
|
|
X509_ATTRIBUTE_free(attr);
|
|
|
|
return self;
|
|
}
|
|
|
|
/*
|
|
* call-seq:
|
|
* attr.oid = string => string
|
|
*/
|
|
static VALUE
|
|
ossl_x509attr_set_oid(VALUE self, VALUE oid)
|
|
{
|
|
X509_ATTRIBUTE *attr;
|
|
ASN1_OBJECT *obj;
|
|
char *s;
|
|
|
|
GetX509Attr(self, attr);
|
|
s = StringValueCStr(oid);
|
|
obj = OBJ_txt2obj(s, 0);
|
|
if(!obj) ossl_raise(eX509AttrError, NULL);
|
|
if (!X509_ATTRIBUTE_set1_object(attr, obj)) {
|
|
ASN1_OBJECT_free(obj);
|
|
ossl_raise(eX509AttrError, "X509_ATTRIBUTE_set1_object");
|
|
}
|
|
ASN1_OBJECT_free(obj);
|
|
|
|
return oid;
|
|
}
|
|
|
|
/*
|
|
* call-seq:
|
|
* attr.oid => string
|
|
*/
|
|
static VALUE
|
|
ossl_x509attr_get_oid(VALUE self)
|
|
{
|
|
X509_ATTRIBUTE *attr;
|
|
ASN1_OBJECT *oid;
|
|
BIO *out;
|
|
VALUE ret;
|
|
int nid;
|
|
|
|
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);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
/*
|
|
* call-seq:
|
|
* attr.value = asn1 => asn1
|
|
*/
|
|
static VALUE
|
|
ossl_x509attr_set_value(VALUE self, VALUE value)
|
|
{
|
|
X509_ATTRIBUTE *attr;
|
|
VALUE asn1_value;
|
|
int i, asn1_tag;
|
|
|
|
OSSL_Check_Kind(value, cASN1Data);
|
|
asn1_tag = NUM2INT(rb_attr_get(value, rb_intern("@tag")));
|
|
asn1_value = rb_attr_get(value, rb_intern("@value"));
|
|
if (asn1_tag != V_ASN1_SET)
|
|
ossl_raise(eASN1Error, "argument must be ASN1::Set");
|
|
if (!RB_TYPE_P(asn1_value, T_ARRAY))
|
|
ossl_raise(eASN1Error, "ASN1::Set has non-array value");
|
|
|
|
GetX509Attr(self, attr);
|
|
if (X509_ATTRIBUTE_count(attr)) { /* populated, reset first */
|
|
ASN1_OBJECT *obj = X509_ATTRIBUTE_get0_object(attr);
|
|
X509_ATTRIBUTE *new_attr = X509_ATTRIBUTE_create_by_OBJ(NULL, obj, 0, NULL, -1);
|
|
if (!new_attr)
|
|
ossl_raise(eX509AttrError, NULL);
|
|
SetX509Attr(self, new_attr);
|
|
X509_ATTRIBUTE_free(attr);
|
|
attr = new_attr;
|
|
}
|
|
|
|
for (i = 0; i < RARRAY_LEN(asn1_value); i++) {
|
|
ASN1_TYPE *a1type = ossl_asn1_get_asn1type(RARRAY_AREF(asn1_value, i));
|
|
if (!X509_ATTRIBUTE_set1_data(attr, ASN1_TYPE_get(a1type),
|
|
a1type->value.ptr, -1)) {
|
|
ASN1_TYPE_free(a1type);
|
|
ossl_raise(eX509AttrError, NULL);
|
|
}
|
|
ASN1_TYPE_free(a1type);
|
|
}
|
|
|
|
return value;
|
|
}
|
|
|
|
/*
|
|
* call-seq:
|
|
* attr.value => asn1
|
|
*/
|
|
static VALUE
|
|
ossl_x509attr_get_value(VALUE self)
|
|
{
|
|
X509_ATTRIBUTE *attr;
|
|
STACK_OF(ASN1_TYPE) *sk;
|
|
VALUE str;
|
|
int i, count, len;
|
|
unsigned char *p;
|
|
|
|
GetX509Attr(self, attr);
|
|
/* there is no X509_ATTRIBUTE_get0_set() :( */
|
|
if (!(sk = sk_ASN1_TYPE_new_null()))
|
|
ossl_raise(eX509AttrError, "sk_new");
|
|
|
|
count = X509_ATTRIBUTE_count(attr);
|
|
for (i = 0; i < count; i++)
|
|
sk_ASN1_TYPE_push(sk, X509_ATTRIBUTE_get0_type(attr, i));
|
|
|
|
if ((len = i2d_ASN1_SET_ANY(sk, NULL)) <= 0) {
|
|
sk_ASN1_TYPE_free(sk);
|
|
ossl_raise(eX509AttrError, NULL);
|
|
}
|
|
str = rb_str_new(0, len);
|
|
p = (unsigned char *)RSTRING_PTR(str);
|
|
if (i2d_ASN1_SET_ANY(sk, &p) <= 0) {
|
|
sk_ASN1_TYPE_free(sk);
|
|
ossl_raise(eX509AttrError, NULL);
|
|
}
|
|
ossl_str_adjust(str, p);
|
|
sk_ASN1_TYPE_free(sk);
|
|
|
|
return rb_funcall(mASN1, rb_intern("decode"), 1, str);
|
|
}
|
|
|
|
/*
|
|
* call-seq:
|
|
* attr.to_der => string
|
|
*/
|
|
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);
|
|
p = (unsigned char *)RSTRING_PTR(str);
|
|
if(i2d_X509_ATTRIBUTE(attr, &p) <= 0)
|
|
ossl_raise(eX509AttrError, NULL);
|
|
ossl_str_adjust(str, p);
|
|
|
|
return str;
|
|
}
|
|
|
|
/*
|
|
* X509_ATTRIBUTE init
|
|
*/
|
|
void
|
|
Init_ossl_x509attr(void)
|
|
{
|
|
#if 0
|
|
mOSSL = rb_define_module("OpenSSL");
|
|
eOSSLError = rb_define_class_under(mOSSL, "OpenSSLError", rb_eStandardError);
|
|
mX509 = rb_define_module_under(mOSSL, "X509");
|
|
#endif
|
|
|
|
eX509AttrError = rb_define_class_under(mX509, "AttributeError", eOSSLError);
|
|
|
|
cX509Attr = rb_define_class_under(mX509, "Attribute", rb_cObject);
|
|
rb_define_alloc_func(cX509Attr, ossl_x509attr_alloc);
|
|
rb_define_method(cX509Attr, "initialize", ossl_x509attr_initialize, -1);
|
|
rb_define_method(cX509Attr, "initialize_copy", ossl_x509attr_initialize_copy, 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);
|
|
}
|