dfss.sh.x.c

#if 0
	shc Version 3.8.9, Generic Script Compiler
	Copyright (c) 1994-2012 Francisco Rosales <frosal@fi.upm.es>

	shc -r -T -f dfss.sh 
#endif

static  char data [] = 
#define      chk1_z	22
#define      chk1	((&data[0]))
	"\053\220\112\007\210\315\141\273\364\323\063\250\117\176\366\167"
	"\360\326\207\245\337\356\066\024\274"
#define      msg2_z	19
#define      msg2	((&data[29]))
	"\123\140\127\133\016\072\343\142\112\255\120\137\321\323\133\045"
	"\003\210\006\277\212\236\336\142\037\036\010"
#define      rlax_z	1
#define      rlax	((&data[52]))
	"\216"
#define      lsto_z	1
#define      lsto	((&data[53]))
	"\312"
#define      tst1_z	22
#define      tst1	((&data[58]))
	"\351\073\364\341\131\045\206\050\266\023\245\117\300\343\056\177"
	"\021\206\353\313\066\363\064\073\337\277\161\177\373"
#define      pswd_z	256
#define      pswd	((&data[129]))
	"\311\077\016\257\222\157\006\356\321\045\014\332\306\140\212\071"
	"\055\066\265\367\335\236\062\321\200\244\121\173\261\007\214\173"
	"\106\233\052\331\012\061\307\333\126\323\266\035\063\100\353\201"
	"\376\335\251\012\035\263\226\076\202\253\067\030\062\212\156\120"
	"\345\314\337\021\342\207\145\335\214\322\047\036\252\022\237\251"
	"\357\111\264\014\375\112\113\177\365\203\227\050\015\006\170\362"
	"\323\127\004\265\337\151\222\153\074\271\212\346\314\051\220\273"
	"\162\104\310\157\216\024\357\204\227\207\254\244\215\045\227\140"
	"\175\233\026\135\004\250\310\101\142\123\050\056\174\270\351\357"
	"\374\262\137\213\306\117\020\135\326\275\001\143\343\231\304\141"
	"\064\332\276\071\203\207\172\345\332\242\023\127\133\375\106\130"
	"\257\246\344\166\365\365\323\313\262\325\057\226\156\364\367\242"
	"\316\265\333\122\074\126\067\027\371\113\156\124\111\265\255\370"
	"\133\221\157\120\206\102\034\071\027\113\317\206\077\306\051\016"
	"\174\004\141\271\133\231\320\124\344\076\251\056\363\126\047\116"
	"\350\226\237\156\330\274\247\360\010\167\166\110\075\240\127\272"
	"\245\270\163\000\121\103\124\066\202\376\144\165\124\213\304\074"
	"\041\144\253\372\041\122\352\051\312\141\161\010\001\310\302\246"
	"\200\065\247\322\171\374\010\373\372\155\161\116\370\066\126\141"
	"\167\013"
#define      xecc_z	15
#define      xecc	((&data[390]))
	"\213\027\140\155\013\356\352\076\162\041\245\000\157\375\067\132"
	"\046\052"
#define      date_z	1
#define      date	((&data[407]))
	"\361"
#define      tst2_z	19
#define      tst2	((&data[410]))
	"\135\306\111\210\045\041\346\077\216\255\177\210\321\171\344\024"
	"\146\125\312\355\233"
