mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-04 09:09:56 +00:00
Teach crunch about an elf/a.out world.
Submitted by: jhay
This commit is contained in:
parent
6cd35234a0
commit
2ec21a68f0
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=39172
@ -1,4 +1,6 @@
|
||||
|
||||
PROG= crunchide
|
||||
|
||||
SRCS= crunchide.c exec_aout.c exec_elf32.c exec_elf64.c
|
||||
|
||||
.include <bsd.prog.mk>
|
||||
|
@ -1,4 +1,6 @@
|
||||
/* $NetBSD: crunchide.c,v 1.8 1997/11/01 06:51:45 lukem Exp $ */
|
||||
/*
|
||||
* Copyright (c) 1997 Christopher G. Demetriou. All rights reserved.
|
||||
* Copyright (c) 1994 University of Maryland
|
||||
* All Rights Reserved.
|
||||
*
|
||||
@ -56,32 +58,45 @@
|
||||
* that the final crunched binary BSS size is the max of all the
|
||||
* component programs' BSS sizes, rather than their sum.
|
||||
*/
|
||||
#include <a.out.h>
|
||||
#include <err.h>
|
||||
#include <fcntl.h>
|
||||
#include <sys/cdefs.h>
|
||||
#ifndef lint
|
||||
__RCSID("$NetBSD: crunchide.c,v 1.8 1997/11/01 06:51:45 lukem Exp $");
|
||||
#endif
|
||||
|
||||
#include <unistd.h>
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <unistd.h>
|
||||
#include <fcntl.h>
|
||||
#include <a.out.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <sys/errno.h>
|
||||
|
||||
#include "extern.h"
|
||||
|
||||
char *pname = "crunchide";
|
||||
|
||||
void usage(void);
|
||||
|
||||
void add_to_keep_list(char *symbol);
|
||||
void add_file_to_keep_list(char *filename);
|
||||
|
||||
void hide_syms(char *filename);
|
||||
int hide_syms(const char *filename);
|
||||
|
||||
int verbose;
|
||||
|
||||
int main __P((int, char *[]));
|
||||
|
||||
int main(argc, argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
int ch;
|
||||
int ch, errors;
|
||||
|
||||
while ((ch = getopt(argc, argv, "k:f:")) != -1)
|
||||
if(argc > 0) pname = argv[0];
|
||||
|
||||
while ((ch = getopt(argc, argv, "k:f:v")) != -1)
|
||||
switch(ch) {
|
||||
case 'k':
|
||||
add_to_keep_list(optarg);
|
||||
@ -89,6 +104,9 @@ char **argv;
|
||||
case 'f':
|
||||
add_file_to_keep_list(optarg);
|
||||
break;
|
||||
case 'v':
|
||||
verbose = 1;
|
||||
break;
|
||||
default:
|
||||
usage();
|
||||
}
|
||||
@ -98,18 +116,21 @@ char **argv;
|
||||
|
||||
if(argc == 0) usage();
|
||||
|
||||
errors = 0;
|
||||
while(argc) {
|
||||
hide_syms(*argv);
|
||||
if (hide_syms(*argv))
|
||||
errors = 1;
|
||||
argc--, argv++;
|
||||
}
|
||||
|
||||
return 0;
|
||||
return errors;
|
||||
}
|
||||
|
||||
void usage(void)
|
||||
{
|
||||
fprintf(stderr,
|
||||
"usage: crunchide [-k <symbol-name>] [-f <keep-list-file>] <files> ...\n");
|
||||
"Usage: %s [-k <symbol-name>] [-f <keep-list-file>] <files> ...\n",
|
||||
pname);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
@ -125,6 +146,8 @@ void add_to_keep_list(char *symbol)
|
||||
struct keep *newp, *prevp, *curp;
|
||||
int cmp;
|
||||
|
||||
cmp = 0;
|
||||
|
||||
for(curp = keep_list, prevp = NULL; curp; prevp = curp, curp = curp->next)
|
||||
if((cmp = strcmp(symbol, curp->sym)) <= 0) break;
|
||||
|
||||
@ -134,7 +157,8 @@ void add_to_keep_list(char *symbol)
|
||||
newp = (struct keep *) malloc(sizeof(struct keep));
|
||||
if(newp) newp->sym = strdup(symbol);
|
||||
if(newp == NULL || newp->sym == NULL) {
|
||||
errx(1, "out of memory for keep list");
|
||||
fprintf(stderr, "%s: out of memory for keep list\n", pname);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
newp->next = curp;
|
||||
@ -142,11 +166,13 @@ void add_to_keep_list(char *symbol)
|
||||
else keep_list = newp;
|
||||
}
|
||||
|
||||
int in_keep_list(char *symbol)
|
||||
int in_keep_list(const char *symbol)
|
||||
{
|
||||
struct keep *curp;
|
||||
int cmp;
|
||||
|
||||
cmp = 0;
|
||||
|
||||
for(curp = keep_list; curp; curp = curp->next)
|
||||
if((cmp = strcmp(symbol, curp->sym)) <= 0) break;
|
||||
|
||||
@ -160,7 +186,7 @@ void add_file_to_keep_list(char *filename)
|
||||
int len;
|
||||
|
||||
if((keepf = fopen(filename, "r")) == NULL) {
|
||||
warn("%s", filename);
|
||||
perror(filename);
|
||||
usage();
|
||||
}
|
||||
|
||||
@ -174,141 +200,68 @@ void add_file_to_keep_list(char *filename)
|
||||
fclose(keepf);
|
||||
}
|
||||
|
||||
/* ---------------------- */
|
||||
/* ---------------------------- */
|
||||
|
||||
int nsyms, ntextrel, ndatarel;
|
||||
struct exec *hdrp;
|
||||
char *aoutdata, *strbase;
|
||||
struct relocation_info *textrel, *datarel;
|
||||
struct nlist *symbase;
|
||||
|
||||
|
||||
#define SYMSTR(sp) &strbase[(sp)->n_un.n_strx]
|
||||
|
||||
/* is the symbol a global symbol defined in the current file? */
|
||||
#define IS_GLOBAL_DEFINED(sp) \
|
||||
(((sp)->n_type & N_EXT) && ((sp)->n_type & N_TYPE) != N_UNDF)
|
||||
|
||||
/* is the relocation entry dependent on a symbol? */
|
||||
#define IS_SYMBOL_RELOC(rp) \
|
||||
((rp)->r_extern||(rp)->r_baserel||(rp)->r_jmptable)
|
||||
|
||||
void check_reloc(char *filename, struct relocation_info *relp);
|
||||
|
||||
void hide_syms(char *filename)
|
||||
{
|
||||
int inf, rc;
|
||||
struct stat infstat;
|
||||
struct relocation_info *relp;
|
||||
struct nlist *symp;
|
||||
|
||||
/*
|
||||
* Open the file and do some error checking.
|
||||
*/
|
||||
|
||||
if((inf = open(filename, O_RDWR)) == -1) {
|
||||
warn("%s", filename);
|
||||
return;
|
||||
}
|
||||
|
||||
if(fstat(inf, &infstat) == -1) {
|
||||
warn("%s", filename);
|
||||
close(inf);
|
||||
return;
|
||||
}
|
||||
|
||||
if(infstat.st_size < sizeof(struct exec)) {
|
||||
warnx("%s: short file", filename);
|
||||
close(inf);
|
||||
return;
|
||||
}
|
||||
|
||||
/*
|
||||
* Read the entire file into memory. XXX - Really, we only need to
|
||||
* read the header and from TRELOFF to the end of the file.
|
||||
*/
|
||||
|
||||
if((aoutdata = (char *) malloc(infstat.st_size)) == NULL) {
|
||||
warnx("%s: too big to read into memory", filename);
|
||||
close(inf);
|
||||
return;
|
||||
}
|
||||
|
||||
if((rc = read(inf, aoutdata, infstat.st_size)) < infstat.st_size) {
|
||||
warnx("%s: read error: %s", filename,
|
||||
rc == -1? strerror(errno) : "short read");
|
||||
close(inf);
|
||||
return;
|
||||
}
|
||||
|
||||
/*
|
||||
* Check the header and calculate offsets and sizes from it.
|
||||
*/
|
||||
|
||||
hdrp = (struct exec *) aoutdata;
|
||||
|
||||
if(N_BADMAG(*hdrp)) {
|
||||
warnx("%s: bad magic: not an a.out file", filename);
|
||||
close(inf);
|
||||
return;
|
||||
}
|
||||
|
||||
#ifdef __FreeBSD__
|
||||
textrel = (struct relocation_info *) (aoutdata + N_RELOFF(*hdrp));
|
||||
datarel = (struct relocation_info *) (aoutdata + N_RELOFF(*hdrp) +
|
||||
hdrp->a_trsize);
|
||||
#else
|
||||
textrel = (struct relocation_info *) (aoutdata + N_TRELOFF(*hdrp));
|
||||
datarel = (struct relocation_info *) (aoutdata + N_DRELOFF(*hdrp));
|
||||
struct {
|
||||
const char *name;
|
||||
int (*check)(int, const char *); /* 1 if match, zero if not */
|
||||
int (*hide)(int, const char *); /* non-zero if error */
|
||||
} exec_formats[] = {
|
||||
#ifdef NLIST_AOUT
|
||||
{ "a.out", check_aout, hide_aout, },
|
||||
#endif
|
||||
symbase = (struct nlist *) (aoutdata + N_SYMOFF(*hdrp));
|
||||
strbase = (char *) (aoutdata + N_STROFF(*hdrp));
|
||||
#ifdef NLIST_ECOFF
|
||||
{ "ECOFF", check_ecoff, hide_ecoff, },
|
||||
#endif
|
||||
#ifdef NLIST_ELF32
|
||||
{ "ELF32", check_elf32, hide_elf32, },
|
||||
#endif
|
||||
#ifdef NLIST_ELF64
|
||||
{ "ELF64", check_elf64, hide_elf64, },
|
||||
#endif
|
||||
};
|
||||
|
||||
ntextrel = hdrp->a_trsize / sizeof(struct relocation_info);
|
||||
ndatarel = hdrp->a_drsize / sizeof(struct relocation_info);
|
||||
nsyms = hdrp->a_syms / sizeof(struct nlist);
|
||||
|
||||
/*
|
||||
* Zap the type field of all globally-defined symbols. The linker will
|
||||
* subsequently ignore these entries. Don't zap any symbols in the
|
||||
* keep list.
|
||||
*/
|
||||
|
||||
for(symp = symbase; symp < symbase + nsyms; symp++)
|
||||
if(IS_GLOBAL_DEFINED(symp) && !in_keep_list(SYMSTR(symp)))
|
||||
symp->n_type = 0;
|
||||
|
||||
/*
|
||||
* Check whether the relocation entries reference any symbols that we
|
||||
* just zapped. I don't know whether ld can handle this case, but I
|
||||
* haven't encountered it yet. These checks are here so that the program
|
||||
* doesn't fail silently should such symbols be encountered.
|
||||
*/
|
||||
|
||||
for(relp = textrel; relp < textrel + ntextrel; relp++)
|
||||
check_reloc(filename, relp);
|
||||
for(relp = datarel; relp < datarel + ndatarel; relp++)
|
||||
check_reloc(filename, relp);
|
||||
|
||||
/*
|
||||
* Write the .o file back out to disk. XXX - Really, we only need to
|
||||
* write the symbol table entries back out.
|
||||
*/
|
||||
lseek(inf, 0, SEEK_SET);
|
||||
if((rc = write(inf, aoutdata, infstat.st_size)) < infstat.st_size) {
|
||||
warnx("%s: write error: %s", filename,
|
||||
rc == -1? strerror(errno) : "short write");
|
||||
}
|
||||
|
||||
close(inf);
|
||||
}
|
||||
|
||||
|
||||
void check_reloc(char *filename, struct relocation_info *relp)
|
||||
int hide_syms(const char *filename)
|
||||
{
|
||||
/* bail out if we zapped a symbol that is needed */
|
||||
if(IS_SYMBOL_RELOC(relp) && symbase[relp->r_symbolnum].n_type == 0) {
|
||||
errx(1, "%s: oops, have hanging relocation for %s: bailing out!",
|
||||
filename, SYMSTR(&symbase[relp->r_symbolnum]));
|
||||
}
|
||||
int fd, i, n, rv;
|
||||
|
||||
fd = open(filename, O_RDWR, 0);
|
||||
if (fd == -1) {
|
||||
perror(filename);
|
||||
return 1;
|
||||
}
|
||||
|
||||
rv = 0;
|
||||
|
||||
n = sizeof exec_formats / sizeof exec_formats[0];
|
||||
for (i = 0; i < n; i++) {
|
||||
if (lseek(fd, 0, SEEK_SET) != 0) {
|
||||
perror(filename);
|
||||
goto err;
|
||||
}
|
||||
if ((*exec_formats[i].check)(fd, filename) != 0)
|
||||
break;
|
||||
}
|
||||
if (i == n) {
|
||||
fprintf(stderr, "%s: unknown executable format\n", filename);
|
||||
goto err;
|
||||
}
|
||||
|
||||
if (verbose)
|
||||
fprintf(stderr, "%s is an %s binary\n", filename,
|
||||
exec_formats[i].name);
|
||||
|
||||
if (lseek(fd, 0, SEEK_SET) != 0) {
|
||||
perror(filename);
|
||||
goto err;
|
||||
}
|
||||
rv = (*exec_formats[i].hide)(fd, filename);
|
||||
|
||||
out:
|
||||
close (fd);
|
||||
return (rv);
|
||||
|
||||
err:
|
||||
rv = 1;
|
||||
goto out;
|
||||
}
|
||||
|
203
usr.sbin/crunch/crunchide/exec_aout.c
Normal file
203
usr.sbin/crunch/crunchide/exec_aout.c
Normal file
@ -0,0 +1,203 @@
|
||||
/* $NetBSD: exec_aout.c,v 1.6 1997/08/02 21:30:17 perry Exp $ */
|
||||
/*
|
||||
* Copyright (c) 1997 Christopher G. Demetriou. All rights reserved.
|
||||
* Copyright (c) 1994 University of Maryland
|
||||
* All Rights Reserved.
|
||||
*
|
||||
* Permission to use, copy, modify, distribute, and sell this software and its
|
||||
* documentation for any purpose is hereby granted without fee, provided that
|
||||
* the above copyright notice appear in all copies and that both that
|
||||
* copyright notice and this permission notice appear in supporting
|
||||
* documentation, and that the name of U.M. not be used in advertising or
|
||||
* publicity pertaining to distribution of the software without specific,
|
||||
* written prior permission. U.M. makes no representations about the
|
||||
* suitability of this software for any purpose. It is provided "as is"
|
||||
* without express or implied warranty.
|
||||
*
|
||||
* U.M. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL U.M.
|
||||
* BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
|
||||
* OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
|
||||
* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*
|
||||
* Author: James da Silva, Systems Design and Analysis Group
|
||||
* Computer Science Department
|
||||
* University of Maryland at College Park
|
||||
*/
|
||||
#include <sys/cdefs.h>
|
||||
#ifndef lint
|
||||
__RCSID("$NetBSD: exec_aout.c,v 1.6 1997/08/02 21:30:17 perry Exp $");
|
||||
#endif
|
||||
|
||||
#include <unistd.h>
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <a.out.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <sys/errno.h>
|
||||
|
||||
#include "extern.h"
|
||||
|
||||
#if defined(NLIST_AOUT)
|
||||
|
||||
int nsyms, ntextrel, ndatarel;
|
||||
struct exec *hdrp;
|
||||
char *aoutdata, *strbase;
|
||||
struct relocation_info *textrel, *datarel;
|
||||
struct nlist *symbase;
|
||||
|
||||
|
||||
#define SYMSTR(sp) (&strbase[(sp)->n_un.n_strx])
|
||||
|
||||
/* is the symbol a global symbol defined in the current file? */
|
||||
#define IS_GLOBAL_DEFINED(sp) \
|
||||
(((sp)->n_type & N_EXT) && ((sp)->n_type & N_TYPE) != N_UNDF)
|
||||
|
||||
#ifdef __sparc
|
||||
/* is the relocation entry dependent on a symbol? */
|
||||
#define IS_SYMBOL_RELOC(rp) \
|
||||
((rp)->r_extern || \
|
||||
((rp)->r_type >= RELOC_BASE10 && (rp)->r_type <= RELOC_BASE22) || \
|
||||
(rp)->r_type == RELOC_JMP_TBL)
|
||||
#else
|
||||
/* is the relocation entry dependent on a symbol? */
|
||||
#define IS_SYMBOL_RELOC(rp) \
|
||||
((rp)->r_extern||(rp)->r_baserel||(rp)->r_jmptable)
|
||||
#endif
|
||||
|
||||
static void check_reloc(const char *filename, struct relocation_info *relp);
|
||||
|
||||
int check_aout(int inf, const char *filename)
|
||||
{
|
||||
struct stat infstat;
|
||||
struct exec eh;
|
||||
|
||||
/*
|
||||
* check the header to make sure it's an a.out-format file.
|
||||
*/
|
||||
|
||||
if(fstat(inf, &infstat) == -1)
|
||||
return 0;
|
||||
if(infstat.st_size < sizeof eh)
|
||||
return 0;
|
||||
if(read(inf, &eh, sizeof eh) != sizeof eh)
|
||||
return 0;
|
||||
|
||||
if(N_BADMAG(eh))
|
||||
return 0;
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
int hide_aout(int inf, const char *filename)
|
||||
{
|
||||
struct stat infstat;
|
||||
struct relocation_info *relp;
|
||||
struct nlist *symp;
|
||||
int rc;
|
||||
|
||||
/*
|
||||
* do some error checking.
|
||||
*/
|
||||
|
||||
if(fstat(inf, &infstat) == -1) {
|
||||
perror(filename);
|
||||
return 1;
|
||||
}
|
||||
|
||||
/*
|
||||
* Read the entire file into memory. XXX - Really, we only need to
|
||||
* read the header and from TRELOFF to the end of the file.
|
||||
*/
|
||||
|
||||
if((aoutdata = (char *) malloc(infstat.st_size)) == NULL) {
|
||||
fprintf(stderr, "%s: too big to read into memory\n", filename);
|
||||
return 1;
|
||||
}
|
||||
|
||||
if((rc = read(inf, aoutdata, infstat.st_size)) < infstat.st_size) {
|
||||
fprintf(stderr, "%s: read error: %s\n", filename,
|
||||
rc == -1? strerror(errno) : "short read");
|
||||
return 1;
|
||||
}
|
||||
|
||||
/*
|
||||
* Calculate offsets and sizes from the header.
|
||||
*/
|
||||
|
||||
hdrp = (struct exec *) aoutdata;
|
||||
|
||||
#ifdef __FreeBSD__
|
||||
textrel = (struct relocation_info *) (aoutdata + N_RELOFF(*hdrp));
|
||||
datarel = (struct relocation_info *) (aoutdata + N_RELOFF(*hdrp) +
|
||||
hdrp->a_trsize);
|
||||
#else
|
||||
textrel = (struct relocation_info *) (aoutdata + N_TRELOFF(*hdrp));
|
||||
datarel = (struct relocation_info *) (aoutdata + N_DRELOFF(*hdrp));
|
||||
#endif
|
||||
symbase = (struct nlist *) (aoutdata + N_SYMOFF(*hdrp));
|
||||
strbase = (char *) (aoutdata + N_STROFF(*hdrp));
|
||||
|
||||
ntextrel = hdrp->a_trsize / sizeof(struct relocation_info);
|
||||
ndatarel = hdrp->a_drsize / sizeof(struct relocation_info);
|
||||
nsyms = hdrp->a_syms / sizeof(struct nlist);
|
||||
|
||||
/*
|
||||
* Zap the type field of all globally-defined symbols. The linker will
|
||||
* subsequently ignore these entries. Don't zap any symbols in the
|
||||
* keep list.
|
||||
*/
|
||||
|
||||
for(symp = symbase; symp < symbase + nsyms; symp++) {
|
||||
if(!IS_GLOBAL_DEFINED(symp)) /* keep undefined syms */
|
||||
continue;
|
||||
|
||||
/* keep (C) symbols which are on the keep list */
|
||||
if(SYMSTR(symp)[0] == '_' && in_keep_list(SYMSTR(symp) + 1))
|
||||
continue;
|
||||
|
||||
symp->n_type = 0;
|
||||
}
|
||||
|
||||
/*
|
||||
* Check whether the relocation entries reference any symbols that we
|
||||
* just zapped. I don't know whether ld can handle this case, but I
|
||||
* haven't encountered it yet. These checks are here so that the program
|
||||
* doesn't fail silently should such symbols be encountered.
|
||||
*/
|
||||
|
||||
for(relp = textrel; relp < textrel + ntextrel; relp++)
|
||||
check_reloc(filename, relp);
|
||||
for(relp = datarel; relp < datarel + ndatarel; relp++)
|
||||
check_reloc(filename, relp);
|
||||
|
||||
/*
|
||||
* Write the .o file back out to disk. XXX - Really, we only need to
|
||||
* write the symbol table entries back out.
|
||||
*/
|
||||
lseek(inf, 0, SEEK_SET);
|
||||
if((rc = write(inf, aoutdata, infstat.st_size)) < infstat.st_size) {
|
||||
fprintf(stderr, "%s: write error: %s\n", filename,
|
||||
rc == -1? strerror(errno) : "short write");
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
static void check_reloc(const char *filename, struct relocation_info *relp)
|
||||
{
|
||||
/* bail out if we zapped a symbol that is needed */
|
||||
if(IS_SYMBOL_RELOC(relp) && symbase[relp->r_symbolnum].n_type == 0) {
|
||||
fprintf(stderr,
|
||||
"%s: oops, have hanging relocation for %s: bailing out!\n",
|
||||
filename, SYMSTR(&symbase[relp->r_symbolnum]));
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
|
||||
#endif /* defined(NLIST_AOUT) */
|
389
usr.sbin/crunch/crunchide/exec_elf32.c
Normal file
389
usr.sbin/crunch/crunchide/exec_elf32.c
Normal file
@ -0,0 +1,389 @@
|
||||
/* $NetBSD: exec_elf32.c,v 1.4 1997/08/12 06:07:24 mikel Exp $ */
|
||||
|
||||
/*
|
||||
* Copyright (c) 1997 Christopher G. Demetriou. All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* 3. All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed by Christopher G. Demetriou
|
||||
* for the NetBSD Project.
|
||||
* 4. The name of the author may not be used to endorse or promote products
|
||||
* derived from this software without specific prior written permission
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
||||
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
||||
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
||||
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
||||
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
||||
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
||||
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
*/
|
||||
|
||||
#include <sys/cdefs.h>
|
||||
#ifndef lint
|
||||
__RCSID("$NetBSD: exec_elf32.c,v 1.4 1997/08/12 06:07:24 mikel Exp $");
|
||||
#endif
|
||||
|
||||
#ifndef ELFSIZE
|
||||
#define ELFSIZE 32
|
||||
#endif
|
||||
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
|
||||
#include <errno.h>
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <unistd.h>
|
||||
|
||||
#include "extern.h"
|
||||
|
||||
#if (defined(NLIST_ELF32) && (ELFSIZE == 32)) || \
|
||||
(defined(NLIST_ELF64) && (ELFSIZE == 64))
|
||||
|
||||
#include <elf.h>
|
||||
|
||||
#define CONCAT(x,y) __CONCAT(x,y)
|
||||
#define ELFNAME(x) CONCAT(elf,CONCAT(ELFSIZE,CONCAT(_,x)))
|
||||
#define ELFNAME2(x,y) CONCAT(x,CONCAT(_elf,CONCAT(ELFSIZE,CONCAT(_,y))))
|
||||
#define ELFNAMEEND(x) CONCAT(x,CONCAT(_elf,ELFSIZE))
|
||||
#define ELFDEFNNAME(x) CONCAT(ELF,CONCAT(ELFSIZE,CONCAT(_,x)))
|
||||
|
||||
struct listelem {
|
||||
struct listelem *next;
|
||||
void *mem;
|
||||
off_t file;
|
||||
size_t size;
|
||||
};
|
||||
|
||||
static ssize_t
|
||||
xreadatoff(int fd, void *buf, off_t off, size_t size, const char *fn)
|
||||
{
|
||||
ssize_t rv;
|
||||
|
||||
if (lseek(fd, off, SEEK_SET) != off) {
|
||||
perror(fn);
|
||||
return -1;
|
||||
}
|
||||
if ((rv = read(fd, buf, size)) != size) {
|
||||
fprintf(stderr, "%s: read error: %s\n", fn,
|
||||
rv == -1 ? strerror(errno) : "short read");
|
||||
return -1;
|
||||
}
|
||||
return size;
|
||||
}
|
||||
|
||||
static ssize_t
|
||||
xwriteatoff(int fd, void *buf, off_t off, size_t size, const char *fn)
|
||||
{
|
||||
ssize_t rv;
|
||||
|
||||
if (lseek(fd, off, SEEK_SET) != off) {
|
||||
perror(fn);
|
||||
return -1;
|
||||
}
|
||||
if ((rv = write(fd, buf, size)) != size) {
|
||||
fprintf(stderr, "%s: write error: %s\n", fn,
|
||||
rv == -1 ? strerror(errno) : "short write");
|
||||
return -1;
|
||||
}
|
||||
return size;
|
||||
}
|
||||
|
||||
static void *
|
||||
xmalloc(size_t size, const char *fn, const char *use)
|
||||
{
|
||||
void *rv;
|
||||
|
||||
rv = malloc(size);
|
||||
if (rv == NULL)
|
||||
fprintf(stderr, "%s: out of memory (allocating for %s)\n",
|
||||
fn, use);
|
||||
return (rv);
|
||||
}
|
||||
|
||||
int
|
||||
ELFNAMEEND(check)(int fd, const char *fn)
|
||||
{
|
||||
Elf_Ehdr eh;
|
||||
struct stat sb;
|
||||
|
||||
/*
|
||||
* Check the header to maek sure it's an ELF file (of the
|
||||
* appropriate size).
|
||||
*/
|
||||
if (fstat(fd, &sb) == -1)
|
||||
return 0;
|
||||
if (sb.st_size < sizeof eh)
|
||||
return 0;
|
||||
if (read(fd, &eh, sizeof eh) != sizeof eh)
|
||||
return 0;
|
||||
|
||||
if (IS_ELF(eh) == 0)
|
||||
return 0;
|
||||
|
||||
switch (eh.e_machine) {
|
||||
case EM_386: break;
|
||||
case EM_ALPHA: break;
|
||||
/* ELFDEFNNAME(MACHDEP_ID_CASES) */
|
||||
|
||||
default:
|
||||
return 0;
|
||||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
ELFNAMEEND(hide)(int fd, const char *fn)
|
||||
{
|
||||
Elf_Ehdr ehdr;
|
||||
Elf_Shdr *shdrp = NULL, *symtabshdr, *strtabshdr;
|
||||
Elf_Sym *symtabp = NULL;
|
||||
char *strtabp = NULL;
|
||||
Elf_Word *symfwmap = NULL, *symrvmap = NULL, nsyms, nlocalsyms, ewi;
|
||||
struct listelem *relalist = NULL, *rellist = NULL, *tmpl;
|
||||
ssize_t shdrsize;
|
||||
int rv, i, weird;
|
||||
|
||||
rv = 0;
|
||||
if (xreadatoff(fd, &ehdr, 0, sizeof ehdr, fn) != sizeof ehdr)
|
||||
goto bad;
|
||||
|
||||
shdrsize = ehdr.e_shnum * ehdr.e_shentsize;
|
||||
if ((shdrp = xmalloc(shdrsize, fn, "section header table")) == NULL)
|
||||
goto bad;
|
||||
if (xreadatoff(fd, shdrp, ehdr.e_shoff, shdrsize, fn) != shdrsize)
|
||||
goto bad;
|
||||
|
||||
symtabshdr = strtabshdr = NULL;
|
||||
weird = 0;
|
||||
for (i = 0; i < ehdr.e_shnum; i++) {
|
||||
switch (shdrp[i].sh_type) {
|
||||
case SHT_SYMTAB:
|
||||
if (symtabshdr != NULL)
|
||||
weird = 1;
|
||||
symtabshdr = &shdrp[i];
|
||||
strtabshdr = &shdrp[shdrp[i].sh_link];
|
||||
break;
|
||||
case SHT_RELA:
|
||||
tmpl = xmalloc(sizeof *tmpl, fn, "rela list element");
|
||||
if (tmpl == NULL)
|
||||
goto bad;
|
||||
tmpl->mem = NULL;
|
||||
tmpl->file = shdrp[i].sh_offset;
|
||||
tmpl->size = shdrp[i].sh_size;
|
||||
tmpl->next = relalist;
|
||||
relalist = tmpl;
|
||||
break;
|
||||
case SHT_REL:
|
||||
tmpl = xmalloc(sizeof *tmpl, fn, "rel list element");
|
||||
if (tmpl == NULL)
|
||||
goto bad;
|
||||
tmpl->mem = NULL;
|
||||
tmpl->file = shdrp[i].sh_offset;
|
||||
tmpl->size = shdrp[i].sh_size;
|
||||
tmpl->next = rellist;
|
||||
rellist = tmpl;
|
||||
break;
|
||||
}
|
||||
}
|
||||
if (symtabshdr == NULL)
|
||||
goto out;
|
||||
if (strtabshdr == NULL)
|
||||
weird = 1;
|
||||
if (weird) {
|
||||
fprintf(stderr, "%s: weird executable (unsupported)\n", fn);
|
||||
goto bad;
|
||||
}
|
||||
|
||||
/*
|
||||
* load up everything we need
|
||||
*/
|
||||
|
||||
/* symbol table */
|
||||
if ((symtabp = xmalloc(symtabshdr->sh_size, fn, "symbol table"))
|
||||
== NULL)
|
||||
goto bad;
|
||||
if (xreadatoff(fd, symtabp, symtabshdr->sh_offset, symtabshdr->sh_size,
|
||||
fn) != symtabshdr->sh_size)
|
||||
goto bad;
|
||||
|
||||
/* string table */
|
||||
if ((strtabp = xmalloc(strtabshdr->sh_size, fn, "string table"))
|
||||
== NULL)
|
||||
goto bad;
|
||||
if (xreadatoff(fd, strtabp, strtabshdr->sh_offset, strtabshdr->sh_size,
|
||||
fn) != strtabshdr->sh_size)
|
||||
goto bad;
|
||||
|
||||
/* any rela tables */
|
||||
for (tmpl = relalist; tmpl != NULL; tmpl = tmpl->next) {
|
||||
if ((tmpl->mem = xmalloc(tmpl->size, fn, "rela table"))
|
||||
== NULL)
|
||||
goto bad;
|
||||
if (xreadatoff(fd, tmpl->mem, tmpl->file, tmpl->size, fn) !=
|
||||
tmpl->size)
|
||||
goto bad;
|
||||
}
|
||||
|
||||
/* any rel tables */
|
||||
for (tmpl = rellist; tmpl != NULL; tmpl = tmpl->next) {
|
||||
if ((tmpl->mem = xmalloc(tmpl->size, fn, "rel table"))
|
||||
== NULL)
|
||||
goto bad;
|
||||
if (xreadatoff(fd, tmpl->mem, tmpl->file, tmpl->size, fn) !=
|
||||
tmpl->size)
|
||||
goto bad;
|
||||
}
|
||||
|
||||
/* Prepare data structures for symbol movement. */
|
||||
nsyms = symtabshdr->sh_size / symtabshdr->sh_entsize;
|
||||
nlocalsyms = symtabshdr->sh_info;
|
||||
if ((symfwmap = xmalloc(nsyms * sizeof (Elf_Word), fn,
|
||||
"symbol forward mapping table")) == NULL)
|
||||
goto bad;
|
||||
if ((symrvmap = xmalloc(nsyms * sizeof (Elf_Word), fn,
|
||||
"symbol reverse mapping table")) == NULL)
|
||||
goto bad;
|
||||
|
||||
/* init location -> symbol # table */
|
||||
for (ewi = 0; ewi < nsyms; ewi++)
|
||||
symrvmap[ewi] = ewi;
|
||||
|
||||
/* move symbols, making them local */
|
||||
for (ewi = nlocalsyms; ewi < nsyms; ewi++) {
|
||||
Elf_Sym *sp, symswap;
|
||||
Elf_Word mapswap;
|
||||
|
||||
sp = &symtabp[ewi];
|
||||
|
||||
/* if it's on our keep list, don't move it */
|
||||
if (in_keep_list(strtabp + sp->st_name))
|
||||
continue;
|
||||
|
||||
/* if it's an undefined symbol, keep it */
|
||||
if (sp->st_shndx == SHN_UNDEF)
|
||||
continue;
|
||||
|
||||
/* adjust the symbol so that it's local */
|
||||
sp->st_info =
|
||||
ELF_ST_INFO(STB_LOCAL, sp->st_info);
|
||||
/* (STB_LOCAL << 4) | ELF_SYM_TYPE(sp->st_info); *//* XXX */
|
||||
|
||||
/*
|
||||
* move the symbol to its new location
|
||||
*/
|
||||
|
||||
/* note that symbols in those locations have been swapped */
|
||||
mapswap = symrvmap[ewi];
|
||||
symrvmap[ewi] = symrvmap[nlocalsyms];
|
||||
symrvmap[nlocalsyms] = mapswap;
|
||||
|
||||
/* and swap the symbols */
|
||||
symswap = *sp;
|
||||
*sp = symtabp[nlocalsyms];
|
||||
symtabp[nlocalsyms] = symswap;
|
||||
|
||||
nlocalsyms++; /* note new local sym */
|
||||
}
|
||||
symtabshdr->sh_info = nlocalsyms;
|
||||
|
||||
/* set up symbol # -> location mapping table */
|
||||
for (ewi = 0; ewi < nsyms; ewi++)
|
||||
symfwmap[symrvmap[ewi]] = ewi;
|
||||
|
||||
/* any rela tables */
|
||||
for (tmpl = relalist; tmpl != NULL; tmpl = tmpl->next) {
|
||||
Elf_Rela *relap = tmpl->mem;
|
||||
|
||||
for (ewi = 0; ewi < tmpl->size / sizeof(*relap); ewi++) {
|
||||
relap[ewi].r_info =
|
||||
#if (ELFSIZE == 32) /* XXX */
|
||||
symfwmap[ELF_R_SYM(relap[ewi].r_info)] << 8 |
|
||||
ELF_R_TYPE(relap[ewi].r_info);
|
||||
#elif (ELFSIZE == 64) /* XXX */
|
||||
symfwmap[ELF_R_SYM(relap[ewi].r_info)] << 32 |
|
||||
ELF_R_TYPE(relap[ewi].r_info);
|
||||
#endif /* XXX */
|
||||
}
|
||||
}
|
||||
|
||||
/* any rel tables */
|
||||
for (tmpl = rellist; tmpl != NULL; tmpl = tmpl->next) {
|
||||
Elf_Rel *relp = tmpl->mem;
|
||||
|
||||
for (ewi = 0; ewi < tmpl->size / sizeof *relp; ewi++) {
|
||||
relp[ewi].r_info =
|
||||
#if (ELFSIZE == 32) /* XXX */
|
||||
symfwmap[ELF_R_SYM(relp[ewi].r_info)] << 8 |
|
||||
ELF_R_TYPE(relp[ewi].r_info);
|
||||
#elif (ELFSIZE == 64) /* XXX */
|
||||
symfwmap[ELF_R_SYM(relp[ewi].r_info)] << 32 |
|
||||
ELF_R_TYPE(relp[ewi].r_info);
|
||||
#endif /* XXX */
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* write new tables to the file
|
||||
*/
|
||||
if (xwriteatoff(fd, shdrp, ehdr.e_shoff, shdrsize, fn) != shdrsize)
|
||||
goto bad;
|
||||
if (xwriteatoff(fd, symtabp, symtabshdr->sh_offset,
|
||||
symtabshdr->sh_size, fn) != symtabshdr->sh_size)
|
||||
goto bad;
|
||||
for (tmpl = relalist; tmpl != NULL; tmpl = tmpl->next) {
|
||||
if (xwriteatoff(fd, tmpl->mem, tmpl->file, tmpl->size, fn) !=
|
||||
tmpl->size)
|
||||
goto bad;
|
||||
}
|
||||
for (tmpl = rellist; tmpl != NULL; tmpl = tmpl->next) {
|
||||
if (xwriteatoff(fd, tmpl->mem, tmpl->file, tmpl->size, fn) !=
|
||||
tmpl->size)
|
||||
goto bad;
|
||||
}
|
||||
|
||||
out:
|
||||
if (shdrp != NULL)
|
||||
free(shdrp);
|
||||
if (symtabp != NULL)
|
||||
free(symtabp);
|
||||
if (strtabp != NULL)
|
||||
free(strtabp);
|
||||
if (symfwmap != NULL)
|
||||
free(symfwmap);
|
||||
if (symrvmap != NULL)
|
||||
free(symrvmap);
|
||||
while ((tmpl = relalist) != NULL) {
|
||||
relalist = tmpl->next;
|
||||
if (tmpl->mem != NULL)
|
||||
free(tmpl->mem);
|
||||
free(tmpl);
|
||||
}
|
||||
while ((tmpl = rellist) != NULL) {
|
||||
rellist = tmpl->next;
|
||||
if (tmpl->mem != NULL)
|
||||
free(tmpl->mem);
|
||||
free(tmpl);
|
||||
}
|
||||
return (rv);
|
||||
|
||||
bad:
|
||||
rv = 1;
|
||||
goto out;
|
||||
}
|
||||
|
||||
#endif /* include this size of ELF */
|
40
usr.sbin/crunch/crunchide/exec_elf64.c
Normal file
40
usr.sbin/crunch/crunchide/exec_elf64.c
Normal file
@ -0,0 +1,40 @@
|
||||
/* $NetBSD: exec_elf64.c,v 1.2 1997/08/02 21:30:19 perry Exp $ */
|
||||
|
||||
/*
|
||||
* Copyright (c) 1997 Christopher G. Demetriou. All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* 3. All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed by Christopher G. Demetriou
|
||||
* for the NetBSD Project.
|
||||
* 4. The name of the author may not be used to endorse or promote products
|
||||
* derived from this software without specific prior written permission
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
||||
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
||||
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
||||
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
||||
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
||||
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
||||
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
*/
|
||||
|
||||
#include <sys/cdefs.h>
|
||||
#ifndef lint
|
||||
__IDSTRING(elf64rcsid, "$NetBSD: exec_elf64.c,v 1.2 1997/08/02 21:30:19 perry Exp $");
|
||||
#endif
|
||||
|
||||
#define ELFSIZE 64
|
||||
|
||||
#include "exec_elf32.c"
|
68
usr.sbin/crunch/crunchide/extern.h
Normal file
68
usr.sbin/crunch/crunchide/extern.h
Normal file
@ -0,0 +1,68 @@
|
||||
/* $NetBSD: extern.h,v 1.5 1998/05/06 13:16:57 mycroft Exp $ */
|
||||
|
||||
/*
|
||||
* Copyright (c) 1997 Christopher G. Demetriou. All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* 3. All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed by Christopher G. Demetriou
|
||||
* for the NetBSD Project.
|
||||
* 4. The name of the author may not be used to endorse or promote products
|
||||
* derived from this software without specific prior written permission
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
||||
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
||||
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
||||
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
||||
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
||||
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
||||
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
*/
|
||||
|
||||
#ifdef __alpha__
|
||||
#define NLIST_ECOFF
|
||||
#define NLIST_ELF64
|
||||
#else
|
||||
#ifdef __mips__
|
||||
#define NLIST_ELF32
|
||||
#else
|
||||
#ifdef __powerpc__
|
||||
#define NLIST_ELF32
|
||||
#else
|
||||
#define NLIST_AOUT
|
||||
/* #define NLIST_ECOFF */
|
||||
#define NLIST_ELF32
|
||||
/* #define NLIST_ELF64 */
|
||||
#endif
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#ifdef NLIST_AOUT
|
||||
int check_aout(int, const char *);
|
||||
int hide_aout(int, const char *);
|
||||
#endif
|
||||
#ifdef NLIST_ECOFF
|
||||
int check_ecoff(int, const char *);
|
||||
int hide_ecoff(int, const char *);
|
||||
#endif
|
||||
#ifdef NLIST_ELF32
|
||||
int check_elf32(int, const char *);
|
||||
int hide_elf32(int, const char *);
|
||||
#endif
|
||||
#ifdef NLIST_ELF64
|
||||
int check_elf64(int, const char *);
|
||||
int hide_elf64(int, const char *);
|
||||
#endif
|
||||
|
||||
int in_keep_list(const char *symbol);
|
Loading…
Reference in New Issue
Block a user