/* SMCRen v1.5 (c) 1999 Gridle - renames all your SNES roms to their "real" names. */

/* This define must be used if compiling on lcc (use findfirst) */
//#define USE_FINDFIRST

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <sys/stat.h>

/* History:
   0.x - not really SMCRen, but a proggy which dug up the rom name and
		 wrote a 4Dos descript.ion about it (this option removed later)
   1.0 - initial beta-test release, only renaming possible
   1.1 - auto-converting from no-header to smc
   1.2 - multiple images support
   1.3 - relative paths understood (smcren blah\blah\blah.rom)
	   - ported to win32 console also, needed using findfirst on every argument
	   - the first official release
   1.4 - lynx roms support
       - gameboy roms support (list only contains one rom)
   1.5 - gameboy list
*/
/* Todo: - output dir
         - logging
         - "-verifyroms"
         - proper support for multiple rom types (this is a damn kludge right now)
*/

#ifndef TRUE
#define TRUE		 -1
#define FALSE		 0
#endif

/* This define is wrapped to a lfn check function on DJGPP (dos), should be true for anything else */
#ifndef _USE_LFN
#define _USE_LFN TRUE
#endif

#ifdef USE_FINDFIRST
#include <io.h> // lcc
#endif

#define VERSION "1.5"

	char realtitle[1000];
	char crcfilename[1000];
	char filetocheck[1000];
	int multiformat;
	unsigned char *romdata;
	int output; 		  // see I suck at coding
	char outputdir[1000];
    int systemmode;

#define SYSTEM_NONE 0
#define SYSTEM_SNES 1
#define SYSTEM_LYNX 2
#define SYSTEM_GAMEBOY 3

int filenamecopypath(char *withoutpath,char *withpath);
void fetch_crc(unsigned int crc);
int readfiles(const char* file, int *filesize);
unsigned int calc_crc32 (unsigned int crc, const unsigned char *buf, unsigned int len);

unsigned char smcheader[16]={
	0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
	0xAA, 0xBB, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00 };
/* Add 0x00 until the header is 512 bytes large */

struct lynxhead
{
  unsigned char   magic[4];
  unsigned short   page_size_bank0;
  unsigned short   page_size_bank1;
  unsigned short   version;
  char   cartname[32];
  char   manufname[16];
  unsigned char   rotation;
  unsigned char   spare[5];
} lynxheader;
int page_size0,page_size1,rotation;

