Uncategorized

Excel INET_ATON / INET_NTOA

Option Explicit

Public Function INET_ATON(IP As String) As Double

   Dim IPArray As Variant

   IPArray = Split(IP, ".")
   INET_ATON = (IPArray(0) * 256 ^ 3) 
   INET_ATON = INET_ATON + (IPArray(1) * 256 ^ 2) 
   INET_ATON = INET_ATON + (IPArray(2) * 256) 
   INET_ATON = INET_ATON + IPArray(3)

End Function
Public Function INET_NTOA(IPNumber As Double) As String

   INET_NTOA = (IPNumber \ 256 ^ 3)
   INET_NTOA = INET_NTOA & "." 
   INET_NTOA = INET_NTOA & ((IPNumber Mod (256 ^ 3)) \ 256 ^ 2)
   INET_NTOA = INET_NTOA & "." 
   INET_NTOA = INET_NTOA & (((IPNumber Mod (256 ^ 3)) Mod (256 ^ 2)) \ 256)
   INET_NTOA = INET_NTOA & "." 
   INET_NTOA = INET_NTOA & (((IPNumber Mod (256 ^ 3)) Mod (256 ^ 2)) Mod 256)

End Function
=VALUE(LEFT(A1,FIND(".",A1)-1))*2^24+VALUE(MID(A1,FIND(".",A1)+1,FIND(".",A1,FIND(".",A1)+1)-FIND(".",A1)-1))*2^16+VALUE(MID(A1,FIND(".",A1,FIND(".",A1)+1)+1,FIND(".",A1,FIND(".",A1,FIND(".",A1)+1)+1)-FIND(".",A1,FIND(".",A1)+1)-1))*2^8+VALUE(RIGHT(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND(".",A1)+1)+1)))