source: otr.c @ e67e513

Last change on this file since e67e513 was e67e513, checked in by unknown <pesco@…>, at 2011-10-03T14:56:58Z

rename irc_usermsg to irc_rootmsg.
add new irc_usermsg, irc_usernotice.
deliver user-specific messages from libotr as notices to that user.

  • Property mode set to 100644
File size: 49.9 KB
Line 
1  /********************************************************************\
2  * BitlBee -- An IRC to other IM-networks gateway                     *
3  *                                                                    *
4  * Copyright 2002-2010 Wilmer van der Gaast and others                *
5  \********************************************************************/
6
7/*
8  OTR support (cf. http://www.cypherpunks.ca/otr/)
9 
10  (c) 2008-2011 Sven Moritz Hallberg <pesco@khjk.org>
11  (c) 2008 funded by stonedcoder.org
12   
13  files used to store OTR data:
14    <configdir>/<nick>.otr_keys
15    <configdir>/<nick>.otr_fprints
16   
17  top-level todos: (search for TODO for more ;-))
18    integrate otr_load/otr_save with existing storage backends
19    per-account policy settings
20    per-user policy settings
21*/
22
23/*
24  This program is free software; you can redistribute it and/or modify
25  it under the terms of the GNU General Public License as published by
26  the Free Software Foundation; either version 2 of the License, or
27  (at your option) any later version.
28
29  This program is distributed in the hope that it will be useful,
30  but WITHOUT ANY WARRANTY; without even the implied warranty of
31  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
32  GNU General Public License for more details.
33
34  You should have received a copy of the GNU General Public License with
35  the Debian GNU/Linux distribution in /usr/share/common-licenses/GPL;
36  if not, write to the Free Software Foundation, Inc., 59 Temple Place,
37  Suite 330, Boston, MA  02111-1307  USA
38*/
39
40#include "bitlbee.h"
41#include "irc.h"
42#include "otr.h"
43#include <sys/types.h>
44#include <sys/wait.h>
45#include <unistd.h>
46#include <assert.h>
47#include <signal.h>
48
49
50/** OTR interface routines for the OtrlMessageAppOps struct: **/
51
52OtrlPolicy op_policy(void *opdata, ConnContext *context);
53
54void op_create_privkey(void *opdata, const char *accountname, const char *protocol);
55
56int op_is_logged_in(void *opdata, const char *accountname, const char *protocol,
57        const char *recipient);
58
59void op_inject_message(void *opdata, const char *accountname, const char *protocol,
60        const char *recipient, const char *message);
61
62int op_display_otr_message(void *opdata, const char *accountname, const char *protocol,
63        const char *username, const char *msg);
64
65void op_new_fingerprint(void *opdata, OtrlUserState us, const char *accountname,
66        const char *protocol, const char *username, unsigned char fingerprint[20]);
67
68void op_write_fingerprints(void *opdata);
69
70void op_gone_secure(void *opdata, ConnContext *context);
71
72void op_gone_insecure(void *opdata, ConnContext *context);
73
74void op_still_secure(void *opdata, ConnContext *context, int is_reply);
75
76void op_log_message(void *opdata, const char *message);
77
78int op_max_message_size(void *opdata, ConnContext *context);
79
80const char *op_account_name(void *opdata, const char *account, const char *protocol);
81
82
83/** otr sub-command handlers: **/
84
85static void cmd_otr(irc_t *irc, char **args);
86void cmd_otr_connect(irc_t *irc, char **args);
87void cmd_otr_disconnect(irc_t *irc, char **args);
88void cmd_otr_reconnect(irc_t *irc, char **args);
89void cmd_otr_smp(irc_t *irc, char **args);
90void cmd_otr_smpq(irc_t *irc, char **args);
91void cmd_otr_trust(irc_t *irc, char **args);
92void cmd_otr_info(irc_t *irc, char **args);
93void cmd_otr_keygen(irc_t *irc, char **args);
94void cmd_otr_forget(irc_t *irc, char **args);
95
96const command_t otr_commands[] = {
97        { "connect",     1, &cmd_otr_connect,    0 },
98        { "disconnect",  1, &cmd_otr_disconnect, 0 },
99        { "reconnect",   1, &cmd_otr_reconnect,  0 },
100        { "smp",         2, &cmd_otr_smp,        0 },
101        { "smpq",        3, &cmd_otr_smpq,       0 },
102        { "trust",       6, &cmd_otr_trust,      0 },
103        { "info",        0, &cmd_otr_info,       0 },
104        { "keygen",      1, &cmd_otr_keygen,     0 },
105        { "forget",      2, &cmd_otr_forget,     0 },
106        { NULL }
107};
108
109typedef struct {
110        void *fst;
111        void *snd;
112} pair_t;       
113
114static OtrlMessageAppOps otr_ops;   /* collects interface functions required by OTR */
115
116
117/** misc. helpers/subroutines: **/
118
119/* check whether we are already generating a key for a given account */
120int keygen_in_progress(irc_t *irc, const char *handle, const char *protocol);
121
122/* start background process to generate a (new) key for a given account */
123void otr_keygen(irc_t *irc, const char *handle, const char *protocol);
124
125/* main function for the forked keygen slave */
126void keygen_child_main(OtrlUserState us, int infd, int outfd);
127
128/* mainloop handler for when a keygen finishes */
129gboolean keygen_finish_handler(gpointer data, gint fd, b_input_condition cond);
130
131/* copy the contents of file a to file b, overwriting it if it exists */
132void copyfile(const char *a, const char *b);
133
134/* read one line of input from a stream, excluding trailing newline */
135void myfgets(char *s, int size, FILE *stream);
136
137/* some yes/no handlers */
138void yes_keygen(void *data);
139void yes_forget_fingerprint(void *data);
140void yes_forget_context(void *data);
141void yes_forget_key(void *data);
142
143/* helper to make sure accountname and protocol match the incoming "opdata" */
144struct im_connection *check_imc(void *opdata, const char *accountname,
145        const char *protocol);
146
147/* determine the nick for a given handle/protocol pair
148   returns "handle/protocol" if not found */
149const char *peernick(irc_t *irc, const char *handle, const char *protocol);
150
151/* turn a hexadecimal digit into its numerical value */
152int hexval(char a);
153
154/* determine the irc_user_t for a given handle/protocol pair
155   returns NULL if not found */
156irc_user_t *peeruser(irc_t *irc, const char *handle, const char *protocol);
157
158/* handle SMP TLVs from a received message */
159void otr_handle_smp(struct im_connection *ic, const char *handle, OtrlTLV *tlvs);
160
161/* combined handler for the 'otr smp' and 'otr smpq' commands */
162void otr_smp_or_smpq(irc_t *irc, const char *nick, const char *question,
163                const char *secret);
164
165/* update flags within the irc_user structure to reflect OTR status of context */
166void otr_update_uflags(ConnContext *context, irc_user_t *u);
167
168/* update op/voice flag of given user according to encryption state and settings
169   returns 0 if neither op_buddies nor voice_buddies is set to "encrypted",
170   i.e. msgstate should be announced seperately */
171int otr_update_modeflags(irc_t *irc, irc_user_t *u);
172
173/* show general info about the OTR subsystem; called by 'otr info' */
174void show_general_otr_info(irc_t *irc);
175
176/* show info about a given OTR context */
177void show_otr_context_info(irc_t *irc, ConnContext *ctx);
178
179/* show the list of fingerprints associated with a given context */
180void show_fingerprints(irc_t *irc, ConnContext *ctx);
181
182/* find a fingerprint by prefix (given as any number of hex strings) */
183Fingerprint *match_fingerprint(irc_t *irc, ConnContext *ctx, const char **args);
184
185/* find a private key by fingerprint prefix (given as any number of hex strings) */
186OtrlPrivKey *match_privkey(irc_t *irc, const char **args);
187
188/* functions to be called for certain events */
189static const struct irc_plugin otr_plugin;
190
191
192/*** routines declared in otr.h: ***/
193
194#ifdef OTR_BI
195#define init_plugin otr_init
196#endif
197
198void init_plugin(void)
199{
200        OTRL_INIT;
201       
202        /* fill global OtrlMessageAppOps */
203        otr_ops.policy = &op_policy;
204        otr_ops.create_privkey = &op_create_privkey;
205        otr_ops.is_logged_in = &op_is_logged_in;
206        otr_ops.inject_message = &op_inject_message;
207        otr_ops.notify = NULL;
208        otr_ops.display_otr_message = &op_display_otr_message;
209        otr_ops.update_context_list = NULL;
210        otr_ops.protocol_name = NULL;
211        otr_ops.protocol_name_free = NULL;
212        otr_ops.new_fingerprint = &op_new_fingerprint;
213        otr_ops.write_fingerprints = &op_write_fingerprints;
214        otr_ops.gone_secure = &op_gone_secure;
215        otr_ops.gone_insecure = &op_gone_insecure;
216        otr_ops.still_secure = &op_still_secure;
217        otr_ops.log_message = &op_log_message;
218        otr_ops.max_message_size = &op_max_message_size;
219        otr_ops.account_name = &op_account_name;
220        otr_ops.account_name_free = NULL;
221       
222        root_command_add( "otr", 1, cmd_otr, 0 );
223        register_irc_plugin( &otr_plugin );
224}
225
226gboolean otr_irc_new(irc_t *irc)
227{
228        set_t *s;
229        GSList *l;
230       
231        irc->otr = g_new0(otr_t, 1);
232        irc->otr->us = otrl_userstate_create();
233       
234        s = set_add( &irc->b->set, "otr_color_encrypted", "true", set_eval_bool, irc );
235       
236        s = set_add( &irc->b->set, "otr_policy", "oppurtunistic", set_eval_list, irc );
237        l = g_slist_prepend( NULL, "never" );
238        l = g_slist_prepend( l, "opportunistic" );
239        l = g_slist_prepend( l, "manual" );
240        l = g_slist_prepend( l, "always" );
241        s->eval_data = l;
242
243        s = set_add( &irc->b->set, "otr_does_html", "true", set_eval_bool, irc );
244       
245        return TRUE;
246}
247
248void otr_irc_free(irc_t *irc)
249{
250        otr_t *otr = irc->otr;
251        otrl_userstate_free(otr->us);
252        if(otr->keygen) {
253                kill(otr->keygen, SIGTERM);
254                waitpid(otr->keygen, NULL, 0);
255                /* TODO: remove stale keygen tempfiles */
256        }
257        if(otr->to)
258                fclose(otr->to);
259        if(otr->from)
260                fclose(otr->from);
261        while(otr->todo) {
262                kg_t *p = otr->todo;
263                otr->todo = p->next;
264                g_free(p);
265        }
266        g_free(otr);
267}
268
269void otr_load(irc_t *irc)
270{
271        char s[512];
272        account_t *a;
273        gcry_error_t e;
274        gcry_error_t enoent = gcry_error_from_errno(ENOENT);
275        int kg=0;
276
277        g_snprintf(s, 511, "%s%s.otr_keys", global.conf->configdir, irc->user->nick);
278        e = otrl_privkey_read(irc->otr->us, s);
279        if(e && e!=enoent) {
280                irc_rootmsg(irc, "otr load: %s: %s", s, gcry_strerror(e));
281        }
282        g_snprintf(s, 511, "%s%s.otr_fprints", global.conf->configdir, irc->user->nick);
283        e = otrl_privkey_read_fingerprints(irc->otr->us, s, NULL, NULL);
284        if(e && e!=enoent) {
285                irc_rootmsg(irc, "otr load: %s: %s", s, gcry_strerror(e));
286        }
287       
288        /* check for otr keys on all accounts */
289        for(a=irc->b->accounts; a; a=a->next) {
290                kg = otr_check_for_key(a) || kg;
291        }
292        if(kg) {
293                irc_rootmsg(irc, "Notice: "
294                        "The accounts above do not have OTR encryption keys associated with them, yet. "
295                        "These keys are now being generated in the background. "
296                        "You will be notified as they are completed. "
297                        "It is not necessary to wait; "
298                        "BitlBee can be used normally during key generation. "
299                        "You may safely ignore this message if you don't know what OTR is. ;)");
300        }
301}
302
303void otr_save(irc_t *irc)
304{
305        char s[512];
306        gcry_error_t e;
307
308        g_snprintf(s, 511, "%s%s.otr_fprints", global.conf->configdir, irc->user->nick);
309        e = otrl_privkey_write_fingerprints(irc->otr->us, s);
310        if(e) {
311                irc_rootmsg(irc, "otr save: %s: %s", s, gcry_strerror(e));
312        }
313        chmod(s, 0600);
314}
315
316void otr_remove(const char *nick)
317{
318        char s[512];
319       
320        g_snprintf(s, 511, "%s%s.otr_keys", global.conf->configdir, nick);
321        unlink(s);
322        g_snprintf(s, 511, "%s%s.otr_fprints", global.conf->configdir, nick);
323        unlink(s);
324}
325
326void otr_rename(const char *onick, const char *nnick)
327{
328        char s[512], t[512];
329       
330        g_snprintf(s, 511, "%s%s.otr_keys", global.conf->configdir, onick);
331        g_snprintf(t, 511, "%s%s.otr_keys", global.conf->configdir, nnick);
332        rename(s,t);
333        g_snprintf(s, 511, "%s%s.otr_fprints", global.conf->configdir, onick);
334        g_snprintf(t, 511, "%s%s.otr_fprints", global.conf->configdir, nnick);
335        rename(s,t);
336}
337
338int otr_check_for_key(account_t *a)
339{
340        irc_t *irc = a->bee->ui_data;
341        OtrlPrivKey *k;
342       
343        /* don't do OTR on certain (not classic IM) protocols, e.g. twitter */
344        if(a->prpl->options & OPT_NOOTR) {
345                return 0;
346        }
347       
348        k = otrl_privkey_find(irc->otr->us, a->user, a->prpl->name);
349        if(k) {
350                irc_rootmsg(irc, "otr: %s/%s ready", a->user, a->prpl->name);
351                return 0;
352        } if(keygen_in_progress(irc, a->user, a->prpl->name)) {
353                irc_rootmsg(irc, "otr: keygen for %s/%s already in progress", a->user, a->prpl->name);
354                return 0;
355        } else {
356                irc_rootmsg(irc, "otr: starting background keygen for %s/%s", a->user, a->prpl->name);
357                otr_keygen(irc, a->user, a->prpl->name);
358                return 1;
359        }
360}
361
362char *otr_filter_msg_in(irc_user_t *iu, char *msg, int flags)
363{
364        int ignore_msg;
365        char *newmsg = NULL;
366        OtrlTLV *tlvs = NULL;
367        irc_t *irc = iu->irc;
368        struct im_connection *ic = iu->bu->ic;
369       
370        /* don't do OTR on certain (not classic IM) protocols, e.g. twitter */
371        if(ic->acc->prpl->options & OPT_NOOTR) {
372                return msg;
373        }
374       
375        ignore_msg = otrl_message_receiving(irc->otr->us, &otr_ops, ic,
376                ic->acc->user, ic->acc->prpl->name, iu->bu->handle, msg, &newmsg,
377                &tlvs, NULL, NULL);
378
379        otr_handle_smp(ic, iu->bu->handle, tlvs);
380       
381        if(ignore_msg) {
382                /* this was an internal OTR protocol message */
383                return NULL;
384        } else if(!newmsg) {
385                /* this was a non-OTR message */
386                return msg;
387        } else {
388                /* OTR has processed this message */
389                ConnContext *context = otrl_context_find(irc->otr->us, iu->bu->handle,
390                        ic->acc->user, ic->acc->prpl->name, 0, NULL, NULL, NULL);
391
392                /* we're done with the original msg, which will be caller-freed. */
393                /* NB: must not change the newmsg pointer, since we free it. */
394                msg = newmsg;
395
396                if(context && context->msgstate == OTRL_MSGSTATE_ENCRYPTED) {
397                        /* HTML decoding */
398                        /* perform any necessary stripping that the top level would miss */
399                        if(set_getbool(&ic->bee->set, "otr_does_html") &&
400                           !(ic->flags & OPT_DOES_HTML) &&
401                           set_getbool(&ic->bee->set, "strip_html")) {
402                                strip_html(msg);
403                        }
404
405                        /* coloring */
406                        if(set_getbool(&ic->bee->set, "otr_color_encrypted")) {
407                                int color;                /* color according to f'print trust */
408                                char *pre="", *sep="";    /* optional parts */
409                                const char *trust = context->active_fingerprint->trust;
410
411                                if(trust && trust[0] != '\0')
412                                        color=3;   /* green */
413                                else
414                                        color=5;   /* red */
415
416                                /* keep "/me " uncolored at the beginning */
417                                if (g_strncasecmp(msg, "/me ", 4) == 0) {
418                                        msg += 4;  /* skip */
419                                        pre = "/me ";
420                                }
421
422                                /* comma in first place could mess with the color code */
423                                if (msg[0] == ',') {
424                                    /* insert a space between color spec and message */
425                                    sep = " ";
426                                }
427
428                                msg = g_strdup_printf("%s\x03%.2d%s%s\x0F", pre,
429                                        color, sep, msg);
430                        }
431                }
432
433                if(msg == newmsg) {
434                        msg = g_strdup(newmsg);
435                }
436                otrl_message_free(newmsg);
437                return msg;
438        }
439}
440
441char *otr_filter_msg_out(irc_user_t *iu, char *msg, int flags)
442{       
443        int st;
444        char *otrmsg = NULL;
445        char *emsg = msg;           /* the message as we hand it to libotr */
446        ConnContext *ctx = NULL;
447        irc_t *irc = iu->irc;
448        struct im_connection *ic = iu->bu->ic;
449
450        /* don't do OTR on certain (not classic IM) protocols, e.g. twitter */
451        if(ic->acc->prpl->options & OPT_NOOTR) {
452                return msg;
453        }
454
455        ctx = otrl_context_find(irc->otr->us,
456                        iu->bu->handle, ic->acc->user, ic->acc->prpl->name,
457                        1, NULL, NULL, NULL);
458
459        /* HTML encoding */
460        /* consider OTR plaintext to be HTML if otr_does_html is set */
461        if(ctx && ctx->msgstate == OTRL_MSGSTATE_ENCRYPTED &&
462           set_getbool(&ic->bee->set, "otr_does_html") &&
463           (g_strncasecmp(msg, "<html>", 6) != 0)) {
464                emsg = escape_html(msg);
465        }
466       
467        st = otrl_message_sending(irc->otr->us, &otr_ops, ic,
468                ic->acc->user, ic->acc->prpl->name, iu->bu->handle,
469                emsg, NULL, &otrmsg, NULL, NULL);
470        if(emsg != msg) {
471                g_free(emsg);   /* we're done with this one */
472        }
473        if(st) {
474                return NULL;
475        }
476
477        if(otrmsg) {
478                if(!ctx) {
479                        otrl_message_free(otrmsg);
480                        return NULL;
481                }
482                st = otrl_message_fragment_and_send(&otr_ops, ic, ctx,
483                        otrmsg, OTRL_FRAGMENT_SEND_ALL, NULL);
484                otrl_message_free(otrmsg);
485        } else {
486                /* note: otrl_message_sending handles policy, so that if REQUIRE_ENCRYPTION is set,
487                   this case does not occur */
488                return msg;
489        }
490       
491        /* TODO: Error reporting should be done here now (if st!=0), probably. */
492       
493        return NULL;
494}
495
496static const struct irc_plugin otr_plugin =
497{
498        otr_irc_new,
499        otr_irc_free,
500        otr_filter_msg_out,
501        otr_filter_msg_in,
502        otr_load,
503        otr_save,
504        otr_remove,
505};
506
507static void cmd_otr(irc_t *irc, char **args)
508{
509        const command_t *cmd;
510       
511        if(!args[0])
512                return;
513       
514        if(!args[1])
515                return;
516       
517        for(cmd=otr_commands; cmd->command; cmd++) {
518                if(strcmp(cmd->command, args[1]) == 0)
519                        break;
520        }
521       
522        if(!cmd->command) {
523                irc_rootmsg(irc, "%s: unknown subcommand \"%s\", see \x02help otr\x02",
524                        args[0], args[1]);
525                return;
526        }
527       
528        if(!args[cmd->required_parameters+1]) {
529                irc_rootmsg(irc, "%s %s: not enough arguments (%d req.)",
530                        args[0], args[1], cmd->required_parameters);
531                return;
532        }
533       
534        cmd->execute(irc, args+1);
535}
536
537
538/*** OTR "MessageAppOps" callbacks for global.otr_ui: ***/
539
540OtrlPolicy op_policy(void *opdata, ConnContext *context)
541{
542        struct im_connection *ic = check_imc(opdata, context->accountname, context->protocol);
543        irc_t *irc = ic->bee->ui_data;
544        const char *p;
545       
546        /* policy override during keygen: if we're missing the key for context but are currently
547           generating it, then that's as much as we can do. => temporarily return NEVER. */
548        if(keygen_in_progress(irc, context->accountname, context->protocol) &&
549           !otrl_privkey_find(irc->otr->us, context->accountname, context->protocol))
550                return OTRL_POLICY_NEVER;
551
552        p = set_getstr(&ic->bee->set, "otr_policy");
553        if(!strcmp(p, "never"))
554                return OTRL_POLICY_NEVER;
555        if(!strcmp(p, "opportunistic"))
556                return OTRL_POLICY_OPPORTUNISTIC;
557        if(!strcmp(p, "manual"))
558                return OTRL_POLICY_MANUAL;
559        if(!strcmp(p, "always"))
560                return OTRL_POLICY_ALWAYS;
561       
562        return OTRL_POLICY_OPPORTUNISTIC;
563}
564
565void op_create_privkey(void *opdata, const char *accountname,
566        const char *protocol)
567{
568        struct im_connection *ic = check_imc(opdata, accountname, protocol);
569        irc_t *irc = ic->bee->ui_data;
570       
571        /* will fail silently if keygen already in progress */
572        otr_keygen(irc, accountname, protocol);
573}
574
575int op_is_logged_in(void *opdata, const char *accountname,
576        const char *protocol, const char *recipient)
577{
578        struct im_connection *ic = check_imc(opdata, accountname, protocol);
579        bee_user_t *bu;
580
581        /* lookup the irc_user_t for the given recipient */
582        bu = bee_user_by_handle(ic->bee, ic, recipient);
583        if(bu) {
584                if(bu->flags & BEE_USER_ONLINE)
585                        return 1;
586                else
587                        return 0;
588        } else {
589                return -1;
590        }
591}
592
593void op_inject_message(void *opdata, const char *accountname,
594        const char *protocol, const char *recipient, const char *message)
595{
596        struct im_connection *ic = check_imc(opdata, accountname, protocol);
597        irc_t *irc = ic->bee->ui_data;
598
599        if (strcmp(accountname, recipient) == 0) {
600                /* huh? injecting messages to myself? */
601                irc_rootmsg(irc, "note to self: %s", message);
602        } else {
603                /* need to drop some consts here :-( */
604                /* TODO: get flags into op_inject_message?! */
605                ic->acc->prpl->buddy_msg(ic, (char *)recipient, (char *)message, 0);
606                /* ignoring return value :-/ */
607        }
608}
609
610int op_display_otr_message(void *opdata, const char *accountname,
611        const char *protocol, const char *username, const char *message)
612{
613        struct im_connection *ic = check_imc(opdata, accountname, protocol);
614        char *msg = g_strdup(message);
615        irc_t *irc = ic->bee->ui_data;
616        irc_user_t *u = peeruser(irc, username, protocol);
617
618        strip_html(msg);
619        if(u) {
620                /* display as a notice from this particular user */
621                irc_usernotice(u, "%s", msg);
622        } else {
623                irc_rootmsg(irc, "[otr] %s", msg);
624        }
625
626        g_free(msg);
627        return 0;
628}
629
630void op_new_fingerprint(void *opdata, OtrlUserState us,
631        const char *accountname, const char *protocol,
632        const char *username, unsigned char fingerprint[20])
633{
634        struct im_connection *ic = check_imc(opdata, accountname, protocol);
635        irc_t *irc = ic->bee->ui_data;
636        char hunam[45];         /* anybody looking? ;-) */
637       
638        otrl_privkey_hash_to_human(hunam, fingerprint);
639        irc_rootmsg(irc, "new fingerprint for %s: %s",
640                peernick(irc, username, protocol), hunam);
641}
642
643void op_write_fingerprints(void *opdata)
644{
645        struct im_connection *ic = (struct im_connection *)opdata;
646        irc_t *irc = ic->bee->ui_data;
647
648        otr_save(irc);
649}
650
651void op_gone_secure(void *opdata, ConnContext *context)
652{
653        struct im_connection *ic =
654                check_imc(opdata, context->accountname, context->protocol);
655        irc_user_t *u;
656        irc_t *irc = ic->bee->ui_data;
657
658        u = peeruser(irc, context->username, context->protocol);
659        if(!u) {
660                log_message(LOGLVL_ERROR,
661                        "BUG: otr.c: op_gone_secure: irc_user_t for %s/%s/%s not found!",
662                        context->username, context->protocol, context->accountname);
663                return;
664        }
665       
666        otr_update_uflags(context, u);
667        if(!otr_update_modeflags(irc, u)) {
668                char *trust = u->flags & IRC_USER_OTR_TRUSTED ? "trusted" : "untrusted!";
669                irc_rootmsg(irc, "conversation with %s is now off the record (%s)", u->nick, trust);
670        }
671}
672
673void op_gone_insecure(void *opdata, ConnContext *context)
674{
675        struct im_connection *ic =
676                check_imc(opdata, context->accountname, context->protocol);
677        irc_t *irc = ic->bee->ui_data;
678        irc_user_t *u;
679
680        u = peeruser(irc, context->username, context->protocol);
681        if(!u) {
682                log_message(LOGLVL_ERROR,
683                        "BUG: otr.c: op_gone_insecure: irc_user_t for %s/%s/%s not found!",
684                        context->username, context->protocol, context->accountname);
685                return;
686        }
687        otr_update_uflags(context, u);
688        if(!otr_update_modeflags(irc, u))
689                irc_rootmsg(irc, "conversation with %s is now in the clear", u->nick);
690}
691
692void op_still_secure(void *opdata, ConnContext *context, int is_reply)
693{
694        struct im_connection *ic =
695                check_imc(opdata, context->accountname, context->protocol);
696        irc_t *irc = ic->bee->ui_data;
697        irc_user_t *u;
698
699        u = peeruser(irc, context->username, context->protocol);
700        if(!u) {
701                log_message(LOGLVL_ERROR,
702                        "BUG: otr.c: op_still_secure: irc_user_t for %s/%s/%s not found!",
703                        context->username, context->protocol, context->accountname);
704                return;
705        }
706
707        otr_update_uflags(context, u);
708        if(!otr_update_modeflags(irc, u)) {
709                char *trust = u->flags & IRC_USER_OTR_TRUSTED ? "trusted" : "untrusted!";
710                irc_rootmsg(irc, "otr connection with %s has been refreshed (%s)", u->nick, trust);
711        }
712}
713
714void op_log_message(void *opdata, const char *message)
715{
716        char *msg = g_strdup(message);
717       
718        strip_html(msg);
719        log_message(LOGLVL_INFO, "otr: %s", msg);
720        g_free(msg);
721}
722
723int op_max_message_size(void *opdata, ConnContext *context)
724{
725        struct im_connection *ic =
726                check_imc(opdata, context->accountname, context->protocol);
727
728        return ic->acc->prpl->mms;
729}
730
731const char *op_account_name(void *opdata, const char *account, const char *protocol)
732{
733        struct im_connection *ic = (struct im_connection *)opdata;
734        irc_t *irc = ic->bee->ui_data;
735
736        return peernick(irc, account, protocol);
737}
738
739
740/*** OTR sub-command handlers ***/
741
742void cmd_otr_reconnect(irc_t *irc, char **args)
743{
744        cmd_otr_disconnect(irc, args);
745        cmd_otr_connect(irc, args);
746}
747
748void cmd_otr_disconnect(irc_t *irc, char **args)
749{
750        irc_user_t *u;
751
752        u = irc_user_by_name(irc, args[1]);
753        if(!u || !u->bu || !u->bu->ic) {
754                irc_rootmsg(irc, "%s: unknown user", args[1]);
755                return;
756        }
757       
758        otrl_message_disconnect(irc->otr->us, &otr_ops,
759                u->bu->ic, u->bu->ic->acc->user, u->bu->ic->acc->prpl->name, u->bu->handle);
760       
761        /* for some reason, libotr (3.1.0) doesn't do this itself: */
762        if(u->flags & IRC_USER_OTR_ENCRYPTED) {
763                ConnContext *ctx;
764                ctx = otrl_context_find(irc->otr->us, u->bu->handle, u->bu->ic->acc->user,
765                        u->bu->ic->acc->prpl->name, 0, NULL, NULL, NULL);
766                if(ctx)
767                        op_gone_insecure(u->bu->ic, ctx);
768                else /* huh? */
769                        u->flags &= ( IRC_USER_OTR_ENCRYPTED | IRC_USER_OTR_TRUSTED );
770        }
771}
772
773void cmd_otr_connect(irc_t *irc, char **args)
774{
775        irc_user_t *u;
776
777        u = irc_user_by_name(irc, args[1]);
778        if(!u || !u->bu || !u->bu->ic) {
779                irc_rootmsg(irc, "%s: unknown user", args[1]);
780                return;
781        }
782        if(!(u->bu->flags & BEE_USER_ONLINE)) {
783                irc_rootmsg(irc, "%s is offline", args[1]);
784                return;
785        }
786       
787        bee_user_msg(irc->b, u->bu, "?OTR?v2?", 0);
788}
789
790void cmd_otr_smp(irc_t *irc, char **args)
791{
792        otr_smp_or_smpq(irc, args[1], NULL, args[2]);   /* no question */
793}
794
795void cmd_otr_smpq(irc_t *irc, char **args)
796{
797        otr_smp_or_smpq(irc, args[1], args[2], args[3]);
798}
799
800void cmd_otr_trust(irc_t *irc, char **args)
801{
802        irc_user_t *u;
803        ConnContext *ctx;
804        unsigned char raw[20];
805        Fingerprint *fp;
806        int i,j;
807       
808        u = irc_user_by_name(irc, args[1]);
809        if(!u || !u->bu || !u->bu->ic) {
810                irc_rootmsg(irc, "%s: unknown user", args[1]);
811                return;
812        }
813       
814        ctx = otrl_context_find(irc->otr->us, u->bu->handle,
815                u->bu->ic->acc->user, u->bu->ic->acc->prpl->name, 0, NULL, NULL, NULL);
816        if(!ctx) {
817                irc_rootmsg(irc, "%s: no otr context with user", args[1]);
818                return;
819        }
820       
821        /* convert given fingerprint to raw representation */
822        for(i=0; i<5; i++) {
823                for(j=0; j<4; j++) {
824                        char *p = args[2+i]+(2*j);
825                        char *q = p+1;
826                        int x, y;
827                       
828                        if(!*p || !*q) {
829                                irc_rootmsg(irc, "failed: truncated fingerprint block %d", i+1);
830                                return;
831                        }
832                       
833                        x = hexval(*p);
834                        y = hexval(*q);
835                        if(x<0) {
836                                irc_rootmsg(irc, "failed: %d. hex digit of block %d out of range", 2*j+1, i+1);
837                                return;
838                        }
839                        if(y<0) {
840                                irc_rootmsg(irc, "failed: %d. hex digit of block %d out of range", 2*j+2, i+1);
841                                return;
842                        }
843
844                        raw[i*4+j] = x*16 + y;
845                }
846        }
847        fp = otrl_context_find_fingerprint(ctx, raw, 0, NULL);
848        if(!fp) {
849                irc_rootmsg(irc, "failed: no such fingerprint for %s", args[1]);
850        } else {
851                char *trust = args[7] ? args[7] : "affirmed";
852                otrl_context_set_trust(fp, trust);
853                irc_rootmsg(irc, "fingerprint match, trust set to \"%s\"", trust);
854                if(u->flags & IRC_USER_OTR_ENCRYPTED)
855                        u->flags |= IRC_USER_OTR_TRUSTED;
856                otr_update_modeflags(irc, u);
857        }
858}
859
860void cmd_otr_info(irc_t *irc, char **args)
861{
862        if(!args[1]) {
863                show_general_otr_info(irc);
864        } else {
865                char *arg = g_strdup(args[1]);
866                char *myhandle, *handle=NULL, *protocol;
867                ConnContext *ctx;
868               
869                /* interpret arg as 'user/protocol/account' if possible */
870                protocol = strchr(arg, '/');
871                myhandle = NULL;
872                if(protocol) {
873                        *(protocol++) = '\0';
874                        myhandle = strchr(protocol, '/');
875                }
876                if(protocol && myhandle) {
877                        *(myhandle++) = '\0';
878                        handle = arg;
879                        ctx = otrl_context_find(irc->otr->us, handle, myhandle, protocol, 0, NULL, NULL, NULL);
880                        if(!ctx) {
881                                irc_rootmsg(irc, "no such context");
882                                g_free(arg);
883                                return;
884                        }
885                } else {
886                        irc_user_t *u = irc_user_by_name(irc, args[1]);
887                        if(!u || !u->bu || !u->bu->ic) {
888                                irc_rootmsg(irc, "%s: unknown user", args[1]);
889                                g_free(arg);
890                                return;
891                        }
892                        ctx = otrl_context_find(irc->otr->us, u->bu->handle, u->bu->ic->acc->user,
893                                u->bu->ic->acc->prpl->name, 0, NULL, NULL, NULL);
894                        if(!ctx) {
895                                irc_rootmsg(irc, "no otr context with %s", args[1]);
896                                g_free(arg);
897                                return;
898                        }
899                }
900       
901                /* show how we resolved the (nick) argument, if we did */
902                if(handle!=arg) {
903                        irc_rootmsg(irc, "%s is %s/%s; we are %s/%s to them", args[1],
904                                ctx->username, ctx->protocol, ctx->accountname, ctx->protocol);
905                }
906                show_otr_context_info(irc, ctx);
907                g_free(arg);
908        }
909}
910
911void cmd_otr_keygen(irc_t *irc, char **args)
912{
913        int i, n;
914        account_t *a;
915       
916        n = atoi(args[1]);
917        if(n<0 || (!n && strcmp(args[1], "0"))) {
918                irc_rootmsg(irc, "%s: invalid account number", args[1]);
919                return;
920        }
921       
922        a = irc->b->accounts;
923        for(i=0; i<n && a; i++, a=a->next);
924        if(!a) {
925                irc_rootmsg(irc, "%s: no such account", args[1]);
926                return;
927        }
928       
929        if(keygen_in_progress(irc, a->user, a->prpl->name)) {
930                irc_rootmsg(irc, "keygen for account %d already in progress", n);
931                return;
932        }
933       
934        if(otrl_privkey_find(irc->otr->us, a->user, a->prpl->name)) {
935                char *s = g_strdup_printf("account %d already has a key, replace it?", n);
936                query_add(irc, NULL, s, yes_keygen, NULL, NULL, a);
937                g_free(s);
938        } else {
939                otr_keygen(irc, a->user, a->prpl->name);
940        }
941}
942
943void yes_forget_fingerprint(void *data)
944{
945        pair_t *p = (pair_t *)data;
946        irc_t *irc = (irc_t *)p->fst;
947        Fingerprint *fp = (Fingerprint *)p->snd;
948
949        g_free(p);
950       
951        if(fp == fp->context->active_fingerprint) {
952                irc_rootmsg(irc, "that fingerprint is active, terminate otr connection first");
953                return;
954        }
955               
956        otrl_context_forget_fingerprint(fp, 0);
957}
958
959void yes_forget_context(void *data)
960{
961        pair_t *p = (pair_t *)data;
962        irc_t *irc = (irc_t *)p->fst;
963        ConnContext *ctx = (ConnContext *)p->snd;
964
965        g_free(p);
966       
967        if(ctx->msgstate == OTRL_MSGSTATE_ENCRYPTED) {
968                irc_rootmsg(irc, "active otr connection with %s, terminate it first",
969                        peernick(irc, ctx->username, ctx->protocol));
970                return;
971        }
972               
973        if(ctx->msgstate == OTRL_MSGSTATE_FINISHED)
974                otrl_context_force_plaintext(ctx);
975        otrl_context_forget(ctx);
976}
977
978void yes_forget_key(void *data)
979{
980        OtrlPrivKey *key = (OtrlPrivKey *)data;
981       
982        otrl_privkey_forget(key);
983        /* Hm, libotr doesn't seem to offer a function for explicitly /writing/
984           keyfiles. So the key will be back on the next load... */
985        /* TODO: Actually erase forgotten keys from storage? */
986}
987
988void cmd_otr_forget(irc_t *irc, char **args)
989{
990        if(!strcmp(args[1], "fingerprint"))
991        {
992                irc_user_t *u;
993                ConnContext *ctx;
994                Fingerprint *fp;
995                char human[54];
996                char *s;
997                pair_t *p;
998               
999                if(!args[3]) {
1000                        irc_rootmsg(irc, "otr %s %s: not enough arguments (2 req.)", args[0], args[1]);
1001                        return;
1002                }
1003               
1004                /* TODO: allow context specs ("user/proto/account") in 'otr forget fingerprint'? */
1005                u = irc_user_by_name(irc, args[2]);
1006                if(!u || !u->bu || !u->bu->ic) {
1007                        irc_rootmsg(irc, "%s: unknown user", args[2]);
1008                        return;
1009                }
1010               
1011                ctx = otrl_context_find(irc->otr->us, u->bu->handle, u->bu->ic->acc->user,
1012                        u->bu->ic->acc->prpl->name, 0, NULL, NULL, NULL);
1013                if(!ctx) {
1014                        irc_rootmsg(irc, "no otr context with %s", args[2]);
1015                        return;
1016                }
1017               
1018                fp = match_fingerprint(irc, ctx, ((const char **)args)+3);
1019                if(!fp) {
1020                        /* match_fingerprint does error messages */
1021                        return;
1022                }
1023               
1024                if(fp == ctx->active_fingerprint) {
1025                        irc_rootmsg(irc, "that fingerprint is active, terminate otr connection first");
1026                        return;
1027                }
1028               
1029                otrl_privkey_hash_to_human(human, fp->fingerprint);
1030                s = g_strdup_printf("about to forget fingerprint %s, are you sure?", human);
1031                p = g_malloc(sizeof(pair_t));
1032                if(!p)
1033                        return;
1034                p->fst = irc;
1035                p->snd = fp;
1036                query_add(irc, NULL, s, yes_forget_fingerprint, NULL, NULL, p);
1037                g_free(s);
1038        }
1039       
1040        else if(!strcmp(args[1], "context"))
1041        {
1042                irc_user_t *u;
1043                ConnContext *ctx;
1044                char *s;
1045                pair_t *p;
1046               
1047                /* TODO: allow context specs ("user/proto/account") in 'otr forget contex'? */
1048                u = irc_user_by_name(irc, args[2]);
1049                if(!u || !u->bu || !u->bu->ic) {
1050                        irc_rootmsg(irc, "%s: unknown user", args[2]);
1051                        return;
1052                }
1053               
1054                ctx = otrl_context_find(irc->otr->us, u->bu->handle, u->bu->ic->acc->user,
1055                        u->bu->ic->acc->prpl->name, 0, NULL, NULL, NULL);
1056                if(!ctx) {
1057                        irc_rootmsg(irc, "no otr context with %s", args[2]);
1058                        return;
1059                }
1060               
1061                if(ctx->msgstate == OTRL_MSGSTATE_ENCRYPTED) {
1062                        irc_rootmsg(irc, "active otr connection with %s, terminate it first", args[2]);
1063                        return;
1064                }
1065               
1066                s = g_strdup_printf("about to forget otr data about %s, are you sure?", args[2]);
1067                p = g_malloc(sizeof(pair_t));
1068                if(!p)
1069                        return;
1070                p->fst = irc;
1071                p->snd = ctx;
1072                query_add(irc, NULL, s, yes_forget_context, NULL, NULL, p);
1073                g_free(s);
1074        }
1075       
1076        else if(!strcmp(args[1], "key"))
1077        {
1078                OtrlPrivKey *key;
1079                char *s;
1080               
1081                key = match_privkey(irc, ((const char **)args)+2);
1082                if(!key) {
1083                        /* match_privkey does error messages */
1084                        return;
1085                }
1086               
1087                s = g_strdup_printf("about to forget the private key for %s/%s, are you sure?",
1088                        key->accountname, key->protocol);
1089                query_add(irc, NULL, s, yes_forget_key, NULL, NULL, key);
1090                g_free(s);
1091        }
1092       
1093        else
1094        {
1095                irc_rootmsg(irc, "otr %s: unknown subcommand \"%s\", see \x02help otr forget\x02",
1096                        args[0], args[1]);
1097        }
1098}
1099
1100
1101/*** local helpers / subroutines: ***/
1102
1103/* Socialist Millionaires' Protocol */
1104void otr_handle_smp(struct im_connection *ic, const char *handle, OtrlTLV *tlvs)
1105{
1106        irc_t *irc = ic->bee->ui_data;
1107        OtrlUserState us = irc->otr->us;
1108        OtrlMessageAppOps *ops = &otr_ops;
1109        OtrlTLV *tlv = NULL;
1110        ConnContext *context;
1111        NextExpectedSMP nextMsg;
1112        irc_user_t *u;
1113        bee_user_t *bu;
1114
1115        bu = bee_user_by_handle(ic->bee, ic, handle);
1116        if(!bu || !(u = bu->ui_data)) return;
1117        context = otrl_context_find(us, handle,
1118                ic->acc->user, ic->acc->prpl->name, 1, NULL, NULL, NULL);
1119        if(!context) {
1120                /* huh? out of memory or what? */
1121                irc_rootmsg(irc, "smp: failed to get otr context for %s", u->nick);
1122                otrl_message_abort_smp(us, ops, u->bu->ic, context);
1123                otrl_sm_state_free(context->smstate);
1124                return;
1125        }
1126        nextMsg = context->smstate->nextExpected;
1127
1128        if (context->smstate->sm_prog_state == OTRL_SMP_PROG_CHEATED) {
1129                irc_rootmsg(irc, "smp %s: opponent violated protocol, aborting",
1130                        u->nick);
1131                otrl_message_abort_smp(us, ops, u->bu->ic, context);
1132                otrl_sm_state_free(context->smstate);
1133                return;
1134        }
1135
1136        tlv = otrl_tlv_find(tlvs, OTRL_TLV_SMP1Q);
1137        if (tlv) {
1138                if (nextMsg != OTRL_SMP_EXPECT1) {
1139                        irc_rootmsg(irc, "smp %s: spurious SMP1Q received, aborting", u->nick);
1140                        otrl_message_abort_smp(us, ops, u->bu->ic, context);
1141                        otrl_sm_state_free(context->smstate);
1142                } else {
1143                        char *question = g_strndup((char *)tlv->data, tlv->len);
1144                        irc_rootmsg(irc, "smp: initiated by %s with question: \x02\"%s\"\x02", u->nick,
1145                                question);
1146                        irc_rootmsg(irc, "smp: respond with \x02otr smp %s <answer>\x02",
1147                                u->nick);
1148                        g_free(question);
1149                        /* smp stays in EXPECT1 until user responds */
1150                }
1151        }
1152        tlv = otrl_tlv_find(tlvs, OTRL_TLV_SMP1);
1153        if (tlv) {
1154                if (nextMsg != OTRL_SMP_EXPECT1) {
1155                        irc_rootmsg(irc, "smp %s: spurious SMP1 received, aborting", u->nick);
1156                        otrl_message_abort_smp(us, ops, u->bu->ic, context);
1157                        otrl_sm_state_free(context->smstate);
1158                } else {
1159                        irc_rootmsg(irc, "smp: initiated by %s"
1160                                " - respond with \x02otr smp %s <secret>\x02",
1161                                u->nick, u->nick);
1162                        /* smp stays in EXPECT1 until user responds */
1163                }
1164        }
1165        tlv = otrl_tlv_find(tlvs, OTRL_TLV_SMP2);
1166        if (tlv) {
1167                if (nextMsg != OTRL_SMP_EXPECT2) {
1168                        irc_rootmsg(irc, "smp %s: spurious SMP2 received, aborting", u->nick);
1169                        otrl_message_abort_smp(us, ops, u->bu->ic, context);
1170                        otrl_sm_state_free(context->smstate);
1171                } else {
1172                        /* SMP2 received, otrl_message_receiving will have sent SMP3 */
1173                        context->smstate->nextExpected = OTRL_SMP_EXPECT4;
1174                }
1175        }
1176        tlv = otrl_tlv_find(tlvs, OTRL_TLV_SMP3);
1177        if (tlv) {
1178                if (nextMsg != OTRL_SMP_EXPECT3) {
1179                        irc_rootmsg(irc, "smp %s: spurious SMP3 received, aborting", u->nick);
1180                        otrl_message_abort_smp(us, ops, u->bu->ic, context);
1181                        otrl_sm_state_free(context->smstate);
1182                } else {
1183                        /* SMP3 received, otrl_message_receiving will have sent SMP4 */
1184                        if(context->smstate->sm_prog_state == OTRL_SMP_PROG_SUCCEEDED) {
1185                                if(context->smstate->received_question) {
1186                                        irc_rootmsg(irc, "smp %s: correct answer, you are trusted",
1187                                                u->nick);
1188                                } else {
1189                                        irc_rootmsg(irc, "smp %s: secrets proved equal, fingerprint trusted",
1190                                                u->nick);
1191                                }
1192                        } else {
1193                                if(context->smstate->received_question) {
1194                                        irc_rootmsg(irc, "smp %s: wrong answer, you are not trusted",
1195                                                u->nick);
1196                                } else {
1197                                        irc_rootmsg(irc, "smp %s: secrets did not match, fingerprint not trusted",
1198                                                u->nick);
1199                                }
1200                        }
1201                        otrl_sm_state_free(context->smstate);
1202                        /* smp is in back in EXPECT1 */
1203                }
1204        }
1205        tlv = otrl_tlv_find(tlvs, OTRL_TLV_SMP4);
1206        if (tlv) {
1207                if (nextMsg != OTRL_SMP_EXPECT4) {
1208                        irc_rootmsg(irc, "smp %s: spurious SMP4 received, aborting", u->nick);
1209                        otrl_message_abort_smp(us, ops, u->bu->ic, context);
1210                        otrl_sm_state_free(context->smstate);
1211                } else {
1212                        /* SMP4 received, otrl_message_receiving will have set fp trust */
1213                        if(context->smstate->sm_prog_state == OTRL_SMP_PROG_SUCCEEDED) {
1214                                irc_rootmsg(irc, "smp %s: secrets proved equal, fingerprint trusted",
1215                                        u->nick);
1216                        } else {
1217                                irc_rootmsg(irc, "smp %s: secrets did not match, fingerprint not trusted",
1218                                        u->nick);
1219                        }
1220                        otrl_sm_state_free(context->smstate);
1221                        /* smp is in back in EXPECT1 */
1222                }
1223        }
1224        tlv = otrl_tlv_find(tlvs, OTRL_TLV_SMP_ABORT);
1225        if (tlv) {
1226                irc_rootmsg(irc, "smp: received abort from %s", u->nick);
1227                otrl_sm_state_free(context->smstate);
1228                /* smp is in back in EXPECT1 */
1229        }
1230}
1231
1232/* combined handler for the 'otr smp' and 'otr smpq' commands */
1233void otr_smp_or_smpq(irc_t *irc, const char *nick, const char *question,
1234                const char *secret)
1235{
1236        irc_user_t *u;
1237        ConnContext *ctx;
1238
1239        u = irc_user_by_name(irc, nick);
1240        if(!u || !u->bu || !u->bu->ic) {
1241                irc_rootmsg(irc, "%s: unknown user", nick);
1242                return;
1243        }
1244        if(!(u->bu->flags & BEE_USER_ONLINE)) {
1245                irc_rootmsg(irc, "%s is offline", nick);
1246                return;
1247        }
1248       
1249        ctx = otrl_context_find(irc->otr->us, u->bu->handle,
1250                u->bu->ic->acc->user, u->bu->ic->acc->prpl->name, 0, NULL, NULL, NULL);
1251        if(!ctx || ctx->msgstate != OTRL_MSGSTATE_ENCRYPTED) {
1252                irc_rootmsg(irc, "smp: otr inactive with %s, try \x02otr connect"
1253                                " %s\x02", nick, nick);
1254                return;
1255        }
1256
1257        if(ctx->smstate->nextExpected != OTRL_SMP_EXPECT1) {
1258                log_message(LOGLVL_INFO,
1259                        "SMP already in phase %d, sending abort before reinitiating",
1260                        ctx->smstate->nextExpected+1);
1261                otrl_message_abort_smp(irc->otr->us, &otr_ops, u->bu->ic, ctx);
1262                otrl_sm_state_free(ctx->smstate);
1263        }
1264
1265        if(question) {
1266                /* this was 'otr smpq', just initiate */
1267                irc_rootmsg(irc, "smp: initiating with %s...", u->nick);
1268                otrl_message_initiate_smp_q(irc->otr->us, &otr_ops, u->bu->ic, ctx,
1269                        question, (unsigned char *)secret, strlen(secret));
1270                /* smp is now in EXPECT2 */
1271        } else {
1272                /* this was 'otr smp', initiate or reply */
1273                /* warning: the following assumes that smstates are cleared whenever an SMP
1274                   is completed or aborted! */ 
1275                if(ctx->smstate->secret == NULL) {
1276                        irc_rootmsg(irc, "smp: initiating with %s...", u->nick);
1277                        otrl_message_initiate_smp(irc->otr->us, &otr_ops,
1278                                u->bu->ic, ctx, (unsigned char *)secret, strlen(secret));
1279                        /* smp is now in EXPECT2 */
1280                } else {
1281                        /* if we're still in EXPECT1 but smstate is initialized, we must have
1282                           received the SMP1, so let's issue a response */
1283                        irc_rootmsg(irc, "smp: responding to %s...", u->nick);
1284                        otrl_message_respond_smp(irc->otr->us, &otr_ops,
1285                                u->bu->ic, ctx, (unsigned char *)secret, strlen(secret));
1286                        /* smp is now in EXPECT3 */
1287                }
1288        }
1289}
1290
1291/* helper to assert that account and protocol names given to ops below always
1292   match the im_connection passed through as opdata */
1293struct im_connection *check_imc(void *opdata, const char *accountname,
1294        const char *protocol)
1295{
1296        struct im_connection *ic = (struct im_connection *)opdata;
1297
1298        if (strcmp(accountname, ic->acc->user) != 0) {
1299                log_message(LOGLVL_WARNING,
1300                        "otr: internal account name mismatch: '%s' vs '%s'",
1301                        accountname, ic->acc->user);
1302        }
1303        if (strcmp(protocol, ic->acc->prpl->name) != 0) {
1304                log_message(LOGLVL_WARNING,
1305                        "otr: internal protocol name mismatch: '%s' vs '%s'",
1306                        protocol, ic->acc->prpl->name);
1307        }
1308       
1309        return ic;
1310}
1311
1312irc_user_t *peeruser(irc_t *irc, const char *handle, const char *protocol)
1313{
1314        GSList *l;
1315       
1316        for(l=irc->b->users; l; l = l->next) {
1317                bee_user_t *bu = l->data;
1318                struct prpl *prpl;
1319                if(!bu->ui_data || !bu->ic || !bu->handle)
1320                        continue;
1321                prpl = bu->ic->acc->prpl;
1322                if(strcmp(prpl->name, protocol) == 0
1323                        && prpl->handle_cmp(bu->handle, handle) == 0) {
1324                        return bu->ui_data;
1325                }
1326        }
1327       
1328        return NULL;
1329}
1330
1331int hexval(char a)
1332{
1333        int x=tolower(a);
1334       
1335        if(x>='a' && x<='f')
1336                x = x - 'a' + 10;
1337        else if(x>='0' && x<='9')
1338                x = x - '0';
1339        else
1340                return -1;
1341       
1342        return x;
1343}
1344
1345const char *peernick(irc_t *irc, const char *handle, const char *protocol)
1346{
1347        static char fallback[512];
1348       
1349        irc_user_t *u = peeruser(irc, handle, protocol);
1350        if(u) {
1351                return u->nick;
1352        } else {
1353                g_snprintf(fallback, 511, "%s/%s", handle, protocol);
1354                return fallback;
1355        }
1356}
1357
1358void otr_update_uflags(ConnContext *context, irc_user_t *u)
1359{
1360        const char *trust;
1361
1362        if(context->active_fingerprint) {
1363                u->flags |= IRC_USER_OTR_ENCRYPTED;
1364
1365                trust = context->active_fingerprint->trust;
1366                if(trust && trust[0])
1367                        u->flags |= IRC_USER_OTR_TRUSTED;
1368                else
1369                        u->flags &= ~IRC_USER_OTR_TRUSTED;
1370        } else {
1371                u->flags &= ~IRC_USER_OTR_ENCRYPTED;
1372        }
1373}
1374
1375int otr_update_modeflags(irc_t *irc, irc_user_t *u)
1376{
1377        return 0;
1378}
1379
1380void show_fingerprints(irc_t *irc, ConnContext *ctx)
1381{
1382        char human[45];
1383        Fingerprint *fp;
1384        const char *trust;
1385        int count=0;
1386       
1387        for(fp=&ctx->fingerprint_root; fp; fp=fp->next) {
1388                if(!fp->fingerprint)
1389                        continue;
1390                count++;
1391                otrl_privkey_hash_to_human(human, fp->fingerprint);
1392                if(!fp->trust || fp->trust[0] == '\0') {
1393                        trust="untrusted";
1394                } else {
1395                        trust=fp->trust;
1396                }
1397                if(fp == ctx->active_fingerprint) {
1398                        irc_rootmsg(irc, "    \x02%s (%s)\x02", human, trust);
1399                } else {
1400                        irc_rootmsg(irc, "    %s (%s)", human, trust);
1401                }
1402        }
1403        if(count==0)
1404                irc_rootmsg(irc, "    (none)");
1405}
1406
1407Fingerprint *match_fingerprint(irc_t *irc, ConnContext *ctx, const char **args)
1408{
1409        Fingerprint *fp, *fp2;
1410        char human[45];
1411        char prefix[45], *p;
1412        int n;
1413        int i,j;
1414       
1415        /* assemble the args into a prefix in standard "human" form */
1416        n=0;
1417        p=prefix;
1418        for(i=0; args[i]; i++) {
1419                for(j=0; args[i][j]; j++) {
1420                        char c = toupper(args[i][j]);
1421                       
1422                        if(n>=40) {
1423                                irc_rootmsg(irc, "too many fingerprint digits given, expected at most 40");
1424                                return NULL;
1425                        }
1426                       
1427                        if( (c>='A' && c<='F') || (c>='0' && c<='9') ) {
1428                                *(p++) = c;
1429                        } else {
1430                                irc_rootmsg(irc, "invalid hex digit '%c' in block %d", args[i][j], i+1);
1431                                return NULL;
1432                        }
1433                       
1434                        n++;
1435                        if(n%8 == 0)
1436                                *(p++) = ' ';
1437                }
1438        }
1439        *p = '\0';
1440       
1441        /* find first fingerprint with the given prefix */
1442        n = strlen(prefix);
1443        for(fp=&ctx->fingerprint_root; fp; fp=fp->next) {
1444                if(!fp->fingerprint)
1445                        continue;
1446                otrl_privkey_hash_to_human(human, fp->fingerprint);
1447                if(!strncmp(prefix, human, n))
1448                        break;
1449        }
1450        if(!fp) {
1451                irc_rootmsg(irc, "%s: no match", prefix);
1452                return NULL;
1453        }
1454       
1455        /* make sure the match, if any, is unique */
1456        for(fp2=fp->next; fp2; fp2=fp2->next) {
1457                if(!fp2->fingerprint)
1458                        continue;
1459                otrl_privkey_hash_to_human(human, fp2->fingerprint);
1460                if(!strncmp(prefix, human, n))
1461                        break;
1462        }
1463        if(fp2) {
1464                irc_rootmsg(irc, "%s: multiple matches", prefix);
1465                return NULL;
1466        }
1467       
1468        return fp;
1469}
1470
1471OtrlPrivKey *match_privkey(irc_t *irc, const char **args)
1472{
1473        OtrlPrivKey *k, *k2;
1474        char human[45];
1475        char prefix[45], *p;
1476        int n;
1477        int i,j;
1478       
1479        /* assemble the args into a prefix in standard "human" form */
1480        n=0;
1481        p=prefix;
1482        for(i=0; args[i]; i++) {
1483                for(j=0; args[i][j]; j++) {
1484                        char c = toupper(args[i][j]);
1485                       
1486                        if(n>=40) {
1487                                irc_rootmsg(irc, "too many fingerprint digits given, expected at most 40");
1488                                return NULL;
1489                        }
1490                       
1491                        if( (c>='A' && c<='F') || (c>='0' && c<='9') ) {
1492                                *(p++) = c;
1493                        } else {
1494                                irc_rootmsg(irc, "invalid hex digit '%c' in block %d", args[i][j], i+1);
1495                                return NULL;
1496                        }
1497                       
1498                        n++;
1499                        if(n%8 == 0)
1500                                *(p++) = ' ';
1501                }
1502        }
1503        *p = '\0';
1504       
1505        /* find first key which matches the given prefix */
1506        n = strlen(prefix);
1507        for(k=irc->otr->us->privkey_root; k; k=k->next) {
1508                p = otrl_privkey_fingerprint(irc->otr->us, human, k->accountname, k->protocol);
1509                if(!p) /* gah! :-P */
1510                        continue;
1511                if(!strncmp(prefix, human, n))
1512                        break;
1513        }
1514        if(!k) {
1515                irc_rootmsg(irc, "%s: no match", prefix);
1516                return NULL;
1517        }
1518       
1519        /* make sure the match, if any, is unique */
1520        for(k2=k->next; k2; k2=k2->next) {
1521                p = otrl_privkey_fingerprint(irc->otr->us, human, k2->accountname, k2->protocol);
1522                if(!p) /* gah! :-P */
1523                        continue;
1524                if(!strncmp(prefix, human, n))
1525                        break;
1526        }
1527        if(k2) {
1528                irc_rootmsg(irc, "%s: multiple matches", prefix);
1529                return NULL;
1530        }
1531       
1532        return k;
1533}
1534
1535void show_general_otr_info(irc_t *irc)
1536{
1537        ConnContext *ctx;
1538        OtrlPrivKey *key;
1539        char human[45];
1540        kg_t *kg;
1541
1542        /* list all privkeys (including ones being generated) */
1543        irc_rootmsg(irc, "\x1fprivate keys:\x1f");
1544        for(key=irc->otr->us->privkey_root; key; key=key->next) {
1545                const char *hash;
1546               
1547                switch(key->pubkey_type) {
1548                case OTRL_PUBKEY_TYPE_DSA:
1549                        irc_rootmsg(irc, "  %s/%s - DSA", key->accountname, key->protocol);
1550                        break;
1551                default:
1552                        irc_rootmsg(irc, "  %s/%s - type %d", key->accountname, key->protocol,
1553                                key->pubkey_type);
1554                }
1555
1556                /* No, it doesn't make much sense to search for the privkey again by
1557                   account/protocol, but libotr currently doesn't provide a direct routine
1558                   for hashing a given 'OtrlPrivKey'... */
1559                hash = otrl_privkey_fingerprint(irc->otr->us, human, key->accountname, key->protocol);
1560                if(hash) /* should always succeed */
1561                        irc_rootmsg(irc, "    %s", human);
1562        }
1563        if(irc->otr->sent_accountname) {
1564                irc_rootmsg(irc, "  %s/%s - DSA", irc->otr->sent_accountname,
1565                        irc->otr->sent_protocol);
1566                irc_rootmsg(irc, "    (being generated)");
1567        }
1568        for(kg=irc->otr->todo; kg; kg=kg->next) {
1569                irc_rootmsg(irc, "  %s/%s - DSA", kg->accountname, kg->protocol);
1570                irc_rootmsg(irc, "    (queued)");
1571        }
1572        if(key == irc->otr->us->privkey_root &&
1573           !irc->otr->sent_accountname &&
1574           kg == irc->otr->todo)
1575                irc_rootmsg(irc, "  (none)");
1576
1577        /* list all contexts */
1578        irc_rootmsg(irc, "%s", "");
1579        irc_rootmsg(irc, "\x1f" "connection contexts:\x1f (bold=currently encrypted)");
1580        for(ctx=irc->otr->us->context_root; ctx; ctx=ctx->next) {\
1581                irc_user_t *u;
1582                char *userstring;
1583               
1584                u = peeruser(irc, ctx->username, ctx->protocol);
1585                if(u)
1586                        userstring = g_strdup_printf("%s/%s/%s (%s)",
1587                                ctx->username, ctx->protocol, ctx->accountname, u->nick);
1588                else
1589                        userstring = g_strdup_printf("%s/%s/%s",
1590                                ctx->username, ctx->protocol, ctx->accountname);
1591               
1592                if(ctx->msgstate == OTRL_MSGSTATE_ENCRYPTED) {
1593                        irc_rootmsg(irc, \x02%s\x02", userstring);
1594                } else {
1595                        irc_rootmsg(irc, "  %s", userstring);
1596                }
1597               
1598                g_free(userstring);
1599        }
1600        if(ctx == irc->otr->us->context_root)
1601                irc_rootmsg(irc, "  (none)");
1602}
1603
1604void show_otr_context_info(irc_t *irc, ConnContext *ctx)
1605{
1606        switch(ctx->otr_offer) {
1607        case OFFER_NOT:
1608                irc_rootmsg(irc, "  otr offer status: none sent");
1609                break;
1610        case OFFER_SENT:
1611                irc_rootmsg(irc, "  otr offer status: awaiting reply");
1612                break;
1613        case OFFER_ACCEPTED:
1614                irc_rootmsg(irc, "  otr offer status: accepted our offer");
1615                break;
1616        case OFFER_REJECTED:
1617                irc_rootmsg(irc, "  otr offer status: ignored our offer");
1618                break;
1619        default:
1620                irc_rootmsg(irc, "  otr offer status: %d", ctx->otr_offer);
1621        }
1622
1623        switch(ctx->msgstate) {
1624        case OTRL_MSGSTATE_PLAINTEXT:
1625                irc_rootmsg(irc, "  connection state: cleartext");
1626                break;
1627        case OTRL_MSGSTATE_ENCRYPTED:
1628                irc_rootmsg(irc, "  connection state: encrypted (v%d)", ctx->protocol_version);
1629                break;
1630        case OTRL_MSGSTATE_FINISHED:
1631                irc_rootmsg(irc, "  connection state: shut down");
1632                break;
1633        default:
1634                irc_rootmsg(irc, "  connection state: %d", ctx->msgstate);
1635        }
1636
1637        irc_rootmsg(irc, "  fingerprints: (bold=active)");     
1638        show_fingerprints(irc, ctx);
1639}
1640
1641int keygen_in_progress(irc_t *irc, const char *handle, const char *protocol)
1642{
1643        kg_t *kg;
1644       
1645        if(!irc->otr->sent_accountname || !irc->otr->sent_protocol)
1646                return 0;
1647
1648        /* are we currently working on this key? */
1649        if(!strcmp(handle, irc->otr->sent_accountname) &&
1650           !strcmp(protocol, irc->otr->sent_protocol))
1651                return 1;
1652       
1653        /* do we have it queued for later? */
1654        for(kg=irc->otr->todo; kg; kg=kg->next) {
1655                if(!strcmp(handle, kg->accountname) &&
1656                   !strcmp(protocol, kg->protocol))
1657                        return 1;
1658        }
1659       
1660        return 0;
1661}
1662
1663void otr_keygen(irc_t *irc, const char *handle, const char *protocol)
1664{
1665        /* do nothing if a key for the requested account is already being generated */
1666        if(keygen_in_progress(irc, handle, protocol))
1667                return;
1668
1669        /* see if we already have a keygen child running. if not, start one and put a
1670           handler on its output. */
1671        if(!irc->otr->keygen || waitpid(irc->otr->keygen, NULL, WNOHANG)) {
1672                pid_t p;
1673                int to[2], from[2];
1674                FILE *tof, *fromf;
1675               
1676                if(pipe(to) < 0 || pipe(from) < 0) {
1677                        irc_rootmsg(irc, "otr keygen: couldn't create pipe: %s", strerror(errno));
1678                        return;
1679                }
1680               
1681                tof = fdopen(to[1], "w");
1682                fromf = fdopen(from[0], "r");
1683                if(!tof || !fromf) {
1684                        irc_rootmsg(irc, "otr keygen: couldn't streamify pipe: %s", strerror(errno));
1685                        return;
1686                }
1687               
1688                p = fork();
1689                if(p<0) {
1690                        irc_rootmsg(irc, "otr keygen: couldn't fork: %s", strerror(errno));
1691                        return;
1692                }
1693               
1694                if(!p) {
1695                        /* child process */
1696                        signal(SIGTERM, exit);
1697                        keygen_child_main(irc->otr->us, to[0], from[1]);
1698                        exit(0);
1699                }
1700               
1701                irc->otr->keygen = p;
1702                irc->otr->to = tof;
1703                irc->otr->from = fromf;
1704                irc->otr->sent_accountname = NULL;
1705                irc->otr->sent_protocol = NULL;
1706                irc->otr->todo = NULL;
1707                b_input_add(from[0], B_EV_IO_READ, keygen_finish_handler, irc);
1708        }
1709       
1710        /* is the keygen slave currently working? */
1711        if(irc->otr->sent_accountname) {
1712                /* enqueue our job for later transmission */
1713                kg_t **kg = &irc->otr->todo;
1714                while(*kg)
1715                        kg=&((*kg)->next);
1716                *kg = g_new0(kg_t, 1);
1717                (*kg)->accountname = g_strdup(handle);
1718                (*kg)->protocol = g_strdup(protocol);
1719        } else {
1720                /* send our job over and remember it */
1721                fprintf(irc->otr->to, "%s\n%s\n", handle, protocol);
1722                fflush(irc->otr->to);
1723                irc->otr->sent_accountname = g_strdup(handle);
1724                irc->otr->sent_protocol = g_strdup(protocol);
1725        }
1726}
1727
1728void keygen_child_main(OtrlUserState us, int infd, int outfd)
1729{
1730        FILE *input, *output;
1731        char filename[128], accountname[512], protocol[512];
1732        gcry_error_t e;
1733        int tempfd;
1734       
1735        input = fdopen(infd, "r");
1736        output = fdopen(outfd, "w");
1737       
1738        while(!feof(input) && !ferror(input) && !feof(output) && !ferror(output)) {
1739                myfgets(accountname, 512, input);
1740                myfgets(protocol, 512, input);
1741               
1742                strncpy(filename, "/tmp/bitlbee-XXXXXX", 128);
1743                tempfd = mkstemp(filename);
1744                close(tempfd);
1745
1746                e = otrl_privkey_generate(us, filename, accountname, protocol);
1747                if(e) {
1748                        fprintf(output, "\n");  /* this means failure */
1749                        fprintf(output, "otr keygen: %s\n", gcry_strerror(e));
1750                        unlink(filename);
1751                } else {
1752                        fprintf(output, "%s\n", filename);
1753                        fprintf(output, "otr keygen for %s/%s complete\n", accountname, protocol);
1754                }
1755                fflush(output);
1756        }
1757       
1758        fclose(input);
1759        fclose(output);
1760}
1761
1762gboolean keygen_finish_handler(gpointer data, gint fd, b_input_condition cond)
1763{
1764        irc_t *irc = (irc_t *)data;
1765        char filename[512], msg[512];
1766
1767        myfgets(filename, 512, irc->otr->from);
1768        myfgets(msg, 512, irc->otr->from);
1769       
1770        irc_rootmsg(irc, "%s", msg);
1771        if(filename[0]) {
1772                char *kf = g_strdup_printf("%s%s.otr_keys", global.conf->configdir, irc->user->nick);
1773                char *tmp = g_strdup_printf("%s.new", kf);
1774                copyfile(filename, tmp);
1775                unlink(filename);
1776                rename(tmp,kf);
1777                otrl_privkey_read(irc->otr->us, kf);
1778                g_free(kf);
1779                g_free(tmp);
1780        }
1781       
1782        /* forget this job */
1783        g_free(irc->otr->sent_accountname);
1784        g_free(irc->otr->sent_protocol);
1785        irc->otr->sent_accountname = NULL;
1786        irc->otr->sent_protocol = NULL;
1787       
1788        /* see if there are any more in the queue */
1789        if(irc->otr->todo) {
1790                kg_t *p = irc->otr->todo;
1791                /* send the next one over */
1792                fprintf(irc->otr->to, "%s\n%s\n", p->accountname, p->protocol);
1793                fflush(irc->otr->to);
1794                irc->otr->sent_accountname = p->accountname;
1795                irc->otr->sent_protocol = p->protocol;
1796                irc->otr->todo = p->next;
1797                g_free(p);
1798                return TRUE;   /* keep watching */
1799        } else {
1800                /* okay, the slave is idle now, so kill him */
1801                fclose(irc->otr->from);
1802                fclose(irc->otr->to);
1803                irc->otr->from = irc->otr->to = NULL;
1804                kill(irc->otr->keygen, SIGTERM);
1805                waitpid(irc->otr->keygen, NULL, 0);
1806                irc->otr->keygen = 0;
1807                return FALSE;  /* unregister ourselves */
1808        }
1809}
1810
1811void copyfile(const char *a, const char *b)
1812{
1813        int fda, fdb;
1814        int n;
1815        char buf[1024];
1816       
1817        fda = open(a, O_RDONLY);
1818        fdb = open(b, O_WRONLY | O_CREAT | O_TRUNC, 0600);
1819       
1820        while((n=read(fda, buf, 1024)) > 0)
1821                write(fdb, buf, n);
1822       
1823        close(fda);
1824        close(fdb);     
1825}
1826
1827void myfgets(char *s, int size, FILE *stream)
1828{
1829        if(!fgets(s, size, stream)) {
1830                s[0] = '\0';
1831        } else {
1832                int n = strlen(s);
1833                if(n>0 && s[n-1] == '\n')
1834                        s[n-1] = '\0';
1835        }
1836}
1837
1838void yes_keygen(void *data)
1839{
1840        account_t *acc = (account_t *)data;
1841        irc_t *irc = acc->bee->ui_data;
1842       
1843        if(keygen_in_progress(irc, acc->user, acc->prpl->name)) {
1844                irc_rootmsg(irc, "keygen for %s/%s already in progress",
1845                        acc->user, acc->prpl->name);
1846        } else {
1847                irc_rootmsg(irc, "starting background keygen for %s/%s",
1848                        acc->user, acc->prpl->name);
1849                irc_rootmsg(irc, "you will be notified when it completes");
1850                otr_keygen(irc, acc->user, acc->prpl->name);
1851        }
1852}
1853
1854/* vim: set noet ts=4 sw=4: */
Note: See TracBrowser for help on using the repository browser.