int main(int argc, char **argv)
{
	unsigned char *data;
	FILE *fp;
	int size,totaltotalsize,anothersize;
	int current;
	int smc;
	unsigned int crc;
	int nf;
	int rena;
	int autoconvert;
	char filename[200];
    char tempstring[200];
	int i;
	int multiimage;
#ifdef USE_FINDFIRST
	struct _finddata_t ffb; int done; long help; // <-- for expanding *.* etc. ourselves
#endif //USE_FINDFIRST

	smc=FALSE;

        printf("SMCRen v%s (c) 1999 Gridle - renames all your SNES/LYNX/GB roms to their \"real\" names.\n\n",VERSION);

	if(argc<2)
	{
		printf(

"Usage:   SMCRen [-r] [-c]"/* [-o <output dir>]*/" <files to rename>\n"
"(example: smcren -r *.smc *.fig, smcren -r -c sf*, smcren -c *.* -o crcfound\\)\n"
"\n"
"If -r is not specified, files will not be renamed. You will only see the\n"
"suggestions of their real names. If -c is specified (will force -r), all files\n"
"will be auto-converted to SMC format.\n"
/* The roms which get be successfully\n"
"converted/renamed can be moved to their own directory with -o.\n"
"It is even possible to process several roms and output them to different\n"
"directories: smcren -c -o snesready\\ snes\\* -o lynxready\\ lynx\\*\n"*/
"\n"
/*"If you get a \"NOT FOUND FROM DATABASE\" message, please take up the CRC\n"
"(redirect the output to a TXT file like SMCRen *.smc >blah.txt) and send it to\n"
"gridle@mbnet.fi, preferably with the REAL name of the game. Do NOT send ROM\n"
"images. The database file is crclist.txt, and it should be in the same\n"
"directory as SMCRen.\n"*/
"The database file is crclist.txt, and it should be in the same directory as\n"
"SMCRen.\n"

		);
		exit(0);
	}


	/* Settings from the user */

	rena=FALSE;
	autoconvert=FALSE;
    output=FALSE;

	current=1;
	while(current<argc)
	{
		if(strcmp(argv[current],"-r")==0 || strcmp(argv[current],"-R")==0) rena=TRUE;
		if(strcmp(argv[current],"-c")==0 || strcmp(argv[current],"-C")==0) {autoconvert=TRUE;rena=TRUE;}
/*        if(strcmp(argv[current],"-o")==0 || strcmp(argv[current],"-O")==0)
        {
            autoconvert=TRUE;
            rena=TRUE;
            output=TRUE;
            current++;

            strcpy(outputdir,argv[current]);

            i=strlen(outputdir);
            while(outputdir[i]!='/' && outputdir[i]!='\\') i--;
            i++;
            outputdir[i]=0;
        }*/
        current++;
	}

	if(_USE_LFN)
	{
		// lfn available
        printf("Long File Names available. ");

		if(rena)
			printf("Renaming files.");
		else
			printf("Not renaming files.");

		if(autoconvert)
			printf(" Autoconverting files.");

		printf("\n\n");
	}
	else
	{
		// lfn not available
        printf("Long File Names not available. Unable to rename nor autoconvert files.\nTry smcren32.exe.\n\n");
		rena=autoconvert=FALSE;
	}

	current=1;

	strcpy(crcfilename,argv[0]);
	i=strlen(crcfilename);
	while(crcfilename[i]!='/' && crcfilename[i]!='\\') i--;
	i++;
	crcfilename[i]=0;
	strcat(crcfilename,"crclist.txt");

	fp=fopen(crcfilename,"rt");
	if(fp==NULL)
	{
		printf("Error! crclist.txt not found!\n");
		exit(0);
	}
	fclose(fp);

	while(current<argc)
	{
		if(strcmp(argv[current],"-r")==0 || strcmp(argv[current],"-R")==0 ||
		   strcmp(argv[current],"-c")==0 || strcmp(argv[current],"-C")==0)
			goto getout;

/*        if(strcmp(argv[current],"-o")==0 || strcmp(argv[current],"-O")==0)
        {
            autoconvert=TRUE;
            rena=TRUE;
            output=TRUE;
            current++;

            strcpy(outputdir,argv[current]);

            while(outputdir[strlen(outputdir)-1]=='/' || outputdir[strlen(outputdir)-1]=='\\') outputdir[strlen(outputdir)-1]=0;

            printf("\nCreating output dir..\n");

            i=0;

            while(i<strlen(outputdir))
            {
                while(outputdir[i]!='/' && outputdir[i]!='\\')
                {
                    tempstring[i]=outputdir[i];
                    i++;
                }
                tempstring[i]=0;
                printf("Trying to create %s \n",tempstring);
                if(mkdir(tempstring,0))
                {
                    printf("failure\n");
                    if(i==strlen(outputdir) || i==(strlen(outputdir)-1))
                        exit(0);
                }
                else
                {
                    printf("success\n");
                    if(i==strlen(outputdir) || i==(strlen(outputdir)-1))
                        goto away;
                }
                tempstring[i]=outputdir[i];
                i++;
            }
away:
            printf("\nOutput directory: %s\n\n",outputdir);
            goto getout;
        }*/


		strcpy(filetocheck,argv[current]);

#ifdef USE_FINDFIRST
        help=_findfirst(filetocheck,&ffb); done=FALSE;
		while (!done)
		{
			if(ffb.attrib & _A_SUBDIR)
				goto getnext;

			strcpy(filetocheck,ffb.name);
            filenamecopypath(filetocheck,argv[current]);
#endif // USE_FINDFIRST

// do everything

		fp=fopen(filetocheck,"rb");

		if(fp==NULL)
		{
			printf("Can't find the file %s\n",filetocheck);
			goto getnext;
		}

        systemmode=SYSTEM_NONE;

		fseek(fp,0,SEEK_END);
		size=ftell(fp);
		if((size % 1024) == 0)
        {
			smc=FALSE;
            systemmode=SYSTEM_SNES;
        }
		else if((size % 1024) == 512)
        {
            smc=TRUE;
            systemmode=SYSTEM_SNES;
        }
        else
		{
            if((size % 128) == 64)
            {
                systemmode=SYSTEM_LYNX;
                smc=TRUE;
            }
            else
            {
                printf("Strange file size in the file %s. Not a SNES, LYNX or Gameboy rom.\n",filetocheck);
                systemmode=SYSTEM_NONE;
                goto getnext;
            }
		}

		fclose(fp);

		multiformat=-1;

		readfiles(filetocheck,&anothersize);
        crc = calc_crc32 (0, romdata, anothersize);
        free(romdata);

		strcpy(realtitle,"Not found!"); nf=TRUE;

		fetch_crc(crc); if (strcmp(realtitle,"Not found!")!=0) nf=FALSE;

        strcpy(tempstring,realtitle);

		if(nf==FALSE)
            filenamecopypath(realtitle,filetocheck);

		if(nf==FALSE)
		{
			if(strcmp(realtitle,filetocheck)!=0)
			{
				printf("%08x %s %s <- ",crc,filetocheck,realtitle);
                if(smc || systemmode == SYSTEM_GAMEBOY)
				{
					if(rena)
					{
                        printf("Renaming!\n");
                        rename(filetocheck,realtitle);
					}
					else
						printf("Rename!\n");
				}
				else
				{

                if(systemmode==SYSTEM_SNES)
                {
                    if(autoconvert)
					{
						printf("Auto-converting to SMC!\n");

						fp = fopen(filetocheck,"rb");

						data = (unsigned char*)malloc(size);
						if (!data)
						{
							printf("Not enough memory to convert rom!\n");
							fclose(fp);
							exit(0);
						}

						if (fread(data, sizeof (unsigned char), size, fp) != size)
						{
							printf("Error while reading ROM.\n");
							free(data);
							fclose(fp);
							exit(0);
						}
						fclose(fp);

						fp=fopen(realtitle,"wb");

						fwrite(smcheader, sizeof(unsigned char), 16, fp);

						for(i=0;i<496;i++)
							fputc(0x00, fp);

						if (fwrite(data, sizeof (unsigned char), size, fp) == size)
						{
							fclose(fp);
							free(data);
							remove(filetocheck);
						}
						else
						{
							fclose(fp);
							free(data);
							printf("Error while writing to the new ROM.\n");
							exit(0);
						}
					}
					else
					{
						if(rena)
							printf("Renaming!\nCan't rename. Please convert your rom to SMC format.\n");
						else
							printf("Rename!\n");
					}

                } // systemmode_snes
                else if(systemmode==SYSTEM_LYNX)
                {
                    if(autoconvert)
					{
                        printf("Auto-converting to LNX!\n");

                        fp = fopen(filetocheck,"rb");

						data = (unsigned char*)malloc(size);
						if (!data)
						{
							printf("Not enough memory to convert rom!\n");
							fclose(fp);
							exit(0);
						}

						if (fread(data, sizeof (unsigned char), size, fp) != size)
						{
							printf("Error while reading ROM.\n");
							free(data);
							fclose(fp);
							exit(0);
						}
						fclose(fp);

						fp=fopen(realtitle,"wb");

        page_size0=0;
        page_size1=0;

      switch(size)
      {
         case 131072:
            page_size0=512;
            break;
         case 262144:
            page_size0=1024;
            break;
         case 524288:
            page_size0=2048;
            break;
         default:
            break;
       }

    for(i=0;i<32;i++)
        if(tempstring[i]=='.') tempstring[i]=0;

    tempstring[31]=0;

   lynxheader.version=1;
   lynxheader.magic[0]='L';
   lynxheader.magic[1]='Y';
   lynxheader.magic[2]='N';
   lynxheader.magic[3]='X';
   for(i=0;i<32;i++) lynxheader.cartname[i]=0;
   strcpy(lynxheader.cartname,tempstring);
   for(i=0;i<16;i++) lynxheader.manufname[i]=0;
   strcpy(lynxheader.manufname,"Atari");
   for(i=0;i<6;i++) lynxheader.spare[i]=0;
   lynxheader.page_size_bank0=(unsigned short)page_size0;
   lynxheader.page_size_bank1=(unsigned short)page_size1;
   lynxheader.rotation=rotation;


                        fwrite(&lynxheader, sizeof(lynxheader), 1, fp);

						if (fwrite(data, sizeof (unsigned char), size, fp) == size)
						{
							fclose(fp);
							free(data);
							remove(filetocheck);
						}
						else
						{
							fclose(fp);
							free(data);
							printf("Error while writing to the new ROM.\n");
							exit(0);
                        }
                    }
                    else
					{
						if(rena)
                            printf("Renaming!\nCan't rename. Please convert your rom to LNX format.\n");
						else
							printf("Rename!\n");
                    }
                } // systemmode_lynx

                }
			}
			else
				printf("%08x %s <- Correct name.\n",crc,filetocheck);
		}
		else
		{
			// check if multi-image
			strcpy(filename,filetocheck);
			i=0; multiimage=0;
			while(filename[i]!='.' && filename[i]!=0) i++;
			if(filename[i-1]=='a' || filename[i-1]=='A')
			{
				while(1==1)
				{
					filename[i-1]++;
					fp=fopen(filename,"rb");
					if(fp!=NULL)
					{
						multiimage++;
						fclose(fp);
					}
					else
					{
                        filename[i-1]-=multiimage;
						filename[i-1]--;
						multiformat=0;
						break;
					}
				}
			}
			else if(filename[i+1]=='1')
			{
				while(1==1)
				{
					filename[i+1]++;
					fp=fopen(filename,"rb");
					if(fp!=NULL)
					{
						multiimage++;
						fclose(fp);
					}
					else
					{
						filename[i+1]-=multiimage;
						filename[i+1]--;
						multiformat=1;
						break;
					}
				}
			}

			if(multiimage>0)
			{
                systemmode=SYSTEM_SNES;
                readfiles(filename,&anothersize);
				crc = calc_crc32 (0, romdata, anothersize);
				free(romdata);

				strcpy(realtitle,"Not found!"); nf=TRUE;
				fetch_crc(crc); if (strcmp(realtitle,"Not found!")!=0) nf=FALSE;
                filenamecopypath(realtitle,filetocheck);
				if(nf==FALSE)
				{
					printf("%08x %s (multi) %s <- ",crc,filetocheck,realtitle);
					// Convert a multi-image to a single file! Gakk..
					if(autoconvert)
					{
						printf("Auto-converting to SMC!\n");

						readfiles(filename,&totaltotalsize);

						fp=fopen(realtitle,"wb");

						fwrite(smcheader, sizeof(unsigned char), 16, fp);

						for(i=0;i<496;i++)
							fputc(0x00, fp);

						if (fwrite(romdata, sizeof (unsigned char), totaltotalsize, fp) == totaltotalsize)
						{
							fclose(fp);
							free(romdata);
							i=0;
							while(filename[i]!='.' && filename[i]!=0) i++;
							multiimage++;
							while(multiimage>0)
							{
								remove(filename);
								if(multiformat==0)
									filename[i-1]++;
								else
									filename[i+1]++;
								multiimage--;
							}
						}
						else
						{
							fclose(fp);
							free(romdata);
							printf("Error while writing to the new ROM.\n");
							exit(0);
						}
					}
					else
					{
						if(rena)
							printf("Renaming!\nCan't rename. Please join your multiple images.\n");
						else
							printf("Rename!\n");
					}
				}
				else
					printf("%08x %s (multi) <- NOT FOUND FROM DATABASE!\n",crc,filetocheck);
			}
			else
//                printf("%08x %s\n",crc,filetocheck);
                printf("%08x %s <- NOT FOUND FROM DATABASE!\n",crc,filetocheck);
		}

// enough about doing everything

getnext:

#ifdef USE_FINDFIRST
			done=_findnext(help,&ffb);
		}
#endif // USE_FINDFIRST

getout:
		current++;

	}

	return 0;
}

