#include "meta.h" #include "hca_keys.h" #include "../coding/coding.h" #define HCA_KEY_MAX_TEST_CLIPS 400 /* hopefully nobody masters files with more that a handful... */ #define HCA_KEY_MAX_TEST_FRAMES 100 /* ~102400 samples */ #define HCA_KEY_MAX_TEST_SAMPLES 10240 /* ~10 frames of non-blank samples */ static void find_hca_key(hca_codec_data * hca_data, clHCA * hca, uint8_t * buffer, int header_size, unsigned int * out_key1, unsigned int * out_key2); VGMSTREAM * init_vgmstream_hca(STREAMFILE *streamFile) { VGMSTREAM * vgmstream = NULL; uint8_t buffer[0x8000]; /* hca header buffer data (probably max ~0x400) */ char filename[PATH_LIMIT]; off_t start = 0; size_t file_size = streamFile->get_size(streamFile); int header_size; hca_codec_data * hca_data = NULL; /* vgmstream HCA context */ clHCA * hca; /* HCA_Decoder context */ unsigned int ciphKey1, ciphKey2; /* check extension, case insensitive */ if ( !check_extensions(streamFile, "hca")) return NULL; /* test/init header (find real header size first) */ if ( file_size < 8 ) goto fail; if ( read_streamfile(buffer, start, 8, streamFile) != 8 ) goto fail; header_size = clHCA_isOurFile0(buffer); if ( header_size < 0 || header_size > 0x8000 ) goto fail; if ( read_streamfile(buffer, start, header_size, streamFile) != header_size ) goto fail; if ( clHCA_isOurFile1(buffer, header_size) < 0 ) goto fail; /* init vgmstream context */ hca_data = (hca_codec_data *) calloc(1, sizeof(hca_codec_data) + clHCA_sizeof()); if (!hca_data) goto fail; //hca_data->size = file_size; hca_data->start = 0; hca_data->sample_ptr = clHCA_samplesPerBlock; /* HCA_Decoder context memory goes right after our codec data (reserved in alloc'ed) */ hca = (clHCA *)(hca_data + 1); /* pre-load streamfile so the hca_data is ready before key detection */ streamFile->get_name( streamFile, filename, sizeof(filename) ); hca_data->streamfile = streamFile->open(streamFile, filename, STREAMFILE_DEFAULT_BUFFER_SIZE); if (!hca_data->streamfile) goto fail; /* find decryption key in external file or preloaded list */ { uint8_t keybuf[8]; if ( read_key_file(keybuf, 8, streamFile) ) { ciphKey2 = get_32bitBE(keybuf+0); ciphKey1 = get_32bitBE(keybuf+4); } else { find_hca_key(hca_data, hca, buffer, header_size, &ciphKey1, &ciphKey2); } } /* init decoder with key */ clHCA_clear(hca, ciphKey1, ciphKey2); if ( clHCA_Decode(hca, buffer, header_size, 0) < 0 ) goto fail; if ( clHCA_getInfo(hca, &hca_data->info) < 0 ) goto fail; /* build the VGMSTREAM */ vgmstream = allocate_vgmstream(hca_data->info.channelCount, hca_data->info.loopEnabled); if (!vgmstream) goto fail; vgmstream->sample_rate = hca_data->info.samplingRate; vgmstream->num_samples = hca_data->info.blockCount * clHCA_samplesPerBlock; vgmstream->loop_start_sample = hca_data->info.loopStart * clHCA_samplesPerBlock; vgmstream->loop_end_sample = hca_data->info.loopEnd * clHCA_samplesPerBlock; vgmstream->coding_type = coding_CRI_HCA; vgmstream->layout_type = layout_none; vgmstream->meta_type = meta_HCA; vgmstream->codec_data = hca_data; return vgmstream; fail: free(hca_data); return NULL; } /* Tries to find the decryption key from a list. Simply decodes a few frames and checks if there aren't too many * clipped samples, as it's common for invalid keys (though possible with valid keys in poorly mastered files). */ static void find_hca_key(hca_codec_data * hca_data, clHCA * hca, uint8_t * buffer, int header_size, unsigned int * out_key1, unsigned int * out_key2) { sample *testbuf = NULL, *temp; int i, j, bufsize = 0, tempsize; size_t keys_length = sizeof(hcakey_list) / sizeof(hcakey_info); int min_clip_count = -1; /* defaults to PSO2 key, most common */ unsigned int best_key2 = 0xCC554639; unsigned int best_key1 = 0x30DBE1AB; /* find a candidate key */ for (i = 0; i < keys_length; i++) { int clip_count = 0, sample_count = 0; int f = 0, s; unsigned int key1, key2; uint64_t key = hcakey_list[i].key; key2 = (key >> 32) & 0xFFFFFFFF; key1 = (key >> 0) & 0xFFFFFFFF; /* re-init HCA with the current key as buffer becomes invalid (probably can be simplified) */ hca_data->curblock = 0; hca_data->sample_ptr = clHCA_samplesPerBlock; if ( read_streamfile(buffer, hca_data->start, header_size, hca_data->streamfile) != header_size ) continue; clHCA_clear(hca, key1, key2); if (clHCA_Decode(hca, buffer, header_size, 0) < 0) continue; if (clHCA_getInfo(hca, &hca_data->info) < 0) continue; if (hca_data->info.channelCount > 32) continue; /* nonsense don't alloc too much */ tempsize = sizeof(sample) * clHCA_samplesPerBlock * hca_data->info.channelCount; if (tempsize > bufsize) { /* should happen once */ temp = (sample *)realloc(testbuf, tempsize); if (!temp) goto end; testbuf = temp; bufsize = tempsize; } /* test enough frames, but not too many */ while (f < HCA_KEY_MAX_TEST_FRAMES && f < hca_data->info.blockCount) { j = clHCA_samplesPerBlock; decode_hca(hca_data, testbuf, j, hca_data->info.channelCount); j *= hca_data->info.channelCount; for (s = 0; s < j; s++) { if (testbuf[s] != 0x0000 && testbuf[s] != 0xFFFF) sample_count++; /* ignore upper/lower blank samples */ if (testbuf[s] == 0x7FFF || testbuf[s] == 0x8000) clip_count++; /* upper/lower clip */ } if (clip_count > HCA_KEY_MAX_TEST_CLIPS) break; /* too many, don't bother */ if (sample_count >= HCA_KEY_MAX_TEST_SAMPLES) break; /* enough non-blank samples tested */ f++; } //;VGM_LOG("HCA: key %08x%08x clip_count=%i\n", ciphKey2,ciphKey1, clip_count); if (min_clip_count < 0 || clip_count < min_clip_count) { min_clip_count = clip_count; best_key2 = key2; best_key1 = key1; } if (min_clip_count == 0) break; /* can't get better than this */ /* a few clips is normal, but some invalid keys may give low numbers too */ //if (clip_count < 10) // break; } /* reset HCA */ hca_data->curblock = 0; hca_data->sample_ptr = clHCA_samplesPerBlock; read_streamfile(buffer, hca_data->start, header_size, hca_data->streamfile); end: VGM_LOG("HCA: best key=%08x%08x (clips=%i)\n", best_key2,best_key1, min_clip_count); *out_key2 = best_key2; *out_key1 = best_key1; free(testbuf);//free(temp); }