Files
mars-tinyldap/scan_asn1length.c

121 lines
3.9 KiB
C

#include <inttypes.h>
#include "asn1.h"
size_t scan_asn1length_nolengthcheck(const char* src,const char* max,size_t* value) {
size_t len=max-src;
if (len==0 || len>=-(uintptr_t)src) return 0;
unsigned int i,c=*src;
size_t l;
if ((c&0x80)==0) {
l=c&0x7f;
i=1;
} else {
/* Highest bit set: lower 7 bits is the length of the length value in bytes. */
c&=0x7f;
if (!c)
return 0; /* length 0x80 means indefinite length encoding, not supported here */
if (c>sizeof(l))
return 0; /* too many bytes, does not fit into target integer type */
if (c+1>len)
return 0; /* not enough data in input buffer */
l=(unsigned char)src[1];
if (l==0)
return 0; /* not minimally encoded: 0x81 0x00 instead of 0x00 */
for (i=2; i<=c; ++i)
l=l*256+(unsigned char)src[i];
if (l<0x7f)
return 0; /* not minimally encoded: 0x81 0x70 instead of 0x70 */
}
*value=l;
return i;
}
size_t scan_asn1length(const char* src,const char* max,size_t* value) {
size_t tmp;
size_t len=scan_asn1length_nolengthcheck(src,max,&tmp);
if (len && (max-src-len >= tmp)) {
*value=tmp;
return len;
}
return 0;
}
#ifdef UNITTEST
#include <assert.h>
#include <string.h>
#include <stdlib.h>
#ifdef __linux__
#include <sys/types.h>
#include <fcntl.h>
#include <sys/mman.h>
// This wrapper maps a 64k buffer of memory and makes sure the page
// after it will cause a segfault when accessed. Then we copy the input
// data at the end of the 64k. This is to catch out of bounds reads.
size_t wrapper(const char* src,const char* max,size_t* value) {
static char* base;
if (!base) {
base=mmap(0,64*1024+4*1024,PROT_READ|PROT_WRITE,MAP_PRIVATE|MAP_ANONYMOUS,-1,0);
assert(base!=MAP_FAILED);
mprotect(base+64*1024,4*1024,PROT_NONE);
}
assert(src<=max && max-src<64*1024);
{
size_t l = max-src;
char* dest=base+64*1024-l;
memcpy(dest, src, l);
return scan_asn1length(dest, dest+l, value);
}
}
#define scan_asn1length wrapper
#endif
const size_t buflen = 0x9000;
int main() {
char* buf = malloc(buflen);
unsigned long l=0;
assert(buf);
memset(buf,0,buflen);
/* empty input */
assert(scan_asn1length(buf,buf,&l)==0);
/* regular 1-byte encoding */
strcpy(buf,"\x23");
assert(scan_asn1length(buf,buf+1,&l)==0); // length fits but value doesn't
assert(scan_asn1length(buf,buf+0x23,&l)==0); // length fits but value doesn't
assert(scan_asn1length(buf,buf+0x24,&l)==1 && l==0x23); // OK
/* not minimally encoded */
strcpy(buf,"\x81\x23"); // not minimal, should have been "\x23"
assert(scan_asn1length(buf,buf+10,&l)==0);
/* indefinite length encoding not supported */
strcpy(buf,"\x80");
assert(scan_asn1length(buf,buf+1,&l)==0);
/* regular 2-byte encoding */
strcpy(buf,"\x81\x97");
assert(scan_asn1length(buf,buf+2,&l)==0); // length fits but value doesn't
assert(scan_asn1length(buf,buf+255,&l)==2 && l==0x97);
/* non-minimal multi-byte */
memcpy(buf,"\x82\x00\x97",3); // not minimal, should have been "\x81\x97"
assert(scan_asn1length(buf,buf+3,&l)==0);
/* value not representable */
memcpy(buf,"\x89\x01\x02\x03\x04\x05\x06\x07\x08\x09",10); // can't fit 9 bytes into long
// this will also fail the "length bytes fit in input buffer"
assert(scan_asn1length(buf,buf+10,&l)==0);
/* value does not fit in input buffer */
memcpy(buf,"\x81\x80",2); // length 0x80
assert(scan_asn1length(buf,buf+10,&l)==0); // length fits, value doesn't
assert(scan_asn1length(buf,buf+0x90,&l)==2 && l==0x80); // OK
assert(scan_asn1length(buf,buf+1,&l)==0); // length doesn't fit
// three byte encoding
memcpy(buf,"\x82\x80\x00",3); // length 0x8000
assert(scan_asn1length(buf,buf+10,&l)==0); // length fits, value doesn't
assert(scan_asn1length(buf,buf+0x8010,&l)==3 && l==0x8000); // OK
assert(scan_asn1length(buf,buf+2,&l)==0); // length doesn't fit
free(buf);
return 0;
}
#endif