/*
 * decode-kkc - try to decode HONEY BEE (WX331K) *.kkc file
 *   by uratan! 2010.4.21
 *
 * version: 0007
 *
 * usage:
 *   % decode-kkc wx331k.kkc > xxx.txt
 *
 * tested under
 *   ・WX331K / (firmware 2009.8.31)
 *   ・京セラPHSユーティリティソフトウェア Version 2.5.0
 *   ・*.kkc ファイル: header: 0x00000088 / version: "9.1.0"
 */
#include <stdio.h>
#include <stdlib.h>

/*
 * compile options
 */
/*
 * display length of the string
 */
#define DISP_STR_LEN       0
/*
 * dump skip()ed data
 */
#define DUMP_SKIPPED_DATA  0

/*
 * macros constants
 */
#define NO_DECODE   NULL

#if DISP_STR_LEN
#  define LEN              "(len:%d) "
#else /* DISP_STR_LEN */
#  define LEN              ""
#endif /* DISP_STR_LEN */

/*
 * functions
 */
int main(int argc, char *argv[]);
void my_exit(char *s, int r);
int get_long(char *format, const char **dec_tab);
void get_stri(char *format);
void skip(char *tag, int len);
void decode_misc(const char **table, int n);

/*
 * variables
 */
FILE *fp;

/*
 * constants
 */
const char *tab_prop_tel[];
const char *tab_prop_addr[];
const char *tab_prop_mail[];
const char *tab_prop_main[];
const char *tab_prop_blood[];
const char *tab_prop_horo[];
const char *tab_grp_name[];


/*
 *
 */
int main(int argc, char *argv[])
{
	int n, i;

	/*
	 * examine the parameters
	 */
	if(argc < 2) {
		fprintf(stderr, "usage: %s *.kkc\n", argv[0]);
		exit(1);
	}

	fp = fopen(argv[1], "rb");
	if(fp == NULL) {
		fprintf(stderr, "can't open file: %s\n", argv[1]);
		exit(1);
	}

	/*
	 * file header section
	 */
	printf("============================================\n");
	get_long("header: 0x%08x\n", NO_DECODE);
	get_stri(" version: " LEN);
	get_long(" TERMINATER: 0x%08x\n", NO_DECODE);

	/*
	 * address book section
	 */
	printf("============================================\n");
	n = get_long("number-of-addresses: %d\n", NO_DECODE);

	for(i=0; i<n; i++) {
		printf("============================================\n");

		get_long("No.: %d\n", NO_DECODE);
		get_stri(" name: " LEN);
		get_stri(" yomi: " LEN);
			skip("@00", 48);
		get_stri(" tel1: " LEN);
		get_stri(" tel2: " LEN);
		get_stri(" tel3: " LEN);
			skip("@10", 32);
		get_long(" property-tel1: %d ", tab_prop_tel);
		get_long(" property-tel2: %d ", tab_prop_tel);
		get_long(" property-tel3: %d ", tab_prop_tel);
			skip("@12", 348);
		get_stri(" address: " LEN);
			skip("@30", 4);
		get_long(" property-address: %d ", tab_prop_addr);
			skip("@32", 192);
		get_stri(" E-mail1: " LEN);
		get_stri(" E-mail2: " LEN);
		get_stri(" E-mail3: " LEN);
			skip("@50", 32);
		get_long(" property-E-mail1: %d ", tab_prop_mail);
		get_long(" property-E-mail2: %d ", tab_prop_mail);
		get_long(" property-E-mail3: %d ", tab_prop_mail);
			skip("@52", 248);
		get_long(" group: %02d ", tab_grp_name);
			skip("@70", 4);
		get_stri(" memo: " LEN);
			skip("@75", 8);
		get_long(" main-E-mail: %d ", tab_prop_main);
		get_long(" main-Tel: %d ", tab_prop_main);
			skip("@76", 8);
		get_long(" birthday: %d\n", NO_DECODE);
			skip("@80", 4);
		get_long(" blood: %d ", tab_prop_blood);
		get_stri(" url: " LEN);
			skip("@85", 12);
		get_long(" horoscope: %d ", tab_prop_horo);
		get_stri(" hobby: " LEN);
			skip("@90", 33);
	}

	/*
	 * group section
	 */
	printf("============================================\n");
	n = get_long("number-of-groups: %d\n", NO_DECODE);

	for(i=0; i<n; i++) {
		printf("============================================\n");

		get_long("group#: %d\n", NO_DECODE);
		get_stri(" group1: " LEN);
		get_stri(" group2: " LEN);
			skip("@g", 40);
	}

	printf("============================================\n");
	get_long(" TERMINATER: 0x%08x\n", NO_DECODE);


	my_exit("\nCONVERSION SUCCESS\n", 0);
	return 0;	/* never come here */
}

/*
 * abandon operation
 */
void my_exit(char *s, int r)
{
	int p;

	printf("%s\n", s);

	p = ftell(fp);
	printf("file stream position: now at %d/0x%08x\n", p, p);

	fclose(fp);

	exit(r);
}

