código do programa
função enaddr(sip)'codificação IP
esip=cstr(sip)
str1=Esquerda(sip,CInt(InStr(sip,".")-1))
gole=Médio(gole,cint(instr(gole,"."))+1)
str2=Esquerda(sip,cint(instr(sip,"."))-1)
gole=mid(gole,cint(instr(gole,"."))+1)
str3=esquerda(sip,cint(instr(sip,"."))-1)
str4=mid(gole,cint(instr(gole,"."))+1)
enaddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
função final
código do programa
função deaddr(sip) 'Decodificação IP
gole = gole + 1
s1=int(sip/256/256/256)
s21=s1*256*256*256
s2=int((sip-s21)/256/256)
s31=s2*256*256+s21
s3=int((sip-s31)/256)
s4=sip-s3*256-s31
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
função final
20090522 atualiza duas funções:
Função: Converter número inteiro longo em endereço IP
código do programa
<%
Função CStrIP(ByVal anNewIP)
Dim lsResultados
Diminuir lnTemp
Dim lnIndex
Para lnIndex = 3 a 0 Etapa -1
lnTemp = Int(anNewIP / (256 ^ lnIndex))
lsResultados = lsResultados & lnTemp & "."
umNovoIP = umNovoIP - (lnTemp * (256 ^ lnIndex))
Próximo
lsResultados = Esquerda(lsResultados, Len(lsResultados) - 1)
CStrIP = lsResultados
Função final
%>
Função: Converter endereço IP em número inteiro longo
código do programa
<%
Função CLngIP(ByVal asNewIP)
Dim InResults
Dim lnIndex
Escurecer lnIpAry
lnIpAry = Dividir(asNewIP, ".", 4)
Para lnIndex = 0 a 3
Se não lnIndex = 3 então
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
Terminar se
lnResultados = lnResultados + lnIpAry(lnIndex)
Próximo
CLngIP = lnResultados
Função final
%>