2 /////////////////////////////////////////////////////////////////
3 /// getID3() by James Heinrich <info@getid3.org> //
4 // available at http://getid3.sourceforge.net //
5 // or https://www.getid3.org //
6 // also https://github.com/JamesHeinrich/getID3 //
7 /////////////////////////////////////////////////////////////////
8 // See readme.txt for more details //
9 /////////////////////////////////////////////////////////////////
11 // module.audio.tak.php //
12 // module for analyzing Tom's lossless Audio Kompressor //
13 // dependencies: NONE //
15 /////////////////////////////////////////////////////////////////
17 if (!defined('GETID3_INCLUDEPATH')) { // prevent path-exposing attacks that access modules directly on public webservers
21 class getid3_tak
extends getid3_handler
24 public function Analyze() {
25 $info = &$this->getid3
->info
;
27 $info['fileformat'] = 'tak';
28 $info['audio']['dataformat'] = 'tak';
29 $info['audio']['bitrate_mode'] = 'vbr';
30 $info['audio']['lossless'] = true;
32 $info['tak_audio']['raw'] = array();
33 $thisfile_takaudio = &$info['tak_audio'];
34 $thisfile_takaudio_raw = &$thisfile_takaudio['raw'];
36 $this->fseek($info['avdataoffset']);
37 $TAKMetaData = $this->fread(4);
39 $thisfile_takaudio_raw['magic'] = $TAKMetaData;
41 if ($thisfile_takaudio_raw['magic'] != $magic) {
42 $this->error('Expecting "'.getid3_lib
::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib
::PrintHexBytes($thisfile_takaudio_raw['magic']).'"');
43 unset($info['fileformat']);
46 $offset = 4; //skip magic
47 $this->fseek($offset);
48 $TAKMetaData = $this->fread(4); //read Metadata Block Header
49 $objtype = getid3_lib
::BigEndian2Int(substr($TAKMetaData, 0, 1)); //Metadata Block Object Type
50 $objlength = getid3_lib
::LittleEndian2Int(substr($TAKMetaData, 1, 3)); //Metadata Block Object Lenght excluding header
51 if ($objtype == 1) { //The First Metadata Block Object must be of Type 1 (STREAMINFO)
52 $offset +
= 4; //skip to Metadata Block contents
53 $this->fseek($offset);
54 $TAKMetaData = $this->fread($objlength); // Get the raw Metadata Block Data
55 $thisfile_takaudio_raw['STREAMINFO'] = getid3_lib
::LittleEndian2Bin(substr($TAKMetaData, 0, $objlength - 3));
56 $offset +
= $objlength; // Move to the next Metadata Block Object
57 $thisfile_takaudio['channels'] = getid3_lib
::Bin2Dec(substr($thisfile_takaudio_raw['STREAMINFO'], 1, 4)) +
1;
58 $thisfile_takaudio['bits_per_sample'] = getid3_lib
::Bin2Dec(substr($thisfile_takaudio_raw['STREAMINFO'], 5, 5)) +
8;
59 $thisfile_takaudio['sample_rate'] = getid3_lib
::Bin2Dec(substr($thisfile_takaudio_raw['STREAMINFO'], 10, 18)) +
6000;
60 $thisfile_takaudio['samples'] = getid3_lib
::Bin2Dec(substr($thisfile_takaudio_raw['STREAMINFO'], 31, 35));
61 $thisfile_takaudio['framesize'] = self
::TAKFramesizeLookup(getid3_lib
::Bin2Dec(substr($thisfile_takaudio_raw['STREAMINFO'], 66, 4)));
62 $thisfile_takaudio['codectype'] = self
::TAKCodecTypeLookup(getid3_lib
::Bin2Dec(substr($thisfile_takaudio_raw['STREAMINFO'], 74, 6)));
64 $this->error('Expecting Type 1 (STREAMINFO) Metadata Object header, but found Type "'.$objtype.'" Object instead');
65 unset($info['fileformat']);
68 $this->fseek($offset);
69 $TAKMetaData = $this->fread(4);
70 $objtype = getid3_lib
::BigEndian2Int(substr($TAKMetaData, 0, 1));
71 $objlength = getid3_lib
::LittleEndian2Int(substr($TAKMetaData, 1, 3));
72 while ($objtype != 0) {
75 // ENCODERINFO Metadata Block
77 $this->fseek($offset);
78 $TAKMetaData = $this->fread($objlength);
79 $ver = getid3_lib
::LittleEndian2Int(substr($TAKMetaData, 0, 3));
80 $major = ($ver & 0xff0000) >> 16;
81 $minor = ($ver & 0x00ff00) >> 8;
82 $revision= $ver & 0x0000ff;
83 $thisfile_takaudio['version'] = 'TAK V '.$major.'.'.$minor.'.'.$revision;
84 $thisfile_takaudio['profile'] = self
::TAKProfileLookup(getid3_lib
::BigEndian2Int(substr($TAKMetaData, 3, 1)));
85 $offset +
= $objlength;
88 // MD5 Checksum Metadata Block
90 $this->fseek($offset);
91 $TAKMetaData = $this->fread($objlength);
92 $thisfile_takaudio_raw['MD5Data'] = substr($TAKMetaData, 0, 16);
93 $offset +
= $objlength;
96 // LASTFRAME Metadata Block
98 $this->fseek($offset);
99 $TAKMetaData = $this->fread($objlength);
100 $thisfile_takaudio['lastframe_pos'] = getid3_lib
::LittleEndian2Int(substr($TAKMetaData, 0, 5));
101 $thisfile_takaudio['last_frame_size'] = getid3_lib
::LittleEndian2Int(substr($TAKMetaData, 5, 3));
102 $offset +
= $objlength;
105 // ORIGINALFILEDATA Metadata Block
107 $this->fseek($offset);
108 $TAKMetaData = $this->fread($objlength);
109 $headersize = getid3_lib
::LittleEndian2Int(substr($TAKMetaData, 0, 3));
110 $footersize = getid3_lib
::LittleEndian2Int(substr($TAKMetaData, 3, 3));
111 if ($headersize) $thisfile_takaudio_raw['header_data'] = substr($TAKMetaData, 6, $headersize);
112 if ($footersize) $thisfile_takaudio_raw['footer_data'] = substr($TAKMetaData, $headersize, $footersize);
113 $offset +
= $objlength;
116 // PADDING or SEEKTABLE Metadata Block. Just skip it
118 $this->fseek($offset);
119 $TAKMetaData = $this->fread($objlength);
120 $offset +
= $objlength;
123 $this->fseek($offset);
124 $TAKMetaData = $this->fread(4);
125 $objtype = getid3_lib
::BigEndian2Int(substr($TAKMetaData, 0, 1));
126 $objlength = getid3_lib
::LittleEndian2Int(substr($TAKMetaData, 1, 3));
128 // Finished all Metadata Blocks. So update $info['avdataoffset'] because next block is the first Audio data block
129 $info['avdataoffset'] = $offset;
131 $info['audio']['channels'] = $thisfile_takaudio['channels'];
132 if ($thisfile_takaudio['sample_rate'] == 0) {
133 $this->error('Corrupt TAK file: samplerate == zero');
136 $info['audio']['sample_rate'] = $thisfile_takaudio['sample_rate'];
137 $thisfile_takaudio['playtime'] = $thisfile_takaudio['samples'] / $thisfile_takaudio['sample_rate'];
138 if ($thisfile_takaudio['playtime'] == 0) {
139 $this->error('Corrupt TAK file: playtime == zero');
142 $info['playtime_seconds'] = $thisfile_takaudio['playtime'];
143 $thisfile_takaudio['compressed_size'] = $info['avdataend'] - $info['avdataoffset'];
144 $thisfile_takaudio['uncompressed_size'] = $thisfile_takaudio['samples'] * $thisfile_takaudio['channels'] * ($thisfile_takaudio['bits_per_sample'] / 8);
145 if ($thisfile_takaudio['uncompressed_size'] == 0) {
146 $this->error('Corrupt TAK file: uncompressed_size == zero');
149 $thisfile_takaudio['compression_ratio'] = $thisfile_takaudio['compressed_size'] / ($thisfile_takaudio['uncompressed_size'] +
$offset);
150 $thisfile_takaudio['bitrate'] = (($thisfile_takaudio['samples'] * $thisfile_takaudio['channels'] * $thisfile_takaudio['bits_per_sample']) / $thisfile_takaudio['playtime']) * $thisfile_takaudio['compression_ratio'];
151 $info['audio']['bitrate'] = $thisfile_takaudio['bitrate'];
153 if (empty($thisfile_takaudio_raw['MD5Data'])) {
154 //$this->warning('MD5Data is not set');
155 } elseif ($thisfile_takaudio_raw['MD5Data'] === str_repeat("\x00", 16)) {
156 //$this->warning('MD5Data is null');
158 $info['md5_data_source'] = '';
159 $md5 = $thisfile_takaudio_raw['MD5Data'];
160 for ($i = 0; $i < strlen($md5); $i++
) {
161 $info['md5_data_source'] .= str_pad(dechex(ord($md5[$i])), 2, '00', STR_PAD_LEFT
);
163 if (!preg_match('/^[0-9a-f]{32}$/', $info['md5_data_source'])) {
164 unset($info['md5_data_source']);
168 foreach (array('bits_per_sample', 'version', 'profile') as $key) {
169 if (!empty($thisfile_takaudio[$key])) {
170 $info['audio'][$key] = $thisfile_takaudio[$key];
177 public function TAKFramesizeLookup($framesize) {
178 static $TAKFramesizeLookup = array(
185 6 => '16384 samples',
190 return (isset($TAKFramesizeLookup[$framesize]) ?
$TAKFramesizeLookup[$framesize] : 'invalid');
192 public function TAKCodecTypeLookup($code) {
193 static $TAKCodecTypeLookup = array(
194 0 => 'Integer 24 bit (TAK 1.0)',
195 1 => 'Experimental!',
196 2 => 'Integer 24 bit (TAK 2.0)',
197 3 => 'LossyWav (TAK 2.1)',
198 4 => 'Integer 24 bit MC (TAK 2.2)'
200 return (isset($TAKCodecTypeLookup[$code]) ?
$TAKCodecTypeLookup[$code] : 'invalid');
202 public function TAKProfileLookup($code) {
204 $evaluation = ($code & 0xf0) >> 4;
205 $compresion = $code & 0x0f;
206 static $TAKEvaluationLookup = array(
211 return (isset($TAKEvaluationLookup[$evaluation]) ?
$out .= $compresion . $TAKEvaluationLookup[$evaluation] : 'invalid');