-
''รับที่อยู่ของผู้เยี่ยมชม
ip=Request.ServerVariables(REMOTE_ADDR)
''ช่วงที่อยู่ IP ที่อนุญาตคือ 10.0.0.0~10.68.63.255
อนุญาต 1=10.0.0.0
อนุญาตip2=10.68.10.71
การตอบสนอง writecheckip (ip,allowip1,allowip2)
ฟังก์ชั่นการตรวจสอบ (ip,allowip1,allowip2)
ดิมเช็ค(4)
ตรวจสอบ=เท็จ
ipstr=แยก(ip,.)
Allow1=แยก(allowip1,.)
Allow2=แยก(allowip2,.)
ifcint(allow1(0))>cint(allow2(0))then'' กำหนดว่าส่วนที่อยู่ IP นั้นถูกกฎหมายหรือไม่
Response.writeการเข้าถึงที่ต้องห้าม
ฟังก์ชั่นทางออก
สิ้นสุด
fori=0toubound(ipstr)
ifcint(allow1(i))<cint(allow2(i))แล้ว
ifcint(allow1(i))=cint(ipstr(i))แล้ว
ตรวจสอบ (i) = จริง
ตรวจสอบ=จริง
ทางออกสำหรับ
อื่น
ifcint(ipstr(i))<cint(allow2(i))แล้ว
ตรวจสอบ (i) = จริง
ตรวจสอบ=จริง
ทางออกสำหรับ
อื่น
ifcint(ipstr(i))>cint(allow2(i))แล้ว
ตรวจสอบ (i) = เท็จ
ตรวจสอบ=เท็จ
ทางออกสำหรับ
อื่น
ตรวจสอบ (i) = จริง
ตรวจสอบ=จริง
สิ้นสุด
สิ้นสุด
สิ้นสุด
อื่น
ifcint(allow1(i))>cint(ipstr(i))orcint(allow1(i))<cint(ipstr(i))แล้ว
ตรวจสอบ (i) = เท็จ
ตรวจสอบ = false
ifi<>ubound(ipstr)แล้ว
ทางออกสำหรับ
สิ้นสุด
อื่น
ตรวจสอบ (i) = จริง
สิ้นสุด
สิ้นสุด
ต่อไป
if(check(0)=trueandcheck(1)=trueandcheck(2)=trueandcheck(3)=false)และ(cint(allow2(2))>cint(ipstr(2)))แล้ว
ตรวจสอบ=จริง
สิ้นสุด
ฟังก์ชั่นสุดท้าย
-
คัดลอกมาจากบล็อกของ WebShell