飞云写的防CC攻击的ASP程序插件 打包下载

时间:2022-09-11 22:24:38
  1. <%  
  2. '==================  
  3. '飞云防CC攻击ASP程序插件  
  4. '建议除必须修改的参数内容外不要修改其他内容  
  5. '如果需要反馈错误或提交意见,可以到落伍(IM286.COM)联系 “正版飞云”  
  6. '==================  
  7.  
  8. dim FYCC_19,FYCC_20,FYCC_21,FYCC_05  
  9. dim FYCC_18  
  10.  
  11. FYCC_05=""  
  12. 'CCLog.txt存放的路径文件夹!需要手动创建!建议留空  
  13. '如果输入,请在前面加上符号"/"  
  14.  
  15. FYCC_18=1   
  16. '防刷新CC攻击关闭与启动,1为启动0为关闭  
  17.  
  18. FYCC_17=1  
  19. '防刷新禁止IP功能关闭与启动,1为启动0为关闭  
  20.  
  21. FYCC_19=10   
  22. '每分钟刷新次数,将会出现提示  
  23.  
  24. FYCC_20="http://www.163.com"  
  25. '被封IP后自动转入的页面,建议输入存放病毒的网址!!!  
  26.  
  27. FYCC_21=21  
  28. '恶意刷新几次将禁止IP  
  29.  
  30. dim realip,proxy  
  31. realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")  
  32. proxy = Request.ServerVariables("REMOTE_ADDR")  
  33. if realip = "" then  
  34. GetIp = proxy  
  35. else  
  36. GetIp = realip  
  37. end if  
  38.  
  39. Sub FYCC_03()  
  40. Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")   
  41. file = server.mappath(""&FYCC_05&"/CCLog.txt")   
  42. if not fsoObject.fileexists(file) then   
  43. fsoObject.createtextfile file,true,false   
  44. end if  
  45. set tsObject = fsoObject.OpenTextFile(file,8)   
  46. tsObject.Writeline " "&GetIp&""   
  47. Set tsObject = Nothing   
  48. Set fsoObject = Nothing   
  49. End Sub  
  50.  
  51. if FYCC_18<>0 then  
  52. if FYCC_17<>0 then  
  53. if minute(now())>-1 and minute(now())<4 then  
  54. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  
  55. Set objCountFile=objFSO.CreateTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),True)  
  56. objCountFile.Write " "  
  57. objCountFile.Close  
  58. Set objCountFile=Nothing  
  59. Set objFSO = Nothing  
  60. end if  
  61. Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")   
  62. file = server.mappath(""&FYCC_05&"/CCLog.txt")   
  63. if not fsoObject.fileexists(file) then   
  64. fsoObject.createtextfile file,true,false   
  65. if err.number<>0 then  
  66. response.write "您的空间不支持FSO,请同您的空间商联系,或者查看相关权限设置"  
  67. response.end  
  68. end if  
  69. end if  
  70. Set objCountFile = fsoObject.OpenTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),1,True)  
  71. If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll  
  72. Set objCountFile = Nothing   
  73. if instr(fdata,""&GetIp&"")>0  then  
  74. response.write "您的IP["&GetIp&"]已经被禁止!如需要解封,请联系本站管理员或在下一个小时的前3分钟内再访问本站"  
  75. response.end  
  76. end if  
  77. Set fsoObject = Nothing   
  78. end if  
  79.  
  80. if Session("FYCC_01")>FYCC_19 and minute(now())<>Session("FYCC_02") then  
  81. Session("FYCC_01")=1  
  82. Session("FYCC_02")=minute(now())  
  83. elseif Session("FYCC_01")>FYCC_21-1 and minute(now())=Session("FYCC_02") then  
  84. if FYCC_17<>0 and Session("FYCC_01")>FYCC_21-1 then  
  85. Call FYCC_03()  
  86. end if  
  87. response.redirect ""&FYCC_20&"" '建议输入存放病毒的网址!!!  
  88. response.end  
  89. elseif Session("FYCC_01")>FYCC_19 and minute(now())=Session("FYCC_02") then  
  90. response.write "本站启动防刷新功能,1分钟内只能翻"&FYCC_19&"页,请在下一分钟再刷新本页面"  
  91. Session("FYCC_01")=Session("FYCC_01")+1  
  92. response.end  
  93. else  
  94. if Session("FYCC_01")="" then  
  95. Session("FYCC_01")=1  
  96. Session("FYCC_02")=minute(now())  
  97. else  
  98. if minute(now())<>Session("FYCC_02") then  
  99. Session("FYCC_01")=1  
  100. Session("FYCC_02")=minute(now())  
  101. else  
  102. Session("FYCC_01")=Session("FYCC_01")+1  
  103. end if  
  104. end if  
  105. End if  
  106. end if  
  107. %>