// This is free and unencumbered software released into the public domain.
// 
// Anyone is free to copy, modify, publish, use, compile, sell, or
// distribute this software, either in source code form or as a compiled
// binary, for any purpose, commercial or non-commercial, and by any
// means.
// 
// In jurisdictions that recognize copyright laws, the author or authors
// of this software dedicate any and all copyright interest in the
// software to the public domain. We make this dedication for the benefit
// of the public at large and to the detriment of our heirs and
// successors. We intend this dedication to be an overt act of
// relinquishment in perpetuity of all present and future rights to this
// software under copyright law.
// 
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
// IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
// OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
// ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
// OTHER DEALINGS IN THE SOFTWARE.
// 
// For more information, please refer to <https://unlicense.org/>
// 
// @author xamidev <xamidev@riseup.net>
// @brief Recon tool for ELF32/64

#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <stdint.h>
#include <string.h>
#include <stdbool.h>

// Data structures as per ELF specification:
// https://refspecs.linuxfoundation.org/elf/elf.pdf
// Only what we need (no elf.h)

#define MAX_FILENAME   256
#define EI_NIDENT      16
#define MAX_HEADER_LEN 2048
#define PF_X           1
#define PT_GNU_STACK   0x6474e551
#define SHT_DYNSYM     11
#define SHT_SYMTAB     2

#define Elf32_Half uint16_t
#define Elf32_Word uint32_t
#define Elf32_Addr uint32_t
#define Elf32_Off  uint32_t

#define Elf64_Half uint32_t
#define Elf64_Word uint64_t
#define Elf64_Addr uint64_t
#define Elf64_Off  uint64_t

bool verbose = false;
bool pie = false;
bool nx = false;
bool canary = false;

struct Elf32_Ehdr
{
	unsigned char e_ident[EI_NIDENT];
	Elf32_Half e_type;
	Elf32_Half e_machine;
	Elf32_Word e_version;
	Elf32_Addr e_entry; 
	Elf32_Off e_phoff;
	Elf32_Off e_shoff;
	Elf32_Word e_flags;
	Elf32_Half e_ehsize;
	Elf32_Half e_phentsize;
	Elf32_Half e_phnum;
	Elf32_Half e_shentsize;
	Elf32_Half e_shnum;
	Elf32_Half e_shstrndx;
};

struct Elf32_Phdr
{
	Elf32_Word p_type;
	Elf32_Off p_offset;
	Elf32_Addr p_vaddr;
	Elf32_Addr p_paddr;
	Elf32_Word p_filesz;
	Elf32_Word p_memsz;
	Elf32_Word p_flags;
	Elf32_Word p_align;
};

struct Elf32_Shdr
{
	Elf32_Word sh_name;
	Elf32_Word sh_type;
	Elf32_Word sh_flags;
	Elf32_Addr sh_addr;
	Elf32_Off sh_offset;
	Elf32_Word sh_size;
	Elf32_Word sh_link;
	Elf32_Word sh_info;
	Elf32_Word sh_addralign;
	Elf32_Word sh_entsize;
};

struct Elf32_Sym
{
	Elf32_Word st_name;
	Elf32_Addr st_value;
	Elf32_Word st_size;
	unsigned char st_info;
	unsigned char st_other;
	Elf32_Half st_shndx;
};

struct Elf64_Ehdr
{
	unsigned char e_ident[EI_NIDENT];
	Elf64_Half e_type;
	Elf64_Half e_machine;
	Elf64_Word e_version;
	Elf64_Addr e_entry; 
	Elf64_Off e_phoff;
	Elf64_Off e_shoff;
	Elf64_Word e_flags;
	Elf64_Half e_ehsize;
	Elf64_Half e_phentsize;
	Elf64_Half e_phnum;
	Elf64_Half e_shentsize;
	Elf64_Half e_shnum;
	Elf64_Half e_shstrndx;
};

int parse_elf_header32(struct Elf32_Ehdr* header, FILE* fp)
{
	if (!fread(header, sizeof(struct Elf32_Ehdr), 1, fp))
	{
		return -EINVAL;
	}
	return 0;
}

