Your IP : 216.73.216.209
<?php
/**
* PHP JPEG ICC profile manipulator class
*
* @author Richard Toth aka risko (risko@risko.org)
* @version 0.2
* License: BSD License
*
* http://sourceforge.net/projects/jpeg-icc/
* http://jpeg-icc.sourceforge.net/
* https://github.com/slavicv/jpeg-icc
*/
class JPEG_ICC
{
/**
* ICC header size in APP2 segment
*
* 'ICC_PROFILE' 0x00 chunk_no chunk_cnt
*/
const ICC_HEADER_LEN = 14;
/**
* maximum data len of a JPEG marker
*/
const MAX_BYTES_IN_MARKER = 65533;
/**
* ICC header marker
*/
const ICC_MARKER = "ICC_PROFILE\x00";
/**
* Rendering intent field (Bytes 64 to 67 in ICC profile data)
*/
const ICC_RI_PERCEPTUAL = 0x00000000;
const ICC_RI_RELATIVE_COLORIMETRIC = 0x00000001;
const ICC_RI_SATURATION = 0x00000002;
const ICC_RI_ABSOLUTE_COLORIMETRIC = 0x00000003;
/**
* ICC profile data
* @var string
*/
private $icc_profile = '';
/**
* ICC profile data size
* @var int
*/
private $icc_size = 0;
/**
* ICC profile data chunks count
* @var int
*/
private $icc_chunks = 0;
/**
* Class contructor
*/
public function __construct()
{
}
/**
* Load ICC profile from JPEG file.
*
* Returns true if profile successfully loaded, false otherwise.
*
* @param string file name
* @return bool
*/
public function LoadFromJPEG($fname)
{
$f = file_get_contents($fname);
$len = strlen($f);
$pos = 0;
$counter = 0;
$profile_chunks = array(); // tu su ulozene jednotlive casti profilu
while ($pos < $len && $counter < 1000)
{
$pos = strpos($f, "\xff", $pos);
if ($pos === false) break; // dalsie 0xFF sa uz nenaslo - koniec vyhladavania
$type = $this->getJPEGSegmentType($f, $pos);
switch ($type)
{
case 0xe2: // APP2
//echo "APP2 ";
$size = $this->getJPEGSegmentSize($f, $pos);
//echo "Size: $size\n";
if ($this->getJPEGSegmentContainsICC($f, $pos, $size))
{
//echo "+ ICC Profile: YES\n";
list($chunk_no, $chunk_cnt) = $this->getJPEGSegmentICCChunkInfo($f, $pos);
//echo "+ ICC Profile chunk number: $chunk_no\n";
//echo "+ ICC Profile chunks count: $chunk_cnt\n";
if ($chunk_no <= $chunk_cnt)
{
$profile_chunks[$chunk_no] = $this->getJPEGSegmentICCChunk($f, $pos);
if ($chunk_no == $chunk_cnt) // posledny kusok
{
ksort($profile_chunks);
$this->SetProfile(implode('', $profile_chunks));
return true;
}
}
}
$pos += $size + 2; // size of segment data + 2B size of segment marker
break;
case 0xe0: // APP0
case 0xe1: // APP1
case 0xe3: // APP3
case 0xe4: // APP4
case 0xe5: // APP5
case 0xe6: // APP6
case 0xe7: // APP7
case 0xe8: // APP8
case 0xe9: // APP9
case 0xea: // APP10
case 0xeb: // APP11
case 0xec: // APP12
case 0xed: // APP13
case 0xee: // APP14
case 0xef: // APP15
case 0xc0: // SOF0
case 0xc2: // SOF2
case 0xc4: // DHT
case 0xdb: // DQT
case 0xda: // SOS
case 0xfe: // COM
$size = $this->getJPEGSegmentSize($f, $pos);
$pos += $size + 2; // size of segment data + 2B size of segment marker
break;
case 0xd8: // SOI
case 0xdd: // DRI
case 0xd9: // EOI
case 0xd0: // RST0
case 0xd1: // RST1
case 0xd2: // RST2
case 0xd3: // RST3
case 0xd4: // RST4
case 0xd5: // RST5
case 0xd6: // RST6
case 0xd7: // RST7
default:
$pos += 2;
break;
}
$counter++;
}
return false;
}
/**
* Save previously loaded ICC profile into JPEG file.
*
* @param string JPEG file name
*/
public function SaveToJPEG($fname)
{
if ($this->icc_profile == '') throw new Exception("No profile loaded.\n");
if (!file_exists($fname)) throw new Exception("File $fname doesn't exist.\n");
if (!is_readable($fname)) throw new Exception("File $fname isn't readable.\n");
$dir = realpath($fname);
if (!is_writable($dir)) throw new Exception("Directory $fname isn't writeable.\n");
$f = file_get_contents($fname);
if ($this->insertProfile($f))
{
$fsize = strlen($f);
$ret = file_put_contents($fname, $f);
if ($ret === false || $ret < $fsize) throw new Exception ("Write failed.\n");
}
}
/**
* Load profile from ICC file.
*
* @param string file name
*/
public function LoadFromICC($fname)
{
if (!file_exists($fname)) throw new Exception("File $fname doesn't exist.\n");
if (!is_readable($fname)) throw new Exception("File $fname isn't readable.\n");
$this->SetProfile(file_get_contents($fname));
}
/**
* Save profile to ICC file.
*
* @param string file name
* @param bool [force overwrite]
*/
public function SaveToICC($fname, $force_overwrite = false)
{
if ($this->icc_profile == '') throw new Exception("No profile loaded.\n");
$dir = realpath($fname);
if (!is_writable($dir)) throw new Exception("Directory $fname isn't writeable.\n");
if (!$force_overwrite && file_exists($fname)) throw new Exception("File $fname exists.\n");
$ret = file_put_contents($fname, $this->icc_profile);
if ($ret === false || $ret < $this->icc_size) throw new Exception ("Write failed.\n");
}
/**
* Remove profile from JPEG file and save it as a new file.
* Overwriting destination file can be forced
*
* @param string source file
* @param string destination file
* @param bool [force overwrite]
* @return bool
*/
public function RemoveFromJPEG($input, $output, $force_overwrite = false)
{
if (!file_exists($input)) throw new Exception("File $input doesn't exist.\n");
if (!is_readable($input)) throw new Exception("File $input isn't readable.\n");
$dir = realpath($output);
if (!is_writable($dir)) throw new Exception("Directory $output isn't writeable.\n");
if (!$force_overwrite && file_exists($output)) throw new Exception("File $output exists.\n");
$f = file_get_contents($input);
$this->removeProfile($f);
$fsize = strlen($f);
$ret = file_put_contents($output, $f);
if ($ret === false || $ret < $fsize) throw new Exception ("Write failed.\n");
return true; // any other error throws exception
}
/**
* Set profile directly
*
* @param string profile data
*/
public function SetProfile($data)
{
$this->icc_profile = $data;
$this->icc_size = strlen($data);
$this->countChunks();
}
/**
* Get profile directly
*
* @return string
*/
public function GetProfile()
{
return $this->icc_profile;
}
/**
* Count in how many chunks we need to divide the profile to store it in JPEG APP2 segments
*/
private function countChunks()
{
$this->icc_chunks = ceil($this->icc_size / ((float) (self::MAX_BYTES_IN_MARKER - self::ICC_HEADER_LEN)));
}
/**
* Set Rendering Intent of the profile.
*
* Possilbe values are ICC_RI_PERCEPTUAL, ICC_RI_RELATIVE_COLORIMETRIC, ICC_RI_SATURATION or ICC_RI_ABSOLUTE_COLORIMETRIC.
*
* @param int rendering intent
*/
private function setRenderingIntent($newRI)
{
if ($this->icc_size >= 68)
{
substr_replace($this->icc_profile, pack('N', $newRI), 64, 4);
}
}
/**
* Get value of Rendering Intent field in ICC profile
*
* @return int
*/
private function getRenderingIntent()
{
if ($this->icc_size >= 68)
{
$arr = unpack('Nint', substr($this->icc_profile, 64, 4));
return $arr['int'];
}
return null;
}
/**
* Size of JPEG segment
*
* @param string file data
* @param int start of segment
* @return int
*/
private function getJPEGSegmentSize(&$f, $pos)
{
$arr = unpack('nint', substr($f, $pos + 2, 2)); // segment size has offset 2 and length 2B
return $arr['int'];
}
/**
* Type of JPEG segment
*
* @param string file data
* @param int start of segment
* @return int
*/
private function getJPEGSegmentType(&$f, $pos)
{
$arr = unpack('Cchar', substr($f, $pos + 1, 1)); // segment type has offset 1 and length 1B
return $arr['char'];
}
/**
* Check if segment contains ICC profile marker
*
* @param string file data
* @param int position of segment data
* @param int size of segment data (without 2 bytes of size field)
* @return bool
*/
private function getJPEGSegmentContainsICC(&$f, $pos, $size)
{
if ($size < self::ICC_HEADER_LEN) return false; // ICC_PROFILE 0x00 Marker_no Marker_cnt
return (bool) (substr($f, $pos + 4, self::ICC_HEADER_LEN - 2) == self::ICC_MARKER); // 4B offset in segment data = 2B segment marker + 2B segment size data
}
/**
* Get ICC segment chunk info
*
* @param string file data
* @param int position of segment data
* @return array {chunk_no, chunk_cnt}
*/
private function getJPEGSegmentICCChunkInfo(&$f, $pos)
{
$a = unpack('Cchunk_no/Cchunk_count', substr($f, $pos + 16, 2)); // 16B offset to data = 2B segment marker + 2B segment size + 'ICC_PROFILE' + 0x00, 1. byte chunk number, 2. byte chunks count
return array_values($a);
}
/**
* Returns chunk of ICC profile data from segment.
*
* @param string &data
* @param int current position
* @return string
*/
private function getJPEGSegmentICCChunk(&$f, $pos)
{
$data_offset = $pos + 4 + self::ICC_HEADER_LEN; // 4B JPEG APP offset + 14B ICC header offset
$size = $this->getJPEGSegmentSize($f, $pos);
$data_size = $size - self::ICC_HEADER_LEN - 2; // 14B ICC header - 2B of size data
return substr($f, $data_offset, $data_size);
}
/**
* Get data of given chunk
*
* @param int chunk number
* @return string
*/
private function getChunk($chunk_no)
{
if ($chunk_no > $this->icc_chunks) return '';
$max_chunk_size = self::MAX_BYTES_IN_MARKER - self::ICC_HEADER_LEN;
$from = ($chunk_no - 1) * $max_chunk_size;
$bytes = ($chunk_no < $this->icc_chunks) ? $max_chunk_size : $this->icc_size % $max_chunk_size;
return substr($this->icc_profile, $from, $bytes);
}
/**
* Prepare all data needed to be inserted into JPEG file to add ICC profile.
*
* @return string
*/
private function prepareJPEGProfileData()
{
$data = '';
for ($i = 1; $i <= $this->icc_chunks; $i++)
{
$chunk = $this->getChunk($i);
$chunk_size = strlen($chunk);
$data .= "\xff\xe2" . pack('n', $chunk_size + 2 + self::ICC_HEADER_LEN); // APP2 segment marker + size field
$data .= self::ICC_MARKER . pack('CC', $i, $this->icc_chunks); // profile marker inside segment
$data .= $chunk;
}
return $data;
}
/**
* Removes profile from JPEG data
*
* @param string &data
* @return bool
*/
private function removeProfile(&$jpeg_data)
{
$len = strlen($jpeg_data);
$pos = 0;
$counter = 0; // ehm...
$chunks_to_go = -1;
while ($pos < $len && $counter < 100)
{
$pos = strpos($jpeg_data, "\xff", $pos);
if ($pos === false) break; // no more 0xFF - we can end up with search
// analyze next segment
$type = $this->getJPEGSegmentType($jpeg_data, $pos);
switch ($type)
{
case 0xe2: // APP2
$size = $this->getJPEGSegmentSize($jpeg_data, $pos);
if ($this->getJPEGSegmentContainsICC($jpeg_data, $pos, $size))
{
list($chunk_no, $chunk_cnt) = $this->getJPEGSegmentICCChunkInfo($jpeg_data, $pos);
if ($chunks_to_go == -1) $chunks_to_go = $chunk_cnt; // first time save chunks count
$jpeg_data = substr_replace($jpeg_data, '', $pos, $size + 2); // remove this APP segment from dataset (segment size + 2B app marker)
$len -= $size + 2; // shorten the size
if (--$chunks_to_go == 0) return true; // no more icc profile chunks, store file
break; // go out without changing the position
}
$pos += $size + 2; // size of segment data + 2B size of segment marker
break;
case 0xe0: // APP0
case 0xe1: // APP1
case 0xe3: // APP3
case 0xe4: // APP4
case 0xe5: // APP5
case 0xe6: // APP6
case 0xe7: // APP7
case 0xe8: // APP8
case 0xe9: // APP9
case 0xea: // APP10
case 0xeb: // APP11
case 0xec: // APP12
case 0xed: // APP13
case 0xee: // APP14
case 0xef: // APP15
case 0xc0: // SOF0
case 0xc2: // SOF2
case 0xc4: // DHT
case 0xdb: // DQT
case 0xda: // SOS
case 0xfe: // COM
$size = $this->getJPEGSegmentSize($jpeg_data, $pos);
$pos += $size + 2; // size of segment data + 2B size of segment marker
break;
case 0xd8: // SOI
case 0xdd: // DRI
case 0xd9: // EOI
case 0xd0: // RST0
case 0xd1: // RST1
case 0xd2: // RST2
case 0xd3: // RST3
case 0xd4: // RST4
case 0xd5: // RST5
case 0xd6: // RST6
case 0xd7: // RST7
default:
$pos += 2;
break;
}
$counter++;
}
return false;
}
/**
* Inserts profile to JPEG data.
*
* Inserts profile immediately after SOI section
*
* @param string &data
* @return bool
*/
private function insertProfile(&$jpeg_data)
{
$len = strlen($jpeg_data);
$pos = 0;
$counter = 0; // ehm...
$chunks_to_go = -1;
while ($pos < $len && $counter < 100)
{
$pos = strpos($jpeg_data, "\xff", $pos);
if ($pos === false) break; // no more 0xFF - we can end up with search
// analyze next segment
$type = $this->getJPEGSegmentType($jpeg_data, $pos);
switch ($type)
{
case 0xd8: // SOI
$pos += 2;
$p_data = $this->prepareJPEGProfileData();
if ($p_data != '')
{
$before = substr($jpeg_data, 0, $pos);
$after = substr($jpeg_data, $pos);
$jpeg_data = $before . $p_data . $after;
return true;
}
return false;
//break;
case 0xe0: // APP0
case 0xe1: // APP1
case 0xe2: // APP2
case 0xe3: // APP3
case 0xe4: // APP4
case 0xe5: // APP5
case 0xe6: // APP6
case 0xe7: // APP7
case 0xe8: // APP8
case 0xe9: // APP9
case 0xea: // APP10
case 0xeb: // APP11
case 0xec: // APP12
case 0xed: // APP13
case 0xee: // APP14
case 0xef: // APP15
case 0xc0: // SOF0
case 0xc2: // SOF2
case 0xc4: // DHT
case 0xdb: // DQT
case 0xda: // SOS
case 0xfe: // COM
$size = $this->getJPEGSegmentSize($jpeg_data, $pos);
$pos += $size + 2; // size of segment data + 2B size of segment marker
break;
case 0xdd: // DRI
case 0xd9: // EOI
case 0xd0: // RST0
case 0xd1: // RST1
case 0xd2: // RST2
case 0xd3: // RST3
case 0xd4: // RST4
case 0xd5: // RST5
case 0xd6: // RST6
case 0xd7: // RST7
default:
$pos += 2;
break;
}
$counter++;
}
return false;
}
}
?>