飛雲寫的防CC攻擊的ASP程式外掛程式 打包下載

<%
'==================
'飛雲防CC攻擊ASP程式外掛程式
'建議除必須修改的參數內容外不要修改其他內容
'如果需要反饋錯誤或提交意見,可以到落伍(IM286.COM)聯絡 “正版飛雲”
'==================

dim FYCC_19,FYCC_20,FYCC_21,FYCC_05
dim FYCC_18

FYCC_05=""
'CCLog.txt存放的路徑檔案夾!需要手動建立!建議留空
'如果輸入,請在前面加上符號"/"

FYCC_18=1
'防重新整理CC攻擊關閉與啟動,1為啟動0為關閉

FYCC_17=1
'防重新整理禁止IP功能關閉與啟動,1為啟動0為關閉

FYCC_19=10
'每分鐘重新整理次數,將會出現提示

FYCC_20="http://www.163.com"
'被封IP後自動轉入的頁面,建議輸入存放病毒的網址!!!

FYCC_21=21
'惡意重新整理幾次將禁止IP

dim realip,proxy
realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy = Request.ServerVariables("REMOTE_ADDR")
if realip = "" then
GetIp = proxy
else
GetIp = realip
end if

Sub FYCC_03()
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
file = server.mappath(""&FYCC_05&"/CCLog.txt")
if not fsoObject.fileexists(file) then
fsoObject.createtextfile file,true,false
end if
set tsObject = fsoObject.OpenTextFile(file,8)
tsObject.Writeline " "&GetIp&""
Set tsObject = Nothing
Set fsoObject = Nothing
End Sub

if FYCC_18<>0 then
if FYCC_17<>0 then
if minute(now())>-1 and minute(now())<4 then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),True)
objCountFile.Write " "
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
end if
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
file = server.mappath(""&FYCC_05&"/CCLog.txt")
if not fsoObject.fileexists(file) then
fsoObject.createtextfile file,true,false
if err.number<>0 then
response.write "您的空間不支援FSO，請同您的空間商聯絡，或者查看相關使用權限設定"
response.end
end if
end if
Set objCountFile = fsoObject.OpenTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),1,True)
If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
Set objCountFile = Nothing
if instr(fdata,""&GetIp&"")>0 then
response.write "您的IP["&GetIp&"]已經被禁止!如需要解鎖,請聯絡本站管理員或在下一個小時的前3分鐘內再訪問本站"
response.end
end if
Set fsoObject = Nothing
end if

if Session("FYCC_01")>FYCC_19 and minute(now())<>Session("FYCC_02") then
Session("FYCC_01")=1
Session("FYCC_02")=minute(now())
elseif Session("FYCC_01")>FYCC_21-1 and minute(now())=Session("FYCC_02") then
if FYCC_17<>0 and Session("FYCC_01")>FYCC_21-1 then
Call FYCC_03()
end if
response.redirect ""&FYCC_20&"" '建議輸入存放病毒的網址!!!
response.end
elseif Session("FYCC_01")>FYCC_19 and minute(now())=Session("FYCC_02") then
response.write "本站啟動防重新整理功能,1分鐘內只能翻"&FYCC_19&"頁,請在下一分鐘再重新整理本頁面"
Session("FYCC_01")=Session("FYCC_01")+1
response.end
else
if Session("FYCC_01")="" then
Session("FYCC_01")=1
Session("FYCC_02")=minute(now())
else
if minute(now())<>Session("FYCC_02") then
Session("FYCC_01")=1
Session("FYCC_02")=minute(now())
else
Session("FYCC_01")=Session("FYCC_01")+1
end if
end if
End if
end if
%>
本地下載