Acceso sólo a una IP.

[wpp]

Quiero acceder a un archivo ASP, pero quiero que solo lo pueda hacer yo cuando accedo con mi IP, y el que no la tenga no pueda acceder y le conteste, IP no válida.
El problema es que en principio sé hacerlo pero mi IP es dinámica.
Como se podrían añadir un rango de iP, del tipo 192.23.45.*, espero haberme explicado.

'IP a permitir
Ip_array(0) = "80.28.123.*"
Ip_array(1) = "80.28.*.*"

Es que si lo pongo así no me lo permite.
Ayuda.

[u_goldman]

Qué tal algo así:

ip = "80.28.123.255"

If left(ip, len(ip) - 4) = "80.28.123" Then
'Esta permitido el acceso
Else
'ADIOS
End If

lo único es sacarle los 3 últimos números mas el "." y validar el resto..


Salu2,

[wpp]

Te importaría mandarme todo el código ASP entero, es que no me funciona agregando lo que me has pasado.
Gracias.

[u_goldman]

je je, pues si me importaría porque no tengo ningún código... es solo una idea, trata de adaptarla a tus necesidades, que error te manda?

Salu2,

[wpp]

Mira te paso lo que tengo.

<%
Dim IP
Dim fuera
Dim A
'Creamos una array con el numero de ips que queremos bloquear en esto caso definimos tres ips( 0 = uno, 1 = dos)
Dim Ip_array(3)

'Localizamos las variables a traves de la variable request.servervariables("REMOTE_ADDR")
IP = request.servervariables("REMOTE_ADDR")

'Definimos el numero de ips que queremos bloquear en este caso 3
A = 3

'IP a bloquear
Ip_array(0) = ""
Ip_array(1) = ""
Ip_array(2) = ""


'revisamos las ips a traves del array, si encontramos una ip bloqueda el usuario no podra visualizar la pagina
For I = 0 to A
If Ip_array(I) = IP then

'redireccionamos la ip bloqueada a la siguiente url
Response.Redirect "http://www.jmcweb.org/ryryryr.htm"

End If
next
%>

[wpp]

Pero recuerda, lo que yo quiero no es bloquear una ip, sino todo lo contrario, que la que yo quiera, valide.

[u_goldman]

A ver, hice este script, no está super probado, pero fíjate si te sirve

<%
'Valida rango de ip xxx.xxx.x.*
Function valida_ipDeArreglo(ip)
'obtenemos una variable para sacar la cantidad de
'caracteres después del último punto
cuenta = len(ip) - (len(ip) - (instrRev(ip, ".") - 1))
'cortamos la cadena para devolver el rango xxx.xxx.x*
valida_ipDeArreglo = left(ip, cuenta)
End Function

Function entra_ip(que_ips)
'Está en false para descartar desde el inicio
permitido = false
'Obtenemos el arreglo en base al argumento que_ips separado por ","
arrIPSPermitidas = split(que_ips, ",")
'Obtenemos la IP del visitante
ip = request.servervariables("REMOTE_ADDR")
'Obtenemos el rango de esta ip para ver si es el permitido
rango= valida_ipDeArreglo(ip)

'Entramos al ciclo desde que i valga 0(indice de 0 ), hasta
'el número máximo en el índice del arreglo
For i = 0 to uBound(arrIPSPermitidas)
'Obtenemos el rango para cada una de las IP's permitidas
'dentro del arreglo
RangoIPArreglo= valida_ipDeArreglo(arrIPSPermitidas(i))
'Si el rango de la ip del visitante es igual a cualquier
'rango de las ip's de nuestro arreglo entonces es permitido
If rango = RangoIPArreglo Then
permitido = true
'Regresa el valor, en este caso true
entra_ip= permitido
'Sale de la función
Exit Function
End If
Next
'Si no se encontró ningún rango igual, permanece en la función
'y regresa el valor de permitido, en este caso false
entra_ip= permitido
End Function

'Llamamos a la función y le pasamos las ip's que queremos permitir
'separadas por "," no dejar espacios entre ellas
esta_ip= entra_ip("192.168.0.255,193.168.0.500")
'Aqui solo vemos que valor devuelve la función, para evaluar la IP
Response.Write(esta_ip)
%>

Salu2,

[wpp]

gracias

[u_goldman]

Por ná