解压php解压zip目录程序(PHP unpack the zip directory program)

解压程序  时间:2021-02-07  阅读:()

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 +.

}

数脉科技:六月优惠促销,免备案香港物理服务器,E3-1230v2处理器16G内存,350元/月

数脉科技六月优惠促销发布了!数脉科技对香港自营机房的香港服务器进行超低价促销,可选择30M、50M、100Mbps的优质bgp网络。更大带宽可在选购时选择同样享受优惠,目前仅提供HKBGP、阿里云产品,香港CN2、产品优惠码续费有效,仅限新购,每个客户可使用于一个订单。新客户可以立减400元,或者选择对应的机器用相应的优惠码,有需要的朋友可以尝试一下。点击进入:数脉科技官方网站地址数脉科技是一家成...

pia云低至20/月,七折美国服务器

Pia云是一家2018的开办的国人商家,原名叫哔哔云,目前整合到了魔方云平台上,商家主要销售VPS服务,采用KVM虚拟架构 ,机房有美国洛杉矶、中国香港和深圳地区,洛杉矶为crea机房,三网回程CN2 GIA,带20G防御,常看我测评的朋友应该知道,一般带防御去程都是骨干线路,香港的线路也是CN2直连大陆,目前商家重新开业,价格非常美丽,性价比较非常高,有需要的朋友可以关注一下。活动方案...

香港E3-1230v2 16GB 30M 326元/月 数脉科技

官方网站:https://www.shuhost.com/公司名:LucidaCloud Limited尊敬的新老客户:艰难的2021年即将结束,年终辞旧迎新之际,我们准备了持续优惠、及首月优惠,为中小企业及个人客户降低IT业务成本。我们将持续努力提供给客户更好的品质与服务,在新的一年期待与您有美好的合作。# 下列价钱首月八折优惠码: 20211280OFF (每客户限用1次) * 自助购买可复制...

解压程序为你推荐
视频截图软件视频截图软件真正免费的网络电话有真正的免费的网络电话吗 ?flash导航条如何添加FLASH导航条二叉树遍历写出二叉树的先序遍历、中序遍历、后序遍历。数码资源网手机练习打字的软件如何建立一个网站怎样能创建一个网站mate8价格华为mate8 128g售价多少钱mate8价格华为mate8市场价多少2012年正月十五2012年正月十五上午9点27分出生的女孩儿五行缺什么,命怎么样宕机何谓宕机?
长沙域名注册公司 美国主机评论 美国主机代购 轻博 win8.1企业版升级win10 好看qq空间 789电视网 股票老左 php空间购买 如何用qq邮箱发邮件 vip域名 优酷黄金会员账号共享 创建邮箱 web应用服务器 石家庄服务器托管 阿里云邮箱登陆地址 金主 万网注册 服务器硬件配置 数据湾 更多