code de programme
fonction enaddr(sip)'encodage IP
esip=cstr(gorgée)
str1=Gauche(sip,CInt(InStr(sip,".")-1))
sip=Mid(sip,cint(instr(sip,"."))+1)
str2=Gauche(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=gauche(sip,cint(instr(sip,"."))-1)
str4=milieu(gorgée,cint(instr(gorgée,"."))+1)
enaddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
fonction de fin
code de programme
fonction deaddr(sip) 'décodage IP
gorgée=gorgée+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)
fonction de fin
20090522 met à jour deux fonctions :
Fonction : Convertir un nombre entier long en adresse IP
code de programme
<%
Fonction CStrIP(ByVal anNewIP)
Dim lsRésultats
DimTempln
DimIndice ln
Pour lnIndex = 3 à 0 Étape -1
lnTemp = Int(anNewIP / (256 ^ lnIndex))
lsResults = lsResults & lnTemp & "."
anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
Suivant
lsResults = Gauche (lsResults, Len (lsResults) - 1)
CStrIP = lsRésultats
Fonction de fin
%>
Fonction : Convertir l'adresse IP en entier long
code de programme
<%
Fonction CLngIP(ByVal asNewIP)
Dim lnRésultats
DimIndice ln
Faible lnIPaire
lnIpAry = Split(asNewIP, ".", 4)
Pour lnIndex = 0 à 3
Si Non lnIndex = 3 Alors
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
Fin si
lnRésultats = lnRésultats + lnIpAry(lnIndex)
Suivant
CLngIP = lnRésultats
Fonction de fin
%>