Annotation of embedaddon/php/ext/phar/tests/zip/files/corrupt_zipmaker.php.inc, revision 1.1

1.1     ! misho       1: <?php
        !             2: // this corrupt zip maker uses portions of Vincent Lascaux's File_Archive to create
        !             3: // specifically corrupted zip archives for unit-testing zip support in the phar extension
        !             4: // and was modified by Greg Beaver
        !             5: /**
        !             6:  * ZIP archive writer
        !             7:  *
        !             8:  * PHP versions 4 and 5
        !             9:  *
        !            10:  * This library is free software; you can redistribute it and/or
        !            11:  * modify it under the terms of the GNU Lesser General Public
        !            12:  * License as published by the Free Software Foundation; either
        !            13:  * version 2.1 of the License, or (at your option) any later version.
        !            14:  *
        !            15:  * This library is distributed in the hope that it will be useful,
        !            16:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            17:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
        !            18:  * Lesser General Public License for more details.
        !            19:  *
        !            20:  * You should have received a copy of the GNU Lesser General Public
        !            21:  * License along with this library; if not, write to the Free Software
        !            22:  * Foundation, Inc., 59 Temple Place, Suite 330,Boston,MA 02111-1307 USA
        !            23:  *
        !            24:  * @category   File Formats
        !            25:  * @package    File_Archive
        !            26:  * @author     Vincent Lascaux <vincentlascaux@php.net>
        !            27:  * @copyright  1997-2005 The PHP Group
        !            28:  * @license    http://www.gnu.org/copyleft/lesser.html  LGPL
        !            29:  * @version    CVS: $Id: corrupt_zipmaker.php.inc 264655 2008-08-11 22:43:02Z cellog $
        !            30:  * @link       http://pear.php.net/package/File_Archive
        !            31:  */
        !            32: 
        !            33: /**
        !            34:  * ZIP archive writer
        !            35:  */
        !            36: class corrupt_zipmaker
        !            37: {
        !            38:        /**
        !            39:        * @var int Current position in the writer
        !            40:        * @access private
        !            41:        */
        !            42:        var $offset = 0;
        !            43: 
        !            44:        /**
        !            45:        * @var string Optionnal comment to add to the zip
        !            46:        * @access private
        !            47:        */
        !            48:        var $comment = "";
        !            49: 
        !            50:        /**
        !            51:        * @var string Data written at the end of the ZIP file
        !            52:        * @access private
        !            53:        */
        !            54:        var $central = "";
        !            55: 
        !            56:        /**
        !            57:        * @var string Data written at the start of the ZIP file
        !            58:        * @access private
        !            59:        */
        !            60:        var $start = "";
        !            61: 
        !            62:        /**
        !            63:        * Set a comment on the ZIP file
        !            64:        */
        !            65:        function setComment($comment) { $this->comment = $comment; }
        !            66: 
        !            67:        /**
        !            68:        * @param int $time Unix timestamp of the date to convert
        !            69:        * @return the date formated as a ZIP date
        !            70:        */
        !            71:        function getMTime($time)
        !            72:        {
        !            73:                $mtime = ($time !== null ? getdate($time) : getdate());
        !            74:                $mtime = preg_replace(
        !            75:                                "/(..){1}(..){1}(..){1}(..){1}/",
        !            76:                                "\\x\\4\\x\\3\\x\\2\\x\\1",
        !            77:                                dechex(($mtime['year']-1980<<25)|
        !            78:                                        ($mtime['mon'    ]<<21)|
        !            79:                                        ($mtime['mday'   ]<<16)|
        !            80:                                        ($mtime['hours'  ]<<11)|
        !            81:                                        ($mtime['minutes']<<5)|
        !            82:                                        ($mtime['seconds']>>1)));
        !            83:                eval('$mtime = "'.$mtime.'";');
        !            84:                return $mtime;
        !            85:        }
        !            86: 
        !            87:        private function getFileEntry($compmethod, $mtime, $crc32, $complength, $uncomplength, $filename, $data, $corrupt, $fakecomp)
        !            88:        {
        !            89:                switch ($corrupt) {
        !            90:                        case null :
        !            91:                                $file = "PK\x03\x04\x14\x00\x00\x00" . pack('v', $compmethod) .
        !            92:                                                $mtime .
        !            93:                                                pack("VVVvv", $crc32, $complength, $uncomplength, strlen($filename), 0x00) .
        !            94:                                                $filename .
        !            95:                                                $data;
        !            96:                                break;
        !            97:                        case 'compress' :
        !            98:                                $file = "PK\x03\x04\x14\x00\x00\x00" . pack('v', $fakecomp) .
        !            99:                                                $mtime .
        !           100:                                                pack("VVVvv", $crc32, $complength, $uncomplength, strlen($filename), 0x00) .
        !           101:                                                $filename .
        !           102:                                                $data;
        !           103:                                break;
        !           104:                        case 'encrypt' :
        !           105:                                $file = "PK\x03\x04\x14\x00\x01\x00" . pack('v', $compmethod) .
        !           106:                                                $mtime .
        !           107:                                                pack("VVVvv", $crc32, $complength, $uncomplength, strlen($filename), 0x00) .
        !           108:                                                $filename .
        !           109:                                                $data;
        !           110:                                break;
        !           111:                        case 'crc32' :
        !           112:                                $file = "PK\x03\x04\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           113:                                                $mtime .
        !           114:                                                pack("VVVvv", $crc32 + 1, $complength, $uncomplength, strlen($filename), 0x00) .
        !           115:                                                $filename .
        !           116:                                                $data;
        !           117:                                break;
        !           118:                        case 'complength' :
        !           119:                                $file = "PK\x03\x04\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           120:                                                $mtime .
        !           121:                                                pack("VVVvv", $crc32, $complength + 1, $uncomplength, strlen($filename), 0x00) .
        !           122:                                                $filename .
        !           123:                                                $data;
        !           124:                                break;
        !           125:                        case 'uncomplength' :
        !           126:                                $file = "PK\x03\x04\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           127:                                                $mtime .
        !           128:                                                pack("VVVvv", $crc32, $complength, $uncomplength - 1, strlen($filename), 0x00) .
        !           129:                                                $filename .
        !           130:                                                $data;
        !           131:                                break;
        !           132:                        case 'filename_len' :
        !           133:                                $file = "PK\x03\x04\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           134:                                                $mtime .
        !           135:                                                pack("VVVvv", $crc32, $complength, $uncomplength, strlen($filename) - 1, 0x00) .
        !           136:                                                $filename .
        !           137:                                                $data;
        !           138:                                break;
        !           139:                        case 'extra_len' :
        !           140:                                $file = "PK\x03\x04\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           141:                                                $mtime .
        !           142:                                                pack("VVVvv", $crc32, $complength, $uncomplength, strlen($filename), 1) .
        !           143:                                                $filename .
        !           144:                                                $data;
        !           145:                                break;
        !           146:                        case 'filename' :
        !           147:                                $file = "PK\x03\x04\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           148:                                                $mtime .
        !           149:                                                pack("VVVvv", $crc32, $complength, $uncomplength, strlen($filename), 0x00) .
        !           150:                                                substr($filename, 1) .
        !           151:                                                $data;
        !           152:                                break;
        !           153:                        case 'data' :
        !           154:                                $file = "PK\x03\x04\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           155:                                                $mtime .
        !           156:                                                pack("VVVvv", $crc32, $complength, $uncomplength, strlen($filename), 0x00) .
        !           157:                                                $filename .
        !           158:                                                substr($data, 1);
        !           159:                                break;
        !           160:                }
        !           161:                return $file;
        !           162:        }
        !           163: 
        !           164:        private function getCentralEntry($compmethod, $mtime, $crc32, $complength, $uncomplength, $filename, $comment, $corrupt, &$offset, $fakecomp)
        !           165:        {
        !           166:                settype($comment, 'string');
        !           167:                switch ($corrupt) {
        !           168:                        case null :
        !           169:                                $central = "PK\x01\x02\x00\x00\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           170:                                                $mtime .
        !           171:                                                pack("VVVvvvvvVV", $crc32, $complength, $uncomplength, strlen($filename), 0x00,strlen($comment),0x00,0x00,
        !           172:                                                        0x0000, $this->offset).
        !           173:                                                $filename . $comment;
        !           174:                                $offset = strlen($central);
        !           175:                                break;
        !           176:                        case 'encrypt' :
        !           177:                                $central = "PK\x01\x02\x00\x00\x14\x00\x01\x00" . pack('v', $compmethod) .
        !           178:                                                $mtime .
        !           179:                                                pack("VVVvvvvvVV", $crc32, $complength, $uncomplength, strlen($filename), 0x00,strlen($comment),0x00,0x00,
        !           180:                                                        0x0000, $this->offset).
        !           181:                                                $filename . $comment;
        !           182:                                $offset = strlen($central);
        !           183:                                break;
        !           184:                        case 'compress' :
        !           185:                                $central = "PK\x01\x02\x00\x00\x14\x00\x00\x00" . pack('v', $fakecomp) .
        !           186:                                                $mtime .
        !           187:                                                pack("VVVvvvvvVV", $crc32, $complength, $uncomplength, strlen($filename), 0x00,strlen($comment),0x00,0x00,
        !           188:                                                        0x0000, $this->offset).
        !           189:                                                $filename . $comment;
        !           190:                                $offset = strlen($central);
        !           191:                                break;
        !           192:                        case 'crc32' :
        !           193:                                $central = "PK\x01\x02\x00\x00\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           194:                                                $mtime .
        !           195:                                                pack("VVVvvvvvVV", $crc32 + 1, $complength, $uncomplength, strlen($filename), 0x00,strlen($comment),0x00,0x00,
        !           196:                                                        0x0000, $this->offset).
        !           197:                                                $filename . $comment;
        !           198:                                $offset = strlen($central);
        !           199:                                break;
        !           200:                        case 'complength' :
        !           201:                                $central = "PK\x01\x02\x00\x00\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           202:                                                $mtime .
        !           203:                                                pack("VVVvvvvvVV", $crc32, $complength - 1, $uncomplength, strlen($filename), 0x00,strlen($comment),0x00,0x00,
        !           204:                                                        0x0000, $this->offset).
        !           205:                                                $filename . $comment;
        !           206:                                $offset = strlen($central);
        !           207:                                break;
        !           208:                        case 'uncomplength' :
        !           209:                                $central = "PK\x01\x02\x00\x00\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           210:                                                $mtime .
        !           211:                                                pack("VVVvvvvvVV", $crc32, $complength, $uncomplength - 1, strlen($filename), 0x00,strlen($comment),0x00,0x00,
        !           212:                                                        0x0000, $this->offset).
        !           213:                                                $filename . $comment;
        !           214:                                $offset = strlen($central);
        !           215:                                break;
        !           216:                        case 'filename_len' :
        !           217:                                $central = "PK\x01\x02\x00\x00\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           218:                                                $mtime .
        !           219:                                                pack("VVVvvvvvVV", $crc32, $complength, $uncomplength, strlen($filename) - 1, 0x00,strlen($comment),0x00,0x00,
        !           220:                                                        0x0000, $this->offset).
        !           221:                                                $filename . $comment;
        !           222:                                $offset = strlen($central);
        !           223:                                break;
        !           224:                        case 'offset' :
        !           225:                                $central = "PK\x01\x02\x00\x00\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           226:                                                $mtime .
        !           227:                                                pack("VVVvvvvvVV", $crc32, $complength, $uncomplength, strlen($filename), 0x00,strlen($comment),0x00,0x00,
        !           228:                                                        0x0000, $this->offset - 1).
        !           229:                                                $filename . $comment;
        !           230:                                $offset = strlen($central) - 1;
        !           231:                                break;
        !           232:                        case 'comment' :
        !           233:                                $central = "PK\x01\x02\x00\x00\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           234:                                                $mtime .
        !           235:                                                pack("VVVvvvvvVV", $crc32, $complength, $uncomplength, strlen($filename), 0x00,strlen($comment) + 1,0x00,0x00,
        !           236:                                                        0x0000, $this->offset).
        !           237:                                                $filename . $comment;
        !           238:                                $offset = strlen($central);
        !           239:                                break;
        !           240:                        case 'extralen1' :
        !           241:                                $extra = 'nu' . 0xffff; // way huge size
        !           242:                                $central = "PK\x01\x02\x00\x00\x14\x00\x00\x00" . pack('v', $compmethod) .
        !           243:                                                $mtime .
        !           244:                                                pack("VVVvvvvvVV", $crc32, $complength, $uncomplength, strlen($filename), strlen($extra),strlen($comment),0x00,0x00,
        !           245:                                                        0x0000, $this->offset).
        !           246:                                                $filename . $extra . $comment;
        !           247:                                $offset = strlen($central);
        !           248:                                break;
        !           249:                }
        !           250:                return $central;
        !           251:        }
        !           252: 
        !           253:        function addFile($filename, $mtime, $data, $comment = null, $compress = null, $filecorrupt = null, $centralcorrupt = null, $fakecomp = 1)
        !           254:        {
        !           255:                $mtime = $this->getMTime($mtime ? $mtime : null);
        !           256: 
        !           257:                $uncomplength = strlen($data);
        !           258:                $crc32 = crc32($data) & 0xFFFFFFFF;
        !           259:                $compmethod = 0;
        !           260:                switch ($compress) {
        !           261:                        case 'gz' :
        !           262:                                $data = gzcompress($data);
        !           263:                                $compmethod = 8;
        !           264:                                break;
        !           265:                        case 'bz2' :
        !           266:                                $data = bzcompress($data);
        !           267:                                $compmethod = 12;
        !           268:                                break;
        !           269:                }
        !           270:                $complength = strlen($data);
        !           271: 
        !           272:                $this->start .= ($file = $this->getFileEntry($compmethod, $mtime, $crc32, $complength, $uncomplength, $filename, $data, $filecorrupt, $fakecomp));
        !           273: 
        !           274:                $offset = 0;
        !           275:                $this->central .= $this->getCentralEntry($compmethod, $mtime, $crc32, $complength, $uncomplength, $filename, $comment, $centralcorrupt, $offset, $fakecomp);
        !           276: 
        !           277:                $this->offset += $offset;
        !           278:                $this->count++;
        !           279:        }
        !           280: 
        !           281:        function writeZip($zipfile, $corrupt = null)
        !           282:        {
        !           283:                $write = $this->start . $this->central;
        !           284:                switch ($corrupt) {
        !           285:                        case null :
        !           286:                                $write .= "PK\x05\x06\x00\x00\x00\x00" .
        !           287:                                        pack("vvVVv", $this->count, $this->count,
        !           288:                                        $this->offset, strlen($this->start),
        !           289:                                        strlen($this->comment)) . $this->comment;
        !           290:                                break;
        !           291:                        case 'disknumber' :
        !           292:                                $write .= "PK\x05\x06\x01\x00\x01\x00" .
        !           293:                                        pack("vvVVv", $this->count, $this->count,
        !           294:                                        $this->offset, strlen($this->start),
        !           295:                                        strlen($this->comment)) . $this->comment;
        !           296:                                break;
        !           297:                        case 'count1' :
        !           298:                                $write .= "PK\x05\x06\x00\x00\x00\x00" .
        !           299:                                        pack("vvVVv", $this->count + 1, $this->count,
        !           300:                                        $this->offset, strlen($this->start),
        !           301:                                        strlen($this->comment)) . $this->comment;
        !           302:                                break;
        !           303:                        case 'count2' :
        !           304:                                $write .= "PK\x05\x06\x00\x00\x00\x00" .
        !           305:                                        pack("vvVVv", $this->count, $this->count + 1,
        !           306:                                        $this->offset, strlen($this->start),
        !           307:                                        strlen($this->comment)) . $this->comment;
        !           308:                                break;
        !           309:                        case 'cdir_offset' :
        !           310:                                $write .= "PK\x05\x06\x00\x00\x00\x00" .
        !           311:                                        pack("vvVVv", $this->count, $this->count,
        !           312:                                        $this->offset, strlen($this->start) - 3,
        !           313:                                        strlen($this->comment)) . $this->comment;
        !           314:                                break;
        !           315:                        case 'cdir_len' :
        !           316:                                $write .= "PK\x05\x06\x00\x00\x00\x00" .
        !           317:                                        pack("vvVVv", $this->count, $this->count,
        !           318:                                        $this->offset - 5, strlen($this->start),
        !           319:                                        strlen($this->comment)) . $this->comment;
        !           320:                                break;
        !           321:                        case 'comment' :
        !           322:                                $write .= "PK\x05\x06\x00\x00\x00\x00" .
        !           323:                                        pack("vvVVv", $this->count, $this->count,
        !           324:                                        strlen($this->start), $this->offset + 1,
        !           325:                                        strlen($this->comment) + 1) . $this->comment;
        !           326:                                break;
        !           327:                        case 'none' :
        !           328:                }
        !           329:                file_put_contents($zipfile, $write);
        !           330:        }
        !           331: }
        !           332: ?>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>