การแบ่งปันโค้ดการโจมตี anti-CC แบบ asp ที่ครอบคลุมมากขึ้น โดยส่วนใหญ่จะใช้เซสชันในการตัดสิน คัดลอกรหัสรหัสดังต่อไปนี้:
-
หรี่ CC_Info(4),strInfo,strTemp
ถ้าเซสชัน (CC_Info) = จากนั้น
CC_Info(0) = cclog.txt 'ชื่อไฟล์บันทึก'
CC_Info(1) = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
CC_Info(2) = คำขอตัวแปรเซิร์ฟเวอร์ (REMOTE_ADDR)
CC_Info(3) = 10 'ห้ามรีเฟรชหน้าปัจจุบันภายใน N วินาที
CC_Info(4) = badip.txt 'ชื่อไฟล์บัญชีดำ IP
เซสชัน(CC_Info) = CC_Info(0) &|& CC_Info(1) &|& CC_Info(2) &|& CC_Info(3) &|& CC_Info(4)
อื่น
strInfo = แยก(เซสชัน(CC_Info),|)
CC_Info(0) = strInfo(0)
CC_Info(1) = strInfo(1)
CC_Info(2) = strInfo(2)
CC_Info(3) = strInfo(3)
CC_Info(4) = strInfo(4)
สิ้นสุดถ้า
Const chkRefresh = 1 '0 ปิดการป้องกันการรีเฟรช
Const chkProxy = 1 '0 ปิดการตรวจสอบพรอกซี
Const chkBadIP = 1 '0 ปิดบัญชีดำ IP
ถ้าเซสชัน (BadIP) = จากนั้น
strInfo = ReadFile(CC_Info(4))
ถ้า strInfo = ดังนั้น strInfo = chinavb.net
เซสชัน (BadIP) = strInfo
อื่น
strInfo = เซสชัน (BadIP)
สิ้นสุดถ้า
'/*การพิจารณาเลเยอร์แรก ห้ามมิให้รีเฟรชภายใน N วินาที*/
ถ้า chkRefresh = 1 แล้ว
ถ้า Session(RefreshTime)= จากนั้น
เซสชั่น(RefreshTime)=ตอนนี้()
อื่น
ถ้า DateDiff(s, Session(RefreshTime), Now()) < CInt(CC_Info(3)) จากนั้น
Response.Write(ระบบไม่ว่าง โปรดลองอีกครั้งในภายหลัง! รหัสข้อผิดพลาด 001)
การตอบสนองสิ้นสุด()
อื่น
เซสชั่น(RefreshTime)=ตอนนี้()
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
'/*การตัดสินขั้นที่ 2 ตัวแทนห้ามดู*/
ถ้า chkProxy = 1 แล้ว
ถ้า CC_Info(1) <> แล้ว
ถ้า InStr(strInfo,CC_Info(1)) = 0 แล้ว
strTemp = CC_Info(1) & vbCrLf
ถ้า InStr(strInfo,CC_Info(2)) = 0 แล้ว
strTemp = strTemp & [ & CC_Info(2) & ] & vbCrLf
สิ้นสุดถ้า
SaveLog CC_Info(4),strTemp
strInfo = strInfo & strTemp
เซสชัน (BadIP) = strInfo
สิ้นสุดถ้า
'บันทึกบันทึกการโจมตี CC'
SaveLog CC_Info(0),CC_Info(1) & [& CC_Info(2) & ] & ตอนนี้() &vbCrLf
Response.Write(ระบบไม่ว่าง โปรดลองอีกครั้งในภายหลัง! รหัสข้อผิดพลาด 002)
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
สิ้นสุดถ้า
'/*การตัดสินระดับที่สาม บัญชีดำ IP ห้ามรับชม*/
ถ้า chkBadIP = 1 แล้ว
ถ้า InStr(strInfo,CC_Info(2))>0 แล้ว
Response.Write(ระบบไม่ว่าง โปรดลองอีกครั้งในภายหลัง! รหัสข้อผิดพลาด 003)
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
สิ้นสุดถ้า
'สำหรับการอ่าน=1,สำหรับการเขียน=2,สำหรับการผนวก=8
ฟังก์ชั่น SaveLog (ชื่อไฟล์, เนื้อหาไฟล์)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
Dim fso ไฟล์นี้
ชื่อไฟล์ = Server.MapPath (ชื่อไฟล์)
ตั้งค่า fso = CreateObject (Scripting.FileSystemObject)
ถ้าผิดพลาด <> 0 แล้ว
Response.Write(ไม่สามารถเขียนไฟล์ &ชื่อไฟล์& บางทีระบบของคุณไม่รองรับ FSO!)
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
ตั้งค่า thisfile = fso.OpenTextFile (ชื่อไฟล์, 8, True)
thisfile.write (เนื้อหาไฟล์)
ไฟล์นี้ปิด
ตั้งค่า fso = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น ReadFile(ชื่อไฟล์)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
Dim fso ไฟล์นี้
ตั้งค่า fso = CreateObject (Scripting.FileSystemObject)
ถ้าผิดพลาด <> 0 แล้ว
Response.Write(ไม่สามารถอ่านไฟล์ &ชื่อไฟล์& บางทีระบบของคุณไม่รองรับ FSO!)
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
ตั้งค่า thisfile = fso.OpenTextFile(Server.MapPath(ชื่อไฟล์), 1, True)
ReadFile = thisfile.ReadAll
ไฟล์นี้ปิด
ตั้งค่าไฟล์นี้ = ไม่มีเลย
ตั้งค่า fso = ไม่มีเลย
ฟังก์ชันสิ้นสุด
-