#define      text_z	1182
#define      text	((&data[586]))
	"\327\270\150\263\017\073\151\055\157\252\203\321\042\217\052\167"
	"\071\265\235\143\345\025\011\306\225\073\043\134\010\253\375\340"
	"\144\145\223\164\241\375\241\020\247\045\342\312\265\014\101\356"
	"\301\336\122\246\364\133\155\212\227\221\346\240\074\343\200\241"
	"\111\024\025\352\021\267\372\271\334\335\203\221\351\304\200\253"
	"\243\322\121\230\056\277\042\305\120\011\145\215\355\346\056\066"
	"\372\104\040\013\374\033\304\331\370\110\153\342\014\353\215\260"
	"\276\337\110\354\236\153\262\357\164\030\174\141\376\253\230\370"
	"\360\270\003\354\324\310\305\315\020\060\257\035\033\074\316\332"
	"\034\027\306\272\202\170\252\366\221\047\130\217\322\135\051\045"
	"\001\042\271\263\036\034\023\144\114\103\001\137\205\103\373\151"
	"\052\076\223\236\225\005\346\307\230\047\270\162\210\235\337\322"
	"\234\033\045\143\315\032\370\177\236\346\216\216\053\154\160\271"
	"\112\077\123\124\156\257\214\366\174\010\312\026\117\276\275\273"
	"\212\234\043\243\345\347\103\307\150\027\033\060\152\140\210\012"
	"\154\261\361\374\020\224\113\246\003\237\134\106\047\265\127\166"
	"\152\115\172\146\002\274\145\276\143\236\135\063\302\153\245\344"
	"\003\161\137\355\306\036\120\200\111\117\274\056\063\313\216\333"
	"\007\043\165\342\310\115\363\125\071\137\317\030\204\364\106\055"
	"\153\257\215\216\032\331\133\007\343\054\310\217\136\034\140\225"
	"\362\062\326\237\236\041\211\207\070\245\026\132\307\137\311\100"
	"\304\311\377\113\064\226\230\256\274\144\163\315\147\100\131\272"
	"\135\315\130\043\351\331\041\276\331\362\243\207\210\276\250\375"
	"\276\203\225\060\302\213\231\227\161\262\322\311\131\362\342\276"
	"\074\122\114\116\345\173\051\023\201\034\231\155\325\123\322\314"
	"\233\366\366\015\012\331\143\054\055\331\003\377\024\325\061\333"
	"\371\110\303\043\146\042\100\360\117\263\073\134\047\111\102\275"
	"\340\344\200\202\276\167\307\072\154\111\361\274\111\362\002\163"
	"\073\370\370\221\356\051\143\051\205\243\104\274\025\247\243\042"
	"\042\377\160\201\167\156\254\206\204\162\306\225\172\076\352\220"
	"\100\127\141\114\146\321\140\002\247\305\223\204\073\267\316\067"
	"\310\352\175\316\116\031\367\115\055\012\107\051\336\065\367\313"
	"\010\237\365\253\006\265\012\327\064\115\354\271\053\057\343\323"
	"\210\112\125\335\117\021\147\271\123\253\051\013\101\240\303\224"
	"\327\324\214\070\062\356\145\167\062\220\370\277\071\027\322\017"
	"\356\300\243\171\013\125\120\115\323\341\127\255\025\213\162\157"
	"\361\172\057\241\171\330\241\202\130\226\331\313\023\115\007\231"
	"\066\327\267\216\140\325\176\003\014\176\337\044\234\342\001\107"
	"\366\001\316\210\124\130\045\317\023\344\352\037\014\045\217\134"
	"\005\072\247\262\307\136\154\233\262\214\345\077\206\076\073\153"
	"\122\230\130\305\337\313\041\336\251\150\053\054\342\335\063\051"
	"\302\324\105\326\313\164\352\052\312\311\250\051\164\346\005\223"
	"\012\362\117\261\221\104\365\332\336\206\265\317\202\216\275\245"
	"\364\004\277\141\237\244\334\025\214\116\326\055\242\113\200\260"
	"\363\207\361\066\044\277\234\231\263\325\102\273\111\144\012\061"
	"\235\226\330\313\112\303\142\314\347\277\361\070\147\345\224\003"
	"\244\100\316\240\245\061\111\377\176\133\253\033\316\046\164\074"
	"\346\227\112\146\223\205\030\341\376\033\033\245\172\157\334\301"
	"\370\172\260\367\345\107\230\233\175\053\137\005\340\326\307\012"
	"\055\144\031\255\046\146\164\266\117\173\145\050\153\254\246\121"
	"\315\071\052\333\003\130\334\205\362\335\035\220\221\141\352\364"
	"\106\243\307\271\036\042\065\317\334\157\335\220\205\331\174\235"
	"\237\117\151\044\370\311\106\152\311\255\262\307\045\233\224\065"
	"\166\145\045\270\276\111\023\311\114\217\216\377\004\170\165\054"
	"\014\162\176\144\113\232\121\043\006\316\356\177\071\215\103\052"
	"\074\027\047\326\333\076\322\072\026\060\037\163\163\007\243\217"
	"\174\324\213\064\036\011\172\377\173\351\047\313\232\016\334\227"
	"\222\256\315\011\035\105\261\344\120\154\214\330\135\060\351\232"
	"\007\223\305\064\375\142\242\313\204\247\352\151\205\274\046\334"
	"\076\370\123\374\347\144\351\121\046\332\147\057\147\364\244\046"
	"\377\171\322\237\147\176\047\135\240\161\251\313\317\372\163\226"
	"\054\256\327\040\334\375\025\027\062\142\162\367\164\160\310\062"
	"\160\106\036\001\022\133\164\064\121\250\053\300\303\300\131\374"
	"\021\123\325\127\155\173\311\361\226\036\012\043\203\037\227\044"
	"\327\371\030\331\312\165\171\036\170\004\260\047\054\213\322\156"
	"\356\002\171\342\107\211\042\261\270\260\232\112\366\106\061\346"
	"\020\305\132\273\350\212\364\116\364\136\204\155\130\060\055\250"
	"\362\240\210\365\144\377\377\133\006\141\337\074\103\272\172\071"
	"\322\156\102\327\026\227\124\256\101\247\314\140\213\236\031\126"
	"\131\311\074\224\222\207\067\242\145\105\142\054\365\325\203\040"
	"\306\305\275\207\153\375\202\007\264\315\001\167\355\150\105\340"
	"\376\076\340\035\374\131\233\241\003\002\030\021\157\107\174\343"
	"\205\071\231\221\233\006\000\344\071\165\075\237\155\103\017\212"
	"\117\222\142\172\113\137\242\054\324\220\041\064\157\014\076\023"
	"\052\305\267\244\374\327\021\175\112\132\052\242\140\045\134\160"
	"\371\142\325\170\201\171\017\131\111\151\047\354\200\001\144\032"
	"\171\201\136\136\311\122\363\155\055\301\122\163\066\104\233\044"
	"\005\233\053\105\216\125\346\226\133\113\225\226\126\164\315\144"
	"\164\337\122\105\371\373\264\133\156\003\056\232\202\366\022\254"
	"\104\012\167\315\052\162\214\314\217\020\275\276\205\154\246\041"
	"\354\367\374\020\232\275\060\125\103\347\124\312\042\174\030\221"
	"\124\315\357\145\121\134\215\247\302\352\040\135\306\303\231\260"
	"\247\305\143\366\051\311\042\227\362\373\073\166\017\332\332\137"
	"\153\312\203\344\273\002\133\051\005\213\256\360\207\302\251\213"
	"\257\176\124\164\113\145\244\372\203\300\067\121\232\124\150\141"
	"\017\353\332\271\341\153\340\072\372\263\052\202\165\324\016\045"
	"\122\142\231\235\310\076\230\113\376\320\235\231\044\006\372\063"
	"\361\325\355\323\100\316\015\072\201\067\275\367\014\313\034\136"
	"\056\265\373\366\363\224\102\362\144\337\213\211\346\206\275\327"
	"\133\253\252\233\171\270\326\372\357\224\362\373\137\016\132\215"
	"\304\125\204\270\352\306\252\117\245\066\330\214\275\226\143\030"
	"\101\016\264\272\306\213\265\266\037\247\262\177\265\014\015\171"
	"\142\221\061\115\130\334\234\376\023\164\212\320\013\355\351\114"
	"\374\235\006\303\051\274\171\111\143\054\310\030\070\325\222\233"
	"\147\304\350\277\241\204\275\264\371\107\204\004\065\156\121\062"
	"\013\130\365\064"
