1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
char *readsonameXX(char *name, FILE *infile, int expected_type, int *type)
{
ElfW(Ehdr) *epnt;
ElfW(Phdr) *ppnt;
int i, j;
char *header;
ElfW(Word) dynamic_addr = 0;
ElfW(Word) dynamic_size = 0;
unsigned long page_size = getpagesize();
ElfW(Word) strtab_val = 0;
ElfW(Word) needed_val;
ElfW(Sword) loadaddr = -1;
ElfW(Dyn) *dpnt;
struct stat st;
char *needed;
char *soname = NULL;
int multi_libcs = 0;
if(expected_type == LIB_DLL)
{
warn("%s does not match type specified for directory!", name);
expected_type = LIB_ANY;
}
*type = LIB_ELF;
if (fstat(fileno(infile), &st))
return NULL;
header = mmap(0, st.st_size, PROT_READ, MAP_SHARED, fileno(infile), 0);
if (header == (caddr_t)-1)
return NULL;
epnt = (ElfW(Ehdr) *)header;
if ((char *)(epnt+1) > (char *)(header + st.st_size))
goto skip;
ppnt = (ElfW(Phdr) *)&header[epnt->e_phoff];
if ((char *)ppnt < (char *)header ||
(char *)(ppnt+epnt->e_phnum) > (char *)(header + st.st_size))
goto skip;
for(i = 0; i < epnt->e_phnum; i++)
{
if (loadaddr == -1 && ppnt->p_type == PT_LOAD)
loadaddr = (ppnt->p_vaddr & ~(page_size-1)) -
(ppnt->p_offset & ~(page_size-1));
if(ppnt->p_type == 2)
{
dynamic_addr = ppnt->p_offset;
dynamic_size = ppnt->p_filesz;
};
ppnt++;
};
dpnt = (ElfW(Dyn) *) &header[dynamic_addr];
dynamic_size = dynamic_size / sizeof(ElfW(Dyn));
if ((char *)dpnt < (char *)header ||
(char *)(dpnt+dynamic_size) > (char *)(header + st.st_size))
goto skip;
while (dpnt->d_tag != DT_NULL)
{
if (dpnt->d_tag == DT_STRTAB)
strtab_val = dpnt->d_un.d_val;
dpnt++;
};
if (!strtab_val)
goto skip;
dpnt = (ElfW(Dyn) *) &header[dynamic_addr];
while (dpnt->d_tag != DT_NULL)
{
if (dpnt->d_tag == DT_SONAME || dpnt->d_tag == DT_NEEDED)
{
needed_val = dpnt->d_un.d_val;
if (needed_val + strtab_val - loadaddr >= 0 ||
needed_val + strtab_val - loadaddr < st.st_size)
{
needed = (char *) (header - loadaddr + strtab_val + needed_val);
if (dpnt->d_tag == DT_SONAME)
soname = xstrdup(needed);
for (j = 0; needed_tab[j].soname != NULL; j++)
{
if (strcmp(needed, needed_tab[j].soname) == 0)
{
if (*type != LIB_ELF && *type != needed_tab[j].type)
multi_libcs = 1;
*type = needed_tab[j].type;
}
}
}
}
dpnt++;
};
if (multi_libcs)
warn("%s appears to be for multiple libc's", name);
/* If we could not deduce the libc type, and we know what to expect, set the type */
if(*type == LIB_ELF && expected_type != LIB_ANY) *type = expected_type;
if(expected_type != LIB_ANY && expected_type != LIB_ELF &&
expected_type != *type)
{
warn("%s does not match type specified for directory!", name);
}
skip:
munmap(header, st.st_size);
return soname;
}
|
