Feiyun write anti-CC attack ASP Program Plug-in package download _ 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
%>
Local Downloads