/*
 * get and display little-endian long value
 *   (decode the value if specified)
 */
int get_long(char *format, const char **dec_tab)
{
	int val, i, c;

	val = 0;
	for(i=0; i<4; i++) {
		c = fgetc(fp);
		if(c == EOF) {
			my_exit("ERROR: get_long: EOF", -1);
		}

		val |= (c << (8*i));
	}

	printf(format, val);
	if(dec_tab != NO_DECODE) {
		decode_misc(dec_tab, val);
	}

	return val;
}

/*
 * get and display variable length string
 */
void get_stri(char *format)
{
	int len, i, c;

	len = get_long(format, NO_DECODE);

	putchar('"');

	for(i=0; i<len; i++) {
		c = fgetc(fp);
		if(c == EOF) {
			my_exit("ERROR: get_stri: EOF", -1);
		}

		c ^= 0xaa;		/* decryption */

		if(c == '\r') {
			putchar('\\');
			c = 'r';
		} else if(c == '\n') {
			putchar('\\');
			c = 'n';
		}

		putchar(c);
	}

	putchar('"');
	putchar('\n');
	return;
}

/*
 * skip specified bytes
 *   there may be no valid data in these blocks...
 */
void skip(char *tag, int len)
{
	int i, c;

#if DUMP_SKIPPED_DATA
	printf("  ...skip %d bytes...\n", len);
#endif /* DUMP_SKIPPED_DATA */

	for(i=0; i<len; i++) {
		c = fgetc(fp);
		if(c == EOF) {
			my_exit("ERROR: EOF", -1);
		}

#if DUMP_SKIPPED_DATA
		if((i & 0x0f) == 0x00) {
			printf("    %s:%04x:", tag, i);
		}
		printf(" %02x", c);
		if((i & 0x0f) == 0x0f) {
			printf("\n");
		}
#endif /* DUMP_SKIPPED_DATA */
	}

#if DUMP_SKIPPED_DATA
	if((i & 0x0f) != 0x00) {
		printf("\n");
	}
#endif /* DUMP_SKIPPED_DATA */

	return;
}

/*
 * decode misc codes
 */
void decode_misc(const char **table, int n)
{
	int i;

	/*
	 * search the table until exhausted
	 */
	i = 0;
	while(1) {
		if(*table == NULL) {
			printf("(out of range!)\n");
			break;
		}

		if(i == n) {
			printf("(%s)\n", *table);
			break;
		}

		table++;
		i++;
	}

	return;
}

/*
 * property for telephon number
 */
const char *tab_prop_tel[] = {
/*0*/	"PHS",
/*1*/	"携帯電話",
/*2*/	"自宅",
/*3*/	"仕事",
/*4*/	"FAX",
/*5*/	"その他",
		NULL,
};

/*
 * property for address
 */
const char *tab_prop_addr[] = {
/*0*/	"自宅住所",
/*1*/	"会社住所",
/*2*/	"その他",
		NULL,
};

/*
 * property for mail address
 */
const char *tab_prop_mail[] = {
/*0*/	"PHS",
/*1*/	"携帯電話",
/*2*/	"自宅",
/*3*/	"仕事",
/*4*/	"学校",
/*5*/	"その他",
		NULL,
};

/*
 * property for main address
 */
const char *tab_prop_main[] = {
/*0*/	"null",
/*1*/	"#1",
/*2*/	"#2",
/*3*/	"#3",
		NULL,
};

/*
 * property for blood type
 */
const char *tab_prop_blood[] = {
/*0*/	"A型",
/*1*/	"B型",
/*2*/	"O型",
/*3*/	"AB型",
/*4*/	"不明",
		NULL,
};

/*
 * property for horoscope
 */
const char *tab_prop_horo[] = {
/*0*/	"牡羊座",
/*1*/	"牡牛座",
/*2*/	"双子座",
/*3*/	"蟹座",
/*4*/	"獅子座",
/*5*/	"乙女座",
/*6*/	"天秤座",
/*7*/	"蠍座",
/*8*/	"蛇遣座",
/*9*/	"射手座",
/*10*/	"山羊座",
/*11*/	"水瓶座",
/*12*/	"魚座",
/*13*/	"不明",
		NULL,
};

/*
 * group names
 */
const char *tab_grp_name[] = {
/*00*/	"グループ00",
/*01*/	"グループ01",
/*02*/	"グループ02",
/*03*/	"グループ03",
/*04*/	"グループ04",
/*05*/	"グループ05",
/*06*/	"グループ06",
/*07*/	"グループ07",
/*08*/	"グループ08",
/*09*/	"グループ09",
/*10*/	"グループ10",
/*11*/	"グループ11",
/*12*/	"グループ12",
/*13*/	"グループ13",
/*14*/	"グループ14",
/*15*/	"グループ15",
/*16*/	"グループ16",
/*17*/	"グループ17",
/*18*/	"グループ18",
/*19*/	"グループ19",
		NULL,
};