int readfiles(const char* file, int *filesize)
{
	FILE *fp;
	int size,totalsize,totaltotalsize;
    int smc,header;
	int i;
	int multiimage;
	char filename[200];

    if(systemmode==SYSTEM_SNES)
    {
        totalsize=size=0;
        i=0; multiimage=0;
        strcpy(filename,file);
        while(filename[i]!='.' && filename[i]!=0) i++;
        while(1==1)
        {
            fp=fopen(filename,"rb");
            if(fp!=NULL)
            {
                fseek(fp,0,SEEK_END);
                size=ftell(fp);
                if((size % 1024) == 0)
                    smc=FALSE;
                else if((size % 1024) == 512)
                    smc=TRUE;
                else
                {
                    printf("Problem!\n");
                    exit(0); /* !!!!!!!! */
                }

                if(smc)
                    totalsize+=(size-512);
                else
                    totalsize+=(size);
                multiimage++;
                fclose(fp);
            }
            else
            {
                break;
            }
                                if(multiformat==0)
                                    filename[i-1]++;
                                else if(multiformat==1)
                                    filename[i+1]++;
                                else
                                    break;

        }

        romdata = (unsigned char*)malloc(totalsize);
        if (!romdata) {
            fclose(fp);
            return -1;
        }
        totaltotalsize=totalsize;
        totalsize=0; i=0;
        strcpy(filename,file);
        while(filename[i]!='.' && filename[i]!=0) i++;
        while(1==1)
        {
            fp=fopen(filename,"rb");
            if(fp!=NULL)
            {
                fseek(fp,0,SEEK_END);
                size=ftell(fp);
                if((size % 1024) == 0)
                    smc=FALSE;
                else if((size % 1024) == 512)
                    smc=TRUE;
                else
                {
                    printf("Problem!\n");
                    exit(0); /* !!!!!!!! */
                }

                if(smc)
                    fseek(fp, 512, SEEK_SET);
                else
                    fseek(fp, 0, SEEK_SET);

                if(smc)
                {
                    if (fread(romdata+totalsize, sizeof (unsigned char), size-512, fp) != (size-512)) {
                        free(romdata);
                        fclose(fp);
                        return -1;
                    }
                }
                else
                {
                    if (fread(romdata+totalsize, sizeof (unsigned char), size, fp) != size) {
                        free(romdata);
                        fclose(fp);
                        return -1;
                    }
                }
                if(smc)
                    totalsize+=(size-512);
                else
                    totalsize+=(size);

                fclose(fp);
            }
            else
            {
                break;
            }
                                if(multiformat==0)
                                    filename[i-1]++;
                                else if(multiformat==1)
                                    filename[i+1]++;
                                else break;
        }
        *filesize = totaltotalsize;
    }
    if(systemmode==SYSTEM_LYNX || systemmode==SYSTEM_GAMEBOY)
    {
        totalsize=size=0;
        i=0; multiimage=0;
        strcpy(filename,file);
            fp=fopen(filename,"rb");
            if(fp!=NULL)
            {
                fseek(fp,0,SEEK_END);
                size=ftell(fp);
                if((size % 128) == 0)
                    header=FALSE;
                else if((size % 128) == 64)
                    header=TRUE;
                else
                {
                    printf("Problem!\n");
                    exit(0); /* !!!!!!!! */
                }

                if(header)
                    totalsize+=(size-64);
                else
                    totalsize+=(size);
                fclose(fp);
            }

        romdata = (unsigned char*)malloc(totalsize);
        if (!romdata) {
            fclose(fp);
            return -1;
        }
        totaltotalsize=totalsize;
        totalsize=0; i=0;
        strcpy(filename,file);
            fp=fopen(filename,"rb");
            if(fp!=NULL)
            {
                fseek(fp,0,SEEK_END);
                size=ftell(fp);
                if((size % 128) == 0)
                    header=FALSE;
                else if((size % 128) == 64)
                    header=TRUE;
                else
                {
                    printf("Problem!\n");
                    exit(0); /* !!!!!!!! */
                }

                if(header)
                    fseek(fp, 64, SEEK_SET);
                else
                    fseek(fp, 0, SEEK_SET);

                if(header)
                {
                    if (fread(romdata+totalsize, sizeof (unsigned char), size-64, fp) != (size-64)) {
                        free(romdata);
                        fclose(fp);
                        return -1;
                    }
                }
                else
                {
                    if (fread(romdata+totalsize, sizeof (unsigned char), size, fp) != size) {
                        free(romdata);
                        fclose(fp);
                        return -1;
                    }
                }
                if(header)
                    totalsize+=(size-64);
                else
                    totalsize+=(size);

                fclose(fp);
            }

        *filesize = totaltotalsize;
    }


    return 0;
}

