/*
 *  msexpand: Microsoft "compress.exe/expand.exe" compatible decompressor
 *
 *  Copyright (c) 2000 Martin Hinner <mhi@penguin.cz>
 *  Algorithm & data structures by M. Winterhoff <100326.2776@compuserve.com>
 *
 *  Corrected and adapted to ClamAV by Tomasz Kojm <tkojm@clamav.net>
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2, or (at your option)
 *  any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 *  MA 02110-1301, USA.
 */

#include <stdio.h>
#include <stdlib.h>
#ifdef	HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <string.h>

#if HAVE_CONFIG_H
#include "clamav-config.h"
#endif
#include "cltypes.h"
#include "others.h"
#include "msexpand.h"

int cli_msexpand(FILE *in, FILE *out)
{
	int bits, ch, i, j, len, mask;
	unsigned char *buffer;
	uint32_t magic1, magic2, magic3, filesize;
	uint16_t reserved;


    if(fread(&magic1, sizeof(magic1), 1, in) != 1) {
	return -1;
    }

    if(magic1 == le32_to_host(0x44445A53L))
    {
	if(fread(&magic2, sizeof(magic2), 1, in) != 1) {
	    return -1;
	}

	if(fread(&reserved, sizeof(reserved), 1, in) != 1) {
	    return -1;
	}

	if(fread(&filesize, sizeof(filesize), 1, in) != 1) {
	    return -1;
	}

	if(magic2 != le32_to_host(0x3327F088L))
	{
	    cli_warnmsg("msexpand: Not a MS-compressed file\n");
	    return -1;
	}

    } else
    if(magic1 == le32_to_host(0x4A41574BL))
    {
	if(fread(&magic2, sizeof(magic2), 1, in) != 1) {
	    return -1;
	}

	if(fread(&magic3, sizeof(magic3), 1, in) != 1) {
	    return -1;
	}

	if(fread(&reserved, sizeof(reserved), 1, in) != 1) {
	    return -1;
	}

	if(magic2 != le32_to_host(0xD127F088L) || magic3 != le32_to_host(0x00120003L))
	{
	    cli_warnmsg("msexpand: Not a MS-compressed file\n");
	    return -1;
	}

	cli_warnmsg("msexpand: unsupported version 6.22\n");
	return -1;

    } else {
	cli_warnmsg("msexpand: Not a MS-compressed file\n");
	return -1;
    }

    if((buffer = (unsigned char *) cli_calloc(4096, sizeof(char))) == NULL) {
	cli_errmsg("msexpand: Can't allocate memory\n");
	return -1;
    }

    i = 4096 - 16;

    while (1) {
	if((bits = fgetc(in)) == EOF)
	    break;

	for(mask = 0x01; mask & 0xFF; mask <<= 1) {
	    if(!(bits & mask)) {
		if((j = fgetc(in)) == EOF)
		    break;
		len = fgetc(in);
		j += (len & 0xF0) << 4;
		len = (len & 15) + 3;
		while(len--) {
		    buffer[i] = buffer[j];
		    if(fwrite(&buffer[i], sizeof(unsigned char), 1, out) != 1) {
			free(buffer);
			return -1;
		    }
		    j++;
		    j %= 4096;
		    i++;
		    i %= 4096;
		}
	    } else {
		if((ch = fgetc(in)) == EOF)
		    break;

		buffer[i] = ch;
		if(fwrite(&buffer[i], sizeof(unsigned char), 1, out) != 1) {
		    free(buffer);
		    return -1;
		}
		i++;
		i %= 4096;
	    }
	}
    }

    free(buffer);
    return 0;
}