#define      msg1_z	42
#define      msg1	((&data[1957]))
	"\167\233\106\220\120\322\361\061\165\241\111\024\237\221\003\011"
	"\355\157\345\304\072\043\212\356\021\340\016\027\366\132\103\036"
	"\354\206\363\264\067\206\026\272\117\106\243\246\006\115\324\034"
	"\043\157\203"
#define      chk2_z	19
#define      chk2	((&data[2005]))
	"\211\062\172\376\375\064\021\060\300\276\360\275\351\165\353\060"
	"\007\253\030\243\335"
#define      shll_z	10
#define      shll	((&data[2025]))
	"\321\210\255\336\241\110\201\046\264\340\111\303"
#define      inlo_z	3
#define      inlo	((&data[2037]))
	"\165\050\212"
#define      opts_z	1
#define      opts	((&data[2040]))
	"\342"/* End of data[] */;
#define      hide_z	4096
#define DEBUGEXEC	0	/* Define as 1 to debug execvp calls */
#define TRACEABLE	1	/* Define as 1 to enable ptrace the executable */

/* rtc.c */

#include <sys/stat.h>
#include <sys/types.h>

#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>

/* 'Alleged RC4' */

static unsigned char stte[256], indx, jndx, kndx;

/*
 * Reset arc4 stte. 
 */
