?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
core cleanup: 6 more modules are purple free
[siplcs.git] / src / core / sipe-ft.c
blob0dbbedcaaacbac5cc57d21077f7837b1ae00c749
1 /**
2 * @file sipe-ft.c
3 *
4 * pidgin-sipe
5 *
6 * Copyright (C) 2010 Jakub Adam <jakub.adam@tieto.com>
7 * Copyright (C) 2010 Tomáš Hrabčík <tomas.hrabcik@tieto.com>
8 *
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 2 of the License, or
12 * (at your option) any later version.
13 *
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License
20 * along with this program; if not, write to the Free Software
21 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 */
23
24 #ifdef HAVE_CONFIG_H
25 #include "config.h"
26 #endif
27
28 #include <string.h>
29 #include <fcntl.h>
30 #include <errno.h>
31 #include <time.h>
32
33 #include <glib.h>
34 #include <glib/gprintf.h>
35
36 #include "cipher.h"
37 #include "connection.h"
38 #include "debug.h"
39 #include "eventloop.h"
40 #include "ft.h"
41 #include "network.h"
42
43 #include "sipmsg.h"
44 #include "sip-sec.h"
45 #include "sipe-dialog.h"
46 #include "sipe-nls.h"
47 #include "sipe-ft.h"
48 #include "sipe-session.h"
49 #include "sipe-utils.h"
50 #include "sipe.h"
51
52 #ifdef _WIN32
53 /* for network */
54 #include "libc_interface.h"
55 #include <nspapi.h>
56 #else
57 #include <sys/types.h>
58 #include <sys/socket.h>
59 #include <sys/ioctl.h>
60 #include <netinet/in.h>
61 #include <net/if.h>
62 #include <arpa/inet.h>
63 #ifdef HAVE_SYS_SOCKIO_H
64 #include <sys/sockio.h> /* SIOCGIFCONF for Solaris */
65 #endif
66 #endif
67
68 #define SIPE_FT_KEY_LENGTH 24
69 #define SIPE_FT_CHUNK_HEADER_LENGTH 3
70
71 /*
72 * DO NOT CHANGE THE FOLLOWING CONSTANTS!!!
73 *
74 * It seems that Microsoft Office Communicator client will accept
75 * file transfer invitations *only* within this port range!
76 *
77 * If a firewall is active on your system you need to open these ports if
78 * you want to *send* files to other users. Receiving files uses an ougoing
79 * connection and should therefore automatically penetrate your firewall.
80 */
81 #define SIPE_FT_TCP_PORT_MIN 6891
82 #define SIPE_FT_TCP_PORT_MAX 6901
83
84 struct _sipe_file_transfer {
85 guchar encryption_key[SIPE_FT_KEY_LENGTH];
86 guchar hash_key[SIPE_FT_KEY_LENGTH];
87 gchar *invitation_cookie;
88 unsigned auth_cookie;
89 struct sipe_account_data *sip;
90 struct sip_dialog *dialog;
91 PurpleCipherContext *cipher_context;
92 PurpleCipherContext *hmac_context;
93
94 PurpleNetworkListenData *listener;
95 int listenfd;
96
97 gsize bytes_remaining_chunk;
98 guchar* encrypted_outbuf;
99 guchar* outbuf_ptr;
100 gsize outbuf_size;
101 };
102 typedef struct _sipe_file_transfer sipe_file_transfer;
103
104 static void send_filetransfer_accept(PurpleXfer* xfer);
105 static void send_filetransfer_cancel(PurpleXfer* xfer);
106 static ssize_t do_read(PurpleXfer *xfer, guchar *buf, size_t len);
107 static gboolean read_fully(PurpleXfer *xfer, guchar *buf, size_t len);
108 static gssize read_line(PurpleXfer *xfer, gchar *buffer, gssize size);
109 static void sipe_cipher_context_init(PurpleCipherContext **rc4_context, const guchar *enc_key);
110 static void sipe_hmac_context_init(PurpleCipherContext **hmac_context, const guchar *hash_key);
111 static gchar *sipe_hmac_finalize(PurpleCipherContext *hmac_context);
112 static void generate_key(guchar *buffer, gsize size);
113 static void set_socket_nonblock(int fd, gboolean state);
114 static void sipe_ft_listen_socket_created(int listenfd, gpointer data);
115 static const char * sipe_ft_get_suitable_local_ip(int fd);
116
117 //******************************************************************************
118 // I/O operations for PurpleXfer structure
119 //******************************************************************************
120
121 static void
122 sipe_ft_incoming_init(PurpleXfer *xfer)
123 {
124 send_filetransfer_accept(xfer);
125 }
126
127 static void
128 sipe_ft_free_xfer_struct(PurpleXfer *xfer)
129 {
130 sipe_file_transfer *ft = xfer->data;
131 if (ft) {
132 struct sipe_account_data *sip = xfer->account->gc->proto_data;
133
134 g_hash_table_remove(sip->filetransfers,ft->invitation_cookie);
135
136 if (xfer->watcher) {
137 purple_input_remove(xfer->watcher);
138 xfer->watcher = 0;
139 }
140 if (ft->listenfd >= 0) {
141 purple_debug_info("sipe", "sipe_ft_free_xfer_struct: closing listening socket %d\n", ft->listenfd);
142 close(ft->listenfd);
143 }
144 if (ft->listener)
145 purple_network_listen_cancel(ft->listener);
146 if (ft->cipher_context)
147 purple_cipher_context_destroy(ft->cipher_context);
148
149 if (ft->hmac_context)
150 purple_cipher_context_destroy(ft->hmac_context);
151
152 g_free(ft->encrypted_outbuf);
153 g_free(ft->invitation_cookie);
154 g_free(ft);
155 xfer->data = NULL;
156 }
157 }
158
159 static void
160 sipe_ft_request_denied(PurpleXfer *xfer)
161 {
162 if (xfer->type == PURPLE_XFER_RECEIVE)
163 send_filetransfer_cancel(xfer);
164 sipe_ft_free_xfer_struct(xfer);
165 }
166
167 static
168 void raise_ft_error(PurpleXfer *xfer, const char *errmsg)
169 {
170 purple_xfer_error(purple_xfer_get_type(xfer),
171 xfer->account, xfer->who,
172 errmsg);
173 }
174
175 static
176 void raise_ft_strerror(PurpleXfer *xfer, const char *errmsg)
177 {
178 gchar *tmp = g_strdup_printf("%s: %s", errmsg, strerror(errno));
179 raise_ft_error(xfer, tmp);
180 g_free(tmp);
181 }
182
183 static
184 void raise_ft_error_and_cancel(PurpleXfer *xfer, const char *errmsg)
185 {
186 raise_ft_error(xfer, errmsg);
187 purple_xfer_cancel_local(xfer);
188 }
189
190 static
191 void raise_ft_socket_read_error_and_cancel(PurpleXfer *xfer)
192 {
193 raise_ft_error_and_cancel(xfer, _("Socket read failed"));
194 }
195
196 static
197 void raise_ft_socket_write_error_and_cancel(PurpleXfer *xfer)
198 {
199 raise_ft_error_and_cancel(xfer, _("Socket write failed"));
200 }
201
202 static void
203 sipe_ft_incoming_start(PurpleXfer *xfer)
204 {
205 sipe_file_transfer *ft;
206 static const gchar VER[] = "VER MSN_SECURE_FTP\r\n";
207 static const gchar TFR[] = "TFR\r\n";
208 const gsize BUFFER_SIZE = 50;
209 gchar buf[BUFFER_SIZE];
210 struct sipe_account_data *sip;
211 gchar* request;
212 const gsize FILE_SIZE_OFFSET = 4;
213 gsize file_size;
214
215 ft = xfer->data;
216
217 if (write(xfer->fd,VER,strlen(VER)) == -1) {
218 raise_ft_socket_write_error_and_cancel(xfer);
219 return;
220 }
221 if (read_line(xfer, buf, BUFFER_SIZE) < 0) {
222 raise_ft_socket_read_error_and_cancel(xfer);
223 return;
224 }
225
226 sip = xfer->account->gc->proto_data;
227
228 request = g_strdup_printf("USR %s %u\r\n", sip->username, ft->auth_cookie);
229 if (write(xfer->fd,request,strlen(request)) == -1) {
230 raise_ft_socket_write_error_and_cancel(xfer);
231 g_free(request);
232 return;
233 }
234 g_free(request);
235
236 if (read_line(xfer, buf, BUFFER_SIZE) < 0) {
237 raise_ft_socket_read_error_and_cancel(xfer);
238 return;
239 }
240
241 file_size = g_ascii_strtoull(buf + FILE_SIZE_OFFSET,NULL,10);
242 if (file_size != xfer->size) {
243 raise_ft_error_and_cancel(xfer,
244 _("File size is different from the advertised value."));
245 return;
246 }
247
248 if (write(xfer->fd,TFR,strlen(TFR)) == -1) {
249 raise_ft_socket_write_error_and_cancel(xfer);
250 return;
251 }
252
253 ft->bytes_remaining_chunk = 0;
254
255 sipe_cipher_context_init(&ft->cipher_context, ft->encryption_key);
256 sipe_hmac_context_init(&ft->hmac_context, ft->hash_key);
257 }
258
259 static void
260 sipe_ft_incoming_stop(PurpleXfer *xfer)
261 {
262 static const gchar BYE[] = "BYE 16777989\r\n";
263 gsize BUFFER_SIZE = 50;
264 char buffer[BUFFER_SIZE];
265 const gssize MAC_OFFSET = 4;
266 const gssize CRLF_LEN = 2;
267 gssize macLen;
268 sipe_file_transfer *ft;
269 gchar *mac;
270 gchar *mac1;
271
272 if (write(xfer->fd,BYE,strlen(BYE)) == -1) {
273 raise_ft_socket_write_error_and_cancel(xfer);
274 return;
275 }
276
277 macLen = read_line(xfer, buffer, BUFFER_SIZE);
278
279 if (macLen < 0) {
280 raise_ft_socket_read_error_and_cancel(xfer);
281 return;
282 } else if (macLen < (MAC_OFFSET + CRLF_LEN)) {
283 raise_ft_error_and_cancel(xfer, _("Received MAC is corrupted"));
284 return;
285 }
286
287 // Check MAC
288 ft = xfer->data;
289 mac = g_strndup(buffer + MAC_OFFSET, macLen - MAC_OFFSET - CRLF_LEN);
290 mac1 = sipe_hmac_finalize(ft->hmac_context);
291 if (!sipe_strequal(mac, mac1)) {
292 unlink(xfer->local_filename);
293 raise_ft_error_and_cancel(xfer,
294 _("Received file is corrupted"));
295 }
296 g_free(mac1);
297 g_free(mac);
298
299 sipe_ft_free_xfer_struct(xfer);
300 }
301
302 static gssize
303 sipe_ft_read(guchar **buffer, PurpleXfer *xfer)
304 {
305 gsize bytes_to_read;
306 ssize_t bytes_read;
307
308 sipe_file_transfer *ft = xfer->data;
309
310 if (ft->bytes_remaining_chunk == 0) {
311 guchar hdr_buf[SIPE_FT_CHUNK_HEADER_LENGTH];
312
313 /* read chunk header */
314 if (!read_fully(xfer, hdr_buf, sizeof(hdr_buf))) {
315 raise_ft_strerror(xfer, _("Socket read failed"));
316 return -1;
317 }
318
319 /* chunk header format:
320 *
321 * 0: 00 unknown (always zero?)
322 * 1: LL chunk size in bytes (low byte)
323 * 2: HH chunk size in bytes (high byte)
324 *
325 * Convert size from little endian to host order
326 */
327 ft->bytes_remaining_chunk = hdr_buf[1] + (hdr_buf[2] << 8);
328 }
329
330 bytes_to_read = MIN(purple_xfer_get_bytes_remaining(xfer),
331 xfer->current_buffer_size);
332 bytes_to_read = MIN(bytes_to_read, ft->bytes_remaining_chunk);
333
334 *buffer = g_malloc(bytes_to_read);
335 if (!*buffer) {
336 raise_ft_error(xfer, _("Out of memory"));
337 purple_debug_error("sipe", "sipe_ft_read: can't allocate %" G_GSIZE_FORMAT " bytes for receive buffer\n",
338 bytes_to_read);
339 return -1;
340 }
341
342 bytes_read = do_read(xfer, *buffer, bytes_to_read);
343 if (bytes_read < 0) {
344 raise_ft_strerror(xfer, _("Socket read failed"));
345 return -1;
346 }
347
348 if (bytes_read > 0) {
349 guchar *decrypted = g_malloc(bytes_read);
350
351 if (!decrypted) {
352 raise_ft_error(xfer, _("Out of memory"));
353 purple_debug_error("sipe", "sipe_ft_read: can't allocate %" G_GSIZE_FORMAT " bytes for decryption buffer\n",
354 (gsize)bytes_read);
355 g_free(*buffer);
356 *buffer = NULL;
357 return -1;
358 }
359 purple_cipher_context_encrypt(ft->cipher_context, *buffer, bytes_read, decrypted, NULL);
360 g_free(*buffer);
361 *buffer = decrypted;
362
363 purple_cipher_context_append(ft->hmac_context, decrypted, bytes_read);
364
365 ft->bytes_remaining_chunk -= bytes_read;
366 }
367
368 return bytes_read;
369 }
370
371 static gssize
372 sipe_ft_write(const guchar *buffer, size_t size, PurpleXfer *xfer)
373 {
374 ssize_t bytes_written;
375 sipe_file_transfer *ft = xfer->data;
376
377 /* When sending data via server with ForeFront installed, block bigger than
378 * this default causes ending of transmission. Hard limit block to this value
379 * when libpurple sends us more data. */
380 const gsize DEFAULT_BLOCK_SIZE = 2045;
381 if (size > DEFAULT_BLOCK_SIZE)
382 size = DEFAULT_BLOCK_SIZE;
383
384 if (ft->bytes_remaining_chunk == 0) {
385 ssize_t bytes_read;
386 guchar local_buf[16];
387 guchar hdr_buf[SIPE_FT_CHUNK_HEADER_LENGTH];
388
389 memset(local_buf, 0, sizeof local_buf);
390
391 // Check if receiver did not cancel the transfer before it is finished
392 bytes_read = read(xfer->fd,local_buf,sizeof (local_buf));
393 if (bytes_read == -1 && errno != EAGAIN) {
394 raise_ft_strerror(xfer, _("Socket read failed"));
395 return -1;
396 } else if (bytes_read > 0
397 && (g_str_has_prefix((gchar*)local_buf,"CCL\r\n")
398 || g_str_has_prefix((gchar*)local_buf,"BYE 2164261682\r\n"))) {
399 return -1;
400 }
401
402 if (ft->outbuf_size < size) {
403 g_free(ft->encrypted_outbuf);
404 ft->outbuf_size = size;
405 ft->encrypted_outbuf = g_malloc(ft->outbuf_size);
406 if (!ft->encrypted_outbuf) {
407 raise_ft_error(xfer, _("Out of memory"));
408 purple_debug_error("sipe", "sipe_ft_write: can't allocate %" G_GSIZE_FORMAT " bytes for send buffer\n",
409 ft->outbuf_size);
410 return -1;
411 }
412 }
413
414 ft->bytes_remaining_chunk = size;
415 ft->outbuf_ptr = ft->encrypted_outbuf;
416 purple_cipher_context_encrypt(ft->cipher_context, buffer, size,
417 ft->encrypted_outbuf, NULL);
418 purple_cipher_context_append(ft->hmac_context, buffer, size);
419
420 /* chunk header format:
421 *
422 * 0: 00 unknown (always zero?)
423 * 1: LL chunk size in bytes (low byte)
424 * 2: HH chunk size in bytes (high byte)
425 *
426 * Convert size from host order to little endian
427 */
428 hdr_buf[0] = 0;
429 hdr_buf[1] = (ft->bytes_remaining_chunk & 0x00FF);
430 hdr_buf[2] = (ft->bytes_remaining_chunk & 0xFF00) >> 8;
431
432 /* write chunk header */
433 if (write(xfer->fd, hdr_buf, sizeof(hdr_buf)) == -1) {
434 raise_ft_strerror(xfer, _("Socket write failed"));
435 return -1;
436 }
437 }
438
439 bytes_written = write(xfer->fd, ft->outbuf_ptr, ft->bytes_remaining_chunk);
440 if (bytes_written == -1) {
441 if (errno == EAGAIN)
442 bytes_written = 0;
443 else {
444 raise_ft_strerror(xfer, _("Socket write failed"));
445 }
446 }
447
448 if (bytes_written > 0) {
449 ft->bytes_remaining_chunk -= bytes_written;
450 ft->outbuf_ptr += bytes_written;
451 }
452
453 if ((xfer->bytes_remaining - bytes_written) == 0)
454 purple_xfer_set_completed(xfer, TRUE);
455
456 return bytes_written;
457 }
458
459 static void
460 sipe_ft_outgoing_init(PurpleXfer *xfer)
461 {
462 struct sip_dialog *dialog;
463 sipe_file_transfer *ft = xfer->data;
464
465 gchar *body = g_strdup_printf("Application-Name: File Transfer\r\n"
466 "Application-GUID: {5D3E02AB-6190-11d3-BBBB-00C04F795683}\r\n"
467 "Invitation-Command: INVITE\r\n"
468 "Invitation-Cookie: %s\r\n"
469 "Application-File: %s\r\n"
470 "Application-FileSize: %lu\r\n"
471 //"Connectivity: N\r\n" TODO
472 "Encryption: R\r\n", // TODO: non encrypted file transfer support
473 ft->invitation_cookie,
474 purple_xfer_get_filename(xfer),
475 (long unsigned) purple_xfer_get_size(xfer));
476
477 struct sipe_account_data *sip = xfer->account->gc->proto_data;
478 struct sip_session *session = sipe_session_find_or_add_im(sip, xfer->who);
479
480 g_hash_table_insert(sip->filetransfers,g_strdup(ft->invitation_cookie),xfer);
481
482 // Queue the message
483 sipe_session_enqueue_message(session, body, "text/x-msmsgsinvite");
484
485 dialog = sipe_dialog_find(session, xfer->who);
486 if (dialog && !dialog->outgoing_invite) {
487 ft->dialog = dialog;
488 sipe_im_process_queue(sip, session);
489 } else if (!dialog || !dialog->outgoing_invite) {
490 // Need to send the INVITE to get the outgoing dialog setup
491 sipe_invite(sip, session, xfer->who, body, "text/x-msmsgsinvite", NULL, FALSE);
492 }
493
494 g_free(body);
495 }
496
497 static void
498 sipe_ft_outgoing_start(PurpleXfer *xfer)
499 {
500 sipe_file_transfer *ft;
501 static const gchar VER[] = "VER MSN_SECURE_FTP\r\n";
502 const gsize BUFFER_SIZE = 50;
503 gchar buf[BUFFER_SIZE];
504 gchar** parts;
505 unsigned auth_cookie_received;
506 gboolean users_match;
507 gchar *tmp;
508 ssize_t bytes_written;
509
510 set_socket_nonblock(xfer->fd, TRUE);
511
512 ft = xfer->data;
513
514 if (read_line(xfer, buf, BUFFER_SIZE) < 0) {
515 raise_ft_socket_read_error_and_cancel(xfer);
516 return;
517 }
518
519 if (!sipe_strequal(buf,VER)) {
520 raise_ft_error_and_cancel(xfer,_("File transfer initialization failed."));
521 purple_debug_info("sipe","File transfer VER string incorrect, received: %s expected: %s",
522 buf, VER);
523 return;
524 }
525
526 if (write(xfer->fd,VER,strlen(VER)) == -1) {
527 raise_ft_socket_write_error_and_cancel(xfer);
528 return;
529 }
530
531 if (read_line(xfer, buf, BUFFER_SIZE) < 0) {
532 raise_ft_socket_read_error_and_cancel(xfer);
533 return;
534 }
535
536 parts = g_strsplit(buf, " ", 3);
537
538 auth_cookie_received = g_ascii_strtoull(parts[2],NULL,10);
539
540 // xfer->who has 'sip:' prefix, skip these four characters
541 users_match = sipe_strcase_equal(parts[1], (xfer->who + 4));
542 g_strfreev(parts);
543
544 purple_debug_info("sipe","File transfer authentication: %s Expected: USR %s %u\n",
545 buf, xfer->who + 4, ft->auth_cookie);
546
547 if (!users_match || (ft->auth_cookie != auth_cookie_received)) {
548 raise_ft_error_and_cancel(xfer,
549 _("File transfer authentication failed."));
550 return;
551 }
552
553 tmp = g_strdup_printf("FIL %lu\r\n",(long unsigned) xfer->size);
554 bytes_written = write(xfer->fd, tmp, strlen(tmp));
555 g_free(tmp);
556
557 if (bytes_written == -1) {
558 raise_ft_socket_write_error_and_cancel(xfer);
559 return;
560 }
561
562 // TFR
563 if (read_line(xfer,buf,BUFFER_SIZE) < 0) {
564 raise_ft_socket_read_error_and_cancel(xfer);
565 return;
566 }
567
568 ft->bytes_remaining_chunk = 0;
569
570 sipe_cipher_context_init(&ft->cipher_context, ft->encryption_key);
571 sipe_hmac_context_init(&ft->hmac_context, ft->hash_key);
572 }
573
574 static void
575 sipe_ft_outgoing_stop(PurpleXfer *xfer)
576 {
577 sipe_file_transfer *ft = xfer->data;
578 gsize BUFFER_SIZE = 50;
579 char buffer[BUFFER_SIZE];
580 gchar *mac;
581 gsize mac_strlen;
582
583 // BYE
584 if (read_line(xfer, buffer, BUFFER_SIZE) < 0) {
585 raise_ft_socket_read_error_and_cancel(xfer);
586 return;
587 }
588
589 mac = sipe_hmac_finalize(ft->hmac_context);
590 g_sprintf(buffer, "MAC %s \r\n", mac);
591 g_free(mac);
592
593 mac_strlen = strlen(buffer);
594 // There must be this zero byte between mac and \r\n
595 buffer[mac_strlen - 3] = 0;
596
597 if (write(xfer->fd,buffer,mac_strlen) == -1) {
598 raise_ft_socket_write_error_and_cancel(xfer);
599 return;
600 }
601
602 sipe_ft_free_xfer_struct(xfer);
603 }
604
605 //******************************************************************************
606
607 void sipe_ft_incoming_transfer(PurpleAccount *account, struct sipmsg *msg, const GSList *body)
608 {
609 PurpleXfer *xfer;
610 struct sipe_account_data *sip = account->gc->proto_data;
611 const gchar *callid = sipmsg_find_header(msg, "Call-ID");
612 struct sip_session *session = sipe_session_find_chat_by_callid(sip, callid);
613 if (!session) {
614 gchar *from = parse_from(sipmsg_find_header(msg, "From"));
615 session = sipe_session_find_im(sip, from);
616 g_free(from);
617 }
618
619 if (!session) {
620 purple_debug_error("sipe", "sipe_ft_incoming_transfer: can't find session for remote party\n");
621 return;
622 }
623
624 xfer = purple_xfer_new(account, PURPLE_XFER_RECEIVE, session->with);
625
626 if (xfer) {
627 size_t file_size;
628 sipe_file_transfer *ft = g_new0(sipe_file_transfer, 1);
629 ft->invitation_cookie = g_strdup(sipe_utils_nameval_find(body, "Invitation-Cookie"));
630 ft->sip = sip;
631 ft->dialog = sipe_dialog_find(session, session->with);
632 ft->listenfd = -1;
633 generate_key(ft->encryption_key, SIPE_FT_KEY_LENGTH);
634 generate_key(ft->hash_key, SIPE_FT_KEY_LENGTH);
635 xfer->data = ft;
636
637 purple_xfer_set_filename(xfer, sipe_utils_nameval_find(body, "Application-File"));
638
639 file_size = g_ascii_strtoull(sipe_utils_nameval_find(body, "Application-FileSize"),NULL,10);
640 purple_xfer_set_size(xfer, file_size);
641
642 purple_xfer_set_init_fnc(xfer, sipe_ft_incoming_init);
643 purple_xfer_set_start_fnc(xfer,sipe_ft_incoming_start);
644 purple_xfer_set_end_fnc(xfer,sipe_ft_incoming_stop);
645 purple_xfer_set_request_denied_fnc(xfer, sipe_ft_request_denied);
646 purple_xfer_set_read_fnc(xfer,sipe_ft_read);
647 purple_xfer_set_cancel_send_fnc(xfer,sipe_ft_free_xfer_struct);
648 purple_xfer_set_cancel_recv_fnc(xfer,sipe_ft_free_xfer_struct);
649
650 g_hash_table_insert(sip->filetransfers,g_strdup(ft->invitation_cookie),xfer);
651
652 purple_xfer_request(xfer);
653 }
654 }
655
656 void sipe_ft_incoming_accept(PurpleAccount *account, const GSList *body)
657 {
658 struct sipe_account_data *sip = account->gc->proto_data;
659 const gchar *inv_cookie = sipe_utils_nameval_find(body, "Invitation-Cookie");
660 PurpleXfer *xfer = g_hash_table_lookup(sip->filetransfers,inv_cookie);
661
662 if (xfer) {
663 const gchar *ip = sipe_utils_nameval_find(body, "IP-Address");
664 const gchar *port_str = sipe_utils_nameval_find(body, "Port");
665 const gchar *auth_cookie = sipe_utils_nameval_find(body, "AuthCookie");
666 const gchar *enc_key_b64 = sipe_utils_nameval_find(body, "Encryption-Key");
667 const gchar *hash_key_b64 = sipe_utils_nameval_find(body, "Hash-Key");
668
669 sipe_file_transfer *ft = xfer->data;
670
671 if (auth_cookie)
672 ft->auth_cookie = g_ascii_strtoull(auth_cookie,NULL,10);
673 if (enc_key_b64) {
674 gsize ret_len;
675 guchar *enc_key = g_base64_decode(enc_key_b64, &ret_len);
676 if (ret_len == SIPE_FT_KEY_LENGTH) {
677 memcpy(ft->encryption_key,enc_key,SIPE_FT_KEY_LENGTH);
678 } else {
679 raise_ft_error_and_cancel(xfer,
680 _("Received encryption key has wrong size."));
681 g_free(enc_key);
682 return;
683 }
684 g_free(enc_key);
685 }
686 if (hash_key_b64) {
687 gsize ret_len;
688 guchar *hash_key = g_base64_decode(hash_key_b64, &ret_len);
689 if (ret_len == SIPE_FT_KEY_LENGTH) {
690 memcpy(ft->hash_key,hash_key,SIPE_FT_KEY_LENGTH);
691 } else {
692 raise_ft_error_and_cancel(xfer,
693 _("Received hash key has wrong size."));
694 g_free(hash_key);
695 return;
696 }
697 g_free(hash_key);
698 }
699
700 if (ip && port_str) {
701 purple_xfer_start(xfer, -1, ip, g_ascii_strtoull(port_str,NULL,10));
702 } else {
703 ft->listener = purple_network_listen_range(SIPE_FT_TCP_PORT_MIN,
704 SIPE_FT_TCP_PORT_MAX,
705 SOCK_STREAM,
706 sipe_ft_listen_socket_created,
707 xfer);
708 if (!ft->listener) {
709 raise_ft_error_and_cancel(xfer,
710 _("Could not create listen socket"));
711 return;
712 }
713 }
714 }
715 }
716
717 void sipe_ft_incoming_cancel(PurpleAccount *account, GSList *body)
718 {
719 gchar *inv_cookie = g_strdup(sipe_utils_nameval_find(body, "Invitation-Cookie"));
720
721 struct sipe_account_data *sip = account->gc->proto_data;
722 PurpleXfer *xfer = g_hash_table_lookup(sip->filetransfers,inv_cookie);
723
724 purple_xfer_cancel_remote(xfer);
725 }
726
727 static void send_filetransfer_accept(PurpleXfer* xfer)
728 {
729 sipe_file_transfer* ft = xfer->data;
730 struct sip_dialog *dialog = ft->dialog;
731
732 gchar *b64_encryption_key = g_base64_encode(ft->encryption_key, 24);
733 gchar *b64_hash_key = g_base64_encode(ft->hash_key, 24);
734
735 gchar *body = g_strdup_printf("Invitation-Command: ACCEPT\r\n"
736 "Request-Data: IP-Address:\r\n"
737 "Invitation-Cookie: %s\r\n"
738 "Encryption-Key: %s\r\n"
739 "Hash-Key: %s\r\n"
740 /*"IP-Address: %s\r\n"
741 "Port: 6900\r\n"
742 "PortX: 11178\r\n"
743 "Auth-Cookie: 11111111\r\n"
744 "Sender-Connect: TRUE\r\n"*/,
745 ft->invitation_cookie,
746 b64_encryption_key,
747 b64_hash_key
748 /*,purple_network_get_my_ip(-1)*/
749 );
750
751 send_sip_request(ft->sip->gc, "MESSAGE", dialog->with, dialog->with,
752 "Content-Type: text/x-msmsgsinvite; charset=UTF-8\r\n",
753 body, dialog, NULL);
754
755 g_free(body);
756 g_free(b64_encryption_key);
757 g_free(b64_hash_key);
758 }
759
760 static void send_filetransfer_cancel(PurpleXfer* xfer) {
761 sipe_file_transfer* ft = xfer->data;
762 struct sip_dialog* dialog = ft->dialog;
763
764 gchar *body = g_strdup_printf("Invitation-Command: CANCEL\r\n"
765 "Invitation-Cookie: %s\r\n"
766 "Cancel-Code: REJECT\r\n",
767 ft->invitation_cookie);
768
769 send_sip_request(ft->sip->gc, "MESSAGE", dialog->with, dialog->with,
770 "Content-Type: text/x-msmsgsinvite; charset=UTF-8\r\n",
771 body, dialog, NULL);
772
773 g_free(body);
774 }
775
776 static ssize_t
777 do_read(PurpleXfer *xfer, guchar *buf, size_t len)
778 {
779 ssize_t bytes_read = read(xfer->fd, buf, len);
780 if (bytes_read == 0) {
781 // Sender canceled transfer before it was finished
782 return -2;
783 } else if (bytes_read == -1) {
784 if (errno == EAGAIN)
785 return 0;
786 else
787 return -1;
788 }
789 return bytes_read;
790 }
791
792 static gboolean
793 read_fully(PurpleXfer *xfer, guchar *buf, size_t len)
794 {
795 const gulong READ_TIMEOUT = 10000000;
796 gulong time_spent = 0;
797
798 while (len) {
799 ssize_t bytes_read = do_read(xfer, buf, len);
800 if (bytes_read == 0) {
801 g_usleep(100000);
802 time_spent += 100000;
803 } else if (bytes_read < 0 || time_spent > READ_TIMEOUT) {
804 return FALSE;
805 } else {
806 len -= bytes_read;
807 buf += bytes_read;
808 time_spent = 0;
809 }
810 }
811 return TRUE;
812 }
813
814 static gssize read_line(PurpleXfer *xfer, gchar *buffer, gssize size)
815 {
816 gssize pos = 0;
817
818 memset(buffer,0,size);
819 do {
820 if (!read_fully(xfer, (guchar*) buffer + pos, 1))
821 return -1;
822 } while (buffer[pos] != '\n' && ++pos != (size - 1));
823
824 if (pos == (size - 1) && buffer[pos - 1] != '\n') {
825 // Buffer too short
826 return -2;
827 }
828
829 return pos;
830 }
831
832 static void sipe_cipher_context_init(PurpleCipherContext **rc4_context, const guchar *enc_key)
833 {
834 /*
835 * Decryption of file from SIPE file transfer
836 *
837 * Decryption:
838 * 1.) SHA1-Key = SHA1sum (Encryption-Key); Do SHA1 digest from Encryption-Key, return 20 bytes SHA1-Key.
839 * 2.) Decrypt-Data = RC4 (Encrypt-Data, substr(SHA1-Key, 0, 15)); Decryption of encrypted data, used 16 bytes SHA1-Key;
840 */
841
842 PurpleCipherContext *sha1_context;
843 guchar k2[20];
844
845 /* 1.) SHA1 sum */
846 sha1_context = purple_cipher_context_new_by_name("sha1", NULL);
847 purple_cipher_context_append(sha1_context, enc_key, SIPE_FT_KEY_LENGTH);
848 purple_cipher_context_digest(sha1_context, sizeof(k2), k2, NULL);
849 purple_cipher_context_destroy(sha1_context);
850
851 /* 2.) RC4 decryption */
852 *rc4_context = purple_cipher_context_new_by_name("rc4", NULL);
853 purple_cipher_context_set_option(*rc4_context, "key_len", (gpointer)0x10); // only 16 chars key used
854 purple_cipher_context_set_key(*rc4_context, k2);
855
856 }
857
858 static void sipe_hmac_context_init(PurpleCipherContext **hmac_context, const guchar *hash_key)
859 {
860 /*
861 * Count MAC digest
862 *
863 * HMAC digest:
864 * 1.) SHA1-Key = SHA1sum (Hash-Key); Do SHA1 digest from Hash-Key, return 20 bytes SHA1-Key.
865 * 2.) MAC = HMAC_SHA1 (Decrypt-Data, substr(HMAC-Key,0,15)); Digest of decrypted file and SHA1-Key (used again only 16 bytes)
866 */
867
868 PurpleCipherContext *sha1_context;
869 guchar k2[20];
870
871 /* 1.) SHA1 sum */
872 sha1_context = purple_cipher_context_new_by_name("sha1", NULL);
873 purple_cipher_context_append(sha1_context, hash_key, SIPE_FT_KEY_LENGTH);
874 purple_cipher_context_digest(sha1_context, sizeof(k2), k2, NULL);
875 purple_cipher_context_destroy(sha1_context);
876
877 /* 2.) HMAC (initialization only) */
878 *hmac_context = purple_cipher_context_new_by_name("hmac", NULL);
879 purple_cipher_context_set_option(*hmac_context, "hash", "sha1");
880 purple_cipher_context_set_key_with_len(*hmac_context, k2, 16);
881 }
882
883 static gchar* sipe_hmac_finalize(PurpleCipherContext *hmac_context)
884 {
885 guchar hmac_digest[20];
886
887 /* MAC = Digest of decrypted file and SHA1-Key (used again only 16 bytes) */
888 purple_cipher_context_digest(hmac_context, sizeof(hmac_digest), hmac_digest, NULL);
889
890 return g_base64_encode(hmac_digest, sizeof (hmac_digest));
891 }
892
893 static void generate_key(guchar *buffer, gsize size)
894 {
895 gsize i;
896 for (i = 0; i != size; ++i)
897 buffer[i] = rand();
898 }
899
900 static void set_socket_nonblock(int fd, gboolean state)
901 {
902 int flags = fcntl(fd, F_GETFL, 0);
903 if (flags == -1)
904 flags = 0;
905
906 if (state == TRUE)
907 fcntl(fd, F_SETFL, flags | O_NONBLOCK);
908 else
909 fcntl(fd, F_SETFL, flags & ~O_NONBLOCK);
910 }
911
912 void sipe_ft_send_file(PurpleConnection *gc, const char *who, const char *file)
913 {
914 PurpleXfer *xfer = sipe_ft_new_xfer(gc, who);
915
916 if (xfer) {
917 if (file != NULL)
918 purple_xfer_request_accepted(xfer, file);
919 else
920 purple_xfer_request(xfer);
921 }
922 }
923
924 PurpleXfer * sipe_ft_new_xfer(PurpleConnection *gc, const char *who)
925 {
926 PurpleXfer *xfer = NULL;
927
928 if (PURPLE_CONNECTION_IS_VALID(gc)) {
929 xfer = purple_xfer_new(purple_connection_get_account(gc),
930 PURPLE_XFER_SEND, who);
931
932 if (xfer) {
933 struct sipe_account_data *sip = gc->proto_data;
934
935 sipe_file_transfer *ft = g_new0(sipe_file_transfer, 1);
936 ft->invitation_cookie = g_strdup_printf("%u", rand() % 1000000000);
937 ft->sip = sip;
938
939 xfer->data = ft;
940
941 purple_xfer_set_init_fnc(xfer, sipe_ft_outgoing_init);
942 purple_xfer_set_start_fnc(xfer, sipe_ft_outgoing_start);
943 purple_xfer_set_end_fnc(xfer, sipe_ft_outgoing_stop);
944 purple_xfer_set_request_denied_fnc(xfer, sipe_ft_request_denied);
945 purple_xfer_set_write_fnc(xfer, sipe_ft_write);
946 purple_xfer_set_cancel_send_fnc(xfer, sipe_ft_free_xfer_struct);
947 purple_xfer_set_cancel_recv_fnc(xfer, sipe_ft_free_xfer_struct);
948 }
949 }
950
951 return xfer;
952 }
953
954 static
955 void sipe_ft_client_connected(gpointer p_xfer, gint listenfd,
956 SIPE_UNUSED_PARAMETER PurpleInputCondition cond)
957 {
958 struct sockaddr_in saddr;
959 socklen_t slen = sizeof (saddr);
960
961 int fd = accept(listenfd, (struct sockaddr*)&saddr, &slen);
962
963 PurpleXfer *xfer = p_xfer;
964 sipe_file_transfer *ft = xfer->data;
965
966 purple_input_remove(xfer->watcher);
967 xfer->watcher = 0;
968 close(listenfd);
969 ft->listenfd = -1;
970
971 if (fd < 0) {
972 raise_ft_socket_read_error_and_cancel(xfer);
973 } else {
974 purple_xfer_start(xfer, fd, NULL, 0);
975 }
976 }
977
978 static
979 void sipe_ft_listen_socket_created(int listenfd, gpointer data)
980 {
981 gchar *body;
982 PurpleXfer *xfer = data;
983 sipe_file_transfer *ft = xfer->data;
984
985 struct sockaddr_in addr;
986
987 socklen_t socklen = sizeof (addr);
988
989 ft->listener = NULL;
990 ft->listenfd = listenfd;
991
992 getsockname(listenfd, (struct sockaddr*)&addr, &socklen);
993
994 xfer->watcher = purple_input_add(listenfd, PURPLE_INPUT_READ,
995 sipe_ft_client_connected, xfer);
996
997 ft->auth_cookie = rand() % 1000000000;
998
999 body = g_strdup_printf("Invitation-Command: ACCEPT\r\n"
1000 "Invitation-Cookie: %s\r\n"
1001 "IP-Address: %s\r\n"
1002 "Port: %u\r\n"
1003 "PortX: 11178\r\n"
1004 "AuthCookie: %u\r\n"
1005 "Request-Data: IP-Address:\r\n",
1006 ft->invitation_cookie,
1007 sipe_ft_get_suitable_local_ip(listenfd),
1008 ntohs(addr.sin_port),
1009 ft->auth_cookie);
1010
1011 if (!ft->dialog) {
1012 struct sipe_account_data *sip = xfer->account->gc->proto_data;
1013 struct sip_session *session = sipe_session_find_or_add_im(sip, xfer->who);
1014 ft->dialog = sipe_dialog_find(session, xfer->who);
1015 }
1016
1017 if (ft->dialog) {
1018 send_sip_request(ft->sip->gc, "MESSAGE", ft->dialog->with, ft->dialog->with,
1019 "Content-Type: text/x-msmsgsinvite; charset=UTF-8\r\n",
1020 body, ft->dialog, NULL);
1021 }
1022 g_free(body);
1023 }
1024
1025 /*
1026 * Calling sizeof(struct ifreq) isn't always correct on
1027 * Mac OS X (and maybe others).
1028 */
1029 #ifdef _SIZEOF_ADDR_IFREQ
1030 # define HX_SIZE_OF_IFREQ(a) _SIZEOF_ADDR_IFREQ(a)
1031 #else
1032 # define HX_SIZE_OF_IFREQ(a) sizeof(a)
1033 #endif
1034
1035 /*
1036 * Returns local IP address suitable for connection.
1037 *
1038 * purple_network_get_my_ip() will not do this, because it might return an
1039 * address within 169.254.x.x range that was assigned to interface disconnected
1040 * from the network (when multiple network adapters are available). This is a
1041 * copy-paste from libpurple's network.c, only change is that link local addresses
1042 * are ignored.
1043 *
1044 * Maybe this should be fixed in libpurple or some better solution found.
1045 */
1046 static
1047 const char * sipe_ft_get_suitable_local_ip(int fd)
1048 {
1049 int source = (fd >= 0) ? fd : socket(PF_INET,SOCK_STREAM, 0);
1050
1051 if (source >= 0) {
1052 char buffer[1024];
1053 static char ip[16];
1054 char *tmp;
1055 struct ifconf ifc;
1056 guint32 lhost = htonl(127 * 256 * 256 * 256 + 1);
1057 guint32 llocal = htonl((169 << 24) + (254 << 16));
1058
1059 ifc.ifc_len = sizeof(buffer);
1060 ifc.ifc_req = (struct ifreq *)buffer;
1061 ioctl(source, SIOCGIFCONF, &ifc);
1062
1063 if (fd < 0)
1064 close(source);
1065
1066 tmp = buffer;
1067 while (tmp < buffer + ifc.ifc_len)
1068 {
1069 struct ifreq *ifr = (struct ifreq *)tmp;
1070 tmp += HX_SIZE_OF_IFREQ(*ifr);
1071
1072 if (ifr->ifr_addr.sa_family == AF_INET)
1073 {
1074 struct sockaddr_in *sinptr = (struct sockaddr_in *)&ifr->ifr_addr;
1075 if (sinptr->sin_addr.s_addr != lhost
1076 && (sinptr->sin_addr.s_addr & htonl(0xFFFF0000)) != llocal)
1077 {
1078 long unsigned int add = ntohl(sinptr->sin_addr.s_addr);
1079 g_snprintf(ip, 16, "%lu.%lu.%lu.%lu",
1080 ((add >> 24) & 255),
1081 ((add >> 16) & 255),
1082 ((add >> 8) & 255),
1083 add & 255);
1084
1085 return ip;
1086 }
1087 }
1088 }
1089 }
1090
1091 return "0.0.0.0";
1092 }
1093
1094 GSList * sipe_ft_parse_msg_body(const gchar *body)
1095 {
1096 GSList *list = NULL;
1097 gchar **lines = g_strsplit(body, "\r\n", 0);
1098 if (sipe_utils_parse_lines(&list, lines) == FALSE) {
1099 sipe_utils_nameval_free(list);
1100 list = NULL;
1101 }
1102 g_strfreev(lines);
1103 return list;
1104 }
1105
1106 /*
1107 Local Variables:
1108 mode: c
1109 c-file-style: "bsd"
1110 indent-tabs-mode: t
1111 tab-width: 8
1112 End:
1113 */
A third-party Pidgin plugin for Microsoft LCS/OCS