411 lines
8.7 KiB
C
411 lines
8.7 KiB
C
/*
|
|
* This file Copyright (C) 2008-2014 Mnemosyne LLC
|
|
*
|
|
* It may be used under the GNU GPL versions 2 or 3
|
|
* or any future license endorsed by Mnemosyne LLC.
|
|
*
|
|
*/
|
|
|
|
#include <ctype.h> /* isdigit() */
|
|
#include <errno.h>
|
|
#include <stdlib.h> /* strtoul() */
|
|
#include <string.h> /* strlen(), memchr() */
|
|
|
|
#include <event2/buffer.h>
|
|
|
|
#define LIBTRANSMISSION_VARIANT_MODULE
|
|
|
|
#include "transmission.h"
|
|
#include "ptrarray.h"
|
|
#include "utils.h" /* tr_snprintf() */
|
|
#include "variant.h"
|
|
#include "variant-common.h"
|
|
|
|
#define MAX_BENC_STR_LENGTH (128 * 1024 * 1024) /* arbitrary */
|
|
|
|
/***
|
|
**** tr_variantParse()
|
|
**** tr_variantLoad()
|
|
***/
|
|
|
|
/**
|
|
* The initial i and trailing e are beginning and ending delimiters.
|
|
* You can have negative numbers such as i-3e. You cannot prefix the
|
|
* number with a zero such as i04e. However, i0e is valid.
|
|
* Example: i3e represents the integer "3"
|
|
* NOTE: The maximum number of bit of this integer is unspecified,
|
|
* but to handle it as a signed 64bit integer is mandatory to handle
|
|
* "large files" aka .torrent for more that 4Gbyte
|
|
*/
|
|
int tr_bencParseInt(void const* vbuf, void const* vbufend, uint8_t const** setme_end, int64_t* setme_val)
|
|
{
|
|
uint8_t const* const buf = (uint8_t const*)vbuf;
|
|
uint8_t const* const bufend = (uint8_t const*)vbufend;
|
|
char* endptr;
|
|
void const* begin;
|
|
void const* end;
|
|
int64_t val;
|
|
|
|
if (buf >= bufend)
|
|
{
|
|
return EILSEQ;
|
|
}
|
|
|
|
if (*buf != 'i')
|
|
{
|
|
return EILSEQ;
|
|
}
|
|
|
|
begin = buf + 1;
|
|
end = memchr(begin, 'e', (bufend - buf) - 1);
|
|
|
|
if (end == NULL)
|
|
{
|
|
return EILSEQ;
|
|
}
|
|
|
|
errno = 0;
|
|
val = evutil_strtoll(begin, &endptr, 10);
|
|
|
|
if (errno != 0 || endptr != end) /* incomplete parse */
|
|
{
|
|
return EILSEQ;
|
|
}
|
|
|
|
if (val != 0 && *(char const*)begin == '0') /* no leading zeroes! */
|
|
{
|
|
return EILSEQ;
|
|
}
|
|
|
|
*setme_end = (uint8_t const*)end + 1;
|
|
*setme_val = val;
|
|
return 0;
|
|
}
|
|
|
|
/**
|
|
* Byte strings are encoded as follows:
|
|
* <string length encoded in base ten ASCII>:<string data>
|
|
* Note that there is no constant beginning delimiter, and no ending delimiter.
|
|
* Example: 4:spam represents the string "spam"
|
|
*/
|
|
int tr_bencParseStr(
|
|
void const* vbuf,
|
|
void const* vbufend,
|
|
uint8_t const** setme_end,
|
|
uint8_t const** setme_str,
|
|
size_t* setme_strlen)
|
|
{
|
|
uint8_t const* const buf = (uint8_t const*)vbuf;
|
|
uint8_t const* const bufend = (uint8_t const*)vbufend;
|
|
|
|
void const* end;
|
|
size_t len;
|
|
char* ulend;
|
|
uint8_t const* strbegin;
|
|
uint8_t const* strend;
|
|
|
|
if (buf >= bufend)
|
|
{
|
|
goto ERR;
|
|
}
|
|
|
|
if (!isdigit(*buf))
|
|
{
|
|
goto ERR;
|
|
}
|
|
|
|
end = memchr(buf, ':', bufend - buf);
|
|
|
|
if (end == NULL)
|
|
{
|
|
goto ERR;
|
|
}
|
|
|
|
errno = 0;
|
|
len = strtoul((char const*)buf, &ulend, 10);
|
|
|
|
if (errno != 0 || ulend != end || len > MAX_BENC_STR_LENGTH)
|
|
{
|
|
goto ERR;
|
|
}
|
|
|
|
strbegin = (uint8_t const*)end + 1;
|
|
strend = strbegin + len;
|
|
|
|
if (strend < strbegin || strend > bufend)
|
|
{
|
|
goto ERR;
|
|
}
|
|
|
|
*setme_end = (uint8_t const*)end + 1 + len;
|
|
*setme_str = (uint8_t const*)end + 1;
|
|
*setme_strlen = len;
|
|
return 0;
|
|
|
|
ERR:
|
|
*setme_end = NULL;
|
|
*setme_str = NULL;
|
|
*setme_strlen = 0;
|
|
return EILSEQ;
|
|
}
|
|
|
|
static tr_variant* get_node(tr_ptrArray* stack, tr_quark* key, tr_variant* top, int* err)
|
|
{
|
|
tr_variant* node = NULL;
|
|
|
|
if (tr_ptrArrayEmpty(stack))
|
|
{
|
|
node = top;
|
|
}
|
|
else
|
|
{
|
|
tr_variant* parent = tr_ptrArrayBack(stack);
|
|
|
|
if (tr_variantIsList(parent))
|
|
{
|
|
node = tr_variantListAdd(parent);
|
|
}
|
|
else if (*key != 0 && tr_variantIsDict(parent))
|
|
{
|
|
node = tr_variantDictAdd(parent, *key);
|
|
*key = 0;
|
|
}
|
|
else
|
|
{
|
|
*err = EILSEQ;
|
|
}
|
|
}
|
|
|
|
return node;
|
|
}
|
|
|
|
/**
|
|
* This function's previous recursive implementation was
|
|
* easier to read, but was vulnerable to a smash-stacking
|
|
* attack via maliciously-crafted bencoded data. (#667)
|
|
*/
|
|
int tr_variantParseBenc(void const* buf_in, void const* bufend_in, tr_variant* top, char const** setme_end)
|
|
{
|
|
int err = 0;
|
|
uint8_t const* buf = buf_in;
|
|
uint8_t const* bufend = bufend_in;
|
|
tr_ptrArray stack = TR_PTR_ARRAY_INIT;
|
|
tr_quark key = 0;
|
|
|
|
if ((buf_in == NULL) || (bufend_in == NULL) || (top == NULL))
|
|
{
|
|
return EINVAL;
|
|
}
|
|
|
|
tr_variantInit(top, 0);
|
|
|
|
while (buf != bufend)
|
|
{
|
|
if (buf > bufend) /* no more text to parse... */
|
|
{
|
|
err = EILSEQ;
|
|
}
|
|
|
|
if (err != 0)
|
|
{
|
|
break;
|
|
}
|
|
|
|
if (*buf == 'i') /* int */
|
|
{
|
|
int64_t val;
|
|
uint8_t const* end;
|
|
tr_variant* v;
|
|
|
|
if ((err = tr_bencParseInt(buf, bufend, &end, &val)) != 0)
|
|
{
|
|
break;
|
|
}
|
|
|
|
buf = end;
|
|
|
|
if ((v = get_node(&stack, &key, top, &err)) != NULL)
|
|
{
|
|
tr_variantInitInt(v, val);
|
|
}
|
|
}
|
|
else if (*buf == 'l') /* list */
|
|
{
|
|
tr_variant* v;
|
|
|
|
++buf;
|
|
|
|
if ((v = get_node(&stack, &key, top, &err)) != NULL)
|
|
{
|
|
tr_variantInitList(v, 0);
|
|
tr_ptrArrayAppend(&stack, v);
|
|
}
|
|
}
|
|
else if (*buf == 'd') /* dict */
|
|
{
|
|
tr_variant* v;
|
|
|
|
++buf;
|
|
|
|
if ((v = get_node(&stack, &key, top, &err)) != NULL)
|
|
{
|
|
tr_variantInitDict(v, 0);
|
|
tr_ptrArrayAppend(&stack, v);
|
|
}
|
|
}
|
|
else if (*buf == 'e') /* end of list or dict */
|
|
{
|
|
++buf;
|
|
|
|
if (tr_ptrArrayEmpty(&stack) || key != 0)
|
|
{
|
|
err = EILSEQ;
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
tr_ptrArrayPop(&stack);
|
|
|
|
if (tr_ptrArrayEmpty(&stack))
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
else if (isdigit(*buf)) /* string? */
|
|
{
|
|
tr_variant* v;
|
|
uint8_t const* end;
|
|
uint8_t const* str;
|
|
size_t str_len;
|
|
|
|
if ((err = tr_bencParseStr(buf, bufend, &end, &str, &str_len)) != 0)
|
|
{
|
|
break;
|
|
}
|
|
|
|
buf = end;
|
|
|
|
if (key == 0 && !tr_ptrArrayEmpty(&stack) && tr_variantIsDict(tr_ptrArrayBack(&stack)))
|
|
{
|
|
key = tr_quark_new(str, str_len);
|
|
}
|
|
else if ((v = get_node(&stack, &key, top, &err)) != NULL)
|
|
{
|
|
tr_variantInitStr(v, str, str_len);
|
|
}
|
|
}
|
|
else /* invalid bencoded text... march past it */
|
|
{
|
|
++buf;
|
|
}
|
|
|
|
if (tr_ptrArrayEmpty(&stack))
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (err == 0 && (top->type == 0 || !tr_ptrArrayEmpty(&stack)))
|
|
{
|
|
err = EILSEQ;
|
|
}
|
|
|
|
if (err == 0)
|
|
{
|
|
if (setme_end != NULL)
|
|
{
|
|
*setme_end = (char const*)buf;
|
|
}
|
|
}
|
|
else if (top->type != 0)
|
|
{
|
|
tr_variantFree(top);
|
|
tr_variantInit(top, 0);
|
|
}
|
|
|
|
tr_ptrArrayDestruct(&stack, NULL);
|
|
return err;
|
|
}
|
|
|
|
/****
|
|
*****
|
|
****/
|
|
|
|
static void saveIntFunc(tr_variant const* val, void* evbuf)
|
|
{
|
|
evbuffer_add_printf(evbuf, "i%" PRId64 "e", val->val.i);
|
|
}
|
|
|
|
static void saveBoolFunc(tr_variant const* val, void* evbuf)
|
|
{
|
|
if (val->val.b)
|
|
{
|
|
evbuffer_add(evbuf, "i1e", 3);
|
|
}
|
|
else
|
|
{
|
|
evbuffer_add(evbuf, "i0e", 3);
|
|
}
|
|
}
|
|
|
|
static void saveRealFunc(tr_variant const* val, void* evbuf)
|
|
{
|
|
int len;
|
|
char buf[128];
|
|
|
|
len = tr_snprintf(buf, sizeof(buf), "%f", val->val.d);
|
|
evbuffer_add_printf(evbuf, "%d:", len);
|
|
evbuffer_add(evbuf, buf, len);
|
|
}
|
|
|
|
static void saveStringFunc(tr_variant const* v, void* evbuf)
|
|
{
|
|
size_t len;
|
|
char const* str;
|
|
if (!tr_variantGetStr(v, &str, &len))
|
|
{
|
|
len = 0;
|
|
str = NULL;
|
|
}
|
|
|
|
evbuffer_add_printf(evbuf, "%zu:", len);
|
|
evbuffer_add(evbuf, str, len);
|
|
}
|
|
|
|
static void saveDictBeginFunc(tr_variant const* val, void* evbuf)
|
|
{
|
|
TR_UNUSED(val);
|
|
|
|
evbuffer_add(evbuf, "d", 1);
|
|
}
|
|
|
|
static void saveListBeginFunc(tr_variant const* val, void* evbuf)
|
|
{
|
|
TR_UNUSED(val);
|
|
|
|
evbuffer_add(evbuf, "l", 1);
|
|
}
|
|
|
|
static void saveContainerEndFunc(tr_variant const* val, void* evbuf)
|
|
{
|
|
TR_UNUSED(val);
|
|
|
|
evbuffer_add(evbuf, "e", 1);
|
|
}
|
|
|
|
static struct VariantWalkFuncs const walk_funcs = {
|
|
saveIntFunc, //
|
|
saveBoolFunc, //
|
|
saveRealFunc, //
|
|
saveStringFunc, //
|
|
saveDictBeginFunc, //
|
|
saveListBeginFunc, //
|
|
saveContainerEndFunc, //
|
|
};
|
|
|
|
void tr_variantToBufBenc(tr_variant const* top, struct evbuffer* buf)
|
|
{
|
|
tr_variantWalk(top, &walk_funcs, buf, true);
|
|
}
|