Jump to content


Photo

Ip


  • Faça o login para participar
7 replies to this topic

#1 Gabriel

Gabriel

    CGI & PHP até Morre!!!!

  • Usuários
  • 573 posts
  • Sexo:Não informado
  • Localidade:Santo Andre-SP
  • Interesses:http://www.divulgue-me.com

Posted 11/11/2003, 22:53

Ai pessoal, nesse tutorial vo ensinar a saber se um certo ip, no caso o seu, ta no Brasil ou não.
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$ip = $ENV{'REMOTE_ADDR'}; # Pega seu ip
$ip = substr($ip,0,4); # pega os quatro primeiro digitos do seu ip
if($ip =~ /200/){ # ve se tem o 200 nesses 4 primeiros digitos
print "Você esta se conectando do Brasil"; # Se siver, ok
}else{
print "Você não esta conectado pelo Brasil"; # se nao, avisa
}

Qualquer duvida, entre em contato.
abraços

Edição feita por: Gabriel, 26/04/2004, 00:17.

Editado pela equipe Forum Wmo, favor ler as regras.

#2 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 12/11/2003, 04:05

Vlw Gabriel pela contribuição e força =D

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#3 Inu

Inu

    Veterano

  • Usuários
  • 1138 posts
  • Sexo:Masculino
  • Localidade:Canela, Rio Grande do Sul, Brasil

Posted 11/09/2005, 21:27

isso nao funciona,. eu estou pelo brasil e da q eu n estou...

#4 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 11/09/2005, 21:45

Funciona sim.

Mas ali nao esta listando todos os ips que sao do brasil ali so tem 1 ip que eh o padrao.

voce teria que adicionar todos os outros adicionando:

if($ip =~ /200/){ # ve se tem o 200 nesses 4 primeiros digitos
print "Você esta se conectando do Brasil"; # Se siver, ok
#adicionando aqui:
}elsif($ip =~ /201/){
print "Você esta se conectando do Brasil";

}else{
print "Você não esta conectado pelo Brasil"; # se nao, avisa
}



ou dessa maneira:

if($ip =~ /200/ or $ip =~ /201/ or $ip =~ /143/){ # ve se tem o 200 nesses 4 primeiros digitos
print "Você esta se conectando do Brasil"; # Se siver, ok
}else{
print "Você não esta conectado pelo Brasil"; # se nao, avisa
}


Edição feita por: prix, 11/09/2005, 21:45.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#5 Inu

Inu

    Veterano

  • Usuários
  • 1138 posts
  • Sexo:Masculino
  • Localidade:Canela, Rio Grande do Sul, Brasil

Posted 11/09/2005, 22:00

não adiantou.

#6 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 11/09/2005, 22:02

Acabei de falar voce tem que preencher com a lista de ips referente ao brasil, aqui nao tem todas e dei os exemplos de como voce pode adicionar os ips!

Edição feita por: prix, 11/09/2005, 22:03.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#7 Inu

Inu

    Veterano

  • Usuários
  • 1138 posts
  • Sexo:Masculino
  • Localidade:Canela, Rio Grande do Sul, Brasil

Posted 11/09/2005, 22:04

meu ip comelça com 201
mas diz q n eh do brasil
e num proxy que começa com 200 tb deu isso!

#8 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 11/09/2005, 22:12

Pelo que vi o codigo ta certo porem se voce tentar se conectar via local ele nao mostra seu ip.

Testei o codigo pelo perl localmente e pelo meu servidor de hospedagem.

Pelo servidor de hospedagem ele funciona 100% do jeito que ta no 1 topico.

Edição feita por: prix, 11/09/2005, 23:07.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq