Linux Audio

Check our new training course

Loading...
v4.10.11
  1/*
  2 * binfmt_misc.c
  3 *
  4 * Copyright (C) 1997 Richard Günther
  5 *
  6 * binfmt_misc detects binaries via a magic or filename extension and invokes
  7 * a specified wrapper. See Documentation/binfmt_misc.txt for more details.
 
 
 
 
 
 
 
 
 
  8 */
  9
 10#define pr_fmt(fmt) KBUILD_MODNAME ": " fmt
 11
 12#include <linux/kernel.h>
 13#include <linux/module.h>
 14#include <linux/init.h>
 15#include <linux/sched.h>
 16#include <linux/magic.h>
 17#include <linux/binfmts.h>
 18#include <linux/slab.h>
 19#include <linux/ctype.h>
 20#include <linux/string_helpers.h>
 21#include <linux/file.h>
 22#include <linux/pagemap.h>
 23#include <linux/namei.h>
 24#include <linux/mount.h>
 25#include <linux/syscalls.h>
 26#include <linux/fs.h>
 27#include <linux/uaccess.h>
 28
 29#include "internal.h"
 30
 31#ifdef DEBUG
 32# define USE_DEBUG 1
 33#else
 34# define USE_DEBUG 0
 35#endif
 36
 37enum {
 38	VERBOSE_STATUS = 1 /* make it zero to save 400 bytes kernel memory */
 39};
 40
 41static LIST_HEAD(entries);
 42static int enabled = 1;
 43
 44enum {Enabled, Magic};
 45#define MISC_FMT_PRESERVE_ARGV0 (1 << 31)
 46#define MISC_FMT_OPEN_BINARY (1 << 30)
 47#define MISC_FMT_CREDENTIALS (1 << 29)
 48#define MISC_FMT_OPEN_FILE (1 << 28)
 49
 50typedef struct {
 51	struct list_head list;
 52	unsigned long flags;		/* type, status, etc. */
 53	int offset;			/* offset of magic */
 54	int size;			/* size of magic/mask */
 55	char *magic;			/* magic or filename extension */
 56	char *mask;			/* mask, NULL for exact match */
 57	char *interpreter;		/* filename of interpreter */
 58	char *name;
 59	struct dentry *dentry;
 60	struct file *interp_file;
 61} Node;
 62
 63static DEFINE_RWLOCK(entries_lock);
 64static struct file_system_type bm_fs_type;
 65static struct vfsmount *bm_mnt;
 66static int entry_count;
 67
 68/*
 69 * Max length of the register string.  Determined by:
 70 *  - 7 delimiters
 71 *  - name:   ~50 bytes
 72 *  - type:   1 byte
 73 *  - offset: 3 bytes (has to be smaller than BINPRM_BUF_SIZE)
 74 *  - magic:  128 bytes (512 in escaped form)
 75 *  - mask:   128 bytes (512 in escaped form)
 76 *  - interp: ~50 bytes
 77 *  - flags:  5 bytes
 78 * Round that up a bit, and then back off to hold the internal data
 79 * (like struct Node).
 80 */
 81#define MAX_REGISTER_LENGTH 1920
 82
 83/*
 84 * Check if we support the binfmt
 85 * if we do, return the node, else NULL
 86 * locking is done in load_misc_binary
 87 */
 88static Node *check_file(struct linux_binprm *bprm)
 89{
 90	char *p = strrchr(bprm->interp, '.');
 91	struct list_head *l;
 92
 93	/* Walk all the registered handlers. */
 94	list_for_each(l, &entries) {
 95		Node *e = list_entry(l, Node, list);
 96		char *s;
 97		int j;
 98
 99		/* Make sure this one is currently enabled. */
100		if (!test_bit(Enabled, &e->flags))
101			continue;
102
103		/* Do matching based on extension if applicable. */
104		if (!test_bit(Magic, &e->flags)) {
105			if (p && !strcmp(e->magic, p + 1))
106				return e;
107			continue;
108		}
109
110		/* Do matching based on magic & mask. */
111		s = bprm->buf + e->offset;
112		if (e->mask) {
113			for (j = 0; j < e->size; j++)
114				if ((*s++ ^ e->magic[j]) & e->mask[j])
115					break;
116		} else {
117			for (j = 0; j < e->size; j++)
118				if ((*s++ ^ e->magic[j]))
119					break;
120		}
121		if (j == e->size)
122			return e;
123	}
124	return NULL;
125}
126
127/*
128 * the loader itself
129 */
130static int load_misc_binary(struct linux_binprm *bprm)
131{
132	Node *fmt;
133	struct file *interp_file = NULL;
134	char iname[BINPRM_BUF_SIZE];
135	const char *iname_addr = iname;
136	int retval;
137	int fd_binary = -1;
138
139	retval = -ENOEXEC;
140	if (!enabled)
141		goto ret;
142
143	/* to keep locking time low, we copy the interpreter string */
144	read_lock(&entries_lock);
145	fmt = check_file(bprm);
146	if (fmt)
147		strlcpy(iname, fmt->interpreter, BINPRM_BUF_SIZE);
148	read_unlock(&entries_lock);
149	if (!fmt)
150		goto ret;
151
152	/* Need to be able to load the file after exec */
153	if (bprm->interp_flags & BINPRM_FLAGS_PATH_INACCESSIBLE)
154		return -ENOENT;
155
156	if (!(fmt->flags & MISC_FMT_PRESERVE_ARGV0)) {
157		retval = remove_arg_zero(bprm);
158		if (retval)
159			goto ret;
160	}
161
162	if (fmt->flags & MISC_FMT_OPEN_BINARY) {
163
164		/* if the binary should be opened on behalf of the
165		 * interpreter than keep it open and assign descriptor
166		 * to it
167		 */
168		fd_binary = get_unused_fd_flags(0);
169		if (fd_binary < 0) {
170			retval = fd_binary;
171			goto ret;
172		}
173		fd_install(fd_binary, bprm->file);
174
175		/* if the binary is not readable than enforce mm->dumpable=0
176		   regardless of the interpreter's permissions */
177		would_dump(bprm, bprm->file);
178
179		allow_write_access(bprm->file);
180		bprm->file = NULL;
181
182		/* mark the bprm that fd should be passed to interp */
183		bprm->interp_flags |= BINPRM_FLAGS_EXECFD;
184		bprm->interp_data = fd_binary;
185
186	} else {
187		allow_write_access(bprm->file);
188		fput(bprm->file);
189		bprm->file = NULL;
190	}
191	/* make argv[1] be the path to the binary */
192	retval = copy_strings_kernel(1, &bprm->interp, bprm);
193	if (retval < 0)
194		goto error;
195	bprm->argc++;
196
197	/* add the interp as argv[0] */
198	retval = copy_strings_kernel(1, &iname_addr, bprm);
199	if (retval < 0)
200		goto error;
201	bprm->argc++;
202
203	/* Update interp in case binfmt_script needs it. */
204	retval = bprm_change_interp(iname, bprm);
205	if (retval < 0)
206		goto error;
207
208	if (fmt->flags & MISC_FMT_OPEN_FILE && fmt->interp_file) {
209		interp_file = filp_clone_open(fmt->interp_file);
210		if (!IS_ERR(interp_file))
211			deny_write_access(interp_file);
212	} else {
213		interp_file = open_exec(iname);
214	}
215	retval = PTR_ERR(interp_file);
216	if (IS_ERR(interp_file))
217		goto error;
218
219	bprm->file = interp_file;
220	if (fmt->flags & MISC_FMT_CREDENTIALS) {
221		/*
222		 * No need to call prepare_binprm(), it's already been
223		 * done.  bprm->buf is stale, update from interp_file.
224		 */
225		memset(bprm->buf, 0, BINPRM_BUF_SIZE);
226		retval = kernel_read(bprm->file, 0, bprm->buf, BINPRM_BUF_SIZE);
227	} else
228		retval = prepare_binprm(bprm);
229
230	if (retval < 0)
231		goto error;
232
233	retval = search_binary_handler(bprm);
234	if (retval < 0)
235		goto error;
236
237ret:
238	return retval;
239error:
240	if (fd_binary > 0)
241		sys_close(fd_binary);
242	bprm->interp_flags = 0;
243	bprm->interp_data = 0;
244	goto ret;
245}
246
247/* Command parsers */
248
249/*
250 * parses and copies one argument enclosed in del from *sp to *dp,
251 * recognising the \x special.
252 * returns pointer to the copied argument or NULL in case of an
253 * error (and sets err) or null argument length.
254 */
255static char *scanarg(char *s, char del)
256{
257	char c;
258
259	while ((c = *s++) != del) {
260		if (c == '\\' && *s == 'x') {
261			s++;
262			if (!isxdigit(*s++))
263				return NULL;
264			if (!isxdigit(*s++))
265				return NULL;
266		}
267	}
268	s[-1] ='\0';
269	return s;
270}
271
272static char *check_special_flags(char *sfs, Node *e)
273{
274	char *p = sfs;
275	int cont = 1;
276
277	/* special flags */
278	while (cont) {
279		switch (*p) {
280		case 'P':
281			pr_debug("register: flag: P (preserve argv0)\n");
282			p++;
283			e->flags |= MISC_FMT_PRESERVE_ARGV0;
284			break;
285		case 'O':
286			pr_debug("register: flag: O (open binary)\n");
287			p++;
288			e->flags |= MISC_FMT_OPEN_BINARY;
289			break;
290		case 'C':
291			pr_debug("register: flag: C (preserve creds)\n");
292			p++;
293			/* this flags also implies the
294			   open-binary flag */
295			e->flags |= (MISC_FMT_CREDENTIALS |
296					MISC_FMT_OPEN_BINARY);
297			break;
298		case 'F':
299			pr_debug("register: flag: F: open interpreter file now\n");
300			p++;
301			e->flags |= MISC_FMT_OPEN_FILE;
302			break;
303		default:
304			cont = 0;
305		}
306	}
307
308	return p;
309}
310
311/*
312 * This registers a new binary format, it recognises the syntax
313 * ':name:type:offset:magic:mask:interpreter:flags'
314 * where the ':' is the IFS, that can be chosen with the first char
315 */
316static Node *create_entry(const char __user *buffer, size_t count)
317{
318	Node *e;
319	int memsize, err;
320	char *buf, *p;
321	char del;
322
323	pr_debug("register: received %zu bytes\n", count);
324
325	/* some sanity checks */
326	err = -EINVAL;
327	if ((count < 11) || (count > MAX_REGISTER_LENGTH))
328		goto out;
329
330	err = -ENOMEM;
331	memsize = sizeof(Node) + count + 8;
332	e = kmalloc(memsize, GFP_KERNEL);
333	if (!e)
334		goto out;
335
336	p = buf = (char *)e + sizeof(Node);
337
338	memset(e, 0, sizeof(Node));
339	if (copy_from_user(buf, buffer, count))
340		goto efault;
341
342	del = *p++;	/* delimeter */
343
344	pr_debug("register: delim: %#x {%c}\n", del, del);
345
346	/* Pad the buffer with the delim to simplify parsing below. */
347	memset(buf + count, del, 8);
348
349	/* Parse the 'name' field. */
350	e->name = p;
351	p = strchr(p, del);
352	if (!p)
353		goto einval;
354	*p++ = '\0';
355	if (!e->name[0] ||
356	    !strcmp(e->name, ".") ||
357	    !strcmp(e->name, "..") ||
358	    strchr(e->name, '/'))
359		goto einval;
360
361	pr_debug("register: name: {%s}\n", e->name);
362
363	/* Parse the 'type' field. */
364	switch (*p++) {
365	case 'E':
366		pr_debug("register: type: E (extension)\n");
367		e->flags = 1 << Enabled;
368		break;
369	case 'M':
370		pr_debug("register: type: M (magic)\n");
371		e->flags = (1 << Enabled) | (1 << Magic);
372		break;
373	default:
374		goto einval;
375	}
376	if (*p++ != del)
377		goto einval;
378
379	if (test_bit(Magic, &e->flags)) {
380		/* Handle the 'M' (magic) format. */
381		char *s;
382
383		/* Parse the 'offset' field. */
384		s = strchr(p, del);
385		if (!s)
386			goto einval;
387		*s++ = '\0';
388		e->offset = simple_strtoul(p, &p, 10);
389		if (*p++)
390			goto einval;
391		pr_debug("register: offset: %#x\n", e->offset);
392
393		/* Parse the 'magic' field. */
394		e->magic = p;
395		p = scanarg(p, del);
396		if (!p)
397			goto einval;
 
398		if (!e->magic[0])
399			goto einval;
400		if (USE_DEBUG)
401			print_hex_dump_bytes(
402				KBUILD_MODNAME ": register: magic[raw]: ",
403				DUMP_PREFIX_NONE, e->magic, p - e->magic);
404
405		/* Parse the 'mask' field. */
406		e->mask = p;
407		p = scanarg(p, del);
408		if (!p)
409			goto einval;
410		if (!e->mask[0]) {
 
411			e->mask = NULL;
412			pr_debug("register:  mask[raw]: none\n");
413		} else if (USE_DEBUG)
414			print_hex_dump_bytes(
415				KBUILD_MODNAME ": register:  mask[raw]: ",
416				DUMP_PREFIX_NONE, e->mask, p - e->mask);
417
418		/*
419		 * Decode the magic & mask fields.
420		 * Note: while we might have accepted embedded NUL bytes from
421		 * above, the unescape helpers here will stop at the first one
422		 * it encounters.
423		 */
424		e->size = string_unescape_inplace(e->magic, UNESCAPE_HEX);
425		if (e->mask &&
426		    string_unescape_inplace(e->mask, UNESCAPE_HEX) != e->size)
427			goto einval;
428		if (e->size + e->offset > BINPRM_BUF_SIZE)
429			goto einval;
430		pr_debug("register: magic/mask length: %i\n", e->size);
431		if (USE_DEBUG) {
432			print_hex_dump_bytes(
433				KBUILD_MODNAME ": register: magic[decoded]: ",
434				DUMP_PREFIX_NONE, e->magic, e->size);
435
436			if (e->mask) {
437				int i;
438				char *masked = kmalloc(e->size, GFP_KERNEL);
439
440				print_hex_dump_bytes(
441					KBUILD_MODNAME ": register:  mask[decoded]: ",
442					DUMP_PREFIX_NONE, e->mask, e->size);
443
444				if (masked) {
445					for (i = 0; i < e->size; ++i)
446						masked[i] = e->magic[i] & e->mask[i];
447					print_hex_dump_bytes(
448						KBUILD_MODNAME ": register:  magic[masked]: ",
449						DUMP_PREFIX_NONE, masked, e->size);
450
451					kfree(masked);
452				}
453			}
454		}
455	} else {
456		/* Handle the 'E' (extension) format. */
457
458		/* Skip the 'offset' field. */
459		p = strchr(p, del);
460		if (!p)
461			goto einval;
462		*p++ = '\0';
463
464		/* Parse the 'magic' field. */
465		e->magic = p;
466		p = strchr(p, del);
467		if (!p)
468			goto einval;
469		*p++ = '\0';
470		if (!e->magic[0] || strchr(e->magic, '/'))
471			goto einval;
472		pr_debug("register: extension: {%s}\n", e->magic);
473
474		/* Skip the 'mask' field. */
475		p = strchr(p, del);
476		if (!p)
477			goto einval;
478		*p++ = '\0';
479	}
480
481	/* Parse the 'interpreter' field. */
482	e->interpreter = p;
483	p = strchr(p, del);
484	if (!p)
485		goto einval;
486	*p++ = '\0';
487	if (!e->interpreter[0])
488		goto einval;
489	pr_debug("register: interpreter: {%s}\n", e->interpreter);
 
 
490
491	/* Parse the 'flags' field. */
492	p = check_special_flags(p, e);
493	if (*p == '\n')
494		p++;
495	if (p != buf + count)
496		goto einval;
497
498	return e;
499
500out:
501	return ERR_PTR(err);
502
503efault:
504	kfree(e);
505	return ERR_PTR(-EFAULT);
506einval:
507	kfree(e);
508	return ERR_PTR(-EINVAL);
509}
510
511/*
512 * Set status of entry/binfmt_misc:
513 * '1' enables, '0' disables and '-1' clears entry/binfmt_misc
514 */
515static int parse_command(const char __user *buffer, size_t count)
516{
517	char s[4];
518
 
 
519	if (count > 3)
520		return -EINVAL;
521	if (copy_from_user(s, buffer, count))
522		return -EFAULT;
523	if (!count)
524		return 0;
525	if (s[count - 1] == '\n')
526		count--;
527	if (count == 1 && s[0] == '0')
528		return 1;
529	if (count == 1 && s[0] == '1')
530		return 2;
531	if (count == 2 && s[0] == '-' && s[1] == '1')
532		return 3;
533	return -EINVAL;
534}
535
536/* generic stuff */
537
538static void entry_status(Node *e, char *page)
539{
540	char *dp = page;
541	const char *status = "disabled";
 
542
543	if (test_bit(Enabled, &e->flags))
544		status = "enabled";
545
546	if (!VERBOSE_STATUS) {
547		sprintf(page, "%s\n", status);
548		return;
549	}
550
551	dp += sprintf(dp, "%s\ninterpreter %s\n", status, e->interpreter);
 
552
553	/* print the special flags */
554	dp += sprintf(dp, "flags: ");
555	if (e->flags & MISC_FMT_PRESERVE_ARGV0)
556		*dp++ = 'P';
557	if (e->flags & MISC_FMT_OPEN_BINARY)
558		*dp++ = 'O';
559	if (e->flags & MISC_FMT_CREDENTIALS)
560		*dp++ = 'C';
561	if (e->flags & MISC_FMT_OPEN_FILE)
562		*dp++ = 'F';
563	*dp++ = '\n';
 
 
 
564
565	if (!test_bit(Magic, &e->flags)) {
566		sprintf(dp, "extension .%s\n", e->magic);
567	} else {
568		dp += sprintf(dp, "offset %i\nmagic ", e->offset);
569		dp = bin2hex(dp, e->magic, e->size);
 
 
 
 
 
 
570		if (e->mask) {
571			dp += sprintf(dp, "\nmask ");
572			dp = bin2hex(dp, e->mask, e->size);
 
 
 
 
573		}
574		*dp++ = '\n';
575		*dp = '\0';
576	}
577}
578
579static struct inode *bm_get_inode(struct super_block *sb, int mode)
580{
581	struct inode *inode = new_inode(sb);
582
583	if (inode) {
584		inode->i_ino = get_next_ino();
585		inode->i_mode = mode;
586		inode->i_atime = inode->i_mtime = inode->i_ctime =
587			current_time(inode);
588	}
589	return inode;
590}
591
592static void bm_evict_inode(struct inode *inode)
593{
594	clear_inode(inode);
595	kfree(inode->i_private);
596}
597
598static void kill_node(Node *e)
599{
600	struct dentry *dentry;
601
602	write_lock(&entries_lock);
603	dentry = e->dentry;
604	if (dentry) {
605		list_del_init(&e->list);
606		e->dentry = NULL;
607	}
608	write_unlock(&entries_lock);
609
610	if ((e->flags & MISC_FMT_OPEN_FILE) && e->interp_file) {
611		filp_close(e->interp_file, NULL);
612		e->interp_file = NULL;
613	}
614
615	if (dentry) {
616		drop_nlink(d_inode(dentry));
617		d_drop(dentry);
618		dput(dentry);
619		simple_release_fs(&bm_mnt, &entry_count);
620	}
621}
622
623/* /<entry> */
624
625static ssize_t
626bm_entry_read(struct file *file, char __user *buf, size_t nbytes, loff_t *ppos)
627{
628	Node *e = file_inode(file)->i_private;
629	ssize_t res;
630	char *page;
631
632	page = (char *) __get_free_page(GFP_KERNEL);
633	if (!page)
634		return -ENOMEM;
635
636	entry_status(e, page);
637
638	res = simple_read_from_buffer(buf, nbytes, ppos, page, strlen(page));
639
640	free_page((unsigned long) page);
641	return res;
642}
643
644static ssize_t bm_entry_write(struct file *file, const char __user *buffer,
645				size_t count, loff_t *ppos)
646{
647	struct dentry *root;
648	Node *e = file_inode(file)->i_private;
649	int res = parse_command(buffer, count);
650
651	switch (res) {
652	case 1:
653		/* Disable this handler. */
654		clear_bit(Enabled, &e->flags);
655		break;
656	case 2:
657		/* Enable this handler. */
658		set_bit(Enabled, &e->flags);
659		break;
660	case 3:
661		/* Delete this handler. */
662		root = file_inode(file)->i_sb->s_root;
663		inode_lock(d_inode(root));
664
665		kill_node(e);
666
667		inode_unlock(d_inode(root));
668		break;
669	default:
670		return res;
671	}
672
 
 
 
 
 
 
 
673	return count;
674}
675
676static const struct file_operations bm_entry_operations = {
677	.read		= bm_entry_read,
678	.write		= bm_entry_write,
679	.llseek		= default_llseek,
680};
681
682/* /register */
683
684static ssize_t bm_register_write(struct file *file, const char __user *buffer,
685			       size_t count, loff_t *ppos)
686{
687	Node *e;
688	struct inode *inode;
689	struct super_block *sb = file_inode(file)->i_sb;
690	struct dentry *root = sb->s_root, *dentry;
691	int err = 0;
692
693	e = create_entry(buffer, count);
694
695	if (IS_ERR(e))
696		return PTR_ERR(e);
697
698	inode_lock(d_inode(root));
 
699	dentry = lookup_one_len(e->name, root, strlen(e->name));
700	err = PTR_ERR(dentry);
701	if (IS_ERR(dentry))
702		goto out;
703
704	err = -EEXIST;
705	if (d_really_is_positive(dentry))
706		goto out2;
707
708	inode = bm_get_inode(sb, S_IFREG | 0644);
709
710	err = -ENOMEM;
711	if (!inode)
712		goto out2;
713
714	err = simple_pin_fs(&bm_fs_type, &bm_mnt, &entry_count);
715	if (err) {
716		iput(inode);
717		inode = NULL;
718		goto out2;
719	}
720
721	if (e->flags & MISC_FMT_OPEN_FILE) {
722		struct file *f;
723
724		f = open_exec(e->interpreter);
725		if (IS_ERR(f)) {
726			err = PTR_ERR(f);
727			pr_notice("register: failed to install interpreter file %s\n", e->interpreter);
728			simple_release_fs(&bm_mnt, &entry_count);
729			iput(inode);
730			inode = NULL;
731			goto out2;
732		}
733		e->interp_file = f;
734	}
735
736	e->dentry = dget(dentry);
737	inode->i_private = e;
738	inode->i_fop = &bm_entry_operations;
739
740	d_instantiate(dentry, inode);
741	write_lock(&entries_lock);
742	list_add(&e->list, &entries);
743	write_unlock(&entries_lock);
744
745	err = 0;
746out2:
747	dput(dentry);
748out:
749	inode_unlock(d_inode(root));
 
750
751	if (err) {
752		kfree(e);
753		return err;
754	}
755	return count;
756}
757
758static const struct file_operations bm_register_operations = {
759	.write		= bm_register_write,
760	.llseek		= noop_llseek,
761};
762
763/* /status */
764
765static ssize_t
766bm_status_read(struct file *file, char __user *buf, size_t nbytes, loff_t *ppos)
767{
768	char *s = enabled ? "enabled\n" : "disabled\n";
769
770	return simple_read_from_buffer(buf, nbytes, ppos, s, strlen(s));
771}
772
773static ssize_t bm_status_write(struct file *file, const char __user *buffer,
774		size_t count, loff_t *ppos)
775{
776	int res = parse_command(buffer, count);
777	struct dentry *root;
778
779	switch (res) {
780	case 1:
781		/* Disable all handlers. */
782		enabled = 0;
783		break;
784	case 2:
785		/* Enable all handlers. */
786		enabled = 1;
787		break;
788	case 3:
789		/* Delete all handlers. */
790		root = file_inode(file)->i_sb->s_root;
791		inode_lock(d_inode(root));
792
793		while (!list_empty(&entries))
794			kill_node(list_entry(entries.next, Node, list));
795
796		inode_unlock(d_inode(root));
797		break;
798	default:
799		return res;
800	}
801
 
 
 
 
 
 
 
 
802	return count;
803}
804
805static const struct file_operations bm_status_operations = {
806	.read		= bm_status_read,
807	.write		= bm_status_write,
808	.llseek		= default_llseek,
809};
810
811/* Superblock handling */
812
813static const struct super_operations s_ops = {
814	.statfs		= simple_statfs,
815	.evict_inode	= bm_evict_inode,
816};
817
818static int bm_fill_super(struct super_block *sb, void *data, int silent)
819{
820	int err;
821	static struct tree_descr bm_files[] = {
822		[2] = {"status", &bm_status_operations, S_IWUSR|S_IRUGO},
823		[3] = {"register", &bm_register_operations, S_IWUSR},
824		/* last one */ {""}
825	};
826
827	err = simple_fill_super(sb, BINFMTFS_MAGIC, bm_files);
828	if (!err)
829		sb->s_op = &s_ops;
830	return err;
831}
832
833static struct dentry *bm_mount(struct file_system_type *fs_type,
834	int flags, const char *dev_name, void *data)
835{
836	return mount_single(fs_type, flags, data, bm_fill_super);
837}
838
839static struct linux_binfmt misc_format = {
840	.module = THIS_MODULE,
841	.load_binary = load_misc_binary,
842};
843
844static struct file_system_type bm_fs_type = {
845	.owner		= THIS_MODULE,
846	.name		= "binfmt_misc",
847	.mount		= bm_mount,
848	.kill_sb	= kill_litter_super,
849};
850MODULE_ALIAS_FS("binfmt_misc");
851
852static int __init init_misc_binfmt(void)
853{
854	int err = register_filesystem(&bm_fs_type);
855	if (!err)
856		insert_binfmt(&misc_format);
857	return err;
858}
859
860static void __exit exit_misc_binfmt(void)
861{
862	unregister_binfmt(&misc_format);
863	unregister_filesystem(&bm_fs_type);
864}
865
866core_initcall(init_misc_binfmt);
867module_exit(exit_misc_binfmt);
868MODULE_LICENSE("GPL");
v3.15
  1/*
  2 *  binfmt_misc.c
  3 *
  4 *  Copyright (C) 1997 Richard Günther
  5 *
  6 *  binfmt_misc detects binaries via a magic or filename extension and invokes
  7 *  a specified wrapper. This should obsolete binfmt_java, binfmt_em86 and
  8 *  binfmt_mz.
  9 *
 10 *  1997-04-25 first version
 11 *  [...]
 12 *  1997-05-19 cleanup
 13 *  1997-06-26 hpa: pass the real filename rather than argv[0]
 14 *  1997-06-30 minor cleanup
 15 *  1997-08-09 removed extension stripping, locking cleanup
 16 *  2001-02-28 AV: rewritten into something that resembles C. Original didn't.
 17 */
 18
 
 
 
 19#include <linux/module.h>
 20#include <linux/init.h>
 21#include <linux/sched.h>
 22#include <linux/magic.h>
 23#include <linux/binfmts.h>
 24#include <linux/slab.h>
 25#include <linux/ctype.h>
 26#include <linux/string_helpers.h>
 27#include <linux/file.h>
 28#include <linux/pagemap.h>
 29#include <linux/namei.h>
 30#include <linux/mount.h>
 31#include <linux/syscalls.h>
 32#include <linux/fs.h>
 
 
 
 33
 34#include <asm/uaccess.h>
 
 
 
 
 35
 36enum {
 37	VERBOSE_STATUS = 1 /* make it zero to save 400 bytes kernel memory */
 38};
 39
 40static LIST_HEAD(entries);
 41static int enabled = 1;
 42
 43enum {Enabled, Magic};
 44#define MISC_FMT_PRESERVE_ARGV0 (1<<31)
 45#define MISC_FMT_OPEN_BINARY (1<<30)
 46#define MISC_FMT_CREDENTIALS (1<<29)
 
 47
 48typedef struct {
 49	struct list_head list;
 50	unsigned long flags;		/* type, status, etc. */
 51	int offset;			/* offset of magic */
 52	int size;			/* size of magic/mask */
 53	char *magic;			/* magic or filename extension */
 54	char *mask;			/* mask, NULL for exact match */
 55	char *interpreter;		/* filename of interpreter */
 56	char *name;
 57	struct dentry *dentry;
 
 58} Node;
 59
 60static DEFINE_RWLOCK(entries_lock);
 61static struct file_system_type bm_fs_type;
 62static struct vfsmount *bm_mnt;
 63static int entry_count;
 64
 65/* 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 66 * Check if we support the binfmt
 67 * if we do, return the node, else NULL
 68 * locking is done in load_misc_binary
 69 */
 70static Node *check_file(struct linux_binprm *bprm)
 71{
 72	char *p = strrchr(bprm->interp, '.');
 73	struct list_head *l;
 74
 
 75	list_for_each(l, &entries) {
 76		Node *e = list_entry(l, Node, list);
 77		char *s;
 78		int j;
 79
 
 80		if (!test_bit(Enabled, &e->flags))
 81			continue;
 82
 
 83		if (!test_bit(Magic, &e->flags)) {
 84			if (p && !strcmp(e->magic, p + 1))
 85				return e;
 86			continue;
 87		}
 88
 
 89		s = bprm->buf + e->offset;
 90		if (e->mask) {
 91			for (j = 0; j < e->size; j++)
 92				if ((*s++ ^ e->magic[j]) & e->mask[j])
 93					break;
 94		} else {
 95			for (j = 0; j < e->size; j++)
 96				if ((*s++ ^ e->magic[j]))
 97					break;
 98		}
 99		if (j == e->size)
100			return e;
101	}
102	return NULL;
103}
104
105/*
106 * the loader itself
107 */
108static int load_misc_binary(struct linux_binprm *bprm)
109{
110	Node *fmt;
111	struct file * interp_file = NULL;
112	char iname[BINPRM_BUF_SIZE];
113	const char *iname_addr = iname;
114	int retval;
115	int fd_binary = -1;
116
117	retval = -ENOEXEC;
118	if (!enabled)
119		goto _ret;
120
121	/* to keep locking time low, we copy the interpreter string */
122	read_lock(&entries_lock);
123	fmt = check_file(bprm);
124	if (fmt)
125		strlcpy(iname, fmt->interpreter, BINPRM_BUF_SIZE);
126	read_unlock(&entries_lock);
127	if (!fmt)
128		goto _ret;
 
 
 
 
129
130	if (!(fmt->flags & MISC_FMT_PRESERVE_ARGV0)) {
131		retval = remove_arg_zero(bprm);
132		if (retval)
133			goto _ret;
134	}
135
136	if (fmt->flags & MISC_FMT_OPEN_BINARY) {
137
138		/* if the binary should be opened on behalf of the
139		 * interpreter than keep it open and assign descriptor
140		 * to it */
141 		fd_binary = get_unused_fd();
142 		if (fd_binary < 0) {
143 			retval = fd_binary;
144 			goto _ret;
145 		}
146 		fd_install(fd_binary, bprm->file);
 
147
148		/* if the binary is not readable than enforce mm->dumpable=0
149		   regardless of the interpreter's permissions */
150		would_dump(bprm, bprm->file);
151
152		allow_write_access(bprm->file);
153		bprm->file = NULL;
154
155		/* mark the bprm that fd should be passed to interp */
156		bprm->interp_flags |= BINPRM_FLAGS_EXECFD;
157		bprm->interp_data = fd_binary;
158
159 	} else {
160 		allow_write_access(bprm->file);
161 		fput(bprm->file);
162 		bprm->file = NULL;
163 	}
164	/* make argv[1] be the path to the binary */
165	retval = copy_strings_kernel (1, &bprm->interp, bprm);
166	if (retval < 0)
167		goto _error;
168	bprm->argc++;
169
170	/* add the interp as argv[0] */
171	retval = copy_strings_kernel (1, &iname_addr, bprm);
172	if (retval < 0)
173		goto _error;
174	bprm->argc ++;
175
176	/* Update interp in case binfmt_script needs it. */
177	retval = bprm_change_interp(iname, bprm);
178	if (retval < 0)
179		goto _error;
180
181	interp_file = open_exec (iname);
182	retval = PTR_ERR (interp_file);
183	if (IS_ERR (interp_file))
184		goto _error;
 
 
 
 
 
 
185
186	bprm->file = interp_file;
187	if (fmt->flags & MISC_FMT_CREDENTIALS) {
188		/*
189		 * No need to call prepare_binprm(), it's already been
190		 * done.  bprm->buf is stale, update from interp_file.
191		 */
192		memset(bprm->buf, 0, BINPRM_BUF_SIZE);
193		retval = kernel_read(bprm->file, 0, bprm->buf, BINPRM_BUF_SIZE);
194	} else
195		retval = prepare_binprm (bprm);
196
197	if (retval < 0)
198		goto _error;
199
200	retval = search_binary_handler(bprm);
201	if (retval < 0)
202		goto _error;
203
204_ret:
205	return retval;
206_error:
207	if (fd_binary > 0)
208		sys_close(fd_binary);
209	bprm->interp_flags = 0;
210	bprm->interp_data = 0;
211	goto _ret;
212}
213
214/* Command parsers */
215
216/*
217 * parses and copies one argument enclosed in del from *sp to *dp,
218 * recognising the \x special.
219 * returns pointer to the copied argument or NULL in case of an
220 * error (and sets err) or null argument length.
221 */
222static char *scanarg(char *s, char del)
223{
224	char c;
225
226	while ((c = *s++) != del) {
227		if (c == '\\' && *s == 'x') {
228			s++;
229			if (!isxdigit(*s++))
230				return NULL;
231			if (!isxdigit(*s++))
232				return NULL;
233		}
234	}
 
235	return s;
236}
237
238static char * check_special_flags (char * sfs, Node * e)
239{
240	char * p = sfs;
241	int cont = 1;
242
243	/* special flags */
244	while (cont) {
245		switch (*p) {
246			case 'P':
247				p++;
248				e->flags |= MISC_FMT_PRESERVE_ARGV0;
249				break;
250			case 'O':
251				p++;
252				e->flags |= MISC_FMT_OPEN_BINARY;
253				break;
254			case 'C':
255				p++;
256				/* this flags also implies the
257				   open-binary flag */
258				e->flags |= (MISC_FMT_CREDENTIALS |
259						MISC_FMT_OPEN_BINARY);
260				break;
261			default:
262				cont = 0;
 
 
 
 
 
 
 
 
263		}
264	}
265
266	return p;
267}
 