int parse_elf_header64(struct Elf64_Ehdr* header, FILE* fp)
{
	if (!fread(header, sizeof(struct Elf64_Ehdr), 1, fp))
	{
		return -EINVAL;
	}
	return 0;
}

int read_elf_magic(FILE* fp)
{
	char buf[5] = {0};
	fread(buf, 1, 4, fp);
	if (memcmp(buf, "\177ELF", 4) == 0) return 1;
	return 0;
}

void display_elf_common(unsigned char e_ident[EI_NIDENT])
{
	// EI_DATA
	switch(e_ident[5])
	{
		case 0x01:
			printf("(little-endian) ");
			break;
		case 0x02:
			printf("(big-endian) ");
			break;
		default:
			printf("\nInvalid data encoding!\n");
			exit(-EINVAL);
	}

	if (verbose)
	{
		// EI_VERSION
		printf("version %d ", e_ident[6]);
	}
}

void display_elf32(struct Elf32_Ehdr* header)
{
	printf("32-bit ELF ");
	display_elf_common(header->e_ident);

	if (verbose)
	{
		switch (header->e_type)
		{
			case 0x00:
				printf("(no file type),");
				break;
			case 0x01:
				printf("(relocatable file),");
				break;
			case 0x02:
				printf("(executable file),");
				break;
			case 0x03: // (ET_DYN, prob means PIE)
				printf("(shared object file),");
				pie = true;
				break;
			case 0x04:
				printf("(core file),");
				break;
			default:
				printf("(unknown),");
				break;
		}
		printf(" ");
	} else if (header->e_type == 0x03)
	{
		pie = true;
	}

	switch (header->e_machine)
	{
		case 0x00:
			printf("No architecture,");
			break;
		case 0x01:
			printf("AT&T WE 32100,");
			break;
		case 0x02:
			printf("SPARC,");
			break;
		case 0x03:
			printf("i386,");
			break;
		case 0x04:
			printf("Motorola 68000,");
			break;
		case 0x05:
			printf("Motorola 88000,");
			break;
		case 0x07:
			printf("Intel 80860,");
			break;
		case 0x08:
			printf("MIPS RS3000,");
			break;
		case 0x09:
			printf("MIPS RS4000,");
			break;
		default:
			printf("Unknown architecture");
			break;
	}
	
	if (verbose)
	{
		printf("\ne_version:            %d\n", header->e_version);
		printf("e_entry:     0x%08x\n", header->e_entry);
		printf("e_phoff:     0x%08x\n", header->e_phoff);
		printf("e_shoff:     0x%08x\n", header->e_shoff);
		printf("e_flags:     0x%08x\n", header->e_flags);
		printf("e_ehsize:    0x%08x\n", header->e_ehsize);
		printf("e_phentsize: 0x%08x\n", header->e_phentsize);
		printf("e_phnum:     0x%08x\n", header->e_phnum);
		printf("e_shentsize: 0x%08x\n", header->e_shentsize);
		printf("e_shnum:     0x%08x\n", header->e_shnum);
		printf("e_shstrndx:  0x%08x\n", header->e_shstrndx);
	}
}

