Download the ASP program plug-in for anti-CC attack written by Apsara Stack

<%
'============================
'Apsara stack anti-CC attack ASP Program Plug-ins
'We recommend that you do not modify other content except the parameter content that must be modified.
'If you need to report errors or submit comments, you can contact "genuine Apsara stack" in the out-of-date (im286.com"
'============================

Dim fycc_19, fycc_20, fycc_21, fycc_05
Dim fycc_18

Fycc_05 = ""
'Cclog.txt's path folder! Need to be created manually! Leave it blank
'Add the symbol "/" before the input "/"

Fycc_18 = 1
'Anti-Refresh CC attack close and start, 1 is start 0 is close

Fycc_17 = 1
'Anti-Refresh: Disable and start the IP address function. If the value of 1 is "Start 0", the function is disabled.

Fycc_19 = 10
'The number of refresh times per minute, a prompt will appear

Fycc_20 = "http://www.163.com"
'The page automatically transferred after the IP address is blocked. We recommend that you enter the website for storing the virus !!!

Fycc_21 = 21
'IP addresses are prohibited when malicious refresh is performed several times.

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 FSO. Please contact your Space Provider or check related 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 disabled! To unseal the website, contact the website administrator or visit the website three minutes before the next hour"
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 & "" 'we recommend that you enter a website for storing viruses !!!
response. end
elseif SESSION ("fycc_01")> fycc_19 and minute (now () = SESSION ("fycc_02") Then
response. write "this site launches the anti-refresh function, and can only go to the" & fycc_19 & "page within one minute. Please refresh this page 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
%>
Local download