php解压zip目录程序PHP unpack the zip directory program< html >
< head >
< meta http equiv = "content type" content = "text / html ;charset = gb2312" >
"style" type = "text / css" >
<! - - - - - - -a td (font size: 14px.color: # 000000.
}a {color: # 000066.text decoration: none;
}a: hover {color: # ff6600.
text decoration: underline.
}
. style3 {font family: georgia, times new roman, times, serif; "font size: xx - large.color: # 0000ff.
}body {background color: # 5d5d5d.
}
- >
< style >
< / head >
< body >the "form" myform "method =" post "=" rar.php "enctype ="mult ipart / form / data "
< table width = "100%" border = "0" cellspacing = "0"cellpadding = "4" >
< tr >
< td width=24%"nowrap >< / td >或上传文件【uploadzipf ile】< td width = "75%" >< input type = "file" in the "file" id ="file size =" ">< / td >
< / tr >
< tr >
< td >< input type = "submit" name = "submit" value = "解压[unpack" >< / td >
< / tr >
< table >
<?class zip
{var $_ files = 0.var $_ fol ders = 0.
the extract ($$$) , zn, index = array (- 1) ) .
{
$$$$$$$i = 0, fopen zip = (($zn, rb) .if ( ! $$$$$$(zip) return (1) ;ceo = $$$this - > readcentraldir zip, zn) .as ceo of _= $$[offset] .if ( ! i s _ array ($index) index = array ($$$$$$$(index) .for (i = 0; $$$$$$$$(index [] ; i + +) {if ($$intval index [i] ) . index ($i) = $$$( | | index [] > [$] ) ,under chief executive officerreturn (- 1) .
}for (i = 0; i < $$[under] ceo, $i + +) .
{the fseek ($$) as _ zip) .
$$$$$$$this header = > readcentralfileheaders (zip) .
header [index] $$$i = = ftell) , as _ (zip) .the rewind ($zip) fseek ($zip, header [offset]) .if, in _array (- 1, | | index) in _ array ($1, $index)$$$$$$$(a) header (' ] = $a $- $extractfile header, to $zip) .}fclose (zip) .return $1.
}readfileheader (zip) .
{
_ $data = fread (binary zip, 30) .unpack ($data = vchk / vid / vvers ion / vflag / vcompression/vmtime/vmdate/vcrc/vcompressed_size/vsize/vfilename_ len / vextra_ len, _ $binary data) .
(a) $header = fread ($$$$$$$(a) zip _ len] ) .if ($extra _ data [len] . = 0) {
the extra $header] = fread ($$$$$$$(zip) extra_ len]) .} else {$header ['extra' ] = ' ' )header compression [s] $$[compression]) ; $header [size] =$data [size] .the compressed_ $header size) = $data compressed_ [size] .header [crc] $= $data [crc] $[23] : header data ($23) .mdate header [$] =$mdate data [], [] . mtime header mtime=$data[] .if ($mdate header [] & [$header mtime]) {
$$$$$$$hour=mt ime header [] &0xf800) >>>>>>>= ($-$11, mtimeheader [] & 0x07e0) >>>>>>> 5.second=$$mtime header []&0x001f) *2= (($year, $mdate header[] & 0xfe00) >>>>>>> 9) + (1980) ;
$$$$$$$$= mdate header [] & 0x01e0) >>>>>>> = $5, $day mdateheader [] & 0x001f.
($mtime header mktime] =$$$) , second, minute, day, $$$, month,year) ;
} else {$mtime header [] = time () .a header stored _ [$] = $header [f ilename] .
[status] $header = "ok";return $header.
}readcentralfileheaders ($) (zip)
_ $data = fread (binary zip, 46) .header= ($unpack vchkid/vid/vversion/vversion_extracted/ vflag / vcompression / vmtime / vmdate / vcrc / vcompressed_ size / vsize / vf ilename _ len / vextra_ len / vcomment _len/vdisk/vinternal /vexternal /voffset, _$binary data) .if ($fi lename _ header [len] . = 0)
(a) $header = fread ($$$$$$$(zip, zip, zip, zip, a header _len] ) .a dangerous header [$] = ' ' .if ($_ header [len] extra! = 0)the extra$header] = fread ($$$$$$$(zip, extra header_len] ) .even with extra header [$] = ' ' .
- how_ ($header [len] . = 0)
$header [how] = fread (. zip, how _ header [len] ) .how else, header [$] ' .if ($mdate header [] & [$header mtime])
{
$$$$$$$hour = mt ime header [] & 0xf800) >>>>>>> 11.
- = ($$[] and mtime header 0x07e0) >>>>>>> 5.second = $$mtime header [] & 0x001f) * 2.
: = ($$[] and mdate header 0xfe00) >>>>>>> 9) + (1980) ;$$$$$$$$= mdate header [] & 0x01e0) >>>>>>> 5.per day = $header [] & 0x001f mdate.
($mtime header mktime] =$$$) , second, minute, day, $$$, month,year) ;
} else {mtime header [$] = time () .
}a header stored _ [$] = $header [f ilename] .
[status] $header. all right.if (substr ($header [f ilename] - 1) = = ' ' )
$$$$$$[external] = header 0x41ff0010.return $header.
}
(a) $$readcentraldir zip, zip, zip, zip, zip _ (name)$$$$$$$_ zip size = filesize) .if ($size (up to $277 _ size = $size.you can _ size = $277.the fseek ($zip size - up to $$_ size) .pos = $$$ftell bytes = 0x00000000 zip) .while ( (< $size) {byte = fread () $$$zip, 1) = ($bytes (bytes (8) | dsb ($byte) .if ($bytes = = = = 0x2e706870504b0506 0x504b0506 or $bytes){$pos + +; break; } $pos +.
}
数脉科技六月优惠促销发布了!数脉科技对香港自营机房的香港服务器进行超低价促销,可选择30M、50M、100Mbps的优质bgp网络。更大带宽可在选购时选择同样享受优惠,目前仅提供HKBGP、阿里云产品,香港CN2、产品优惠码续费有效,仅限新购,每个客户可使用于一个订单。新客户可以立减400元,或者选择对应的机器用相应的优惠码,有需要的朋友可以尝试一下。点击进入:数脉科技官方网站地址数脉科技是一家成...
Pia云是一家2018的开办的国人商家,原名叫哔哔云,目前整合到了魔方云平台上,商家主要销售VPS服务,采用KVM虚拟架构 ,机房有美国洛杉矶、中国香港和深圳地区,洛杉矶为crea机房,三网回程CN2 GIA,带20G防御,常看我测评的朋友应该知道,一般带防御去程都是骨干线路,香港的线路也是CN2直连大陆,目前商家重新开业,价格非常美丽,性价比较非常高,有需要的朋友可以关注一下。活动方案...
官方网站:https://www.shuhost.com/公司名:LucidaCloud Limited尊敬的新老客户:艰难的2021年即将结束,年终辞旧迎新之际,我们准备了持续优惠、及首月优惠,为中小企业及个人客户降低IT业务成本。我们将持续努力提供给客户更好的品质与服务,在新的一年期待与您有美好的合作。# 下列价钱首月八折优惠码: 20211280OFF (每客户限用1次) * 自助购买可复制...