OpenVPN_Management_GUI/Admin/Modules/VPNconfig/include/zip.lib.php

114 lines
2.9 KiB
PHP
Executable File

<?php
/*
* Copyrights are following:
*
* Eric Mueller <eric@themepark.com>
* http://www.zend.com/codex.php?id=535&single=1
*
* Denis125 <webmaster@atlant.ru>
* http://www.zend.com/codex.php?id=470&single=1
*
* Peter Listiak <mlady@users.sourceforge.net>
*
* PK ZIP
* http://www.pkware.com/appnote.txt
*/
class zipfile
{
var $datasec = array ();
var $ctrl_dir = array ();
var $eof_ctrl_dir = "\x50\x4b\x05\x06\x00\x00\x00\x00";
var $old_offset = 0;
function unix2DosTime ($unixtime = 0)
{
$timearray = ($unixtime == 0) ?
getdate () :
getdate ($unixtime);
if ($timearray['year'] < 1980)
{
$timearray['year'] = 1980;
$timearray['mon'] = 1;
$timearray['mday'] = 1;
$timearray['hours'] = 0;
$timearray['minutes'] = 0;
$timearray['seconds'] = 0;
}
return (($timearray['year'] - 1980) << 25) |
($timearray['mon'] << 21) |
($timearray['mday'] << 16) |
($timearray['hours'] << 11) |
($timearray['minutes'] << 5) |
($timearray['seconds'] >> 1);
}
function addFile ($data, $name, $time = 0)
{
$name = str_replace ('\\', '/', $name);
$dtime = dechex ($this->unix2DosTime ($time));
$hexdtime = '\x' . $dtime[6] . $dtime[7] .
'\x' . $dtime[4] . $dtime[5] .
'\x' . $dtime[2] . $dtime[3] .
'\x' . $dtime[0] . $dtime[1];
eval ('$hexdtime = "' . $hexdtime . '";');
$unc_len = strlen ($data);
$crc = crc32 ($data);
$zdata = gzcompress ($data);
$zdata = substr (substr ($zdata, 0, strlen ($zdata) - 4), 2);
$c_len = strlen ($zdata);
$fr = "\x50\x4b\x03\x04\x14\x00\x00\x00\x08\x00" .
$hexdtime .
pack ('V', $crc) .
pack ('V', $c_len) .
pack ('V', $unc_len) .
pack ('v', strlen ($name)) .
pack ('v', 0) .
$name .
$zdata .
pack ('V', $crc) .
pack ('V', $c_len) .
pack ('V', $unc_len);
$this -> datasec[] = $fr;
$cdrec = "\x50\x4b\x01\x02\x00\x00\x14\x00\x00\x00\x08\x00" .
$hexdtime .
pack ('V', $crc) .
pack ('V', $c_len) .
pack ('V', $unc_len) .
pack ('v', strlen ($name)) .
pack ('v', 0 ) .
pack ('v', 0 ) .
pack ('v', 0 ) .
pack ('v', 0 ) .
pack ('V', 32 ) .
pack ('V', $this -> old_offset ) .
$name;
$this -> old_offset += strlen ($fr);
$this -> ctrl_dir[] = $cdrec;
}
function file ()
{
$data = implode ('', $this -> datasec);
$ctrldir = implode ('', $this -> ctrl_dir);
return $data .
$ctrldir .
$this -> eof_ctrl_dir .
pack ('v', sizeof ($this -> ctrl_dir)) .
pack ('v', sizeof ($this -> ctrl_dir)) .
pack ('V', strlen ($ctrldir)) .
pack ('V', strlen ($data)) .
"\x00\x00";
}
}
?>