vendor/setasign/fpdi/fpdi_bridge.php

   1 <?php
   2 /**
   3  * This file is part of FPDI
   4  *
   5  * @package   FPDI
   6  * @copyright Copyright (c) 2017 Setasign - Jan Slabon (https://www.setasign.com)
   7  * @license   http://opensource.org/licenses/mit-license The MIT License
   8  * @version   1.6.2
   9  */
  10
  11 /**
  12  * This file is used as a bridge between TCPDF or FPDF
  13  * It will dynamically create the class extending the available
  14  * class FPDF or TCPDF.
  15  *
  16  * This way it is possible to use FPDI for both FPDF and TCPDF with one FPDI version.
  17  */
  18
  19 if (!class_exists('TCPDF', false)) {
  20     /**
  21      * Class fpdi_bridge
  22      */
  23     class fpdi_bridge extends FPDF
  24     {
  25         // empty body
  26     }
  27
  28 } else {
  29
  30     /**
  31      * Class fpdi_bridge
  32      */
  33     class fpdi_bridge extends TCPDF
  34     {
  35         /**
  36          * Array of Tpl-Data
  37          *
  38          * @var array
  39          */
  40         protected $_tpls = array();
  41
  42         /**
  43          * Name-prefix of Templates used in Resources-Dictionary
  44          *
  45          * @var string A String defining the Prefix used as Template-Object-Names. Have to begin with an /
  46          */
  47         public $tplPrefix = "/TPL";
  48
  49         /**
  50          * Current Object Id.
  51          *
  52          * @var integer
  53          */
  54         protected $_currentObjId;
  55
  56         /**
  57          * Return XObjects Dictionary.
  58          *
  59          * Overwritten to add additional XObjects to the resources dictionary of TCPDF
  60          *
  61          * @return string
  62          */
  63         protected function _getxobjectdict()
  64         {
  65             $out = parent::_getxobjectdict();
  66             foreach ($this->_tpls as $tplIdx => $tpl) {
  67                 $out .= sprintf('%s%d %d 0 R', $this->tplPrefix, $tplIdx, $tpl['n']);
  68             }
  69
  70             return $out;
  71         }
  72
  73         /**
  74          * Writes a PDF value to the resulting document.
  75          *
  76          * Prepares the value for encryption of imported data by FPDI
  77          *
  78          * @param array $value
  79          */
  80         protected function _prepareValue(&$value)
  81         {
  82             switch ($value[0]) {
  83                 case pdf_parser::TYPE_STRING:
  84                     if ($this->encrypted) {
  85                         $value[1] = $this->_unescape($value[1]);
  86                         $value[1] = $this->_encrypt_data($this->_currentObjId, $value[1]);
  87                         $value[1] = TCPDF_STATIC::_escape($value[1]);
  88                     }
  89                     break;
  90
  91                 case pdf_parser::TYPE_STREAM:
  92                     if ($this->encrypted) {
  93                         $value[2][1] = $this->_encrypt_data($this->_currentObjId, $value[2][1]);
  94                         $value[1][1]['/Length'] = array(
  95                             pdf_parser::TYPE_NUMERIC,
  96                             strlen($value[2][1])
  97                         );
  98                     }
  99                     break;
 100
 101                 case pdf_parser::TYPE_HEX:
 102                     if ($this->encrypted) {
 103                         $value[1] = $this->hex2str($value[1]);
 104                         $value[1] = $this->_encrypt_data($this->_currentObjId, $value[1]);
 105
 106                         // remake hexstring of encrypted string
 107                         $value[1] = $this->str2hex($value[1]);
 108                     }
 109                     break;
 110             }
 111         }
 112
 113         /**
 114          * Un-escapes a PDF string
 115          *
 116          * @param string $s
 117          * @return string
 118          */
 119         protected function _unescape($s)
 120         {
 121             $out = '';
 122             for ($count = 0, $n = strlen($s); $count < $n; $count++) {
 123                 if ($s[$count] != '\\' || $count == $n-1) {
 124                     $out .= $s[$count];
 125                 } else {
 126                     switch ($s[++$count]) {
 127                         case ')':
 128                         case '(':
 129                         case '\\':
 130                             $out .= $s[$count];
 131                             break;
 132                         case 'f':
 133                             $out .= chr(0x0C);
 134                             break;
 135                         case 'b':
 136                             $out .= chr(0x08);
 137                             break;
 138                         case 't':
 139                             $out .= chr(0x09);
 140                             break;
 141                         case 'r':
 142                             $out .= chr(0x0D);
 143                             break;
 144                         case 'n':
 145                             $out .= chr(0x0A);
 146                             break;
 147                         case "\r":
 148                             if ($count != $n-1 && $s[$count+1] == "\n")
 149                                 $count++;
 150                             break;
 151                         case "\n":
 152                             break;
 153                         default:
 154                             // Octal-Values
 155                             if (ord($s[$count]) >= ord('0') &&
 156                                 ord($s[$count]) <= ord('9')) {
 157                                 $oct = ''. $s[$count];
 158
 159                                 if (ord($s[$count+1]) >= ord('0') &&
 160                                     ord($s[$count+1]) <= ord('9')) {
 161                                     $oct .= $s[++$count];
 162
 163                                     if (ord($s[$count+1]) >= ord('0') &&
 164                                         ord($s[$count+1]) <= ord('9')) {
 165                                         $oct .= $s[++$count];
 166                                     }
 167                                 }
 168
 169                                 $out .= chr(octdec($oct));
 170                             } else {
 171                                 $out .= $s[$count];
 172                             }
 173                     }
 174                 }
 175             }
 176             return $out;
 177         }
 178
 179         /**
 180          * Hexadecimal to string
 181          *
 182          * @param string $data
 183          * @return string
 184          */
 185         public function hex2str($data)
 186         {
 187             $data = preg_replace('/[^0-9A-Fa-f]/', '', rtrim($data, '>'));
 188             if ((strlen($data) % 2) == 1) {
 189                 $data .= '0';
 190             }
 191
 192             return pack('H*', $data);
 193         }
 194
 195         /**
 196          * String to hexadecimal
 197          *
 198          * @param string $str
 199          * @return string
 200          */
 201         public function str2hex($str)
 202         {
 203             return current(unpack('H*', $str));
 204         }
 205     }
 206 }