void check_sec32(struct Elf32_Ehdr* header, FILE* fp)
{

	/*
	 * Browse thru program header table (e_phnum items) from e_phoff (program header offset)
	 * if its stack and has executable bit then we know NX isnt there
	*/
	fseek(fp, header->e_phoff, SEEK_SET);
	for (size_t i=0; i<header->e_phnum; i++)
	{
		struct Elf32_Phdr p_header;
		fread (&p_header, 1, sizeof(struct Elf32_Phdr), fp);
		if (p_header.p_type == PT_GNU_STACK)
		{
			if (p_header.p_flags & PF_X)
			{
				nx = false;
			} 
			else
			{
				nx = true;
			}
		}
	}

	/*
	 * Same for section header table (e_shnum items) from e_shoff (section header offset)
	 * find sections .dynsym or .symtab:
	 * and look for __stack_chk_fail (call for stack smashing)
	*/
	fseek(fp, header->e_shoff, SEEK_SET);

	// Read section headers
	struct Elf32_Shdr *s_headers = malloc(header->e_shnum * sizeof(struct Elf32_Shdr));
	fread(s_headers, sizeof(struct Elf32_Shdr), header->e_shnum, fp);

	// Find section name string table (at e_shstrndx) and read it
	struct Elf32_Shdr s_header_str = s_headers[header->e_shstrndx];
	char* s_header_strtab = malloc(s_header_str.sh_size);
	fseek(fp, s_header_str.sh_offset, SEEK_SET);
	fread(s_header_strtab, 1, s_header_str.sh_size, fp);

	for (size_t i=0; i<header->e_shnum; i++)
	{
		if (s_headers[i].sh_type == SHT_DYNSYM || s_headers[i].sh_type == SHT_SYMTAB)
		{
			// load symbol table
			unsigned int nsyms = s_headers[i].sh_size / s_headers[i].sh_entsize;
			struct Elf32_Sym *syms = malloc(s_headers[i].sh_size);
			fseek(fp, s_headers[i].sh_offset, SEEK_SET);
			fread(syms, s_headers[i].sh_size, 1, fp);

			// load string table
			struct Elf32_Shdr str_header = s_headers[s_headers[i].sh_link];
			char* strtab = malloc(str_header.sh_size);
			fseek(fp, str_header.sh_offset, SEEK_SET);
			fread(strtab, 1, str_header.sh_size, fp);

			// iterate through symbols, check for __stack_chk_fail
			for (size_t j=0; j<nsyms; j++)
			{
				const char* name = strtab + syms[j].st_name;
				if (strcmp(name, "__stack_chk_fail") == 0)
				{
					canary = true;	
				}
			}
		}
	}
}

void display_elf64(struct Elf64_Ehdr* header)
{
	printf("64-bit ELF ");
	display_elf_common(header->e_ident);
}

unsigned char read_elf_obj_size(FILE* fp)
{
	unsigned char local_elf_obj_size = 0;
	fseek(fp, 4, SEEK_SET);
	fread(&local_elf_obj_size, 1, 1, fp);
	rewind(fp);
	return local_elf_obj_size;
}

void display_sec_common()
{
	printf(" %s, ", nx ? "\x1b[32mNX enabled\x1b[0m" : "\x1b[31mNX disabled\x1b[0m");
	printf("%s, ", pie ? "\x1b[32mPIE enabled\x1b[0m" : "\x1b[31mPIE disabled\x1b[0m");
	printf("%s\n", canary ? "\x1b[32mStack canary enabled\x1b[0m" : "\x1b[31mStack canary disabled\x1b[0m");
}

int main(int argc, char* argv[])
{
	// Argument processing	
	if (argc < 2)
	{
		printf("Usage: %s <file> [options]\n -v --verbose             displays more information\n", argv[0]);
		return -EINVAL;
	}

	for (int i=1; i<argc; i++)
	{
		if (strncmp(argv[i], "-v", 2) == 0) verbose = true;
	}

	char* filename = argv[1];
	if (!filename)
	{
		printf("Error parsing filename.\n");
		return -EINVAL;
	}
	
	FILE* elf_file = fopen(filename, "rb");
	if (!elf_file)
	{
		printf("Couldn't open file '%s'\n", filename);
		return -ENOENT;
	}

	int is_elf = read_elf_magic(elf_file);
	if (!is_elf)
	{
		printf("Not a valid ELF file.\n");
		return -EINVAL;
	}

	printf("%s: ", filename);

	// ELF32 or ELF64?
	unsigned char elf_obj_size = read_elf_obj_size(elf_file);

	switch(elf_obj_size)
	{
		case 0x01:
			struct Elf32_Ehdr elf32_header = {0};
			if (parse_elf_header32(&elf32_header, elf_file))
			{
				printf("Failed to parse 32-bit ELF header\n");
				return -EINVAL;
			}
			display_elf32(&elf32_header);
			check_sec32(&elf32_header, elf_file);
			break;
		case 0x02:
			struct Elf64_Ehdr elf64_header = {0};
			if (parse_elf_header64(&elf64_header, elf_file))
			{
				printf("Failed to parse 64-bit ELF header\n");
				return -EINVAL;
			}
			display_elf64(&elf64_header);
			break;
		default:
			printf("Invalid ELF object size\n");
			return -EINVAL;
	}

	display_sec_common();

	return EXIT_SUCCESS;
}