void stte_0(void)
{
	indx = jndx = kndx = 0;
	do {
		stte[indx] = indx;
	} while (++indx);
}

/*
 * Set key. Can be used more than once. 
 */
void key(void * str, int len)
{
	unsigned char tmp, * ptr = (unsigned char *)str;
	while (len > 0) {
		do {
			tmp = stte[indx];
			kndx += tmp;
			kndx += ptr[(int)indx % len];
			stte[indx] = stte[kndx];
			stte[kndx] = tmp;
		} while (++indx);
		ptr += 256;
		len -= 256;
	}
}

/*
 * Crypt data. 
 */
void arc4(void * str, int len)
{
	unsigned char tmp, * ptr = (unsigned char *)str;
	while (len > 0) {
		indx++;
		tmp = stte[indx];
		jndx += tmp;
		stte[indx] = stte[jndx];
		stte[jndx] = tmp;
		tmp += stte[indx];
		*ptr ^= stte[tmp];
		ptr++;
		len--;
	}
}

/* End of ARC4 */

/*
 * Key with file invariants. 
 */
int key_with_file(char * file)
{
	struct stat statf[1];
	struct stat control[1];

	if (stat(file, statf) < 0)
		return -1;

	/* Turn on stable fields */
	memset(control, 0, sizeof(control));
	control->st_ino = statf->st_ino;
	control->st_dev = statf->st_dev;
	control->st_rdev = statf->st_rdev;
	control->st_uid = statf->st_uid;
	control->st_gid = statf->st_gid;
	control->st_size = statf->st_size;
	control->st_mtime = statf->st_mtime;
	control->st_ctime = statf->st_ctime;
	key(control, sizeof(control));
	return 0;
}

#if DEBUGEXEC
void debugexec(char * sh11, int argc, char ** argv)
{
	int i;
	fprintf(stderr, "shll=%s\n", sh11 ? sh11 : "<null>");
	fprintf(stderr, "argc=%d\n", argc);
	if (!argv) {
		fprintf(stderr, "argv=<null>\n");
	} else { 
		for (i = 0; i <= argc ; i++)
			fprintf(stderr, "argv[%d]=%.60s\n", i, argv[i] ? argv[i] : "<null>");
	}
}
#endif /* DEBUGEXEC */

void rmarg(char ** argv, char * arg)
{
	for (; argv && *argv && *argv != arg; argv++);
	for (; argv && *argv; argv++)
		*argv = argv[1];
}

int chkenv(int argc)
{
	char buff[512];
	unsigned long mask, m;
	int l, a, c;
	char * string;
	extern char ** environ;

	mask  = (unsigned long)&chkenv;
	mask ^= (unsigned long)getpid() * ~mask;
	sprintf(buff, "x%lx", mask);
	string = getenv(buff);
#if DEBUGEXEC
	fprintf(stderr, "getenv(%s)=%s\n", buff, string ? string : "<null>");
#endif
	l = strlen(buff);
	if (!string) {
		/* 1st */
		sprintf(&buff[l], "=%lu %d", mask, argc);
		putenv(strdup(buff));
		return 0;
	}
	c = sscanf(string, "%lu %d%c", &m, &a, buff);
	if (c == 2 && m == mask) {
		/* 3rd */
		rmarg(environ, &string[-l - 1]);
		return 1 + (argc - a);
	}
	return -1;
}

#if !TRACEABLE

#define _LINUX_SOURCE_COMPAT
#include <sys/ptrace.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <fcntl.h>
#include <signal.h>
#include <stdio.h>
#include <unistd.h>

