#include "asn1_decode.h"
#include "asn1_get.h"
#include <stdio.h>
#ifdef HAVE_SYS_TIME_H
#include <sys/time.h>
#ifdef TIME_WITH_SYS_TIME
#include <time.h>
#endif
#else
#include <time.h>
#endif
#define setup()\
asn1_error_code retval;\
taginfo tinfo
#define asn1class (tinfo.asn1class)
#define construction (tinfo.construction)
#define tagnum (tinfo.tagnum)
#define length (tinfo.length)
#define tag(type)\
retval = asn1_get_tag_2(buf,&tinfo);\
if(retval) return retval;\
if(asn1class != UNIVERSAL || construction != PRIMITIVE || tagnum != type)\
return ASN1_BAD_ID
#define cleanup()\
return 0
time_t gmt_mktime (struct tm *);
asn1_error_code asn1_decode_integer(asn1buf *buf, long int *val)
{
setup();
asn1_octet o;
long n = 0;
int i;
tag(ASN1_INTEGER);
for (i = 0; i < length; i++) {
retval = asn1buf_remove_octet(buf, &o);
if (retval) return retval;
if (!i) {
n = (0x80 & o) ? -1 : 0;
if (n < 0 && length > sizeof (long))
return ASN1_OVERFLOW;
else if (length > sizeof (long) + 1)
return ASN1_OVERFLOW;
}
n = (n << 8) | o;
}
*val = n;
cleanup();
}
asn1_error_code asn1_decode_unsigned_integer(asn1buf *buf, long unsigned int *val)
{
setup();
asn1_octet o;
unsigned long n;
int i;
tag(ASN1_INTEGER);
for (i = 0, n = 0; i < length; i++) {
retval = asn1buf_remove_octet(buf, &o);
if(retval) return retval;
if (!i) {
if (0x80 & o)
return ASN1_OVERFLOW;
else if (length > sizeof (long) + 1)
return ASN1_OVERFLOW;
}
n = (n << 8) | o;
}
*val = n;
cleanup();
}
asn1_error_code asn1_decode_maybe_unsigned(asn1buf *buf, unsigned long *val)
{
setup();
asn1_octet o;
unsigned long n, bitsremain;
unsigned int i;
tag(ASN1_INTEGER);
o = 0;
n = 0;
bitsremain = ~0UL;
for (i = 0; i < length; i++) {
if (bitsremain < 0xff) return ASN1_OVERFLOW;
retval = asn1buf_remove_octet(buf, &o);
if (retval) return retval;
if (bitsremain == ~0UL) {
if (i == 0)
n = (o & 0x80) ? ~0UL : 0UL;
if (n == 0 && o == 0)
continue;
if (n == ~0UL && o == 0xff)
continue;
}
n = (n << 8) | o;
bitsremain >>= 8;
}
*val = n;
cleanup();
}
asn1_error_code asn1_decode_oid(asn1buf *buf, unsigned int *retlen, asn1_octet **val)
{
setup();
tag(ASN1_OBJECTIDENTIFIER);
retval = asn1buf_remove_octetstring(buf, length, val);
if (retval) return retval;
*retlen = length;
cleanup();
}
asn1_error_code asn1_decode_octetstring(asn1buf *buf, unsigned int *retlen, asn1_octet **val)
{
setup();
tag(ASN1_OCTETSTRING);
retval = asn1buf_remove_octetstring(buf,length,val);
if(retval) return retval;
*retlen = length;
cleanup();
}
asn1_error_code asn1_decode_charstring(asn1buf *buf, unsigned int *retlen, char **val)
{
setup();
tag(ASN1_OCTETSTRING);
retval = asn1buf_remove_charstring(buf,length,val);
if(retval) return retval;
*retlen = length;
cleanup();
}
asn1_error_code asn1_decode_generalstring(asn1buf *buf, unsigned int *retlen, char **val)
{
setup();
tag(ASN1_GENERALSTRING);
retval = asn1buf_remove_charstring(buf,length,val);
if(retval) return retval;
*retlen = length;
cleanup();
}
asn1_error_code asn1_decode_null(asn1buf *buf)
{
setup();
tag(ASN1_NULL);
if(length != 0) return ASN1_BAD_LENGTH;
cleanup();
}
asn1_error_code asn1_decode_printablestring(asn1buf *buf, int *retlen, char **val)
{
setup();
tag(ASN1_PRINTABLESTRING);
retval = asn1buf_remove_charstring(buf,length,val);
if(retval) return retval;
*retlen = length;
cleanup();
}
asn1_error_code asn1_decode_ia5string(asn1buf *buf, int *retlen, char **val)
{
setup();
tag(ASN1_IA5STRING);
retval = asn1buf_remove_charstring(buf,length,val);
if(retval) return retval;
*retlen = length;
cleanup();
}
asn1_error_code asn1_decode_generaltime(asn1buf *buf, time_t *val)
{
setup();
char *s;
struct tm ts;
time_t t;
tag(ASN1_GENERALTIME);
if(length != 15) return ASN1_BAD_LENGTH;
retval = asn1buf_remove_charstring(buf,15,&s);
if(s[14] != 'Z') {
free(s);
return ASN1_BAD_FORMAT;
}
if(s[0] == '1' && !memcmp("19700101000000Z", s, 15)) {
t = 0;
free(s);
goto done;
}
#define c2i(c) ((c)-'0')
ts.tm_year = 1000*c2i(s[0]) + 100*c2i(s[1]) + 10*c2i(s[2]) + c2i(s[3])
- 1900;
ts.tm_mon = 10*c2i(s[4]) + c2i(s[5]) - 1;
ts.tm_mday = 10*c2i(s[6]) + c2i(s[7]);
ts.tm_hour = 10*c2i(s[8]) + c2i(s[9]);
ts.tm_min = 10*c2i(s[10]) + c2i(s[11]);
ts.tm_sec = 10*c2i(s[12]) + c2i(s[13]);
ts.tm_isdst = -1;
t = gmt_mktime(&ts);
free(s);
if(t == -1) return ASN1_BAD_TIMEFORMAT;
done:
*val = t;
cleanup();
}