X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/rsbs2/blobdiff_plain/0fcfb8f327f693fd691592cd04cc403d553f0924..2363a0d6a8cf44f7288e0795ff29e081ecf3a08f:/rsb-lz.c diff --git a/rsb-lz.c b/rsb-lz.c index 64a1a47..c90f5df 100644 --- a/rsb-lz.c +++ b/rsb-lz.c @@ -1,6 +1,111 @@ +#include +#include +#include +#include +#include +#include +#include "rsb-crc.h" +#include "rsb-lz.h" +#include "filesystem.h" + /* TODO: IMPLEMET THIS! */ /* Probably very broken lzw implementation by Agilent: * + * 59508: e3a00078 mov r0, #120 ; 0x78 + * 5950c: ee010f10 mcr 15, 0, r0, cr1, cr0, {0} + * 59510: e3a00000 mov r0, #0 ; 0x0 + * 59514: ee070f15 mcr 15, 0, r0, cr7, cr5, {0} + * 59518: ee070f16 mcr 15, 0, r0, cr7, cr6, {0} + * 5951c: ee020f30 mcr 15, 0, r0, cr2, cr0, {1} + * 59520: ee020f10 mcr 15, 0, r0, cr2, cr0, {0} + * 59524: ee030f10 mcr 15, 0, r0, cr3, cr0, {0} + * 59528: ee050f70 mcr 15, 0, r0, cr5, cr0, {3} + * 5952c: ee050f50 mcr 15, 0, r0, cr5, cr0, {2} + * 59530: ee050f30 mcr 15, 0, r0, cr5, cr0, {1} + * 59534: ee050f10 mcr 15, 0, r0, cr5, cr0, {0} + * 59538: e3a00016 mov r0, #22 ; 0x16 + * 5953c: ee060f10 mcr 15, 0, r0, cr6, cr0, {0} + * 59540: ee060f11 mcr 15, 0, r0, cr6, cr1, {0} + * 59544: ee060f12 mcr 15, 0, r0, cr6, cr2, {0} + * 59548: ee060f13 mcr 15, 0, r0, cr6, cr3, {0} + * 5954c: ee060f14 mcr 15, 0, r0, cr6, cr4, {0} + * 59550: ee060f15 mcr 15, 0, r0, cr6, cr5, {0} + * 59554: ee060f16 mcr 15, 0, r0, cr6, cr6, {0} + * 59558: ee060f17 mcr 15, 0, r0, cr6, cr7, {0} + * 5955c: e1a0f00e mov r15, r14 + * 59560: e3a01000 mov r1, #0 ; 0x0 + * 59564: ee071f15 mcr 15, 0, r1, cr7, cr5, {0} + * 59568: ee071f16 mcr 15, 0, r1, cr7, cr6, {0} + * 5956c: e3800078 orr r0, r0, #120 ; 0x78 + * 59570: ee010f10 mcr 15, 0, r0, cr1, cr0, {0} + * 59574: e1a0f00e mov r15, r14 + * 59578: e92d00f0 push {r4, r5, r6, r7} + * 5957c: e3500007 cmp r0, #7 ; 0x7 + * 59580: 8a00003c bhi 0x59678 + * 59584: e3e04ef0 mvn r4, #3840 ; 0xf00 + * 59588: e22440ff eor r4, r4, #255 ; 0xff + * 5958c: e1d14004 bics r4, r1, r4 + * 59590: 1a000038 bne 0x59678 + * 59594: e3a0403f mov r4, #63 ; 0x3f + * 59598: e1d24004 bics r4, r2, r4 + * 5959c: 1a000035 bne 0x59678 + * 595a0: e3a06001 mov r6, #1 ; 0x1 + * 595a4: e1a04423 lsr r4, r3, #8 + * 595a8: e2044001 and r4, r4, #1 ; 0x1 + * 595ac: ee125f30 mrc 15, 0, r5, cr2, cr0, {1} + * 595b0: e1c55016 bic r5, r5, r6, lsl r0 + * 595b4: e1855014 orr r5, r5, r4, lsl r0 + * 595b8: ee025f30 mcr 15, 0, r5, cr2, cr0, {1} + * 595bc: e1a044a3 lsr r4, r3, #9 + * 595c0: e2044001 and r4, r4, #1 ; 0x1 + * 595c4: ee125f10 mrc 15, 0, r5, cr2, cr0, {0} + * 595c8: e1c55016 bic r5, r5, r6, lsl r0 + * 595cc: e1855014 orr r5, r5, r4, lsl r0 + * 595d0: ee025f10 mcr 15, 0, r5, cr2, cr0, {0} + * 595d4: e1a04523 lsr r4, r3, #10 + * 595d8: e2044001 and r4, r4, #1 ; 0x1 + * 595dc: ee135f10 mrc 15, 0, r5, cr3, cr0, {0} + * 595e0: e1c55016 bic r5, r5, r6, lsl r0 + * 595e4: e1855014 orr r5, r5, r4, lsl r0 + * 595e8: ee035f10 mcr 15, 0, r5, cr3, cr0, {0} + * 595ec: e3a0600f mov r6, #15 ; 0xf + * 595f0: e3a07004 mov r7, #4 ; 0x4 + * 595f4: e0070790 mul r7, r0, r7 + * 595f8: e0034006 and r4, r3, r6 + * 595fc: ee155f70 mrc 15, 0, r5, cr5, cr0, {3} + * 59600: e1c55716 bic r5, r5, r6, lsl r7 + * 59604: e1855714 orr r5, r5, r4, lsl r7 + * 59608: ee055f70 mcr 15, 0, r5, cr5, cr0, {3} + * 5960c: e1a04223 lsr r4, r3, #4 + * 59610: e0044006 and r4, r4, r6 + * 59614: ee155f50 mrc 15, 0, r5, cr5, cr0, {2} + * 59618: e1c55716 bic r5, r5, r6, lsl r7 + * 5961c: e1855714 orr r5, r5, r4, lsl r7 + * 59620: ee055f50 mcr 15, 0, r5, cr5, cr0, {2} + * 59624: e1814002 orr r4, r1, r2 + * 59628: e08ff180 add r15, r15, r0, lsl #3 + * 5962c: e1a00000 nop (mov r0,r0) + * 59630: ee064f10 mcr 15, 0, r4, cr6, cr0, {0} + * 59634: ea00000c b 0x5966c + * 59638: ee064f11 mcr 15, 0, r4, cr6, cr1, {0} + * 5963c: ea00000a b 0x5966c + * 59640: ee064f12 mcr 15, 0, r4, cr6, cr2, {0} + * 59644: ea000008 b 0x5966c + * 59648: ee064f13 mcr 15, 0, r4, cr6, cr3, {0} + * 5964c: ea000006 b 0x5966c + * 59650: ee064f14 mcr 15, 0, r4, cr6, cr4, {0} + * 59654: ea000004 b 0x5966c + * 59658: ee064f15 mcr 15, 0, r4, cr6, cr5, {0} + * 5965c: ea000002 b 0x5966c + * 59660: ee064f16 mcr 15, 0, r4, cr6, cr6, {0} + * 59664: ea000000 b 0x5966c + * 59668: ee064f17 mcr 15, 0, r4, cr6, cr7, {0} + * 5966c: e3a00000 mov r0, #0 ; 0x0 + * 59670: e8bd00f0 pop {r4, r5, r6, r7} + * 59674: e1a0f00e mov r15, r14 + * 59678: e3e00000 mvn r0, #0 ; 0x0 + * 5967c: e8bd00f0 pop {r4, r5, r6, r7} + * 59680: e1a0f00e mov r15, r14 * 59684: e92d43f8 push {r3, r4, r5, r6, r7, r8, r9, r14} * 59688: eb000000 bl 0x59690 * 5968c: e8bd83f8 pop {r3, r4, r5, r6, r7, r8, r9, r15} @@ -322,3 +427,260 @@ * 59b7c: 14000410 strne r0, [r0], #-1040 * 59b80: 46335053 undefined */ + +void err_exit(const char *fname) +{ + fprintf(stderr,"%s: error extracting...\n", fname); + exit(1); +} + +struct data_in_s { + unsigned char *start; /* 0 */ + unsigned char *stop; /* 4 */ + unsigned char bit; /* 8 */ + unsigned char x; /* 9 */ +}; + +struct data_out_s { + unsigned char *pos; + unsigned char *end; +}; + +unsigned char fn_597c8(struct data_in_s *r6_data) +{ + unsigned char *r0; + unsigned char *r1; + unsigned char r5; + + r5 = 0; + + r0 = r6_data->start; + r1 = r6_data->stop; + + if (r1 < r0) + err_exit(__func__); + + r5 = *r0; + r0++; + r6_data->start = r0; + + return r5; +} + +unsigned int fn_59848(struct data_in_s *r6_data) +{ + unsigned char r1; + unsigned char r2; + unsigned int r5; + + r1 = r6_data->bit; + if (r1 == 0x80) { + r6_data->x = fn_597c8(r6_data); + } + r1 = r6_data->bit; + r2 = r6_data->x; + r1 = r1 & r2; + r5 = r1 & 0xff; + + r1 = r6_data->bit; + r1 = r1 >> 1; + r6_data->bit = r1; + if (r1 == 0) { + r1 = 0x80; + r6_data->bit = r1; + } + + if (r5 == 0) + return 0; + + return 1; +} + +unsigned int fn_598b4(struct data_in_s *r11_data, unsigned int r10_arg2) +{ + unsigned int r1; + unsigned int r2; + unsigned int r6; + unsigned int r7; + + r1 = r10_arg2 - 1; + r6 = 1 << r1; + + r7 = 0; + while (r6 != 0) { + r1 = r11_data->bit; + if (r1 == 0x80) { + r1 = fn_597c8(r11_data); + r11_data->x = r1; + } + r1 = r11_data->bit; + r2 = r11_data->x; + r1 = r1 & r2; + if (r1 != 0) + r7 = r7 | r6; + + r6 = r6 >> 1; + + r2 = r11_data->bit; + r2 = r2 >> 1; + r11_data->bit = r2; + + r1 = r11_data->bit; + if(r1 == 0) { + r11_data->bit = 0x80; + } + } + + return r7; +} + +void fn_5980c(unsigned int arg1, struct data_out_s *data_out) +{ + unsigned char *r1; + unsigned char *r2; + + r1 = data_out->pos; + r2 = data_out->end; + + if (r1 > r2) { + printf("r1: 0x%08x, r2: 0x%08x\n", (unsigned int)r1, (unsigned int)r2); + err_exit(__func__); + } + + *r1 = arg1 & 0xff; + + r1++; + data_out->pos = r1; +} + +void lz_expand(struct data_in_s *r10_data, struct data_out_s *data_out) +{ + unsigned int r5; + unsigned int r2; + unsigned char r4; + unsigned int r6; + unsigned int r7; + unsigned int r11; + unsigned char arr_59b64[2048]; + + r5 = 1; + + while (1) { + while (1) { + r2 = fn_59848(r10_data); + if (r2 == 0) + break; + + r2 = fn_598b4(r10_data, 8) & 0xff; + r4 = r2; + + fn_5980c(r4, data_out); + arr_59b64[r5] = r4 & 0xff; + r2 = r5 + 1; + r2 = r2 << 22; + r2 = r2 >> 22; + r5 = r2; + } + + r11 = fn_598b4(r10_data, 0x0a); + if(r11 == 0) + return; + + r2 = fn_598b4(r10_data, 0x04); + r7 = r2 + 1; + r6 = 0; + while (r6 <= r7) { + r2 = r6 + r11; + r2 = r2 << 22; + r2 = r2 >> 22; + r4 = arr_59b64[r2]; + fn_5980c(r4, data_out); + arr_59b64[r5] = r4; + r2 = r5 + 1; + r2 = r2 << 22; + r2 = r2 >> 22; + r5 = r2; + r6++; + } + } +} + +unsigned int crc_check_59684(unsigned char *arg1, unsigned int arg2, unsigned int magic) +{ + unsigned int r3; + unsigned int r4; + unsigned int r5; + +#if 0 + if (r0 < 0xc0000000) + return 1; +#endif + + /* ??? */ + r4 = *((unsigned int*)arg1 + 0x20); + r5 = *((unsigned int*)arg1 + 0x24); + + printf("magic: 0x%08x <-> 0x%08x\n", r5, magic); + if (r5 != magic) + return 2; + + if (arg2 >= r4) + r5 = 0; + else + return 3; + + r5 = ~rsb_crc(~0x00, arg1, r4); + r3 = *((unsigned int*)(arg1 + r4)); + printf("Checksums: 0x%02x <-> 0x%02x\n", r5, r3); + + if (r3 == r5) + return 0; + + return 4; +} + +void extract_lz_file(unsigned char *inbuf, unsigned char *name) +{ + unsigned int len; + unsigned char *outbuf; + struct data_in_s data_in; + struct data_out_s data_out; + + if (*((unsigned int*)inbuf) != LZ_MAGIC) + err_exit(__func__); + + len = *((unsigned int*)(inbuf + 4)); + printf(", length: %d", len); + + if ((outbuf = malloc(len)) == NULL) { + perror("malloc"); + exit(1); + } + + bzero(outbuf, len); + + data_in.start = inbuf + 8; + data_in.stop = inbuf + len; + data_in.x = 0; + data_in.bit = 0x80; + + data_out.pos = outbuf; + data_out.end = outbuf + len; + + lz_expand(&data_in, &data_out); + +#if 0 + /* This seems to still be completely broken */ + r3 = r7 + 0x20; + r5 = *((unsigned int*)r3); + + if ((ret = crc_check_59684(r7, r5, 0x46335053)) != 0) { + printf("crc_check return: %d\n", ret); + err_exit(__func__); + } +#endif + + write_file((char*)name, outbuf, len); + + free(outbuf); +}