2 InstallShield Z file format
3 Copyright 2015 <hacker@iam.tj>
4 Licenced on the terms of then GNU General Public Licence version 3
6 Read and extract InstallShield .Z archive files
10 #include <sys/types.h>
20 #include "installshield_z.h"
22 static const size_t BUFFER_SIZE = 0x4000;
23 static bool debug = 0;
24 static bool extract = 0;
27 usage(const char *name)
29 printf("usage: %s %s\n\n", name,
36 headers_decode(int z_fd)
39 struct archive_header *header = NULL;
43 if (z_fd != -1 && (header = calloc(BUFFER_SIZE, 1))) {
44 offset = lseek(z_fd, offset, SEEK_SET);
45 if ((qty = read(z_fd, header, Z_FILE_HEADER_BYTES))< Z_FILE_HEADER_BYTES)
46 fprintf(stderr, "Warning: Tried to read %ld header bytes but only got %ld. Will do my best\n", Z_FILE_HEADER_BYTES, qty);
47 printf("Magic %08x\n", header->magic);
48 printf("CRC32 %08x\n", header->__crc32);
49 printf("File size %08x\n", header->file_bytes);
50 printf("Payload size %08x\n", header->payload_bytes);
51 printf("Directories offset %08x\n", header->directories_offset);
52 printf("Directories size %08x\n", header->directories_bytes);
53 printf("Directories entries %04x\n", header->directories_entries);
54 printf("Files offset %08x\n", header->files_offset);
55 printf("Files size %08x\n", header->files_bytes);
56 printf("Files entries %04x\n", header->files_entries);
58 offset = lseek(z_fd, header->directories_offset, SEEK_SET);
59 struct dirent_prefix *dirent, *p;
61 if (offset == header->directories_offset && ((dirent = p = calloc(header->directories_bytes, 1)))) {
63 if ((qty = read(z_fd, dirent, header->directories_bytes)) != header->directories_bytes)
64 fprintf(stderr, "Warning: Tried to read %d directory bytes but only got %ld. Will do my best\n", header->directories_bytes, qty);
66 printf("Directory entries: %d ( %08x bytes @ 0x%08x)\n", header->directories_entries, header->directories_bytes, header->directories_offset);
68 struct dirent dirents[header->directories_entries];
69 for (int i = 0; i < header->directories_entries; ++i) {
70 printf(" Entry %4d Size %x @ %08x \"%s\"\n", i, p->entry_bytes, header->directories_offset + (uint32_t)((void *)p - (void *)dirent), p->name);
72 p = (void *)p + p->entry_bytes;
75 offset = lseek(z_fd, header->files_offset, SEEK_SET);
76 struct fileent_prefix *fileent, *q;
77 if (offset == header->files_offset && ((fileent = q = calloc(header->files_bytes, 1)))) {
78 if ((qty = read(z_fd, fileent, header->files_bytes)) != header->files_bytes)
79 fprintf(stderr, "Warning: Tried to read %d file entry bytes but only got %ld. Will do my best\n", header->files_bytes, qty);
81 printf("File entries: %d ( %08x bytes @ 0x%08x)\n", header->files_entries, header->files_bytes, header->files_offset);
83 for (int i = 0; i < header->files_entries; ++i) {
84 printf(" Entry %4d uses %06x bytes @ %08x. file-size %08x (payload %08x @ %08x)", i, q->entry_bytes, header->files_offset +(uint32_t)((void *)q - (void *)fileent), q->file_bytes, q->payload_bytes, q->payload_offset);
87 printf(" next @ %08x", q->payload_offset + q->payload_bytes);
88 for (int r = 0; r < 0x1E; ++r)
89 printf(" %02x", *(unsigned char *)(r + (void *)q));
92 printf(" \"%s\\%s\"\n", dirents[q->dir_index].entry->name, q->name);
94 char *dir_name = strdup(dirents[q->dir_index].entry->name);
95 for (char *p = dir_name; *p; ++p)
96 if (*p == '\\') *p = '/';
97 if (debug) printf("Parsing '%s' (%ld bytes)\n", dir_name, strlen(dir_name));
99 int dir_fd = AT_FDCWD;
100 int dir_fd_last = dir_fd;
102 if (!dirents[q->dir_index].created) {
103 char *component = dir_name;
104 bool last_component = false;
105 for (char *sep = dir_name;; ++sep) {
106 if (*sep == '/' || *sep == 0) {
108 last_component = true;
111 if (strlen(component) > 0) {
112 if (debug) printf("Component: '%s' %ld bytes @ %p\n", component, strlen(component), component);
113 int ret = mkdirat(dir_fd, component, 0755);
114 if (ret == 0 || (ret == -1 && errno == EEXIST)) {
116 printf("Directory '%s' %s\n", component, ret == 0 ? "created" : "already exists");
117 dir_fd_last = dir_fd;
118 dir_fd = openat(dir_fd_last, component, O_DIRECTORY);
121 fprintf(stderr, "Error %d: cannot open directory '%s': ", errno, component);
124 break; // cannot continue if unable to open a path component
125 } else if (last_component == true) {
126 dirents[q->dir_index].created = true;
129 fprintf(stderr, "Error %d: cannot create directory '%s': ", errno, component);
132 break; // leave the for() loop immediately
137 if (last_component) break;
142 } // .created == false
144 if ((dir_fd = openat(AT_FDCWD, dir_name, O_DIRECTORY)) != -1) {
146 unsigned int z_filename_len = strlen(q->name) + 4;
147 char z_filename[z_filename_len];
148 strncpy(z_filename, q->name, z_filename_len);
149 strncat(z_filename, ".z", 2);
152 printf(" Creating payload file '%s/%s'\n", dir_name, z_filename);
154 if ((offset = lseek(z_fd, q->payload_offset, SEEK_SET)) == q->payload_offset) {
156 if ((buffer = calloc(q->payload_bytes, 1)) != 0) {
158 if ((pay_fd = openat(dir_fd, z_filename, O_WRONLY | O_CREAT | O_TRUNC, 0644))) {
159 ssize_t z_qty, pay_qty;
160 if ((z_qty = read(z_fd, buffer, q->payload_bytes)) == q->payload_bytes) {
162 unsigned int checksum = 0x0;
163 for (int i = 0; i < q->payload_bytes / sizeof(unsigned int); ++i) {
164 checksum ^= ((unsigned int *)buffer)[i];
166 printf("Checksum: %08x\n", checksum);
168 if ((pay_qty = write(pay_fd, buffer, q->payload_bytes)) != q->payload_bytes)
169 fprintf(stderr, "Error: whilst writing payload expected %d bytes but wrote %ld\n", q->payload_bytes, pay_qty);
171 fprintf(stderr, "Error: whilst reading payload expected %d bytes but read %ld\n", q->payload_bytes, z_qty);
174 if (q->payload_bytes >= 4) {
175 uint8_t comp_type = *(uint8_t *)buffer;
176 uint8_t dict_size = *(uint8_t *)(buffer + 1);
177 if (comp_type >= IMPLODE_BINARY && comp_type <= IMPLODE_ASCII && dict_size >= IMPLODE_DICT_1K && dict_size <= IMPLODE_DICT_4K) {
178 void * buffer_decomp;
179 if ((buffer_decomp = calloc(q->file_bytes, 1)) != 0) {
180 uint32_t decomp_bytes = q->file_bytes;
181 if (explode(buffer, q->payload_bytes, buffer_decomp, &decomp_bytes)) {
182 if (decomp_bytes > q->file_bytes) {
183 fprintf(stderr, "Expected %d uncompressed bytes but got %d\n", q->file_bytes, decomp_bytes);
186 if ((decomp_fd = openat(dir_fd, q->name, O_WRONLY | O_CREAT | O_TRUNC, 0644))) {
189 printf("Creating uncompressed file '%s/%s'\n",dir_name, q->name);
190 if ((decomp_qty = write(decomp_fd, buffer_decomp, q->file_bytes)) != q->file_bytes)
191 fprintf(stderr, "Error: whilst writing decompressed data expected %d bytes but wrote %ld\n", q->file_bytes, decomp_qty);
195 fprintf(stderr, "Error: failed to decompress '%s', payload: %d decompressed: %d\n", q->name, q->payload_bytes, decomp_bytes);
199 fprintf(stderr, "Error: unable to allocate %d bytes for decompression buffer\n", q->file_bytes);
202 fprintf(stderr, "Does not look like TTComp compressed data. header: %04x\n", *(uint16_t *)buffer);
205 fprintf(stderr, "Error: payload %d bytes smaller than minimum allowed TTComp of 4\n", q->payload_bytes);
210 fprintf(stderr, "Error %d: failed to create %s\n", errno, z_filename);
214 fprintf(stderr, "Error %d: cannot open directory at (%d) '%s': ", errno, dir_fd, dir_name);
218 q = (void *)q + q->entry_bytes;
224 fprintf(stderr, "Error: %s\n", "failed to seek or couldn't allocate memory for directories");
233 main(int argc, char **argv, char **env)
243 for (char **e = env; *e; ++e) {
244 if (strncmp("DEBUG", *e, 5) == 0)
247 for (char **a = argv; *a; ++a) {
248 if (debug) printf("Arg: %s\n", *a);
249 if (strncmp("-x", *a, 2) == 0 || strncmp("--extract", *a, 9) == 0)
253 if ((fd = open(argv[1], O_RDONLY)) != -1) {
254 result = headers_decode(fd);
257 fprintf(stderr, "Error: could not open %s\n", argv[0]);