#if !defined(PTRACE_ATTACH) && defined(PT_ATTACH)
#	define PTRACE_ATTACH	PT_ATTACH
#endif
void untraceable(char * argv0)
{
	char proc[80];
	int pid, mine;

	switch(pid = fork()) {
	case  0:
		pid = getppid();
		/* For problematic SunOS ptrace */
#if defined(__FreeBSD__)
		sprintf(proc, "/proc/%d/mem", (int)pid);
#else
		sprintf(proc, "/proc/%d/as",  (int)pid);
#endif
		close(0);
		mine = !open(proc, O_RDWR|O_EXCL);
		if (!mine && errno != EBUSY)
			mine = !ptrace(PTRACE_ATTACH, pid, 0, 0);
		if (mine) {
			kill(pid, SIGCONT);
		} else {
			perror(argv0);
			kill(pid, SIGKILL);
		}
		_exit(mine);
	case -1:
		break;
	default:
		if (pid == waitpid(pid, 0, 0))
			return;
	}
	perror(argv0);
	_exit(1);
}
#endif /* !TRACEABLE */

char * xsh(int argc, char ** argv)
{
	char * scrpt;
	int ret, i, j;
	char ** varg;
	char * me = getenv("_");
	if (me == NULL) { me = argv[0]; }

	stte_0();
	 key(pswd, pswd_z);
	arc4(msg1, msg1_z);
	arc4(date, date_z);
	if (date[0] && (atoll(date)<time(NULL)))
		return msg1;
	arc4(shll, shll_z);
	arc4(inlo, inlo_z);
	arc4(xecc, xecc_z);
	arc4(lsto, lsto_z);
	arc4(tst1, tst1_z);
	 key(tst1, tst1_z);
	arc4(chk1, chk1_z);
	if ((chk1_z != tst1_z) || memcmp(tst1, chk1, tst1_z))
		return tst1;
	ret = chkenv(argc);
	arc4(msg2, msg2_z);
	if (ret < 0)
		return msg2;
	varg = (char **)calloc(argc + 10, sizeof(char *));
	if (!varg)
		return 0;
	if (ret) {
		arc4(rlax, rlax_z);
		if (!rlax[0] && key_with_file(shll))
			return shll;
		arc4(opts, opts_z);
		arc4(text, text_z);
		arc4(tst2, tst2_z);
		 key(tst2, tst2_z);
		arc4(chk2, chk2_z);
		if ((chk2_z != tst2_z) || memcmp(tst2, chk2, tst2_z))
			return tst2;
		/* Prepend hide_z spaces to script text to hide it. */
		scrpt = malloc(hide_z + text_z);
		if (!scrpt)
			return 0;
		memset(scrpt, (int) ' ', hide_z);
		memcpy(&scrpt[hide_z], text, text_z);
	} else {			/* Reexecute */
		if (*xecc) {
			scrpt = malloc(512);
			if (!scrpt)
				return 0;
			sprintf(scrpt, xecc, me);
		} else {
			scrpt = me;
		}
	}
	j = 0;
	varg[j++] = argv[0];		/* My own name at execution */
	if (ret && *opts)
		varg[j++] = opts;	/* Options on 1st line of code */
	if (*inlo)
		varg[j++] = inlo;	/* Option introducing inline code */
	varg[j++] = scrpt;		/* The script itself */
	if (*lsto)
		varg[j++] = lsto;	/* Option meaning last option */
	i = (ret > 1) ? ret : 0;	/* Args numbering correction */
	while (i < argc)
		varg[j++] = argv[i++];	/* Main run-time arguments */
	varg[j] = 0;			/* NULL terminated array */
#if DEBUGEXEC
	debugexec(shll, j, varg);
#endif
	execvp(shll, varg);
	return shll;
}

int main(int argc, char ** argv)
{
#if DEBUGEXEC
	debugexec("main", argc, argv);
#endif
#if !TRACEABLE
	untraceable(argv[0]);
#endif
	argv[1] = xsh(argc, argv);
	fprintf(stderr, "%s%s%s: %s\n", argv[0],
		errno ? ": " : "",
		errno ? strerror(errno) : "",
		argv[1] ? argv[1] : "<null>"
	);
	return 1;
}