scripts

misc scripts and tools
git clone git://git.2f30.org/scripts.git
Log | Files | Refs

commit 2781ab32ce207523441cbe4ecce967f408c86217
parent 03a8240a9cce607b8632178bb243a1d79f80e15e
Author: lostd <lostd@2f30.org>
Date:   Mon, 10 Aug 2015 18:07:46 +0300

Include ISO LBA fixer tool by DeXT

Diffstat:
selfboot/Makefile | 2+-
selfboot/isofix.c | 325+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
selfboot/isofix.h | 25+++++++++++++++++++++++++
3 files changed, 351 insertions(+), 1 deletion(-)

diff --git a/selfboot/Makefile b/selfboot/Makefile @@ -1,6 +1,6 @@ # dreamcast selfboot tools -BINS = makeip scramble 1strdchk +BINS = makeip scramble 1strdchk isofix all: $(BINS) diff --git a/selfboot/isofix.c b/selfboot/isofix.c @@ -0,0 +1,325 @@ +/******************************************************/ +/* */ +/* ISO start LBA fixing utility */ +/* */ +/* This tool will take an ISO image with PVD pointing */ +/* to bad DR offset and add padding data so actual DR */ +/* gets located in right absolute address. */ +/* */ +/* Original boot area, PVD, SVD and VDT are copied to */ +/* the start of new, fixed ISO image. */ +/* */ +/* Supported input image formats are: 2048, 2336, */ +/* 2352 and 2056 bytes per sector. All of them are */ +/* converted to 2048 bytes per sector when writing */ +/* excluding 2056 format which is needed by Mac users.*/ +/* */ +/******************************************************/ + + +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include "isofix.h" + + +int main( int argc, char **argv ) +{ + int sector_size = 2048, mode = 1; + long image_length, remaining_length, progress, last_pos, start_lba, i; + char lba_parameter = 0; + + char destfname[256]; + char string[256]; + char buffer[4096]; + + struct opts_s opts = { false, false, false, false, false }; + + FILE *fsource, *fdest, *fboot, *fheader; + + +printf("ISO LBA fixer 1.3 - (C) 2001 by DeXT\n\n"); + +// process command line + +strcpy(destfname,"fixed.iso"); + +if (argc < 2) + opts.askforimage = true; +else + { + for (i = 1; i < argc; i++) + { + if (atol(argv[i]) <= 0) // not a number, or negative one + { + if (!stricmp(argv[i], "/boot")) + { + opts.extractbootonly = true; + if (i == 1) opts.askforimage = true; + } + else if (!stricmp(argv[i], "/header")) + { + opts.extractheaderonly = true; + if (i == 1) opts.askforimage = true; + } + else if (!stricmp(argv[i], "/mac")) + { + opts.macformat = true; + if (i == 1) opts.askforimage = true; + } + else if (!stricmp(argv[i], "/iso")) + { + opts.isoformat = true; + if (i == 1) opts.askforimage = true; + } + else + { + if (i == 1) strcpy(string, argv[i]); + else strcpy(destfname, argv[i]); + } + } + else lba_parameter = i; + } + } + +if (opts.askforimage == true) + { + printf("\nPlease enter name of image to fix (Return to exit): "); + gets(string); + if (strlen(string) == 0) exit(1); + } + +printf("Processing file: '%s'\n",string); + +fsource = fopen(string,"rb"); + +if (fsource == NULL) { printf("Image not found!"); exit(1); } + +fseek(fsource, 0L, SEEK_END); +image_length = ftell(fsource); +fseek(fsource, 0L, SEEK_SET); + +// detect format + +printf("Scanning image...\n"); + +fread(buffer, 1, 16, fsource); +if (!memcmp(SYNC_DATA, buffer, 12)) // raw (2352) + { + sector_size = 2352; + switch(buffer[15]) + { + case 2: mode = 2; break; + case 1: mode = 1; break; + default: { printf("Unsupported track mode (%d)", buffer[15]); exit (1); } + } + if (seek_pvd(buffer, 2352, mode, fsource) == 0) { printf("Could not find PVD!\n"); exit(1); } + } +else if (seek_pvd(buffer, 2048, 1, fsource)) + { + sector_size = 2048; + mode = 1; + } +else if (seek_pvd(buffer, 2336, 2, fsource)) + { + sector_size = 2336; + mode = 2; + } +else if (seek_pvd(buffer, 2056, 2, fsource)) + { + sector_size = 2056; + mode = 2; + opts.macformat = true; + } +else { printf("Could not find PVD!\n"); exit(1); } + +if (opts.isoformat == true) opts.macformat = false; + +printf("sector size = %d, mode = %d\n", sector_size, mode); + +if (opts.extractbootonly == false && opts.extractheaderonly == false) + { + if (lba_parameter != 0) + start_lba = atol(argv[lba_parameter]); + else + { + printf("\nPlease enter starting LBA value: "); + gets(string); + start_lba = atol(string); + if (start_lba <= 0) { printf("Bad LBA value"); exit(1); } + } + + printf("Creating destination file '%s'...\n",destfname); + fdest = fopen(destfname, "wb"); + if (fdest == NULL) { printf("Can't open destination file!"); exit(1); } + } + +if (opts.extractheaderonly == false || (opts.extractheaderonly == true && opts.extractbootonly == true)) + { + printf("Saving boot area to file 'bootfile.bin'...\n"); + fboot = fopen("bootfile.bin", "wb"); + } +if (opts.extractbootonly == false || (opts.extractheaderonly == true && opts.extractbootonly == true)) + { + printf("Saving ISO header to file 'header.iso'...\n"); + fheader = fopen("header.iso", "wb"); + } + +// save boot area + +fseek(fsource, 0L, SEEK_SET); +for (i = 0; i < 16 ; i++) + { + sector_read(buffer, sector_size, mode, fsource); + if (opts.extractbootonly == false && opts.extractheaderonly == false) + { + if (opts.macformat == true) fwrite (SUB_HEADER, 8, 1, fdest); + fwrite(buffer, 2048, 1, fdest); + } + if (opts.extractheaderonly == false || (opts.extractheaderonly == true && opts.extractbootonly == true)) + { + if (opts.macformat == true) fwrite (SUB_HEADER, 8, 1, fboot); + fwrite(buffer, 2048, 1, fboot); + } + if (opts.extractbootonly == false || (opts.extractheaderonly == true && opts.extractbootonly == true)) + { + if (opts.macformat == true) fwrite (SUB_HEADER, 8, 1, fheader); + fwrite(buffer, 2048, 1, fheader); + } + } + +if (opts.extractheaderonly == false || (opts.extractheaderonly == true && opts.extractbootonly == true)) + fclose(fboot); +if (opts.extractbootonly == true && opts.extractheaderonly == false) exit(0); // boot saved, exit + +// seek & copy pvd etc. + +last_pos = ftell(fsource); // start of pvd + +do { + sector_read(buffer, sector_size, mode, fsource); + + if (!memcmp(PVD_STRING, buffer, 8)) { printf("Found PVD at sector %ld\n", last_pos/sector_size); } + else if (!memcmp(SVD_STRING, buffer, 8)) { printf("Found SVD at sector %ld\n", last_pos/sector_size); } + else if (!memcmp(VDT_STRING, buffer, 8)) { printf("Found VDT at sector %ld\n", last_pos/sector_size); opts.last_vd = true; } + else { printf("Error: Found unknown Volume Descriptor"); exit(1); } + + if (opts.extractbootonly == false && opts.extractheaderonly == false) + { + if (opts.macformat == true) fwrite (SUB_HEADER, 8, 1, fdest); + fwrite(buffer, 2048, 1, fdest); + } + if (opts.macformat == true) fwrite (SUB_HEADER, 8, 1, fheader); + fwrite(buffer, 2048, 1, fheader); + last_pos = ftell(fsource); + } + while (opts.last_vd == false); + +// add padding data to header file + +for(i = 0; i < (long)sizeof(buffer); i++) // clear buffer + buffer[i] = 0; + +remaining_length = 300 - (last_pos/sector_size); +for(i = 0; i < remaining_length; i++) + { + if (opts.macformat == true) fwrite (SUB_HEADER, 8, 1, fheader); + fwrite(buffer, 2048, 1, fheader); + } + +fclose(fheader); +if (opts.extractheaderonly == true) exit(0); // header saved, exit + +// add padding data to iso image + +if (last_pos > start_lba*sector_size) + { printf("Sorry, LBA value is too small...\nIt should be at least %d for current ISO image (probably greater)", last_pos/sector_size); exit(1); } +if (start_lba < 11700) + printf("Warning! LBA value should be greater or equal to 11700 for multisession images\n"); + +printf("Adding padding data up to start LBA value..."); + +remaining_length = start_lba - (last_pos/sector_size); + +printf(" "); +for(i = 0; i < remaining_length; i++) + { + if (!(i%512)) + { + progress = i*100/remaining_length; + printf("\b\b\b%02d%%", progress); + } + if (opts.macformat == true) fwrite (SUB_HEADER, 8, 1, fdest); + if (!fwrite(buffer, 2048, 1, fdest)) { printf("\nCan't write file! (disk full?)"); exit(1); } + } +printf("\b\b\b \b\b\b"); + +printf("Done!\n"); + +// append original iso image + +printf("Appending ISO image..."); + +fseek(fsource, 0L, SEEK_SET); + +remaining_length = image_length/sector_size; + +printf(" "); +for(i = 0; i < remaining_length; i++) + { + if (!(i%512)) + { + progress = i*100/remaining_length; + printf("\b\b\b%02d%%", progress); + } + if (!sector_read(buffer, sector_size, mode, fsource)) { printf("\nCan't read image!"); exit(1); } + if (opts.macformat == true) fwrite (SUB_HEADER, 8, 1, fdest); + if (!fwrite(buffer, 2048, 1, fdest)) { printf("\nCan't write file! (disk full?)"); exit(1); } + } +printf("\b\b\b \b\b\b"); + +printf("Done!\n"); + +printf("\nImage is now fixed!\n"); + +fclose(fsource); +fclose(fdest); + +return 0; +} + + +////////////////////////////////////////////////////////////////////////////// + +// seek_pvd() will search for valid PVD in sector 16 of source image + +int seek_pvd(char *buffer, int sector_size, int mode, FILE *fsource) +{ + fseek(fsource, 0L, SEEK_SET); + fseek(fsource, 16*sector_size, SEEK_CUR); // boot area + if (sector_size == 2352) fseek(fsource, 16, SEEK_CUR); // header + if (mode == 2) fseek(fsource, 8, SEEK_CUR); // subheader + fread(buffer, 1, 8, fsource); + if (!memcmp(PVD_STRING, buffer, 8)) return 1; + +return 0; +} + +// sector_read() will put user data into buffer no matter the source format + +int sector_read(char *buffer, int sector_size, int mode, FILE *fsource) +{ +int status; + + if (sector_size == 2352) fseek(fsource, 16, SEEK_CUR); // header + if (mode == 2) fseek(fsource, 8, SEEK_CUR); // subheader + status = fread(buffer, 2048, 1, fsource); + if (sector_size >= 2336) + { + fseek(fsource, 280, SEEK_CUR); + if (mode == 1) fseek(fsource, 8, SEEK_CUR); + } + +return status; +} + diff --git a/selfboot/isofix.h b/selfboot/isofix.h @@ -0,0 +1,25 @@ +#ifdef __linux__ + #define stricmp strcasecmp +#endif + + +typedef enum bool_t { false, true } bool; + +struct opts_s { + bool last_vd; + bool askforimage; + bool extractbootonly; + bool extractheaderonly; + bool macformat; + bool isoformat; + }; + +static const char PVD_STRING[8] = { 0x01, 0x43, 0x44, 0x30, 0x30, 0x31, 0x01, 0 }; //"\x01" "CD001" "\x01" "\0"; +static const char SVD_STRING[8] = { 0x02, 0x43, 0x44, 0x30, 0x30, 0x31, 0x01, 0 }; //"\x02" "CD001" "\x01" "\0"; +static const char VDT_STRING[8] = { 0xff, 0x43, 0x44, 0x30, 0x30, 0x31, 0x01, 0 }; //"\xFF" "CD001" "\x01" "\0"; +static const char SYNC_DATA[12] = { 0, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0 }; +static const char SUB_HEADER[8] = { 0, 0, 0x08, 0, 0, 0, 0x08, 0 }; + +int seek_pvd(char *buffer, int sector_size, int mode, FILE *fsource); +int sector_read(char *buffer, int sector_size, int mode, FILE *fsource); +