'*******************************
'FunctionCheckip (Cinput_ip, cbound_ip)
'CreatedByqqdao, qqdao @ 263.net2001 / 11/28
«Remarque: Tout d'abord, vous devez boucler en fonction du; Numéro, alors déterminez s'il contient "-", s'il y en a, effectuez un traitement divisé et déterminez enfin s'il se trouve dans la plage
'Paramètre: CINPUT_IP, IP pour la vérification proxy
'cbound_ip, le format de plage donné est, IP unique et IP de plage, la plage IP est utilisée pour la dernière fois pour se séparer, si elle est "*", elle doit être placée au dernier chiffre
«Ajouter»: Autoriser »Une fois que chaque plage signifie que la connexion est autorisée, et l'ajout de»: refuser »signifie que la connexion est refusée. Utilisez plusieurs gammes pour séparer
«Par exemple 192.168.1 *. *: Autoriser; 192.168.1.1: Allow; 192.168.1.1-10: Rechets "
'Valeur de retour: vrai / false
«MISE À JOUR: 2001/12/05 Les supports permettent, les supports de refus« * », ne veulent pas avoir raison? Soutenu, car c'est presque la même chose que *
'*******************************
FonctionCheckip (Cinput_ip, cbound_ip)
dimcsingle_ip, ctemp_ip, cstart_ip, Cend_ip
Checkip = false
csingle_ip = split (cbound_ip, ";")
fori = 0Toubound (csingle_ip)
iFinstr (csingle_ip (i), "refuser") <> 0Then "Il suffit de refuser
ctemp_ip = Left (csingle_ip (i), instr (csingle_ip (i), ":") - 1)
iFinstr (ctemp_ip, "*") <> 0Then "est une large gamme
cStart_ip = Left (ctemp_ip, instr (ctemp_ip, "*") - 1)
ifleft (cinput_ip, Len (cStart_ip)) = cStart_ipthen
Checkip = false
sortie
endire
endire
iFinstr (ctemp_ip, "-") = 0THEN
cStart_ip = ctemp_ip
cend_ip = ctemp_ip
autre
cStart_ip = Left (ctemp_ip, instr (ctemp_ip, "-") - 1)
CEND_IP = Left (cStart_ip, instrrev (cstart_ip, ".") - 1) + "." + mid (ctemp_ip, instr (ctemp_ip, "-") + 1)
endire
ifip2str (cinput_ip)> = ip2str (cstart_ip) andip2str (cinput_ip) <= ip2str (cend_ip) puis
Checkip = false
sortie
endire
elseiFinstr (csingle_ip (i), "permettre") <> 0Then "Autoriser
ctemp_ip = Left (csingle_ip (i), instr (csingle_ip (i), ":") - 1)
iFinstr (ctemp_ip, "*") <> 0Then "est une large gamme
cStart_ip = Left (ctemp_ip, instr (ctemp_ip, "*") - 1)
ifleft (cinput_ip, Len (cStart_ip)) = cStart_ipthen
Checkip = true
endire
endire
iFinstr (ctemp_ip, "-") = 0THEN
cStart_ip = ctemp_ip
cend_ip = ctemp_ip
autre
cStart_ip = Left (ctemp_ip, instr (ctemp_ip, "-") - 1)
CEND_IP = Left (cStart_ip, instrrev (cstart_ip, ".") - 1) + "." + mid (ctemp_ip, instr (ctemp_ip, "-") + 1)
endire
ifip2str (cinput_ip)> = ip2str (cstart_ip) andip2str (cinput_ip) <= ip2str (cend_ip) puis
Checkip = true
autre
Checkip = false
endire
endire
suivant
finition de fin
'*******************************