void fetch_crc(unsigned int crc)
{
	FILE *crclist;
	char buff[10];
	int i,j;
	char paska[1000];
    char tmp;

	sprintf(buff,"%08x",crc);
	crclist=fopen(crcfilename,"rt");

alkuf:
    if(feof(crclist)) goto outtahere;
    tmp=fgetc(crclist);
    if(feof(crclist)) goto outtahere;
    if(tmp=='#')
    {
        fgets(paska,900,crclist);
        j=strlen(paska);
        for(i=0;i<j;i++)
        {
            if(paska[i]==0x0a || paska[i]==0x0d || paska[i]==0x00)
            {
                paska[i]=0;
                goto newsect;
            }
        }
newsect:
        if(strcmp(paska,"SNES")==0) systemmode=SYSTEM_SNES;
        if(strcmp(paska,"LYNX")==0) systemmode=SYSTEM_LYNX;
        if(strcmp(paska,"GAMEBOY")==0) systemmode=SYSTEM_GAMEBOY;
        goto alkuf;
    }
    if(tmp!=buff[0])
        {
			fgets(paska,900,crclist);
			goto alkuf;
        }
    for(i=1;i<8;i++)
		if(fgetc(crclist)!=buff[i])
		{
			fgets(paska,900,crclist);
			goto alkuf;
		}

	while(fgetc(crclist)!=' ') ;

    if(systemmode==SYSTEM_LYNX)
    {
        tmp=fgetc(crclist);
        rotation=0;
        if(tmp=='l') rotation=1;
        if(tmp=='r') rotation=2;
        while(fgetc(crclist)!=' ') ;
    }

	fgets(realtitle,900,crclist);

    j=strlen(realtitle);
	for(i=0;i<j;i++)
	{
		if(realtitle[i]==0x0a || realtitle[i]==0x0d || realtitle[i]==0x00)
		{
			realtitle[i]=0;
            goto outtahere;
		}
	}

outtahere:
	fclose(crclist);
}

