[VB] regExp per controllare un IP

[Sammy73]

qualcuno mi può aiutare a fare una espressione di controllo per controllare se un indirizzo IP[:PORTA] è valido?

deve controllare se eventualmete c'è una porta, se è un numero e se ce ne è una sola...

un po' complicato per me

non so se si può fare...

GRAZIE fin da subito!

[Sammy73]

ho trovato qualcosa del genere, ma non è vbscript:

my $IP = '1.5.0.1';

print check_IP($IP)?'ok':'oops',"\n";

sub check_IP {
my $str = shift;
my $lower = 1;
my $upper = 255;
if (my @pieces = $str =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) {
return ! scalar grep { $_ < $lower || $upper < $_ } @pieces;
}
else {
return 0;
}
}

[vaargard]

ma il controllo lo devi fare su una pagina asp o è una funzione in una dll?? se su di una pagina asp lo script che hai trovato va benissimo poichè è javascript ...

[Sammy73]

è in una pagina asp, ma non va bene, perchè il resto della pagina è in VBscript

(PS: ma lo script postato non è mica PHP?(vebbè, sono molto simili, basta togliere $))

[vaargard]

mi sa che hai ragione!!! ehehehehhehe

comuqneu è troppo anche per me ...

[willybit]

Ciao Sammy73,

la re che hai trovato non è proprio buona perché i numeri accettati superano i 255, ad esempio da per buono un indirizzo ip come 999.999.999.999
per aggiungere il controllo della porta a quello basterebbe un (\:\d+)? finale

Set RE = CreateObject("VBScript.RegExp")
RE.Pattern="^(\d{1,3}\.){3}\d{1,3}(\:\d+)?$"
RE.Global=true
stringa = "100.100.100.100:100" 'questa passa
Response.Write stringa & " = " & RE.Test(stringa) & "
"
stringa = "999.999.999.999:999" 'questa passa
Response.Write stringa & " = " & RE.Test(stringa)

ma per controllare che l'ip non superi i 255

Set RE = CreateObject("VBScript.RegExp")
RE.Pattern="^((25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)\.){3}(25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(\:\d+)?$"
RE.Global=true
stringa = "100.100.100.100:100" 'questa passa
Response.Write stringa & " = " & RE.Test(stringa) & "
"
stringa = "999.999.999.999:999" 'questa NON passa
Response.Write stringa & " = " & RE.Test(stringa)

Se servono chiarimenti chiedi pure
Ciao ciao

[vaargard]

figata!!!

[Sammy73]

MEGA GRAZIE!

che roba ragazzi! lo provo subito

grazie ancora willybit