Feiyun anti-CC attack ASP Program code plugin _ Application Tips

<%
'==================
' Feiyun anti-CC attack ASP Program plugin
' suggest that you do not modify other content except the parameter content that must be modified
' If you need feedback error or submit comments, you can go to the outdated (im286.com) Contact "Genuine Feiyun"
'==================

Dim fycc_19,fycc_20,fycc_21,fycc_05
Dim fycc_18

Fycc_05= ""
' CCLog.txt store the path folder! You need to create it manually! Recommended leave blank
' If entered, please precede the symbol '/'

Fycc_18=1
' Anti-refresh cc attack shutdown and boot, 1 for boot 0 for shutdown

Fycc_17=1
' Anti-flush disables IP function shutdown and startup, 1 for boot 0 for shutdown

fycc_19=10
' Refresh times per minute, prompts will appear

fycc_20= "Http://www.163.com"
' After the IP is automatically transferred to the page, it is recommended to enter the URL to store the virus!!!

Fycc_21=21
' Malicious refreshing several times will prohibit 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 "Your space does not support the FSO, please contact your space business, or view the relevant permission settings"
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 "Your ip[&GetIp&" has been banned! If you need to unpack, please contact our webmaster or visit this site in the first 3 minutes of the next one hours.
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&" "' recommends that you enter a virus-storing URL!!!
Response.End
ElseIf session ("fycc_01") >fycc_19 and Minute (now ()) =session ("fycc_02") Then
Response.Write "This station starts the anti-refresh function, can only turn over" &FYCC_19& "page in 1 minutes, please refresh this page again in the next minute"
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
%>
How to use

1, put the fycc.asp file into the root directory of your site (to the same directory as the homepage of the site)
3, open the Web site default Access file (generally index.asp), and then insert the <!--#include file= "fycc.asp"-->
4, open fycc.asp to modify the setting parameters of the top 10-30 lines
5, two files save upload