Maqueta de la Escuela Politécnica de la Universidad de Alcalá, en los pasillos de la Escuela.

Detalle de la biblioteca de la Escuela Politécnica de la Universidad de Alcalá.

Edificio de la Unidad de Investigación en Telemedicina y e-Salud del Instituto de Salud Carlos III. Campus de Chamartin.

Laboratorio en la Escuela Politécnica Superior de Informática. Universidad de Alcalá.

Detalle del patio interior de la Escula Politécnica Superior. Universidad de Alcalá.

martes, 23 de febrero de 2010

Bloquear acceso por dirección IP con ASP

Hay ocasiones en que interesa bloquear el acceso a ciertos usuarios con IP específicas. Básicamente lo que se hace es crear un vector con las direcciones IP que se quieran restringir para posteriormente hacer una comparación de cada una de ellas con la IP del usuario entrante. Si se detecta que la IP del usuario entrante coincide con alguna IP almacenada en el vector de restricciones se deniega el acceso redireccionándole a otra página.

El código sería el siguiente:

<%
       Dim lista_de_ips, ipVisitante, vIP
       ' lista_de_ips contendrá todas las direcciones IP que se desea bloquear
       ' Los IP deben ser separados por el carácter: ; (punto y coma)
       lista_de_ips = "61.254.32.22;62.454.32.25;"

       ' Separo la lista en un vector
       vIP = split(lista_de_ips,";")

       ' Guardo el IP del cliente
       ipVisitante = Request.ServerVariables("REMOTE_ADDR")

       ' Recorro el vector de IPs bloqueados y los comparo con el del cliente
       ' Si hay alguna coincidencia, redirecciono al usuario
       For i = 0 to UBound(vIP)
           If trim(ipVisitante) = trim(vIP(i)) and (trim(vIP(i)) <> "") Then
             Response.Redirect "sin_acceso.asp"
           End If
       Next
%>

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites