وظيفة تقييد IP
إذا كان لديك أي اقتراحات جيدة وخوارزميات ، يرجى الاتصال بي! ! سائدا
"***********************************************************
"FunctionCheckip (Cinput_ip ، CBOUND_IP)
"CreatedByQqdao ، [email protected]/11/8
)
"المعلمات: CINPUT_IP ، IP للتفتيش عن طريق الجيل
"CBOUND_IP ، تنسيق النطاق المحدد هو ، IP واحد ، ونطاق IP ، يتم استخدام IP النطاق آخر"-"الجزء ، إذا كان"*"، يجب وضعه في الرقم الأخير
"إضافة": السماح "بعد كل نطاق يعني أن تسجيل الدخول مسموح به ، وإضافة": رفض "يعني أن تسجيل الدخول يتم رفضه. يتم استخدام نطاقات متعددة لـ" ؛ "عزلها
"على سبيل المثال ، 192.168.1*.*: السماح ؛ 192.168.1.1: allow ؛ 192.168.1.1-10: رفض"
"قيمة الإرجاع: صواب/خطأ
"تحديث: 2001/12/05 دعامات السماح والرفض الدعم" *"، لا تريد أن تكون على صواب؟ الدعم ، لأنه يشبه *
"***********************************************************
FunctionCheckip (Cinput_ip ، CBOUND_IP)
dimcsingle_ip ، ctemp_ip ، cstart_ip ، cend_ip
cadcip = خطأ
csingle_ip = split (cbound_ip ، "؛")
fori = 0toubound (csingle_ip)
ifinstr (csingle_ip (i) ، "refuse") <> 0then "يرفض فقط
ctemp_ip = left (csingle_ip (i) ، instr (csingle_ip (i) ، ":")-1)
Ifinstr (ctemp_ip ، "*") <> 0then "هو نطاق واسع
CSTART_IP = يسار (ctemp_ip ، instr (ctemp_ip ، "*")-1)
Ifleft (Cinput_ip ، Len (cstart_ip)) = cstart_ipthen
cadcip = خطأ
exitfunction
Endif
Endif
ifinstr (ctemp_ip ، "-") = 0then
CSTART_IP = CTEMP_IP
cend_ip = ctemp_ip
آخر
CSTART_IP = يسار (ctemp_ip ، instr (ctemp_ip ، "-")-1)
cend_ip = left (cstart_ip ، instrev (cstart_ip ، ".")-1)+".
Endif
IFIP2STR (CINPUT_IP)> = IP2STR (CSTART_IP) andIP2STR (CINPUT_IP) <= IP2STR (CEND_IP) ثم
cadcip = خطأ
exitfunction
Endif
elseifinstr (csingle_ip (i) ، "السماح") <> 0then "السماح
ctemp_ip = left (csingle_ip (i) ، instr (csingle_ip (i) ، ":")-1)
Ifinstr (ctemp_ip ، "*") <> 0then "هو نطاق واسع
CSTART_IP = يسار (ctemp_ip ، instr (ctemp_ip ، "*")-1)
Ifleft (Cinput_ip ، Len (cstart_ip)) = cstart_ipthen
cadcip = صحيح
Endif
Endif
ifinstr (ctemp_ip ، "-") = 0then
CSTART_IP = CTEMP_IP
cend_ip = ctemp_ip
آخر
CSTART_IP = يسار (ctemp_ip ، instr (ctemp_ip ، "-")-1)
cend_ip = left (cstart_ip ، instrev (cstart_ip ، ".")-1)+".
Endif
IFIP2STR (CINPUT_IP)> = IP2STR (CSTART_IP) andIP2STR (CINPUT_IP) <= IP2STR (CEND_IP) ثم
cadcip = صحيح