Adding upstream version 1:115.7.0.upstream/1%115.7.0upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 277 insertions, 0 deletions

diff --git a/comm/third_party/libotr/src/instag.c b/comm/third_party/libotr/src/instag.c
new file mode 100644
index 0000000000..cccd94fb6c
--- /dev/null
+++ b/comm/third_party/libotr/src/instag.c
@@ -0,0 +1,277 @@
+/*
+ *  Off-the-Record Messaging library
+ *  Copyright (C) 2004-2015  Ian Goldberg, Rob Smits, Chris Alexander,
+ *  			      Willy Lew, Lisa Du, Nikita Borisov
+ *                           <otr@cypherpunks.ca>
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of version 2.1 of the GNU Lesser General
+ *  Public License as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ */
+
+/* system headers */
+#include <stdio.h>
+#include <stdlib.h>
+
+/* libgcrypt headers */
+#include <gcrypt.h>
+
+/* libotr headers */
+#include "instag.h"
+#include "userstate.h"
+
+/* Forget the given instag. */
+void otrl_instag_forget(OtrlInsTag* instag) {
+    if (!instag) return;
+
+    if (instag->accountname) free(instag->accountname);
+    if (instag->protocol) free(instag->protocol);
+
+    /* Re-link the list */
+    *(instag->tous) = instag->next;
+    if (instag->next) {
+	instag->next->tous = instag->tous;
+    }
+
+    free(instag);
+}
+
+/* Forget all instags in a given OtrlUserState. */
+void otrl_instag_forget_all(OtrlUserState us) {
+    while(us->instag_root) {
+	otrl_instag_forget(us->instag_root);
+    }
+}
+
+/* Fetch the instance tag from the given OtrlUserState associated with
+ * the given account */
+OtrlInsTag * otrl_instag_find(OtrlUserState us, const char *accountname,
+	const char *protocol)
+{
+    OtrlInsTag *p;
+
+    for(p=us->instag_root; p; p=p->next) {
+	if (!strcmp(p->accountname, accountname) &&
+		!strcmp(p->protocol, protocol)) {
+	    return p;
+	}
+    }
+    return NULL;
+}
+
+/* Read our instance tag from a file on disk into the given
+ * OtrlUserState. */
+gcry_error_t otrl_instag_read(OtrlUserState us, const char *filename)
+{
+    gcry_error_t err;
+    FILE *instf;
+
+    /* Open the instance tag file. */
+    instf = fopen(filename, "rb");
+    if (!instf) {
+	return gcry_error_from_errno(errno);
+    }
+
+    err = otrl_instag_read_FILEp(us, instf);
+    fclose(instf);
+    return err;
+}
+
+/* Read our instance tag from a file on disk into the given
+ * OtrlUserState. The FILE* must be open for reading. */
+gcry_error_t otrl_instag_read_FILEp(OtrlUserState us, FILE *instf)
+{
+    if (!instf) return gcry_error(GPG_ERR_NO_ERROR);
+
+    OtrlInsTag *p;
+    char storeline[1000];
+    size_t maxsize = sizeof(storeline);
+
+    while(fgets(storeline, maxsize, instf)) {
+	char *prevpos;
+	char *pos;
+	unsigned int instag = 0;
+
+	p = malloc(sizeof(*p));
+	if (!p) {
+	    return gcry_error(GPG_ERR_ENOMEM);
+	}
+
+	/* Parse the line, which should be of the form:
+	 * accountname\tprotocol\t40_hex_nybbles\n          */
+	prevpos = storeline;
+	pos = strchr(prevpos, '\t');
+	if (!pos) {
+	    free(p);
+	    continue;
+	}
+	*pos = '\0';
+	pos++;
+	p->accountname = malloc(pos - prevpos);
+	if (!(p->accountname)) {
+	    free(p);
+	    return gcry_error(GPG_ERR_ENOMEM);
+	}
+	memmove(p->accountname, prevpos, pos - prevpos);
+
+	prevpos = pos;
+	pos = strchr(prevpos, '\t');
+	if (!pos) {
+	    free(p->accountname);
+	    free(p);
+	    continue;
+	}
+	*pos = '\0';
+	pos++;
+	p->protocol = malloc(pos - prevpos);
+	if (!(p->protocol)) {
+	    free(p->accountname);
+	    free(p);
+	    return gcry_error(GPG_ERR_ENOMEM);
+	}
+	memmove(p->protocol, prevpos, pos - prevpos);
+
+	prevpos = pos;
+	pos = strchr(prevpos, '\r');
+	if (!pos) pos = strchr(prevpos, '\n');
+	if (!pos) {
+	    free(p->accountname);
+	    free(p->protocol);
+	    free(p);
+	    continue;
+	}
+	*pos = '\0';
+	pos++;
+	/* hex str of length 8 */
+	if (strlen(prevpos) != 8) {
+	    free(p->accountname);
+	    free(p->protocol);
+	    free(p);
+	    continue;
+	}
+
+	sscanf(prevpos, "%08x", &instag);
+
+	if (instag < OTRL_MIN_VALID_INSTAG) {
+	    free(p->accountname);
+	    free(p->protocol);
+	    free(p);
+	    continue;
+	}
+	p->instag = instag;
+
+	/* Link it up */
+	p->next = us->instag_root;
+	if (p->next) {
+	    p->next->tous = &(p->next);
+	}
+	p->tous = &(us->instag_root);
+	us->instag_root = p;
+    }
+
+    return gcry_error(GPG_ERR_NO_ERROR);
+}
+
+/* Generate a new instance tag for the given account and write to file */
+gcry_error_t otrl_instag_generate(OtrlUserState us, const char *filename,
+	const char *accountname, const char *protocol)
+{
+    gcry_error_t err;
+    FILE *instf;
+
+    /* Open the instance tag file. */
+    instf = fopen(filename, "wb");
+    if (!instf) {
+	return gcry_error_from_errno(errno);
+    }
+
+    err = otrl_instag_generate_FILEp(us, instf, accountname, protocol);
+    fclose(instf);
+    return err;
+}
+
+/* Return a new valid instance tag */
+otrl_instag_t otrl_instag_get_new()
+{
+    otrl_instag_t result = 0;
+
+    while(result < OTRL_MIN_VALID_INSTAG) {
+	otrl_instag_t * instag = (otrl_instag_t *)gcry_random_bytes(
+		sizeof(otrl_instag_t), GCRY_STRONG_RANDOM);
+	result = *instag;
+	gcry_free(instag);
+    }
+
+    return result;
+}
+
+/* Generate a new instance tag for the given account and write to file
+ * The FILE* must be open for writing. */
+gcry_error_t otrl_instag_generate_FILEp(OtrlUserState us, FILE *instf,
+	const char *accountname, const char *protocol)
+{
+    OtrlInsTag *p;
+    if (!accountname || !protocol) return gcry_error(GPG_ERR_NO_ERROR);
+
+    p = (OtrlInsTag *)malloc(sizeof(OtrlInsTag));
+    p->accountname = strdup(accountname);
+    p->protocol = strdup(protocol);
+
+    p->instag = otrl_instag_get_new();
+
+    /* Add to our list in OtrlUserState */
+    p->next = us->instag_root;
+    if (p->next) {
+	p->next->tous = &(p->next);
+    }
+    p->tous = &(us->instag_root);
+    us->instag_root = p;
+
+    otrl_instag_write_FILEp(us, instf);
+
+    return gcry_error(GPG_ERR_NO_ERROR);
+}
+
+/* Write our instance tags to a file on disk. */
+gcry_error_t otrl_instag_write(OtrlUserState us, const char *filename)
+{
+    gcry_error_t err;
+    FILE *instf;
+
+    /* Open the instance tag file. */
+    instf = fopen(filename, "wb");
+    if (!instf) {
+	return gcry_error_from_errno(errno);
+    }
+
+    err = otrl_instag_write_FILEp(us, instf);
+    fclose(instf);
+    return err;
+}
+
+/* Write our instance tags to a file on disk.
+ * The FILE* must be open for writing. */
+gcry_error_t otrl_instag_write_FILEp(OtrlUserState us, FILE *instf)
+{
+    OtrlInsTag *p;
+    /* This line should be ignored when read back in, since there are no
+    tabs. */
+    fprintf(instf, "# WARNING! You shouldn't copy this file to another"
+    " computer. It is unnecessary and can cause problems.\n");
+    for(p=us->instag_root; p; p=p->next) {
+	fprintf(instf, "%s\t%s\t%08x\n", p->accountname, p->protocol,
+		p->instag);
+    }
+
+    return gcry_error(GPG_ERR_NO_ERROR);
+}
+