Ip Do praís

[DackAle]

E aí galera

alguém sabe se é possivel identificar o praís pelo IP ? Se existe uma lógica, uma tabela de ip, qualquer coisa ?

Exemplo

200.122.123.00 = Brasil

68.128.45.24 = EUA

E por aí vai ?

Preciso retornar o praís do visitante em uma estatistica, mas nunca vi tabela ou nada parecido sobre isso... se alguém puder me ajudar, fico grato

Abraços

OBS: praíssssssssssssssssssss

Ué porque o forum adiciona um R na palavra "p a í s" ? Nunca vi isso oO

[filipeflc00]

praÍS

O QUE DOIDO

KKKKKKKKKKKKKKK

porque ESSE "R"

doidera

MAS SOBRE O IP

tem sim cara

aqui no brasil começa com 200

e por ai vai

MAS EU não SEI TE FALAR O INICIO DE CADA "P A Í S" rsrs

falws

[DackAle]

Pra quem quiser, acabei de desenvolver ;P

<%
'Função para converter dados binarios do XMLHTTP
Function BinaryToString(strBinary)
    Dim intCount, xBinaryToString
        xBinaryToString = ""
            For intCount = 1 to LenB(strBinary)
                xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))
            Next
        BinaryToString = xBinaryToString
End Function    

VarIP = Request.ServerVariables("REMOTE_ADDR")
VarEndereco = "http://www.programacionweb.net/utilidades/paisip.php?url="

If VarIP <> "" Then

    Set ObjXML = CreateObject("Msxml2.XMLHTTP") 
    VarURL = VarEndereco & VarIP
    
    ObjXML.open "GET",VarURL,False 
    ObjXML.send 
    
    VarHtml = BinaryToString(ObjXML.ResponseBody)
    
    AchaInicio = Instr(1,VarHtml,"banderas/")
    
    If AchaInicio <> 0 Then
    
        AchaInicio2 = Cint(Instr(AchaInicio,VarHtml," /> "))+3
        AchaFim = Instr(AchaInicio2,VarHtml,"</tudo>")
        Diferenca = Cint(AchaFim - AchaInicio2)
        Response.Write Mid(VarHtml,AchaInicio2,Diferenca)
    
    Else
    
        Response.Write "praís não encontrado"
    
    End If
        
End If
%>