Bloquear Faixa de IP

[Kibe_Ghost 0]

Galerinha...

 

Da uma ajuda pra mim implementar neste codigo o bloqueio por faixa de IP..

 

Pois o mesmo so bloqueia IP determinado...

 

Abraços..

 

 

ASP [/tr][tr]

<%

Dim IP

Dim fuera

Dim A

 

 

 

Dim Ip_array(5)

 

 

("REMOTE_ADDR")

IP = request.servervariables("REMOTE_ADDR")

 

 

A = 5

 

'IP a bloquear

Ip_array(0) = "230.210.28.200"

Ip_array(1) = "210.255.253.241"

Ip_array(2) = "240.210.34.194"

Ip_array(3) = "270.210.35.202"

Ip_array(4) = "210.210.28.201"

 

 

 

 

For I = 0 to A

If Ip_array(I) = IP then

 

 

 

 

 

Response.Redirect "http://www.site.com.br/manutencao.html"

 

End If

next

%>

[/tr]

 

 

 

Obrigado... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[rOcKLoCo 0]

você pode tirar os pontos, transformar em double e verificar se é maior ou igual a faixa estipulada!!acho q isso resolve.. não tenho certeza

[Kibe_Ghost 0]

E como ficaria com a mudancça??

[Salgado 4]

Veja se isso te atende:

<%

Dim IP

Dim fuera

Dim I

Dim faixa

 

IP = request.servervariables("REMOTE_ADDR")

 

'IP a bloquear

Faixa = "230.210.28.,210.255.253.241,240.210." 'Insira a faixa de IP's ou o IP que quer impedir nos dados do array, separados por ","

IP_Array = Split(Faixa,",")

 

For I = LBound(IP_array) to UBound(IP_Array)

If Ip_array(I) = Left(IP,Len(IP_Array)) then

Response.Redirect "http://www.site.com.br/manutencao.html"

End If

next

%>

[/tr]

[Kibe_Ghost 0]

Esta dando ERRO 500-------------------------------Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: 'IP_Array' /sites/bloqueia_ip.asp, line 14 --------------------------------Estou vendo oque pode ser...Abraços..

[FabricioGomes 0]

len(ip_array) ?????nao seria len(ip_array(i)) ??

[Mário Monteiro 179]

acho que é Len(IP_Array(I))

[Kibe_Ghost 0]

É isso ai..MAtamos a charada!! Obrigado FabricioOlha a linha correta!If IP_Array(I) = Left(IP,Len(IP_Array(I))) then Arbaços..

[Salgado 4]

len(ip_array) ?????

 

nao seria len(ip_array(i)) ??

Sim, é exatamente essa a correção.

[Kibe_Ghost 0]

Ta ai pessoal, bloqueio por faixa e por IP determinado..

 

Isso foi oque consegui chegar, graças ao pessoal do forum..

 

Imasters.com.br

e

Wmonline.com.br

 

Obrigado....

 

 

 

ASP [/tr][tr]

<%

Dim i, sIP

Dim vFaixa(2), vIP(5)

 

vFaixa(0) = "200"

vFaixa(1) = "201"

vIP(0) = "200.162.198.1"

vIP(1) = "200.162.199.1"

vIP(2) = "200.162.58.1"

vIP(3) = "200.162.98.1"

vIP(4) = "200.132.198.1"

 

sIP = Trim(Request.ServerVariables("REMOTE_ADDR"))

 

'-- Faixas --

For i = LBound(vFaixa) To UBound(vFaixa)

If Left(sIP, InStr(1, sIP, ".")-1) = vFaixa(i) Then

Response.Redirect (...)

End If

Next

 

'-- IPs --

For i = LBound(vIP) To UBound(vIP)

If sIP = vIP(i) Then

Response.Redirect (...)

End If

Next

 

%>

[/tr]

 

Abraços.. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[rOcKLoCo 0]

Cara, não sei se lhe adianta, mas olha como eu fiz!! Não sei se vai ser 100% mas por enquanto aqui funfou!!

 

<%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 ifEnd FunctionIf ControlaIP(Request.ServerVariables("REMOTE_ADDR"),"127.0.0.0","127.0.0.30") then	response.write Request.ServerVariables("REMOTE_ADDR") & ": IP fora da faixa!!"else	response.write Request.ServerVariables("REMOTE_ADDR") & ": IP dentro da faixa!!"end if%>

basta trocar as faixas do IP faixaDe e faixaAte

 

falows

 

falows

[Q-Vara 0]

Boas pessoal,

peguei a conversa andando e tenho uma dúvida.

Preciso bloquear todos os IP's e deixar apenas uma range (faixa) de acesso. Como faço?

Este código funciona com este tipo de bloqueio também?

Desculpe, mas é que nunca fiz isso!

 

obrigado

[hargon 64]

Amigo, este tópico é bem antigo.

 

Crie um novo tópico para que possamos discutir sua dúvida.

[Mário Monteiro 179]

Seria absicamente o contrario voce colocaria o que está liberado e alteraria a logica

 

Mas como foi falado é melhor criar outro topico e colocar o link desse para servir de ponta pe inicial