IsIpInRange

 Keywords:  Ip Address IPAddress Range CIDR Notation Network Address Convert Number

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Accepts an IP Address and a network
;;; CIDR range. Returns true if the
;;; IP Address is part of the CIDR
;;; range.
#DefineFunction IsIpInRange(_Ip, _Net)

   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; Needs parameter checking!
   ; Convert Ip Address to number
   nIp = 0
   For i = 1 To 4
      nIp = nIp + (ItemExtract(i, _Ip, ".") << (8*(4-i)))
   Next

   ; Get the CIDR notation network address part.
   nNet = 0
   lNet = ItemExtract(1, _Net, "/")
   For i = 1 To 4
      nNet = nNet + (ItemExtract(i, lNet, ".") << (8*(4-i)))
   Next

   ; Create a mask from the CIDR range part.
   Bits  = ItemExtract(2, _Net, "/")
   nMask = (~0)<<(32-Bits)
   Return (nIp&nMask) == (nNet&nMask)
#EndFunction

 ;Test
 bInRange = IsIpInRange("10.20.25.11", "10.228.24.0/23")

Article ID:   W18334

Filename:   IsIpInRange.txt

File Created: 2014:03:19:10:12:18

Last Updated: 2014:03:19:10:12:18

	Array UDFs
	Binary Operations
	Conversion UDFs
	Dialog Boxes
	Directory and Deltree UDFs
	DOS Console UDFs
	FileMath UDFs
	Files and Directories
	Formatting UDFs
	List Manipulation
	Math Related UDFs
	Network Related
	Numbers
	Process UDFs
	Registry UDFs
	String Manipulation
	System UDFs
	Terminal Server
	Time UDFs
	Validation UDFs
	Web UDFs
	WinBatch Function UDFs
	Windows UDFs

Database Search

TechHome

IsIpInRange