'**********************************
'FunctionCheckip (cinput_ip, cbound_ip)
'CreóByqqDao, [email protected]/11/28
'Nota: Primero, necesita enriquecer en función del; Número, luego determine si contiene "-", si lo existe, realice el procesamiento dividido y finalmente determine si está dentro del rango
'Parámetro: cinput_ip, IP para la verificación proxy
'CBound_ip, el formato de rango dado es, IP único y Rango IP, el rango IP se usa por última vez para dividirse, si es "*", debe colocarse en el último dígito
'Agregar ": Permitir" después de cada rango significa que el inicio de sesión está permitido, y agregar ": RECHESE" significa que se rechaza el inicio de sesión. Use múltiples rangos para separar
'Por ejemplo 192.168.1*.*: Permitir; 192.168.1.1: Allumbrar; 192.168.1.1-10: basura "
'Valor de retorno: verdadero/falso
'Actualización: 2001/12/05 Soportes Permitir, los soportes de basura'*', ¿no quieres tener razón? Compatible, porque es casi lo mismo que *
'**********************************
functionCheckip (cinput_ip, cbound_ip)
dimcsingle_ip, ctemp_ip, cstart_ip, cend_ip
Checkip = falso
csingle_ip = split (cbound_ip, ";")
fori = 0toUbound (csingle_ip)
ifinstr (csingle_ip (i), "rechazo") <> 0then "solo se niega
ctemp_ip = izquierda (csingle_ip (i), instr (csingle_ip (i), ":")-1)
ifinstr (ctemp_ip, "*") <> 0then "es un amplio rango
cstart_ip = left (ctemp_ip, instr (ctemp_ip, "*")-1)
ifleft (cinput_ip, len (cStart_ip)) = cStart_ipthen
Checkip = falso
extinción
endif
endif
ifinstr (ctemp_ip, "-") = 0then
cstart_ip = ctemp_ip
cend_ip = ctemp_ip
demás
cstart_ip = left (ctemp_ip, instr (ctemp_ip, "-")-1)
cend_ip = izquierda (cstart_ip, instrrev (cStart_ip, ".")-1)+"."+Mid (ctemp_ip, instr (ctemp_ip, "-")+1)
endif
ifip2str (cinput_ip)> = ip2str (cstart_ip) andip2str (cinput_ip) <= ip2str (cend_ip) entonces
Checkip = falso
extinción
endif
elseifinstr (csingle_ip (i), "permitir") <> 0then "Permitir
ctemp_ip = izquierda (csingle_ip (i), instr (csingle_ip (i), ":")-1)
ifinstr (ctemp_ip, "*") <> 0then "es un amplio rango
cstart_ip = left (ctemp_ip, instr (ctemp_ip, "*")-1)
ifleft (cinput_ip, len (cStart_ip)) = cStart_ipthen
Checkip = verdadero
endif
endif
ifinstr (ctemp_ip, "-") = 0then
cstart_ip = ctemp_ip
cend_ip = ctemp_ip
demás
cstart_ip = left (ctemp_ip, instr (ctemp_ip, "-")-1)
cend_ip = izquierda (cstart_ip, instrrev (cStart_ip, ".")-1)+"."+Mid (ctemp_ip, instr (ctemp_ip, "-")+1)
endif
ifip2str (cinput_ip)> = ip2str (cstart_ip) andip2str (cinput_ip) <= ip2str (cend_ip) entonces
Checkip = verdadero
demás
Checkip = falso
endif
endif
próximo
Función final
'**********************************