分享一个PHP在线打包的程序。还不错，很强大。
？<？php
//在URL后参加？pwd =密码查看生成密码
//Mracat博客：https://mracat.com
$ password = '8baa717e6265d1c1d762cc896151f821' ; // l23
？>
<！DOCTYPE html PUBLIC “ - // W3C // DTD XHTML 1.0 Transitional // EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd” >
< html xmlns = “http：/ /www.w3.org/1999/xhtml” DIR = “LTR” >
<头部>
< META HTTP -当量= “内容类型”内容= “text / html的;字符集= UTF-8” />
<title >
< style type = “text / css” >
<！ -
html { background ：＃f9f9f9;} body {background：#fff; color：＃333; font-family：sans-serif; margin：2em auto; width：700px; padding：1em 2em; -moz-border-radius：11px; -khtml- border-radius：11px; -webkit-border-radius：11px; border-radius：11px; border：1px solid #dfdfdf;} a {color：＃2583ad; text-decoration：none;} a：hover {color：＃ d54e21;} h1 {border-bottom：1px solid #dadada; clear：both; color：＃666; font：24px Georgia，“Times New Roman”，Times，serif; margin：5px 0 0 -4px; padding：0;填充底：7px的;} H2 {字体大小：16px的;} p，李，DD，DT {填充底：2px的;字体大小：12px的;行高：18像素;}代码，.CODE {字体 - 大小：13px;} ul，ol，dl {padding：5px 5px 5px 22px;}一个img {border：0;} abbr {border：0; font-variant：normal;} #logo {margin：6px 0 14px 0; border-bottom：none; text-align：center;}。step {margin：20px 0 15px;}。step，th {text-align：left; padding：0;}。submit input，.button，.button-secondary {FONT-FAMILY：无衬线;文字修饰：none; font-size：14px！important; line-height：16px; padding：6px 12px; cursor：pointer; border：1px solid #bbb; color：＃464646; -moz-border-radius：15px; -khtml-border -radius：15px的; -webkit-边界半径：15px的;边界半径：15px的; -moz-箱大小：内容箱; -webkit-箱尺寸：内容箱; -khtml箱上浆：内容-box; box-sizing：content-box;}。button：hover，.button-secondary：hover，.submit input：hover {color：＃000; border-color：＃666;} textarea {border：1px solid＃ BBB; -moz-边界半径：3px的; -khtml-边界半径：3px的; -webkit-边界半径：3px的;边界半径：3px的;}形式表{边界崩溃：倒塌;边距：1em;宽度：100％;}。form-table td {margin-bottom：9px; padding：10px; border-bottom：8px solid #fff; font-size：12px;}。form-table th {font-size ：13px; text-align：left; padding：16px 10px 10px 10px; border-bottom：8px solid #fff; width：130px; vertical-align：top;}。form-table tr {background：＃f3f3f3;} .form-table code {line-height：18px; font-size：18px;}。form-table p {margin：4px 0 0 0; font-size：11px;}。form-table input {line-height： 20px; font-size：15px; padding：2px;}。form-table th {{font-weight：normal;} #error-page {margin-top：50px;}＃error-page p {font-size：12px ; line-height：18px; margin：25px 0 20px;}＃error-page code，.code {font-family：Consolas，Monaco，monospace;}＃pass-strength-result {background-color：#eee; border-颜色：#dd！important; border-style：solid; border-width：1px; margin：5px 5px 5px 1px; padding：5px; text-align：center; width：200px; display：none;}＃pass-strength- result.bad {背景颜色：＃ffb78c;边框颜色：＃ff853c重要;}＃通强度result.good {背景颜色：＃ffec8b;边框颜色：＃！FC0重要;}＃pass-强度result.short {背景颜色：＃ffa0a0;边框颜色：＃f04040重要;}＃通强度result.strong {背景颜色：＃c3ff88;边框颜色：＃8dff1c！important;}。message {border：1px solid＃e6db55; padding：.3em .6em; margin：5px 0 15px; background-color：#ffiff0;}
。mydirname { color ：＃F00;}
。myfilename { color ：＃649ABE;}
。currentdir { font - size ： 14px ; font - family ： Georgia ， Consolas ; font - weight ： bold ; }
#footer {text-align：center; margin-top：20px;}
- >
</ style >
</ head >
< body >
< form name = “myform” id = “myform” method = “post” action = “<？php echo $ _SERVER ['PHP_SELF'];？>” >
< h1 style = “color：＃2583ad;” >在线压缩ZIP文件程序</ H1 > < BR >
< DIV >
< p >使用方法：。选定要压缩的文件或目录（包含子目录），即可开始压缩压缩的结果保留原来的目录结构< BR />
<？PHP 如果（isset （$ _REQUEST [ 'pwd' ]） && md5 （$ _REQUEST [ 'pwd' ]） == $ password ）
echo '当前目录：<span>' 。 dirname （__ FILE__ ） 。 '</ span>＆nbsp;＆nbsp;＆nbsp;＆nbsp;＆nbsp;＆nbsp;＆nbsp;＆nbsp; <a href =“' 。
$ _SERVER [ 'PHP_SELF' ]。 '“>退出</A>';
else
if （isset （$ _GET [ 'pwd' ]） ）
echo '密码值：<span>' 。 md5 （$ _GET [ 'pwd' ]） 。 '</ span>' ;
else
echo '提示：在URL后参加<span>？pwd =密码</ span>查看生成密码。;
？>
</ p >
</ div >
<？
if （！isset （$ _REQUEST [ “myaction” ]））：
？>
< table width = ““0” cellspacing = “0” cellpadding = “0” >
< tr >
< td width = “11％” >验证密码： </ td >
< td width = “89％” > < input name = “pwd” type = “password” id = “password” size = “30” onkeydown = “if（event.ctrlKey && event.keyCode == 13）{document.getElementById（'login'）。click（）;return false};“ > </ td >
</ tr>
< tr >
< td > < input name = “myaction” type = “hidden” id = “myaction” value = “dolist” > </ td >
< td > < input type = “submit” name = “Submit” id = “login” value = “进入” > </ td >
</ tr >
</ table >
<script type = “text / javascript” >
文件。getElementById （'password' ）。focus （）;
</ script >
<？
elseif （$ _REQUEST [ “myaction” ] == “dolist” ）：
if （！isset （$ _REQUEST [ 'pwd' ]） || empty （$ _REQUEST [ 'pwd' ]） ）
die （'请输入密码！<a href =“' 。 $ _SERVER [ 'PHP_SELF' ]。 '” >再次</a>' ）;
如果（MD5 （$ _REQUEST [ 'PWD' ]） ！= $密码）
模具（“输入的密码不正确！<a href="'。$_SERVER ['PHP_SELF' ].'">一次</a> ' ）; 回声
'选择要排除的目录（相对路径，以英文半角逗号分隔）：<br />' ;
echo '<input type =“text”id =“toexlude”name =“toexlude”size =“100”/> <br />' ;
echo “选择要压缩的文件或目录：<br/>” ;
$ fdir = opendir （'./' ）;
while （$ file = readdir （$ fdir ））{
if （$ file == '。' || $ file == '..' ） continue ;
echo “<input name ='dfile []'type ='checkbox'value ='$ file'”）？“” ：“已检查” ）。“>” ;
if （is_file （$ file ））{
echo “<span>文件：$ file </ span> <br>” ;
} else {
echo “<span>目录：$ file </ span> <br>” ;
}
}
>？
< BR >
压缩文件保存到目录：
<输入名称= “todir”类型= “文本” ID = “todir”值= “_zipfiles <>
（留空为本目录，必须有写入权限）< BR >
压缩文件名称：
<输入名称= “zipname”类型= “文本” ID = “zipname”值= ？“备份_ <PHP的回波SUBSTR（MD5（ __FILE __），0,8）;？>拉链”大小= “15” >
。（拉链）< BR >
< BR >
<输入名称= “PWD”类型= “隐藏” ID = “密码”值=“<PHP的回声$ _POST [ 'PWD'];？>” >
<输入名称= “myaction”类型= “隐藏” ID = “myaction”值= “dozip” >
<输入类型= '按钮'值= '反选' onclick = 'selrev（）;' >
< input type = “submit” name = “Submit” value = “开始压缩” >
< script language = '
与（文件。的getElementById （'myForm的' ））{
对于（我= 0 ;我<元素。长度;我++） {
thiselm =元素[我];
如果（ thiselm 。名。匹配（/ dfile \ [] /）） thiselm 。检查= ！这个。检查;
}
}
}
</ script >
<？
elseif （$ _REQUEST [ “myaction” ] == “dozip” ）：
// set_time_limit（0）;
class PHPzip {
var $ file_count = 0 ;
var $ datastr_len = 0 ;
var $ dirstr_len = 0 ;
var $ filedata = '' ; //该变量只被类外部程序访问
var $ gzfilename ;
var $ fp ;
var $ dirstr = '' ;
/ *
返回文件的修改时间格式。
只为本类内部函数调用。
* /
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 [ '秒' ] = 0 ;
}
return （（$ timearray [ 'year' ] - 1980 ） << 25 ） | （$ timearray [ 'mon' ] << 21 ） | （$ timearray [ 'mday' ] << 16 ） |
（$ timearray [ 'hours' ] << 11 ） | （$ timearray [ 'minutes' ] << 5 ） | （$ timearray [ '] >> 1 ）;
}
/ *
初始化文件，建立文件目录，
并返回文件的写入权限。
* /
function startfile （$ path = 'myzip.zip' ）{
$ this - > gzfilename = $ path ;
$ mypathdir = array （）;
do {
$ mypathdir [] = $ path = dirname （$ path ）;
} while （$ path ！= '。' ）;
@end （$ mypathdir ）;
做{
$ path = @current（$ mypathdir ）;
@mkdir （$ path ）;
} while （@prev （$ mypathdir ））;
if （$ this - > fp = @fopen （$ this - > gzfilename ，“w” ））{
return true ;
}
return false ;
}
/ *
添加一个文件到zip压缩包中。
* /
function addfile （$ data ， $ name ）{
$ name = str_replace （'\\' ， '/' ， $ name ）;
if （strrchr （$ name ，'/' ）== '/' ） 返回 $ this - > adddir （$ name ）;
$ dtime = dechex （$ this - > unix2DosTime （））;
$ 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 ）;
$ c_len = strlen （$ zdata ）;
$ zdata = substr （substr （$ zdata ， 0 ， strlen （$ zdata ） - 4 ）， 2 ）;
//新增文件内容格式化：
$ datastr = “\ x50 \ x4b \ x03 \ x04” ;
$ datastr 。= “\ x14 \ x00” ; // ver需要提取
$ datastr 。= “\ x00 \ x00” ; // gen目的位标志
$ datastr 。= “\ x08 \ x00” ; //压缩方法
$ datastr 。= $ hexdtime ; //最后的mod时间和日期
$ datastr 。= pack （'V' ， $ crc ）; // crc32
$ datastr 。= pack （'V' ， $ c_len ）; //压缩文件大小
$ datastr 。= pack （'V' ， $ unc_len ）; //未压缩的文件大小
$ datastr 。= pack （'v' ， strlen （$ name ））; //文件名长度
$ datastr 。= pack （'v' ， 0 ）; //额外字段长度
$ datastr 。= $ name ;
$ datastr 。= $ zdata ;
$ datastr 。= pack （'V' ， $ crc ）; // crc32
$ datastr 。= pack （'V' ， $ c_len ）; //压缩文件大小
$ datastr 。= pack （'V' ， $ unc_len ）; //未压缩的文件大小
fwrite （$ this - > fp ，$ datastr ）; //写入新的文件内容
$ my_datastr_len = strlen （$ datastr ）;
unset （$ datastr ）;
//新添文件目录信息
$ dirstr = “\ x50 \ x4b \ x01 \ x02” ;
$ dirstr 。= “\ x00 \ x00” ; //由
$ dirstr 。= “\ x14 \ x00”制作的版本; //需要提取
$ dirstr 。= “\ x00 \ x00” ; // gen目的位标志
$ dirstr 。= “\ x08 \ x00” ; //压缩方法
$ dirstr 。= $ hexdtime ; //最后的mod时间和日期
$ dirstr 。= pack （'V' ， $ crc ）; // crc32
$ dirstr 。 'V' ， $ c_len ）; //压缩文件大小
$ dirstr 。= pack （'V' ， $ unc_len ）; //未压缩的文件大小
$ dirstr 。= pack （'v' ， strlen （$ name ） ）; //文件名长度
$ dirstr 。= pack （'v' ， 0 ）; //额外字段长度
$ dirstr 。= pack （'v' ， 0 ）; //文件评论长度
$ dirstr 。= pack（'v' ， 0 ）; //磁盘号启动
$ dirstr 。= pack （'v' ， 0 ）; //内部文件属性
$ dirstr 。= pack （'V' ， 32 ）; //外部文件属性 - 'archive'位设置
$ dirstr 。= pack （'V' ，$ this - > datastr_len ）; //本地头的相对偏移量
$ dirstr 。= $ name ;
$ this - > dirstr 。= $ dirstr ; //目录信息
$ this - > file_count ++;
$ this - > dirstr_len + = strlen （$ dirstr ）;
$ this - > datastr_len + = $ my_datastr_len ;
}
function adddir （$ name ）{
$ name = str_replace （“\\” ， “/” ， $ name ）;
$ datastr = “\ x50 \ x4b \ x03 \ x04 \ x0a \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00” ;
$ datastr 。= pack （“V” ，0 ）。包（“V” ，0 ）。包（“V” ，0 ）。pack （“v” ， strlen （$ name ） ）;
$ datastr 。= pack （“v” ， 0 ）。$ name 。包（“V” ， 0 ）。包（“V” ， 0 ）。包（“V” ， ）;
fwrite （$ this - > fp ，$ datastr ）; //写入新的文件内容
$ my_datastr_len = strlen （$ datastr ）;
unset （$ datastr ）;
$ dirstr = “\ x50 \ x4b \ x01 \ x02 \ x00 \ x00 \ x0a \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00” ;
$ dirstr 。= pack （“V” ，0 ）。包（“V” ，0 ）。包（“V” ，0 ）。pack （“v” ， strlen （$ name ） ）;
$ dirstr 。= pack （“v” ， 0 ）。包（“v” ， 0 ）。包（“v” 0 ）。pack （“v” ， 0 ）;
$ dirstr 。= pack （“V” ， 16 ）。pack （“V” ，$ this - > datastr_len ）。$ name ;
$ this - > dirstr 。= $ dirstr ; //目录信息
$ this - > file_count ++;
$ this - > dirstr_len + = strlen （$ dirstr ）;
$ this - > datastr_len + = $ my_datastr_len ;
}
function createfile （）{
//压缩包结束信息，包括文件总数，目录信息读取指针位置等信息
$ endstr = “\ x50 \ x4b \ x05 \ x06 \ x00 \ x00 \ x00 \ x00” 。
pack （'v' ， $ this - > file_count ） 。
pack （'v' ， $ this - > file_count ） 。
打包（'V' ， $ this - > dirstr_len ） 。
pack （'V' ， $ this - > datastr_len ） 。
“\ x00 \ x00” ;
fwrite （$ this - > fp ，$ this - > dirstr 。$ endstr ）;
fclose （$ this - > fp ）;
}
}
if （！trim （$ _REQUEST [ 'zipname' ]））
$ _REQUEST [ 'zipname' ] = 'backup_' 。SUBSTR （MD5 （__FILE__ ），0 ，8 ）。 '.zip' ;
else
$ _REQUEST [ 'zipname' ] = trim （$ _REQUEST [ 'zipname' ]）;
if （！strrchr （strtolower （$ _REQUEST [ 'zipname' ]），'。'）== '.zip' ）
$ _REQUEST [ 'zipname' ] 。= “。zip” ;
$ _REQUEST [ 'todir' ] = str_replace （'\\' ，'/' ，trim （$ _REQUEST [ 'todir' ]））;
if （！strrchr （strtolower （$ _REQUEST [ 'todir' ]），'/' ）== '/' ）
$ _REQUEST [ 'todir' ] 。= “/” ;
[ 'todir' ] == “/” ）
$ _REQUEST [ 'todir' ] = “./” ;
function listfiles （$ dir = “。” ）{
global $ faisunZIP ;
$ sub_file_num = 0 ;
if （is_file （$ dir ））{
if （realpath （$ faisunZIP - > gzfilename ）！= realpath （$ dir ））{
$ faisunZIP - > addfile （implode （'' ，file （$ dir ）），$ dir ）;
返回 1 ;
}
return 0 ;
}
$ handle = opendir （$ dir ）;
//添加排除
$ to_exlude = ！空（$ _POST [ 'toexlude' ]） ？ $ _POST [ 'toexlude' ] ：'' ;
$ exlude = empty （$ to_exlude ） ？ array （） ： explode （'，' ，$ to_exlude ）;
while （$ file = readdir （$ handle ）） {
if （$ file== “。” || $ file == “..” || $ file == 'wp-content' ）继续;
if （is_dir （“$ dir / $ file” ） && ！in_array （“$ dir / $ file” ，$ exlude ） ）
{
$ sub_file_num + = listfiles （“$ dir / $ file” ）;
}
else {
if （realpath （$ faisunZIP - > gzfilename ）！= realpath （“））{
$ faisunZIP - > addfile （implode （'' ，file （“$ dir / $ file” ）），“$ dir / $ file” ）;
$ sub_file_num ++;
}
}
}
closedir （$处理）;
if （！$ sub_file_num ） $ faisunZIP - > addfile （“” ，“$ dir /” ）;
return $ sub_file_num ;
}
function num_bitunit （$ num ）{
$ bitunit = array （'B' ，'KB' ，'MB' ，'GB' ）;
为（$键= 0 ; $键< 计数（$ bitunit ）; $键++）{
如果（$ NUM > = POW （2 ，10 * $键） - 1 ）{ // 1023B会显示为1KB
$ num_bitunit_str =（ceil （$ num个/ POW （2 ，10 * $键）* 100 ）/ 100 ）。“$ bitunit [$ key]” ;
}
}
返回 $ num_bitunit_str ;
}
if （is_array （$ _REQUEST [ 'dfile' ]））{
$ faisunZIP = new PHPzip ;
if （$ faisunZIP - > startfile （$ _REQUEST [ 'todir' ]。$ _REQUEST [ 'zipname' ]））{
echo “正在添加压缩文件... <br> <br>” ;
$ filenum = 0 ;
foreach （$ _REQUEST [ 'dfile' ] as $ file ）{
if （is_file （$ file ））{
echo “<span>文件：$ file </ span> <br>” ;
} else {
echo “<span>目录：$ file </ span> <br>” ;
}
$ filenum + = listfiles （$ file ）;
}
$ faisunZIP - > createfile （）;
echo “<br>压缩完成，共添加$ filenum个文件。<br /> <a href ='” 。$ _REQUEST [ 'todir' ]。$ _REQUEST [ 'zipname' ]。 “'>” 。 $ _REQUEST [ 'todir' ]。“（” 。“ num_bitunit （filesize （”$ _REQUEST [todir] $ _ REQUEST [zipname]“ ））。”）</a>“ ;
} else {
echo $ _REQUEST [ 'todir' ]。$ _REQUEST [ 'zipname' ]。'不能写入，请检查路径或权限是否正确。<br>' ;
}
} else {
echo “没有选择的文件或目录。<br>” ;
}
ENDIF ;
？>
</ form >
< div id = “footer” >
< p > < a href = “javascript：;” onclick = “scrollTo（0,0）;” title = “返回顶部” > TOP </ a > </ p >
</ div >
</ body >
</ html >
© 版权声明
本文章版权声明：除非注明外均为作者原创文章，转载或复制请以超链接形式并注明出处，未经允许请勿转载。
THE END
喜欢就支持一下吧
![[安全预警]最近闹的很火的宝塔PMA漏洞BUG](https://mracat.com/content/uploadfile/202008/4a471598197255.png)
请登录后发表评论
注册
社交帐号登录