268/*
269 * This registers a new binary format, it recognises the syntax
270 * ':name:type:offset:magic:mask:interpreter:flags'
271 * where the ':' is the IFS, that can be chosen with the first char
272 */
273static Node *create_entry(const char __user *buffer, size_t count)
274{
275	Node *e;
276	int memsize, err;
277	char *buf, *p;
278	char del;
279
 
 
280	/* some sanity checks */
281	err = -EINVAL;
282	if ((count < 11) || (count > 256))
283		goto out;
284
285	err = -ENOMEM;
286	memsize = sizeof(Node) + count + 8;
287	e = kmalloc(memsize, GFP_USER);
288	if (!e)
289		goto out;
290
291	p = buf = (char *)e + sizeof(Node);
292
293	memset(e, 0, sizeof(Node));
294	if (copy_from_user(buf, buffer, count))
295		goto Efault;
296
297	del = *p++;	/* delimeter */
298
299	memset(buf+count, del, 8);
 
 
 
300
 
301	e->name = p;
302	p = strchr(p, del);
303	if (!p)
304		goto Einval;
305	*p++ = '\0';
306	if (!e->name[0] ||
307	    !strcmp(e->name, ".") ||
308	    !strcmp(e->name, "..") ||
309	    strchr(e->name, '/'))
310		goto Einval;
 
 
 
 
311	switch (*p++) {
312		case 'E': e->flags = 1<<Enabled; break;
313		case 'M': e->flags = (1<<Enabled) | (1<<Magic); break;
314		default: goto Einval;
 
 
 
 
 
 
 
315	}
316	if (*p++ != del)
317		goto Einval;
 
318	if (test_bit(Magic, &e->flags)) {
319		char *s = strchr(p, del);
 
 
 
 
320		if (!s)
321			goto Einval;
322		*s++ = '\0';
323		e->offset = simple_strtoul(p, &p, 10);
324		if (*p++)
325			goto Einval;
 
 
 
326		e->magic = p;
327		p = scanarg(p, del);
328		if (!p)
329			goto Einval;
330		p[-1] = '\0';
331		if (!e->magic[0])
332			goto Einval;
 
 
 
 
 
 
333		e->mask = p;
334		p = scanarg(p, del);
335		if (!p)
336			goto Einval;
337		p[-1] = '\0';
338		if (!e->mask[0])
339			e->mask = NULL;
 
 
 
 
 
 
 
 
 
 
 
 
340		e->size = string_unescape_inplace(e->magic, UNESCAPE_HEX);
341		if (e->mask &&
342		    string_unescape_inplace(e->mask, UNESCAPE_HEX) != e->size)
343			goto Einval;
344		if (e->size + e->offset > BINPRM_BUF_SIZE)
345			goto Einval;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
346	} else {
 
 
 
347		p = strchr(p, del);
348		if (!p)
349			goto Einval;
350		*p++ = '\0';
 
 
351		e->magic = p;
352		p = strchr(p, del);
353		if (!p)
354			goto Einval;
355		*p++ = '\0';
356		if (!e->magic[0] || strchr(e->magic, '/'))
357			goto Einval;
 
 
 
358		p = strchr(p, del);
359		if (!p)
360			goto Einval;
361		*p++ = '\0';
362	}
 
 
363	e->interpreter = p;
364	p = strchr(p, del);
365	if (!p)
366		goto Einval;
367	*p++ = '\0';
368	if (!e->interpreter[0])
369		goto Einval;
370
371
372	p = check_special_flags (p, e);
373
 
 
374	if (*p == '\n')
375		p++;
376	if (p != buf + count)
377		goto Einval;
 
378	return e;
379
380out:
381	return ERR_PTR(err);
382
383Efault:
384	kfree(e);
385	return ERR_PTR(-EFAULT);
386Einval:
387	kfree(e);
388	return ERR_PTR(-EINVAL);
389}
390
391/*
392 * Set status of entry/binfmt_misc:
393 * '1' enables, '0' disables and '-1' clears entry/binfmt_misc
394 */
395static int parse_command(const char __user *buffer, size_t count)
396{
397	char s[4];
398
399	if (!count)
400		return 0;
401	if (count > 3)
402		return -EINVAL;
403	if (copy_from_user(s, buffer, count))
404		return -EFAULT;
405	if (s[count-1] == '\n')
 
 
406		count--;
407	if (count == 1 && s[0] == '0')
408		return 1;
409	if (count == 1 && s[0] == '1')
410		return 2;
411	if (count == 2 && s[0] == '-' && s[1] == '1')
412		return 3;
413	return -EINVAL;
414}
415
416/* generic stuff */
417
418static void entry_status(Node *e, char *page)
419{
420	char *dp;
421	char *status = "disabled";
422	const char * flags = "flags: ";
423
424	if (test_bit(Enabled, &e->flags))
425		status = "enabled";
426
427	if (!VERBOSE_STATUS) {
428		sprintf(page, "%s\n", status);
429		return;
430	}
431
432	sprintf(page, "%s\ninterpreter %s\n", status, e->interpreter);
433	dp = page + strlen(page);
434
435	/* print the special flags */
436	sprintf (dp, "%s", flags);
437	dp += strlen (flags);
438	if (e->flags & MISC_FMT_PRESERVE_ARGV0) {
439		*dp ++ = 'P';
440	}
441	if (e->flags & MISC_FMT_OPEN_BINARY) {
442		*dp ++ = 'O';
443	}
444	if (e->flags & MISC_FMT_CREDENTIALS) {
445		*dp ++ = 'C';
446	}
447	*dp ++ = '\n';
448
449
450	if (!test_bit(Magic, &e->flags)) {
451		sprintf(dp, "extension .%s\n", e->magic);
452	} else {
453		int i;
454
455		sprintf(dp, "offset %i\nmagic ", e->offset);
456		dp = page + strlen(page);
457		for (i = 0; i < e->size; i++) {
458			sprintf(dp, "%02x", 0xff & (int) (e->magic[i]));
459			dp += 2;
460		}
461		if (e->mask) {
462			sprintf(dp, "\nmask ");
463			dp += 6;
464			for (i = 0; i < e->size; i++) {
465				sprintf(dp, "%02x", 0xff & (int) (e->mask[i]));
466				dp += 2;
467			}
468		}
469		*dp++ = '\n';
470		*dp = '\0';
471	}
472}
473
474static struct inode *bm_get_inode(struct super_block *sb, int mode)
475{
476	struct inode * inode = new_inode(sb);
477
478	if (inode) {
479		inode->i_ino = get_next_ino();
480		inode->i_mode = mode;
481		inode->i_atime = inode->i_mtime = inode->i_ctime =
482			current_fs_time(inode->i_sb);
483	}
484	return inode;
485}
486
487static void bm_evict_inode(struct inode *inode)
488{
489	clear_inode(inode);
490	kfree(inode->i_private);
491}
492
493static void kill_node(Node *e)
494{
495	struct dentry *dentry;
496
497	write_lock(&entries_lock);
498	dentry = e->dentry;
499	if (dentry) {
500		list_del_init(&e->list);
501		e->dentry = NULL;
502	}
503	write_unlock(&entries_lock);
504
 
 
 
 
 
505	if (dentry) {
506		drop_nlink(dentry->d_inode);
507		d_drop(dentry);
508		dput(dentry);
509		simple_release_fs(&bm_mnt, &entry_count);
510	}
511}
512
513/* /<entry> */
514
515static ssize_t
516bm_entry_read(struct file * file, char __user * buf, size_t nbytes, loff_t *ppos)
517{
518	Node *e = file_inode(file)->i_private;
519	ssize_t res;
520	char *page;
521
522	if (!(page = (char*) __get_free_page(GFP_KERNEL)))
 
523		return -ENOMEM;
524
525	entry_status(e, page);
526
527	res = simple_read_from_buffer(buf, nbytes, ppos, page, strlen(page));
528
529	free_page((unsigned long) page);
530	return res;
531}
532
533static ssize_t bm_entry_write(struct file *file, const char __user *buffer,
534				size_t count, loff_t *ppos)
535{
536	struct dentry *root;
537	Node *e = file_inode(file)->i_private;
538	int res = parse_command(buffer, count);
539
540	switch (res) {
541		case 1: clear_bit(Enabled, &e->flags);
542			break;
543		case 2: set_bit(Enabled, &e->flags);
544			break;
545		case 3: root = dget(file->f_path.dentry->d_sb->s_root);
546			mutex_lock(&root->d_inode->i_mutex);
 
 
 
 
 
 
 
 
 
 
 
 
 
 
547
548			kill_node(e);
549
550			mutex_unlock(&root->d_inode->i_mutex);
551			dput(root);
552			break;
553		default: return res;
554	}
555	return count;
556}
557
558static const struct file_operations bm_entry_operations = {
559	.read		= bm_entry_read,
560	.write		= bm_entry_write,
561	.llseek		= default_llseek,
562};
563
564/* /register */
565
566static ssize_t bm_register_write(struct file *file, const char __user *buffer,
567			       size_t count, loff_t *ppos)
568{
569	Node *e;
570	struct inode *inode;
571	struct dentry *root, *dentry;
572	struct super_block *sb = file->f_path.dentry->d_sb;
573	int err = 0;
574
575	e = create_entry(buffer, count);
576
577	if (IS_ERR(e))
578		return PTR_ERR(e);
579
580	root = dget(sb->s_root);
581	mutex_lock(&root->d_inode->i_mutex);
582	dentry = lookup_one_len(e->name, root, strlen(e->name));
583	err = PTR_ERR(dentry);
584	if (IS_ERR(dentry))
585		goto out;
586
587	err = -EEXIST;
588	if (dentry->d_inode)
589		goto out2;
590
591	inode = bm_get_inode(sb, S_IFREG | 0644);
592
593	err = -ENOMEM;
594	if (!inode)
595		goto out2;
596
597	err = simple_pin_fs(&bm_fs_type, &bm_mnt, &entry_count);
598	if (err) {
599		iput(inode);
600		inode = NULL;
601		goto out2;
602	}
603
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
604	e->dentry = dget(dentry);
605	inode->i_private = e;
606	inode->i_fop = &bm_entry_operations;
607
608	d_instantiate(dentry, inode);
609	write_lock(&entries_lock);
610	list_add(&e->list, &entries);
611	write_unlock(&entries_lock);
612
613	err = 0;
614out2:
615	dput(dentry);
616out:
617	mutex_unlock(&root->d_inode->i_mutex);
618	dput(root);
619
620	if (err) {
621		kfree(e);
622		return -EINVAL;
623	}
624	return count;
625}
626
627static const struct file_operations bm_register_operations = {
628	.write		= bm_register_write,
629	.llseek		= noop_llseek,
630};
631
632/* /status */
633
634static ssize_t
635bm_status_read(struct file *file, char __user *buf, size_t nbytes, loff_t *ppos)
636{
637	char *s = enabled ? "enabled\n" : "disabled\n";
638
639	return simple_read_from_buffer(buf, nbytes, ppos, s, strlen(s));
640}
641
642static ssize_t bm_status_write(struct file * file, const char __user * buffer,
643		size_t count, loff_t *ppos)
644{
645	int res = parse_command(buffer, count);
646	struct dentry *root;
647
648	switch (res) {
649		case 1: enabled = 0; break;
650		case 2: enabled = 1; break;
651		case 3: root = dget(file->f_path.dentry->d_sb->s_root);
652			mutex_lock(&root->d_inode->i_mutex);
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
653
654			while (!list_empty(&entries))
655				kill_node(list_entry(entries.next, Node, list));
656
657			mutex_unlock(&root->d_inode->i_mutex);
658			dput(root);
659			break;
660		default: return res;
661	}
662	return count;
663}
664
665static const struct file_operations bm_status_operations = {
666	.read		= bm_status_read,
667	.write		= bm_status_write,
668	.llseek		= default_llseek,
669};
670
671/* Superblock handling */
672
673static const struct super_operations s_ops = {
674	.statfs		= simple_statfs,
675	.evict_inode	= bm_evict_inode,
676};
677
678static int bm_fill_super(struct super_block * sb, void * data, int silent)
679{
 
680	static struct tree_descr bm_files[] = {
681		[2] = {"status", &bm_status_operations, S_IWUSR|S_IRUGO},
682		[3] = {"register", &bm_register_operations, S_IWUSR},
683		/* last one */ {""}
684	};
685	int err = simple_fill_super(sb, BINFMTFS_MAGIC, bm_files);
 
686	if (!err)
687		sb->s_op = &s_ops;
688	return err;
689}
690
691static struct dentry *bm_mount(struct file_system_type *fs_type,
692	int flags, const char *dev_name, void *data)
693{
694	return mount_single(fs_type, flags, data, bm_fill_super);
695}
696
697static struct linux_binfmt misc_format = {
698	.module = THIS_MODULE,
699	.load_binary = load_misc_binary,
700};
701
702static struct file_system_type bm_fs_type = {
703	.owner		= THIS_MODULE,
704	.name		= "binfmt_misc",
705	.mount		= bm_mount,
706	.kill_sb	= kill_litter_super,
707};
708MODULE_ALIAS_FS("binfmt_misc");
709
710static int __init init_misc_binfmt(void)
711{
712	int err = register_filesystem(&bm_fs_type);
713	if (!err)
714		insert_binfmt(&misc_format);
715	return err;
716}
717
718static void __exit exit_misc_binfmt(void)
719{
720	unregister_binfmt(&misc_format);
721	unregister_filesystem(&bm_fs_type);
722}
723
724core_initcall(init_misc_binfmt);
725module_exit(exit_misc_binfmt);
726MODULE_LICENSE("GPL");