/[gentoo-projects]/pax-utils/scanelf.c
Gentoo

Diff of /pax-utils/scanelf.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1.79 Revision 1.91
1/* 1/*
2 * Copyright 2003-2005 Gentoo Foundation 2 * Copyright 2003-2005 Gentoo Foundation
3 * Distributed under the terms of the GNU General Public License v2 3 * Distributed under the terms of the GNU General Public License v2
4 * $Header: /var/cvsroot/gentoo-projects/pax-utils/Attic/scanelf.c,v 1.79 2005/06/09 23:53:58 vapier Exp $ 4 * $Header: /var/cvsroot/gentoo-projects/pax-utils/Attic/scanelf.c,v 1.91 2005/12/07 01:04:52 vapier Exp $
5 * 5 *
6 ******************************************************************** 6 * Copyright 2003-2005 Ned Ludd - <solar@gentoo.org>
7 * This program is free software; you can redistribute it and/or 7 * Copyright 2004-2005 Mike Frysinger - <vapier@gentoo.org>
8 * modify it under the terms of the GNU General Public License as
9 * published by the Free Software Foundation; either version 2 of the
10 * License, or (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful, but
13 * WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
20 * MA 02111-1307, USA.
21 */ 8 */
22 9
23#include <stdio.h> 10#include <stdio.h>
24#include <stdlib.h> 11#include <stdlib.h>
25#include <sys/types.h> 12#include <sys/types.h>
31#include <unistd.h> 18#include <unistd.h>
32#include <sys/stat.h> 19#include <sys/stat.h>
33#include <dirent.h> 20#include <dirent.h>
34#include <getopt.h> 21#include <getopt.h>
35#include <assert.h> 22#include <assert.h>
36#include "paxelf.h" 23#include "paxinc.h"
37 24
38static const char *rcsid = "$Id: scanelf.c,v 1.79 2005/06/09 23:53:58 vapier Exp $"; 25static const char *rcsid = "$Id: scanelf.c,v 1.91 2005/12/07 01:04:52 vapier Exp $";
39#define argv0 "scanelf" 26#define argv0 "scanelf"
40 27
41#define IS_MODIFIER(c) (c == '%' || c == '#') 28#define IS_MODIFIER(c) (c == '%' || c == '#')
42 29
43 30
66static char show_textrel = 0; 53static char show_textrel = 0;
67static char show_rpath = 0; 54static char show_rpath = 0;
68static char show_needed = 0; 55static char show_needed = 0;
69static char show_interp = 0; 56static char show_interp = 0;
70static char show_bind = 0; 57static char show_bind = 0;
58static char show_soname = 0;
71static char show_textrels = 0; 59static char show_textrels = 0;
72static char show_banner = 1; 60static char show_banner = 1;
73static char be_quiet = 0; 61static char be_quiet = 0;
74static char be_verbose = 0; 62static char be_verbose = 0;
75static char be_wewy_wewy_quiet = 0; 63static char be_wewy_wewy_quiet = 0;
76static char *find_sym = NULL, *versioned_symname = NULL; 64static char *find_sym = NULL, *versioned_symname = NULL;
77static char *find_lib = NULL; 65static char *find_lib = NULL;
78static char *out_format = NULL; 66static char *out_format = NULL;
79static char *search_path = NULL; 67static char *search_path = NULL;
80 68static char gmatch = 0;
81 69
82 70
83/* sub-funcs for scanelf_file() */ 71/* sub-funcs for scanelf_file() */
84static void scanelf_file_get_symtabs(elfobj *elf, void **sym, void **tab) 72static void scanelf_file_get_symtabs(elfobj *elf, void **sym, void **tab)
85{ 73{
107 GET_SYMTABS(32) 95 GET_SYMTABS(32)
108 GET_SYMTABS(64) 96 GET_SYMTABS(64)
109} 97}
110static char *scanelf_file_pax(elfobj *elf, char *found_pax) 98static char *scanelf_file_pax(elfobj *elf, char *found_pax)
111{ 99{
112 static char *paxflags;
113 static char ret[7]; 100 static char ret[7];
114 unsigned long i, shown; 101 unsigned long i, shown;
115
116 102
117 if (!show_pax) return NULL; 103 if (!show_pax) return NULL;
118 104
119 shown = 0; 105 shown = 0;
120 memset(&ret, 0, sizeof(ret)); 106 memset(&ret, 0, sizeof(ret));
139 SHOW_PAX(64) 125 SHOW_PAX(64)
140 } 126 }
141 127
142 /* fall back to EI_PAX if no PT_PAX was found */ 128 /* fall back to EI_PAX if no PT_PAX was found */
143 if (!*ret) { 129 if (!*ret) {
130 static char *paxflags;
144 paxflags = pax_short_hf_flags(EI_PAX_FLAGS(elf)); 131 paxflags = pax_short_hf_flags(EI_PAX_FLAGS(elf));
145 if (!be_quiet || (be_quiet && EI_PAX_FLAGS(elf))) { 132 if (!be_quiet || (be_quiet && EI_PAX_FLAGS(elf))) {
146 *found_pax = 1; 133 *found_pax = 1;
147 return paxflags; 134 return (be_wewy_wewy_quiet ? NULL : paxflags);
148 } 135 }
149 strncpy(ret, paxflags, sizeof(ret)); 136 strncpy(ret, paxflags, sizeof(ret));
150 // ++shown;
151 } 137 }
152 138
153 if (be_quiet && !shown) 139 if (be_wewy_wewy_quiet || (be_quiet && !shown))
154 return NULL; 140 return NULL;
141 else
155 return ret; 142 return ret;
156
157} 143}
144
158static char *scanelf_file_phdr(elfobj *elf, char *found_phdr, char *found_relro, char *found_load) 145static char *scanelf_file_phdr(elfobj *elf, char *found_phdr, char *found_relro, char *found_load)
159{ 146{
160 static char ret[12]; 147 static char ret[12];
161 char *found; 148 char *found;
162 unsigned long i, off, shown, check_flags; 149 unsigned long i, shown;
163 unsigned char multi_stack, multi_relro, multi_load; 150 unsigned char multi_stack, multi_relro, multi_load;
164 151
165 if (!show_phdr) return NULL; 152 if (!show_phdr) return NULL;
166 153
167 memcpy(ret, "--- --- ---\0", 12); 154 memcpy(ret, "--- --- ---\0", 12);
168 155
169 shown = 0; 156 shown = 0;
170 multi_stack = multi_relro = multi_load = 0; 157 multi_stack = multi_relro = multi_load = 0;
171 158
172 if (elf->phdr) {
173#define SHOW_PHDR(B) \ 159#define SHOW_PHDR(B) \
174 if (elf->elf_class == ELFCLASS ## B) { \ 160 if (elf->elf_class == ELFCLASS ## B) { \
175 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \ 161 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \
162 Elf ## B ## _Off offset; \
163 uint32_t flags, check_flags; \
164 if (elf->phdr != NULL) { \
176 Elf ## B ## _Phdr *phdr = PHDR ## B (elf->phdr); \ 165 Elf ## B ## _Phdr *phdr = PHDR ## B (elf->phdr); \
177 uint32_t flags; \
178 for (i = 0; i < EGET(ehdr->e_phnum); i++) { \ 166 for (i = 0; i < EGET(ehdr->e_phnum); ++i) { \
179 if (EGET(phdr[i].p_type) == PT_GNU_STACK) { \ 167 if (EGET(phdr[i].p_type) == PT_GNU_STACK) { \
180 if (multi_stack++) warnf("%s: multiple PT_GNU_STACK's !?", elf->filename); \ 168 if (multi_stack++) warnf("%s: multiple PT_GNU_STACK's !?", elf->filename); \
181 found = found_phdr; \ 169 found = found_phdr; \
182 off = 0; \ 170 offset = 0; \
183 check_flags = PF_X; \ 171 check_flags = PF_X; \
184 } else if (EGET(phdr[i].p_type) == PT_GNU_RELRO) { \ 172 } else if (EGET(phdr[i].p_type) == PT_GNU_RELRO) { \
185 if (multi_relro++) warnf("%s: multiple PT_GNU_RELRO's !?", elf->filename); \ 173 if (multi_relro++) warnf("%s: multiple PT_GNU_RELRO's !?", elf->filename); \
186 found = found_relro; \ 174 found = found_relro; \
187 off = 4; \ 175 offset = 4; \
188 check_flags = PF_X; \ 176 check_flags = PF_X; \
189 } else if (EGET(phdr[i].p_type) == PT_LOAD) { \ 177 } else if (EGET(phdr[i].p_type) == PT_LOAD) { \
190 if (multi_load++ > 2) warnf("%s: more than 2 PT_LOAD's !?", elf->filename); \ 178 if (multi_load++ > 2) warnf("%s: more than 2 PT_LOAD's !?", elf->filename); \
191 found = found_load; \ 179 found = found_load; \
192 off = 8; \ 180 offset = 8; \
193 check_flags = PF_W|PF_X; \ 181 check_flags = PF_W|PF_X; \
194 } else \ 182 } else \
195 continue; \ 183 continue; \
196 flags = EGET(phdr[i].p_flags); \ 184 flags = EGET(phdr[i].p_flags); \
197 if (be_quiet && ((flags & check_flags) != check_flags)) \ 185 if (be_quiet && ((flags & check_flags) != check_flags)) \
198 continue; \ 186 continue; \
199 memcpy(ret+off, gnu_short_stack_flags(flags), 3); \ 187 memcpy(ret+offset, gnu_short_stack_flags(flags), 3); \
200 *found = 1; \ 188 *found = 1; \
201 ++shown; \ 189 ++shown; \
190 } \
191 } else if (elf->shdr != NULL) { \
192 /* no program headers which means this is prob an object file */ \
193 Elf ## B ## _Shdr *shdr = SHDR ## B (elf->shdr); \
194 Elf ## B ## _Shdr *strtbl = shdr + EGET(ehdr->e_shstrndx); \
195 check_flags = SHF_WRITE|SHF_EXECINSTR; \
196 for (i = 0; i < EGET(ehdr->e_shnum); ++i) { \
197 if (EGET(shdr[i].sh_type) != SHT_PROGBITS) continue; \
198 offset = EGET(strtbl->sh_offset) + EGET(shdr[i].sh_name); \
199 if (!strcmp((char*)(elf->data + offset), ".note.GNU-stack")) { \
200 if (multi_stack++) warnf("%s: multiple .note.GNU-stack's !?", elf->filename); \
201 flags = EGET(shdr[i].sh_flags); \
202 if (be_quiet && ((flags & check_flags) != check_flags)) \
203 continue; \
204 ++*found_phdr; \
205 shown = 1; \
206 if (flags & SHF_WRITE) ret[0] = 'W'; \
207 if (flags & SHF_ALLOC) ret[1] = 'A'; \
208 if (flags & SHF_EXECINSTR) ret[2] = 'X'; \
209 if (flags & 0xFFFFFFF8) warn("Invalid section flags for GNU-stack"); \
210 break; \
211 } \
212 } \
213 if (!multi_stack) { \
214 *found_phdr = 1; \
215 shown = 1; \
216 memcpy(ret, "!WX", 3); \
217 } \
202 } \ 218 } \
203 } 219 }
204 SHOW_PHDR(32) 220 SHOW_PHDR(32)
205 SHOW_PHDR(64) 221 SHOW_PHDR(64)
206 }
207 222
208 if (be_quiet && !shown) 223 if (be_wewy_wewy_quiet || (be_quiet && !shown))
209 return NULL; 224 return NULL;
210 else 225 else
211 return ret; 226 return ret;
212} 227}
213static char *scanelf_file_textrel(elfobj *elf, char *found_textrel) 228static const char *scanelf_file_textrel(elfobj *elf, char *found_textrel)
214{ 229{
215 static char ret[] = "TEXTREL"; 230 static const char *ret = "TEXTREL";
216 unsigned long i; 231 unsigned long i;
217 232
218 if (!show_textrel && !show_textrels) return NULL; 233 if (!show_textrel && !show_textrels) return NULL;
219 234
220 if (elf->phdr) { 235 if (elf->phdr) {
243 } 258 }
244 259
245 if (be_quiet || be_wewy_wewy_quiet) 260 if (be_quiet || be_wewy_wewy_quiet)
246 return NULL; 261 return NULL;
247 else 262 else
248 return (char *)" - "; 263 return " - ";
249} 264}
250static char *scanelf_file_textrels(elfobj *elf, char *found_textrels, char *found_textrel) 265static char *scanelf_file_textrels(elfobj *elf, char *found_textrels, char *found_textrel)
251{ 266{
252 unsigned long p, s, r, rmax; 267 unsigned long s, r, rmax;
253 void *symtab_void, *strtab_void; 268 void *symtab_void, *strtab_void, *text_void;
254 269
255 if (!show_textrels) return NULL; 270 if (!show_textrels) return NULL;
256 271
257 /* don't search for TEXTREL's if the ELF doesn't have any */ 272 /* don't search for TEXTREL's if the ELF doesn't have any */
258 if (!*found_textrel) scanelf_file_textrel(elf, found_textrel); 273 if (!*found_textrel) scanelf_file_textrel(elf, found_textrel);
259 if (!*found_textrel) return NULL; 274 if (!*found_textrel) return NULL;
260 275
261 scanelf_file_get_symtabs(elf, &symtab_void, &strtab_void); 276 scanelf_file_get_symtabs(elf, &symtab_void, &strtab_void);
277 text_void = elf_findsecbyname(elf, ".text");
262 278
263 if (symtab_void && strtab_void && elf->phdr && elf->shdr) { 279 if (symtab_void && strtab_void && text_void && elf->shdr) {
264#define SHOW_TEXTRELS(B) \ 280#define SHOW_TEXTRELS(B) \
265 if (elf->elf_class == ELFCLASS ## B) { \ 281 if (elf->elf_class == ELFCLASS ## B) { \
266 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \ 282 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \
267 Elf ## B ## _Phdr *phdr = PHDR ## B (elf->phdr); \
268 Elf ## B ## _Shdr *shdr = SHDR ## B (elf->shdr); \ 283 Elf ## B ## _Shdr *shdr = SHDR ## B (elf->shdr); \
269 Elf ## B ## _Shdr *symtab = SHDR ## B (symtab_void); \ 284 Elf ## B ## _Shdr *symtab = SHDR ## B (symtab_void); \
270 Elf ## B ## _Shdr *strtab = SHDR ## B (strtab_void); \ 285 Elf ## B ## _Shdr *strtab = SHDR ## B (strtab_void); \
286 Elf ## B ## _Shdr *text = SHDR ## B (text_void); \
287 Elf ## B ## _Addr vaddr = EGET(text->sh_addr); \
288 uint ## B ## _t memsz = EGET(text->sh_size); \
271 Elf ## B ## _Rel *rel; \ 289 Elf ## B ## _Rel *rel; \
272 Elf ## B ## _Rela *rela; \ 290 Elf ## B ## _Rela *rela; \
273 /* search the section headers for relocations */ \ 291 /* search the section headers for relocations */ \
274 for (s = 0; s < EGET(ehdr->e_shnum); ++s) { \ 292 for (s = 0; s < EGET(ehdr->e_shnum); ++s) { \
275 uint32_t sh_type = EGET(shdr[s].sh_type); \ 293 uint32_t sh_type = EGET(shdr[s].sh_type); \
281 rel = NULL; \ 299 rel = NULL; \
282 rela = RELA ## B (elf->data + EGET(shdr[s].sh_offset)); \ 300 rela = RELA ## B (elf->data + EGET(shdr[s].sh_offset)); \
283 rmax = EGET(shdr[s].sh_size) / sizeof(*rela); \ 301 rmax = EGET(shdr[s].sh_size) / sizeof(*rela); \
284 } else \ 302 } else \
285 continue; \ 303 continue; \
286 /* search the program headers for PT_LOAD headers */ \
287 for (p = 0; p < EGET(ehdr->e_phnum); ++p) { \
288 Elf ## B ## _Addr vaddr; \
289 uint ## B ## _t memsz; \
290 if (EGET(phdr[p].p_type) != PT_LOAD) continue; \
291 if (EGET(phdr[p].p_flags) & PF_W) continue; \
292 vaddr = EGET(phdr[p].p_vaddr); \
293 memsz = EGET(phdr[p].p_memsz); \
294 /* now see if any of the relocs are in the PT_LOAD */ \ 304 /* now see if any of the relocs are in the .text */ \
295 for (r = 0; r < rmax; ++r) { \ 305 for (r = 0; r < rmax; ++r) { \
296 unsigned long sym_max; \ 306 unsigned long sym_max; \
297 Elf ## B ## _Addr offset_tmp; \ 307 Elf ## B ## _Addr offset_tmp; \
298 Elf ## B ## _Sym *func; \ 308 Elf ## B ## _Sym *func; \
299 Elf ## B ## _Sym *sym; \ 309 Elf ## B ## _Sym *sym; \
300 Elf ## B ## _Addr r_offset; \ 310 Elf ## B ## _Addr r_offset; \
301 uint ## B ## _t r_info; \ 311 uint ## B ## _t r_info; \
302 if (sh_type == SHT_REL) { \ 312 if (sh_type == SHT_REL) { \
303 r_offset = EGET(rel[r].r_offset); \ 313 r_offset = EGET(rel[r].r_offset); \
304 r_info = EGET(rel[r].r_info); \ 314 r_info = EGET(rel[r].r_info); \
305 } else { \ 315 } else { \
306 r_offset = EGET(rela[r].r_offset); \ 316 r_offset = EGET(rela[r].r_offset); \
307 r_info = EGET(rela[r].r_info); \ 317 r_info = EGET(rela[r].r_info); \
318 } \
319 /* make sure this relocation is inside of the .text */ \
320 if (r_offset < vaddr || r_offset >= vaddr + memsz) { \
321 if (be_verbose <= 2) continue; \
322 } else \
323 *found_textrels = 1; \
324 /* locate this relocation symbol name */ \
325 sym = SYM ## B (elf->data + EGET(symtab->sh_offset)); \
326 sym_max = ELF ## B ## _R_SYM(r_info); \
327 if (sym_max * EGET(symtab->sh_entsize) < symtab->sh_size) \
328 sym += sym_max; \
329 else \
330 sym = NULL; \
331 sym_max = EGET(symtab->sh_size) / EGET(symtab->sh_entsize); \
332 /* show the raw details about this reloc */ \
333 printf(" %s: ", elf->base_filename); \
334 if (sym && sym->st_name) \
335 printf("%s", (char*)(elf->data + EGET(strtab->sh_offset) + EGET(sym->st_name))); \
336 else \
337 printf("(memory/fake?)"); \
338 printf(" [0x%lX]", (unsigned long)r_offset); \
339 /* now try to find the closest symbol that this rel is probably in */ \
340 sym = SYM ## B (elf->data + EGET(symtab->sh_offset)); \
341 func = NULL; \
342 offset_tmp = 0; \
343 while (sym_max--) { \
344 if (EGET(sym->st_value) < r_offset && EGET(sym->st_value) > offset_tmp) { \
345 func = sym; \
346 offset_tmp = EGET(sym->st_value); \
308 } \ 347 } \
309 /* make sure this relocation is inside of the .text */ \
310 if (r_offset < vaddr || r_offset >= vaddr + memsz) continue; \
311 *found_textrels = 1; \
312 /* locate this relocation symbol name */ \
313 sym = SYM ## B (elf->data + EGET(symtab->sh_offset)); \
314 sym_max = ELF ## B ## _R_SYM(r_info); \
315 if (sym_max * EGET(symtab->sh_entsize) < symtab->sh_size) \
316 sym += sym_max; \
317 else \
318 sym = NULL; \
319 sym_max = EGET(symtab->sh_size) / EGET(symtab->sh_entsize); \
320 /* show the raw details about this reloc */ \
321 printf("\tTEXTREL %s: ", elf->base_filename); \
322 if (sym && sym->st_name) \
323 printf("%s", (char*)(elf->data + EGET(strtab->sh_offset) + EGET(sym->st_name))); \
324 else \
325 printf("(NULL: fake?)"); \
326 printf(" [0x%lX]", (unsigned long)r_offset); \
327 /* now try to find the closest symbol that this rel is probably in */ \
328 sym = SYM ## B (elf->data + EGET(symtab->sh_offset)); \
329 func = NULL; \
330 offset_tmp = 0; \
331 while (sym_max--) { \
332 if (EGET(sym->st_value) < r_offset && EGET(sym->st_value) > offset_tmp) { \
333 func = sym; \
334 offset_tmp = EGET(sym->st_value); \
335 } \
336 ++sym; \ 348 ++sym; \
337 } \
338 printf(" in "); \
339 if (func && func->st_name) \
340 printf("%s", (char*)(elf->data + EGET(strtab->sh_offset) + EGET(func->st_name))); \
341 else \
342 printf("(NULL: fake?)"); \
343 printf(" [0x%lX]\n", (unsigned long)offset_tmp); \
344 } \ 349 } \
350 printf(" in "); \
351 if (func && func->st_name) \
352 printf("%s", (char*)(elf->data + EGET(strtab->sh_offset) + EGET(func->st_name))); \
353 else \
354 printf("(NULL: fake?)"); \
355 printf(" [0x%lX]\n", (unsigned long)offset_tmp); \
345 } \ 356 } \
346 } } 357 } }
347 SHOW_TEXTRELS(32) 358 SHOW_TEXTRELS(32)
348 SHOW_TEXTRELS(64) 359 SHOW_TEXTRELS(64)
349 } 360 }
361 if (!*found_textrels)
362 warnf("ELF %s has TEXTREL markings but doesnt appear to have any real TEXTREL's !?", elf->filename);
350 363
351 return NULL; 364 return NULL;
365}
366
367static void rpath_security_checks(elfobj *, char *);
368static void rpath_security_checks(elfobj *elf, char *item) {
369 struct stat st;
370 switch (*item) {
371 case '/': break;
372 case '.':
373 warnf("Security problem with relative RPATH '%s' in %s", item, elf->filename);
374 break;
375 case '\0':
376 warnf("Security problem NULL RPATH in %s", elf->filename);
377 break;
378 case '$':
379 if (fstat(elf->fd, &st) != -1)
380 if ((st.st_mode & S_ISUID) || (st.st_mode & S_ISGID))
381 warnf("Security problem with RPATH='%s' in %s with mode set of %o",
382 item, elf->filename, st.st_mode & 07777);
383 break;
384 default:
385 warnf("Maybe? sec problem with RPATH='%s' in %s", item, elf->filename);
386 break;
387 }
352} 388}
353static void scanelf_file_rpath(elfobj *elf, char *found_rpath, char **ret, size_t *ret_len) 389static void scanelf_file_rpath(elfobj *elf, char *found_rpath, char **ret, size_t *ret_len)
354{ 390{
355 unsigned long i, s; 391 unsigned long i, s;
356 char *rpath, *runpath, **r; 392 char *rpath, *runpath, **r;
399 /* note that we only 'chop' off leading known paths. */ \ 435 /* note that we only 'chop' off leading known paths. */ \
400 /* since *r is read-only memory, we can only move the ptr forward. */ \ 436 /* since *r is read-only memory, we can only move the ptr forward. */ \
401 start = *r; \ 437 start = *r; \
402 /* scan each path in : delimited list */ \ 438 /* scan each path in : delimited list */ \
403 while (start) { \ 439 while (start) { \
440 rpath_security_checks(elf, start); \
404 end = strchr(start, ':'); \ 441 end = strchr(start, ':'); \
405 len = (end ? abs(end - start) : strlen(start)); \ 442 len = (end ? abs(end - start) : strlen(start)); \
406 for (s = 0; ldpaths[s]; ++s) { \ 443 for (s = 0; ldpaths[s]; ++s) { \
407 if (!strncmp(ldpaths[s], start, len) && !ldpaths[s][len]) { \ 444 if (!strncmp(ldpaths[s], start, len) && !ldpaths[s][len]) { \
408 *r = (end ? end + 1 : NULL); \ 445 *r = (end ? end + 1 : NULL); \
440 } else if (rpath || runpath) 477 } else if (rpath || runpath)
441 xstrcat(ret, (runpath ? runpath : rpath), ret_len); 478 xstrcat(ret, (runpath ? runpath : rpath), ret_len);
442 else if (!be_quiet) 479 else if (!be_quiet)
443 xstrcat(ret, " - ", ret_len); 480 xstrcat(ret, " - ", ret_len);
444} 481}
445static char *scanelf_file_needed_lib(elfobj *elf, char *found_needed, char *found_lib, int op, char **ret, size_t *ret_len) 482static const char *scanelf_file_needed_lib(elfobj *elf, char *found_needed, char *found_lib, int op, char **ret, size_t *ret_len)
446{ 483{
447 unsigned long i; 484 unsigned long i;
448 char *needed; 485 char *needed;
449 void *strtbl_void; 486 void *strtbl_void;
450 487
478 if (*found_needed) xchrcat(ret, ',', ret_len); \ 515 if (*found_needed) xchrcat(ret, ',', ret_len); \
479 xstrcat(ret, needed, ret_len); \ 516 xstrcat(ret, needed, ret_len); \
480 } \ 517 } \
481 *found_needed = 1; \ 518 *found_needed = 1; \
482 } else { \ 519 } else { \
483 if (strcmp(find_lib, needed)) return NULL; \ 520 if (!strncmp(find_lib, needed, strlen( !gmatch ? needed : find_lib))) { \
484 *found_lib = 1; \ 521 *found_lib = 1; \
485 return (be_wewy_wewy_quiet ? NULL : find_lib); \ 522 return (be_wewy_wewy_quiet ? NULL : needed); \
523 } \
486 } \ 524 } \
487 } \ 525 } \
488 ++dyn; \ 526 ++dyn; \
489 } \ 527 } \
490 } } 528 } }
491 SHOW_NEEDED(32) 529 SHOW_NEEDED(32)
492 SHOW_NEEDED(64) 530 SHOW_NEEDED(64)
531 if (op == 0 && !*found_needed && be_verbose)
532 warn("ELF lacks DT_NEEDED sections: %s", elf->filename);
493 } 533 }
494 534
495 return NULL; 535 return NULL;
496} 536}
497static char *scanelf_file_interp(elfobj *elf, char *found_interp) 537static char *scanelf_file_interp(elfobj *elf, char *found_interp)
554 return NULL; 594 return NULL;
555 } else { 595 } else {
556 *found_bind = 1; 596 *found_bind = 1;
557 return (char *) "LAZY"; 597 return (char *) "LAZY";
558 } 598 }
599}
600static char *scanelf_file_soname(elfobj *elf, char *found_soname)
601{
602 unsigned long i;
603 char *soname;
604 void *strtbl_void;
605
606 if (!show_soname) return NULL;
607
608 strtbl_void = elf_findsecbyname(elf, ".dynstr");
609
610 if (elf->phdr && strtbl_void) {
611#define SHOW_SONAME(B) \
612 if (elf->elf_class == ELFCLASS ## B) { \
613 Elf ## B ## _Dyn *dyn; \
614 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \
615 Elf ## B ## _Phdr *phdr = PHDR ## B (elf->phdr); \
616 Elf ## B ## _Shdr *strtbl = SHDR ## B (strtbl_void); \
617 Elf ## B ## _Off offset; \
618 /* only look for soname in shared objects */ \
619 if (ehdr->e_type != ET_DYN) \
620 return NULL; \
621 for (i = 0; i < EGET(ehdr->e_phnum); i++) { \
622 if (EGET(phdr[i].p_type) != PT_DYNAMIC) continue; \
623 offset = EGET(phdr[i].p_offset); \
624 if (offset >= elf->len - sizeof(Elf ## B ## _Dyn)) continue; \
625 dyn = DYN ## B (elf->data + offset); \
626 while (EGET(dyn->d_tag) != DT_NULL) { \
627 if (EGET(dyn->d_tag) == DT_SONAME) { \
628 offset = EGET(strtbl->sh_offset) + EGET(dyn->d_un.d_ptr); \
629 if (offset >= (Elf ## B ## _Off)elf->len) { \
630 ++dyn; \
631 continue; \
632 } \
633 soname = (char*)(elf->data + offset); \
634 *found_soname = 1; \
635 return (be_wewy_wewy_quiet ? NULL : soname); \
636 } \
637 ++dyn; \
638 } \
639 } }
640 SHOW_SONAME(32)
641 SHOW_SONAME(64)
642 }
643
644 return NULL;
559} 645}
560static char *scanelf_file_sym(elfobj *elf, char *found_sym) 646static char *scanelf_file_sym(elfobj *elf, char *found_sym)
561{ 647{
562 unsigned long i; 648 unsigned long i;
563 void *symtab_void, *strtab_void; 649 void *symtab_void, *strtab_void;
608#define prints(str) write(fileno(stdout), str, strlen(str)) 694#define prints(str) write(fileno(stdout), str, strlen(str))
609static void scanelf_file(const char *filename) 695static void scanelf_file(const char *filename)
610{ 696{
611 unsigned long i; 697 unsigned long i;
612 char found_pax, found_phdr, found_relro, found_load, found_textrel, 698 char found_pax, found_phdr, found_relro, found_load, found_textrel,
613 found_rpath, found_needed, found_interp, found_bind, 699 found_rpath, found_needed, found_interp, found_bind, found_soname,
614 found_sym, found_lib, found_file, found_textrels; 700 found_sym, found_lib, found_file, found_textrels;
615 elfobj *elf; 701 elfobj *elf;
616 struct stat st; 702 struct stat st;
617 static char *out_buffer = NULL; 703 static char *out_buffer = NULL;
618 static size_t out_len; 704 static size_t out_len;
631 if (be_verbose > 2) printf("%s: skipping non-file\n", filename); 717 if (be_verbose > 2) printf("%s: skipping non-file\n", filename);
632 return; 718 return;
633 } 719 }
634 720
635 found_pax = found_phdr = found_relro = found_load = found_textrel = \ 721 found_pax = found_phdr = found_relro = found_load = found_textrel = \
636 found_rpath = found_needed = found_interp = found_bind = \ 722 found_rpath = found_needed = found_interp = found_bind = found_soname = \
637 found_sym = found_lib = found_file = found_textrels = 0; 723 found_sym = found_lib = found_file = found_textrels = 0;
638 724
639 /* verify this is real ELF */ 725 /* verify this is real ELF */
640 if ((elf = readelf(filename)) == NULL) { 726 if ((elf = readelf(filename)) == NULL) {
641 if (be_verbose > 2) printf("%s: not an ELF\n", filename); 727 if (be_verbose > 2) printf("%s: not an ELF\n", filename);
673 case 't': prints("TEXTREL "); break; 759 case 't': prints("TEXTREL "); break;
674 case 'r': prints("RPATH "); break; 760 case 'r': prints("RPATH "); break;
675 case 'n': prints("NEEDED "); break; 761 case 'n': prints("NEEDED "); break;
676 case 'i': prints("INTERP "); break; 762 case 'i': prints("INTERP "); break;
677 case 'b': prints("BIND "); break; 763 case 'b': prints("BIND "); break;
764 case 'S': prints("SONAME "); break;
678 case 's': prints("SYM "); break; 765 case 's': prints("SYM "); break;
679 case 'N': prints("LIB "); break; 766 case 'N': prints("LIB "); break;
680 case 'T': prints("TEXTRELS "); break; 767 case 'T': prints("TEXTRELS "); break;
681 default: warnf("'%c' has no title ?", out_format[i]); 768 default: warnf("'%c' has no title ?", out_format[i]);
682 } 769 }
741 case 'r': scanelf_file_rpath(elf, &found_rpath, &out_buffer, &out_len); break; 828 case 'r': scanelf_file_rpath(elf, &found_rpath, &out_buffer, &out_len); break;
742 case 'n': 829 case 'n':
743 case 'N': out = scanelf_file_needed_lib(elf, &found_needed, &found_lib, (out_format[i]=='N'), &out_buffer, &out_len); break; 830 case 'N': out = scanelf_file_needed_lib(elf, &found_needed, &found_lib, (out_format[i]=='N'), &out_buffer, &out_len); break;
744 case 'i': out = scanelf_file_interp(elf, &found_interp); break; 831 case 'i': out = scanelf_file_interp(elf, &found_interp); break;
745 case 'b': out = scanelf_file_bind(elf, &found_bind); break; 832 case 'b': out = scanelf_file_bind(elf, &found_bind); break;
833 case 'S': out = scanelf_file_soname(elf, &found_soname); break;
746 case 's': out = scanelf_file_sym(elf, &found_sym); break; 834 case 's': out = scanelf_file_sym(elf, &found_sym); break;
747 default: warnf("'%c' has no scan code?", out_format[i]); 835 default: warnf("'%c' has no scan code?", out_format[i]);
748 } 836 }
749 if (out) xstrcat(&out_buffer, out, &out_len); 837 if (out) xstrcat(&out_buffer, out, &out_len);
750 } 838 }
751 839
752#define FOUND_SOMETHING() \ 840#define FOUND_SOMETHING() \
753 (found_pax || found_phdr || found_relro || found_load || found_textrel || \ 841 (found_pax || found_phdr || found_relro || found_load || found_textrel || \
754 found_rpath || found_needed || found_interp || found_bind || \ 842 found_rpath || found_needed || found_interp || found_bind || \
755 found_sym || found_lib || found_textrels) 843 found_soname || found_sym || found_lib || found_textrels)
756 844
757 if (!found_file && (!be_quiet || (be_quiet && FOUND_SOMETHING()))) { 845 if (!found_file && (!be_quiet || (be_quiet && FOUND_SOMETHING()))) {
758 xchrcat(&out_buffer, ' ', &out_len); 846 xchrcat(&out_buffer, ' ', &out_len);
759 xstrcat(&out_buffer, filename, &out_len); 847 xstrcat(&out_buffer, filename, &out_len);
760 } 848 }
911} 999}
912 1000
913 1001
914 1002
915/* usage / invocation handling functions */ 1003/* usage / invocation handling functions */
916#define PARSE_FLAGS "plRmyxetrnibs:N:TaqvF:f:o:BhV" 1004#define PARSE_FLAGS "plRmyxetrnibSs:gN:TaqvF:f:o:BhV"
917#define a_argument required_argument 1005#define a_argument required_argument
918static struct option const long_opts[] = { 1006static struct option const long_opts[] = {
919 {"path", no_argument, NULL, 'p'}, 1007 {"path", no_argument, NULL, 'p'},
920 {"ldpath", no_argument, NULL, 'l'}, 1008 {"ldpath", no_argument, NULL, 'l'},
921 {"recursive", no_argument, NULL, 'R'}, 1009 {"recursive", no_argument, NULL, 'R'},
926 {"textrel", no_argument, NULL, 't'}, 1014 {"textrel", no_argument, NULL, 't'},
927 {"rpath", no_argument, NULL, 'r'}, 1015 {"rpath", no_argument, NULL, 'r'},
928 {"needed", no_argument, NULL, 'n'}, 1016 {"needed", no_argument, NULL, 'n'},
929 {"interp", no_argument, NULL, 'i'}, 1017 {"interp", no_argument, NULL, 'i'},
930 {"bind", no_argument, NULL, 'b'}, 1018 {"bind", no_argument, NULL, 'b'},
1019 {"soname", no_argument, NULL, 'S'},
931 {"symbol", a_argument, NULL, 's'}, 1020 {"symbol", a_argument, NULL, 's'},
932 {"lib", a_argument, NULL, 'N'}, 1021 {"lib", a_argument, NULL, 'N'},
1022 {"gmatch", no_argument, NULL, 'g'},
933 {"textrels", no_argument, NULL, 'T'}, 1023 {"textrels", no_argument, NULL, 'T'},
934 {"all", no_argument, NULL, 'a'}, 1024 {"all", no_argument, NULL, 'a'},
935 {"quiet", no_argument, NULL, 'q'}, 1025 {"quiet", no_argument, NULL, 'q'},
936 {"verbose", no_argument, NULL, 'v'}, 1026 {"verbose", no_argument, NULL, 'v'},
937 {"format", a_argument, NULL, 'F'}, 1027 {"format", a_argument, NULL, 'F'},
954 "Print TEXTREL information", 1044 "Print TEXTREL information",
955 "Print RPATH information", 1045 "Print RPATH information",
956 "Print NEEDED information", 1046 "Print NEEDED information",
957 "Print INTERP information", 1047 "Print INTERP information",
958 "Print BIND information", 1048 "Print BIND information",
1049 "Print SONAME information",
959 "Find a specified symbol", 1050 "Find a specified symbol",
960 "Find a specified library", 1051 "Find a specified library",
1052 "Use strncmp to match libraries. (use with -N)",
961 "Locate cause of TEXTREL", 1053 "Locate cause of TEXTREL",
962 "Print all scanned info (-x -e -t -r -n -i -b)\n", 1054 "Print all scanned info (-x -e -t -r -b)\n",
963 "Only output 'bad' things", 1055 "Only output 'bad' things",
964 "Be verbose (can be specified more than once)", 1056 "Be verbose (can be specified more than once)",
965 "Use specified format for output", 1057 "Use specified format for output",
966 "Read input stream from a filename", 1058 "Read input stream from a filename",
967 "Write output stream to a filename", 1059 "Write output stream to a filename",
992 puts("\nThe format modifiers for the -F option are:"); 1084 puts("\nThe format modifiers for the -F option are:");
993 puts(" F Filename \tx PaX Flags \te STACK/RELRO"); 1085 puts(" F Filename \tx PaX Flags \te STACK/RELRO");
994 puts(" t TEXTREL \tr RPATH \tn NEEDED"); 1086 puts(" t TEXTREL \tr RPATH \tn NEEDED");
995 puts(" i INTERP \tb BIND \ts symbol"); 1087 puts(" i INTERP \tb BIND \ts symbol");
996 puts(" N library \to Type \tT TEXTRELs"); 1088 puts(" N library \to Type \tT TEXTRELs");
1089 puts(" S SONAME");
997 puts(" p filename (with search path removed)"); 1090 puts(" p filename (with search path removed)");
998 puts(" f base filename"); 1091 puts(" f filename (short name/basename)");
999 puts("Prefix each modifier with '%' (verbose) or '#' (silent)"); 1092 puts("Prefix each modifier with '%' (verbose) or '#' (silent)");
1000 1093
1001 exit(status); 1094 exit(status);
1002} 1095}
1003 1096
1010 opterr = 0; 1103 opterr = 0;
1011 while ((i=getopt_long(argc, argv, PARSE_FLAGS, long_opts, NULL)) != -1) { 1104 while ((i=getopt_long(argc, argv, PARSE_FLAGS, long_opts, NULL)) != -1) {
1012 switch (i) { 1105 switch (i) {
1013 1106
1014 case 'V': 1107 case 'V':
1015 printf("%s compiled %s\n%s\n" 1108 printf("pax-utils-%s: %s compiled %s\n%s\n"
1016 "%s written for Gentoo Linux by <solar and vapier @ gentoo.org>\n", 1109 "%s written for Gentoo by <solar and vapier @ gentoo.org>\n",
1017 __FILE__, __DATE__, rcsid, argv0); 1110 VERSION, __FILE__, __DATE__, rcsid, argv0);
1018 exit(EXIT_SUCCESS); 1111 exit(EXIT_SUCCESS);
1019 break; 1112 break;
1020 case 'h': usage(EXIT_SUCCESS); break; 1113 case 'h': usage(EXIT_SUCCESS); break;
1021 case 'f': 1114 case 'f':
1022 if (from_file) err("Don't specify -f twice"); 1115 if (from_file) err("Don't specify -f twice");
1049 if (out_format) err("Don't specify -F twice"); 1142 if (out_format) err("Don't specify -F twice");
1050 out_format = xstrdup(optarg); 1143 out_format = xstrdup(optarg);
1051 break; 1144 break;
1052 } 1145 }
1053 1146
1147 case 'g': gmatch = 1;
1054 case 'y': scan_symlink = 0; break; 1148 case 'y': scan_symlink = 0; break;
1055 case 'B': show_banner = 0; break; 1149 case 'B': show_banner = 0; break;
1056 case 'l': scan_ldpath = 1; break; 1150 case 'l': scan_ldpath = 1; break;
1057 case 'p': scan_envpath = 1; break; 1151 case 'p': scan_envpath = 1; break;
1058 case 'R': dir_recurse = 1; break; 1152 case 'R': dir_recurse = 1; break;
1062 case 't': show_textrel = 1; break; 1156 case 't': show_textrel = 1; break;
1063 case 'r': show_rpath = 1; break; 1157 case 'r': show_rpath = 1; break;
1064 case 'n': show_needed = 1; break; 1158 case 'n': show_needed = 1; break;
1065 case 'i': show_interp = 1; break; 1159 case 'i': show_interp = 1; break;
1066 case 'b': show_bind = 1; break; 1160 case 'b': show_bind = 1; break;
1161 case 'S': show_soname = 1; break;
1067 case 'T': show_textrels = 1; break; 1162 case 'T': show_textrels = 1; break;
1068 case 'q': be_quiet = 1; break; 1163 case 'q': be_quiet = 1; break;
1069 case 'v': be_verbose = (be_verbose % 20) + 1; break; 1164 case 'v': be_verbose = (be_verbose % 20) + 1; break;
1070 case 'a': show_pax = show_phdr = show_textrel = show_rpath = \ 1165 case 'a': show_pax = show_phdr = show_textrel = show_rpath = show_bind = 1; break;
1071 show_needed = show_interp = show_bind = 1; break;
1072 1166
1073 case ':': 1167 case ':':
1074 err("Option missing parameter\n"); 1168 err("Option missing parameter\n");
1075 case '?': 1169 case '?':
1076 err("Unknown option\n"); 1170 err("Unknown option\n");
1080 } 1174 }
1081 1175
1082 /* let the format option override all other options */ 1176 /* let the format option override all other options */
1083 if (out_format) { 1177 if (out_format) {
1084 show_pax = show_phdr = show_textrel = show_rpath = \ 1178 show_pax = show_phdr = show_textrel = show_rpath = \
1085 show_needed = show_interp = show_bind = show_textrels = 0; 1179 show_needed = show_interp = show_bind = show_soname = \
1180 show_textrels = 0;
1086 for (i = 0; out_format[i]; ++i) { 1181 for (i = 0; out_format[i]; ++i) {
1087 if (!IS_MODIFIER(out_format[i])) continue; 1182 if (!IS_MODIFIER(out_format[i])) continue;
1088 1183
1089 switch (out_format[++i]) { 1184 switch (out_format[++i]) {
1090 case '%': break; 1185 case '%': break;
1100 case 't': show_textrel = 1; break; 1195 case 't': show_textrel = 1; break;
1101 case 'r': show_rpath = 1; break; 1196 case 'r': show_rpath = 1; break;
1102 case 'n': show_needed = 1; break; 1197 case 'n': show_needed = 1; break;
1103 case 'i': show_interp = 1; break; 1198 case 'i': show_interp = 1; break;
1104 case 'b': show_bind = 1; break; 1199 case 'b': show_bind = 1; break;
1200 case 'S': show_soname = 1; break;
1105 case 'T': show_textrels = 1; break; 1201 case 'T': show_textrels = 1; break;
1106 default: 1202 default:
1107 err("Invalid format specifier '%c' (byte %i)", 1203 err("Invalid format specifier '%c' (byte %i)",
1108 out_format[i], i+1); 1204 out_format[i], i+1);
1109 } 1205 }
1119 if (show_textrel) xstrcat(&out_format, "%t ", &fmt_len); 1215 if (show_textrel) xstrcat(&out_format, "%t ", &fmt_len);
1120 if (show_rpath) xstrcat(&out_format, "%r ", &fmt_len); 1216 if (show_rpath) xstrcat(&out_format, "%r ", &fmt_len);
1121 if (show_needed) xstrcat(&out_format, "%n ", &fmt_len); 1217 if (show_needed) xstrcat(&out_format, "%n ", &fmt_len);
1122 if (show_interp) xstrcat(&out_format, "%i ", &fmt_len); 1218 if (show_interp) xstrcat(&out_format, "%i ", &fmt_len);
1123 if (show_bind) xstrcat(&out_format, "%b ", &fmt_len); 1219 if (show_bind) xstrcat(&out_format, "%b ", &fmt_len);
1220 if (show_soname) xstrcat(&out_format, "%S ", &fmt_len);
1124 if (show_textrels) xstrcat(&out_format, "%T ", &fmt_len); 1221 if (show_textrels) xstrcat(&out_format, "%T ", &fmt_len);
1125 if (find_sym) xstrcat(&out_format, "%s ", &fmt_len); 1222 if (find_sym) xstrcat(&out_format, "%s ", &fmt_len);
1126 if (find_lib) xstrcat(&out_format, "%N ", &fmt_len); 1223 if (find_lib) xstrcat(&out_format, "%N ", &fmt_len);
1127 if (!be_quiet) xstrcat(&out_format, "%F ", &fmt_len); 1224 if (!be_quiet) xstrcat(&out_format, "%F ", &fmt_len);
1128 } 1225 }

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.91

  ViewVC Help
Powered by ViewVC 1.1.20