static unsigned int crc_table[256] = {
  0x00000000L, 0x77073096L, 0xee0e612cL, 0x990951baL, 0x076dc419L,
  0x706af48fL, 0xe963a535L, 0x9e6495a3L, 0x0edb8832L, 0x79dcb8a4L,
  0xe0d5e91eL, 0x97d2d988L, 0x09b64c2bL, 0x7eb17cbdL, 0xe7b82d07L,
  0x90bf1d91L, 0x1db71064L, 0x6ab020f2L, 0xf3b97148L, 0x84be41deL,
  0x1adad47dL, 0x6ddde4ebL, 0xf4d4b551L, 0x83d385c7L, 0x136c9856L,
  0x646ba8c0L, 0xfd62f97aL, 0x8a65c9ecL, 0x14015c4fL, 0x63066cd9L,
  0xfa0f3d63L, 0x8d080df5L, 0x3b6e20c8L, 0x4c69105eL, 0xd56041e4L,
  0xa2677172L, 0x3c03e4d1L, 0x4b04d447L, 0xd20d85fdL, 0xa50ab56bL,
  0x35b5a8faL, 0x42b2986cL, 0xdbbbc9d6L, 0xacbcf940L, 0x32d86ce3L,
  0x45df5c75L, 0xdcd60dcfL, 0xabd13d59L, 0x26d930acL, 0x51de003aL,
  0xc8d75180L, 0xbfd06116L, 0x21b4f4b5L, 0x56b3c423L, 0xcfba9599L,
  0xb8bda50fL, 0x2802b89eL, 0x5f058808L, 0xc60cd9b2L, 0xb10be924L,
  0x2f6f7c87L, 0x58684c11L, 0xc1611dabL, 0xb6662d3dL, 0x76dc4190L,
  0x01db7106L, 0x98d220bcL, 0xefd5102aL, 0x71b18589L, 0x06b6b51fL,
  0x9fbfe4a5L, 0xe8b8d433L, 0x7807c9a2L, 0x0f00f934L, 0x9609a88eL,
  0xe10e9818L, 0x7f6a0dbbL, 0x086d3d2dL, 0x91646c97L, 0xe6635c01L,
  0x6b6b51f4L, 0x1c6c6162L, 0x856530d8L, 0xf262004eL, 0x6c0695edL,
  0x1b01a57bL, 0x8208f4c1L, 0xf50fc457L, 0x65b0d9c6L, 0x12b7e950L,
  0x8bbeb8eaL, 0xfcb9887cL, 0x62dd1ddfL, 0x15da2d49L, 0x8cd37cf3L,
  0xfbd44c65L, 0x4db26158L, 0x3ab551ceL, 0xa3bc0074L, 0xd4bb30e2L,
  0x4adfa541L, 0x3dd895d7L, 0xa4d1c46dL, 0xd3d6f4fbL, 0x4369e96aL,
  0x346ed9fcL, 0xad678846L, 0xda60b8d0L, 0x44042d73L, 0x33031de5L,
  0xaa0a4c5fL, 0xdd0d7cc9L, 0x5005713cL, 0x270241aaL, 0xbe0b1010L,
  0xc90c2086L, 0x5768b525L, 0x206f85b3L, 0xb966d409L, 0xce61e49fL,
  0x5edef90eL, 0x29d9c998L, 0xb0d09822L, 0xc7d7a8b4L, 0x59b33d17L,
  0x2eb40d81L, 0xb7bd5c3bL, 0xc0ba6cadL, 0xedb88320L, 0x9abfb3b6L,
  0x03b6e20cL, 0x74b1d29aL, 0xead54739L, 0x9dd277afL, 0x04db2615L,
  0x73dc1683L, 0xe3630b12L, 0x94643b84L, 0x0d6d6a3eL, 0x7a6a5aa8L,
  0xe40ecf0bL, 0x9309ff9dL, 0x0a00ae27L, 0x7d079eb1L, 0xf00f9344L,
  0x8708a3d2L, 0x1e01f268L, 0x6906c2feL, 0xf762575dL, 0x806567cbL,
  0x196c3671L, 0x6e6b06e7L, 0xfed41b76L, 0x89d32be0L, 0x10da7a5aL,
  0x67dd4accL, 0xf9b9df6fL, 0x8ebeeff9L, 0x17b7be43L, 0x60b08ed5L,
  0xd6d6a3e8L, 0xa1d1937eL, 0x38d8c2c4L, 0x4fdff252L, 0xd1bb67f1L,
  0xa6bc5767L, 0x3fb506ddL, 0x48b2364bL, 0xd80d2bdaL, 0xaf0a1b4cL,
  0x36034af6L, 0x41047a60L, 0xdf60efc3L, 0xa867df55L, 0x316e8eefL,
  0x4669be79L, 0xcb61b38cL, 0xbc66831aL, 0x256fd2a0L, 0x5268e236L,
  0xcc0c7795L, 0xbb0b4703L, 0x220216b9L, 0x5505262fL, 0xc5ba3bbeL,
  0xb2bd0b28L, 0x2bb45a92L, 0x5cb36a04L, 0xc2d7ffa7L, 0xb5d0cf31L,
  0x2cd99e8bL, 0x5bdeae1dL, 0x9b64c2b0L, 0xec63f226L, 0x756aa39cL,
  0x026d930aL, 0x9c0906a9L, 0xeb0e363fL, 0x72076785L, 0x05005713L,
  0x95bf4a82L, 0xe2b87a14L, 0x7bb12baeL, 0x0cb61b38L, 0x92d28e9bL,
  0xe5d5be0dL, 0x7cdcefb7L, 0x0bdbdf21L, 0x86d3d2d4L, 0xf1d4e242L,
  0x68ddb3f8L, 0x1fda836eL, 0x81be16cdL, 0xf6b9265bL, 0x6fb077e1L,
  0x18b74777L, 0x88085ae6L, 0xff0f6a70L, 0x66063bcaL, 0x11010b5cL,
  0x8f659effL, 0xf862ae69L, 0x616bffd3L, 0x166ccf45L, 0xa00ae278L,
  0xd70dd2eeL, 0x4e048354L, 0x3903b3c2L, 0xa7672661L, 0xd06016f7L,
  0x4969474dL, 0x3e6e77dbL, 0xaed16a4aL, 0xd9d65adcL, 0x40df0b66L,
  0x37d83bf0L, 0xa9bcae53L, 0xdebb9ec5L, 0x47b2cf7fL, 0x30b5ffe9L,
  0xbdbdf21cL, 0xcabac28aL, 0x53b39330L, 0x24b4a3a6L, 0xbad03605L,
  0xcdd70693L, 0x54de5729L, 0x23d967bfL, 0xb3667a2eL, 0xc4614ab8L,
  0x5d681b02L, 0x2a6f2b94L, 0xb40bbe37L, 0xc30c8ea1L, 0x5a05df1bL,
  0x2d02ef8dL
};

unsigned int calc_crc32 (unsigned int crc, const unsigned char *buf, unsigned int len)
{
	if (buf == 0) return 0L;
	crc = crc ^ 0xffffffffL;
	if (len) do {
	  crc = crc_table[((int)crc ^ (*buf++)) & 0xff] ^ (crc >> 8);
	} while (--len);
	return crc ^ 0xffffffffL;
}

int filenamecopypath(char *withoutpath,char *withpath)
{
	char tempo[500];
	int i;

	strcpy(tempo,withpath);
	i=strlen(tempo);
	while(tempo[i]!='/' && tempo[i]!='\\' && i>=0) i--;
	i++;

	tempo[i]=0;
	strcat(tempo,withoutpath);

	strcpy(withoutpath,tempo);
	return 0;
}