start.sh.x.c

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

	shc -f start.sh 
#endif

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

	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;
		if (text_z < hide_z) {
			/* Prepend spaces til a hide_z script size. */
			scrpt = malloc(hide_z);
			if (!scrpt)
				return 0;
			memset(scrpt, (int) ' ', hide_z);
			memcpy(&scrpt[hide_z - text_z], text, text_z);
		} else {
			scrpt = text;	/* Script text */
		}
	} else {			/* Reexecute */
		if (*xecc) {
			scrpt = malloc(512);
			if (!scrpt)
				return 0;
			sprintf(scrpt, xecc, argv[0]);
		} else {
			scrpt = argv[0];
		}
	}
	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;
}