Feiyun write anti-CC attack ASP Program Plug-in package download _ Application Tips

Source: Internet
Author: User
Tags servervariables
<%
'==================
' 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
Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.