Publicado em 11 de jun.

[Resolvido] Liberar apenas uma faixa de IP

Boas pessoal,

é o seguinte, preciso criar uma regra em um site que proíba o acesso de máquinas que estejam fora de um determinado range de IP.

Preciso também criar um IF para o IP interno da empresa também.

O problema é que nunca fiz isso, alguém pode me ajudar?

Obrigado

Discussão (4)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

hargon· 11 de jun.

Tenta utilizar a idéia do tópico que você viu mais cedo.

http://forum.imasters.com.br/index.php...st&p=283647

É praticamente a mesma coisa.

Você vai precisar do Request.ServerVariables("REMOTE_ADDR") e da função split (para transforma o ip em vetor e ficar mais fácil para comparar).

Q-Vara· 12 de jun.

Minhas faixas de IP são 179.20.205.179 até 181 e 201.142.128.0 até 20.

Será que assim funciona?

<%
Function ControlaIP(ip,faixaDe,faixaAte)
ip = Replace(ip,".","")
faixaDe = Replace(faixaDe,".","")
faixaAte = Replace(faixaAte,".","")
ip = ip
faixaDe = faixaDe
faixaAte = faixaAte
if ip >= faixaDe AND ip <= faixaAte then
ControlaIP = False
else
ControlaIP = True
end if
End Function

If ControlaIP(Request.ServerVariables("REMOTE_ADDR"),"201.142.128.0","201.142.128.20") then
response.write Request.ServerVariables("REMOTE_ADDR") & ": IP dentro da faixa!!"
else If ControlaIP(Request.ServerVariables("REMOTE_ADDR"),"179.20.205.179","179.20.205.181") then
response.write Request.ServerVariables("REMOTE_ADDR") & ": IP dentro da faixa!!"
else
response.write Request.ServerVariables("REMOTE_ADDR") & ": IP fora da faixa!!"
end if
%>

hargon· 12 de jun.

Altera a função aí e testa novamente. Vocè inverteu o true e false.

<%
Function ControlaIP(ip,faixaDe,faixaAte)
ip = Replace(ip,".","")
faixaDe = Replace(faixaDe,".","")
faixaAte = Replace(faixaAte,".","")

if (cdbl(ip) >= cdbl(faixaDe)) AND (cdbl(ip) <= cdbl(faixaAte)) then
ControlaIP = True
else
ControlaIP = False
end if
End Function
%>

Q-Vara· 12 de jun.

RESOLVIDO

<%
Function ControlaIP(ip,faixaDe,faixaAte)
ip = Replace(ip,".","")
faixaDe = Replace(faixaDe,".","")
faixaAte = Replace(faixaAte,".","")

if (cdbl(ip) >= cdbl(faixaDe)) AND (cdbl(ip) <= cdbl(faixaAte)) then
ControlaIP = True
else
ControlaIP = False
end if
End Function

If ControlaIP(Request.ServerVariables("REMOTE_ADDR"),"200.142.128.0","200.142.128.20") then
response.write Request.ServerVariables("REMOTE_ADDR") & ": IP dentro da faixa!!"
elseif ControlaIP(Request.ServerVariables("REMOTE_ADDR"),"189.20.205.179","189.20.205.181") then
response.write Request.ServerVariables("REMOTE_ADDR") & ": IP dentro da faixa!!"
else
response.write Request.ServerVariables("REMOTE_ADDR") & ": IP fora da faixa!!"
end if
%>
Obrigado hargon!!!