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

时间:2021-05-28

<%
'==================
'飞云防CC攻击ASP程序插件
'建议除必须修改的参数内容外不要修改其他内容
'如果需要反馈错误或提交意见,可以到落伍(IM286.COM)联系“正版飞云”
'==================

dimFYCC_19,FYCC_20,FYCC_21,FYCC_05
dimFYCC_18

FYCC_05=""
'CCLog.txt存放的路径文件夹!需要手动创建!建议留空
'如果输入,请在前面加上符号"/"

FYCC_18=1
'防刷新CC攻击关闭与启动,1为启动0为关闭

FYCC_17=1
'防刷新禁止IP功能关闭与启动,1为启动0为关闭

FYCC_19=10
'每分钟刷新次数,将会出现提示

FYCC_20="http://"
'被封IP后自动转入的页面,建议输入存放病毒的网址!!!

FYCC_21=21
'恶意刷新几次将禁止IP

dimrealip,proxy
realip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy=Request.ServerVariables("REMOTE_ADDR")
ifrealip=""then
GetIp=proxy
else
GetIp=realip
endif

SubFYCC_03()
SetfsoObject=Server.CreateObject("Scripting.FileSystemObject")
file=server.mappath(""&FYCC_05&"/CCLog.txt")
ifnotfsoObject.fileexists(file)then
fsoObject.createtextfilefile,true,false
endif
settsObject=fsoObject.OpenTextFile(file,8)
tsObject.Writeline""&GetIp&""
SettsObject=Nothing
SetfsoObject=Nothing
EndSub

ifFYCC_18<>0then
ifFYCC_17<>0then
ifminute(now())>-1andminute(now())<4then
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),True)
objCountFile.Write""
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
endif
SetfsoObject=Server.CreateObject("Scripting.FileSystemObject")
file=server.mappath(""&FYCC_05&"/CCLog.txt")
ifnotfsoObject.fileexists(file)then
fsoObject.createtextfilefile,true,false
iferr.number<>0then
response.write"您的空间不支持FSO,请同您的空间商联系,或者查看相关权限设置"
response.end
endif
endif
SetobjCountFile=fsoObject.OpenTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),1,True)
IfNotobjCountFile.AtEndOfStreamThenfdata=objCountFile.ReadAll
SetobjCountFile=Nothing
ifinstr(fdata,""&GetIp&"")>0then
response.write"您的IP["&GetIp&"]已经被禁止!如需要解封,请联系本站管理员或在下一个小时的前3分钟内再访问本站"
response.end
endif
SetfsoObject=Nothing
endif

ifSession("FYCC_01")>FYCC_19andminute(now())<>Session("FYCC_02")then
Session("FYCC_01")=1
Session("FYCC_02")=minute(now())
elseifSession("FYCC_01")>FYCC_21-1andminute(now())=Session("FYCC_02")then
ifFYCC_17<>0andSession("FYCC_01")>FYCC_21-1then
CallFYCC_03()
endif
response.redirect""&FYCC_20&""'建议输入存放病毒的网址!!!
response.end
elseifSession("FYCC_01")>FYCC_19andminute(now())=Session("FYCC_02")then
response.write"本站启动防刷新功能,1分钟内只能翻"&FYCC_19&"页,请在下一分钟再刷新本页面"
Session("FYCC_01")=Session("FYCC_01")+1
response.end
else
ifSession("FYCC_01")=""then
Session("FYCC_01")=1
Session("FYCC_02")=minute(now())
else
ifminute(now())<>Session("FYCC_02")then
Session("FYCC_01")=1
Session("FYCC_02")=minute(now())
else
Session("FYCC_01")=Session("FYCC_01")+1
endif
endif
Endif
endif
%>
本地下载

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章