Validate IP address with Regular Expression

[Hackoo]

Hi
I want to translate this function written in Vbscript to Autoit

expandcollapse popup

Titre = "Tester la validité d'une d'Adresse IP"

AdressIP = InputBox("Veuillez saisir une Adresse IP ",Titre,"172.16.18.21")

if IP_Valide(AdressIP) = True Then

    MsgBox AdressIP & " est une Adresse IP Valide",64,Titre

else

    MsgBox AdressIP & " est une Adresse IP NON Valide",16,Titre

End if

 

gateway = InputBox("Entrez la passerelle", "gateway default","255.255.255.0")

if IP_Valide(gateway) = True Then

    MsgBox gateway & " est une Adresse IP Valide",64,Titre

else

    MsgBox gateway & " est une Adresse IP NON Valide",16,Titre

End if

 

Function IP_Valide(ip)

    Set RegularExpressionObject = New RegExp

    With RegularExpressionObject

        .Pattern = "^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$"

        .IgnoreCase = False

        If .Test(ip)= True then

            IP_Valide = True

        end if

    End With

End Function

Thank you in advance !

[AZJIO]

$sIP4 = '192.168.30.195'
MsgBox(0, '?', _IsIP4($sIP4))

Func _IsIP4($sIP4)
    Return StringRegExp($sIP4, '^(?:(?:2(?:[0-4]\d|5[0-5])|1?\d{1,2})\.){3}(?:(?:2(?:[0-4]\d|5[0-5])|1?\d{1,2}))$')
    ; Return StringRegExp($sIP4, '^(?:(?:2(?:[0-4][\d|5[0-5])|[0-1]?\d{1,2})\.){3}(?:(?:2(?:[0-4]\d|5[0-5])|[0-1]?\d{1,2}))$')
EndFunc

Edited January 4, 2014 by AZJIO

[JohnOne]

Thank you in advance !

For what?

[guinness]

Search _WinAPI_UrlIs() in the help file.

Wrong function.

Edited January 4, 2014 by guinness

[Hackoo]

Ok , I solved it like this, and thank you for your reply 

Local $Titre = "Tester la validité d'une d'Adresse IP"
Local $IP = InputBox("Veuillez saisir une Adresse",$Titre,"172.16.18.21")
If $IP = "" Then Exit
if IP_Valide($IP) = True Then
    Msgbox(64,$Titre,$IP & " est une adresse est valide")
else
    MsgBox(16,$Titre,$IP & " est une adresse est non valide")
EndIf

Local $IP = InputBox("Veuillez saisir une Adresse",$Titre,"500.800.18.21")
if IP_Valide($IP) = True Then
    Msgbox(64,$Titre,$IP & " est une adresse valide")
else
    MsgBox(16,$Titre,$IP & " est une adresse non valide")
EndIf

Func IP_Valide($ip)
    Return StringRegExp ($ip,"^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$")
EndFunc

Edited January 4, 2014 by Hackoo

[BrewManNH]

That regex doesn't validate an IP address, it merely validates that the string contains 4 sets of numbers between 0 and 255 that are separated by periods. A large portion of those number sets are not valid ip addresses.

I'd use this function to test for a valid IP address.

 

EDIT: N.B. RegEx by the way is a fairly unreliable way to validate a real IP address instead of just an arbitrary set of numbers that fit. A search of the net will demonstrate to you that there's hundreds of RegEx patterns to attempt it, but not many that actually succeed at doing it correctly. 

Edited January 4, 2014 by BrewManNH

[AZJIO]

Hackoo

You made a short regular expression.