Conversion d'une adresse IP en un long

Version imprimable

Bonjour,
je voudrais crér une fonction qui détermine si une chaine de charactères est bien une adresse IP et si oui, la converti en un Long, malheurreusement, j'ai des problèmes d'overflow pour une adresse du genre 193.191.242.1

Voici le code développé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function ValidIp(ByVal strIP As String, ByRef lgIP As Long) As Boolean
 
Dim reg As New VBScript_RegExp_55.RegExp
Dim regMatches As VBScript_RegExp_55.MatchCollection
Dim regMatch As VBScript_RegExp_55.Match
 
 
reg.Pattern = "^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$"
If reg.Test(strIP) Then
    ValidIp = True
    reg.Global = True
    reg.Pattern = "((25[0-5]|2[0-4]\d|1?\d?\d))"
    Set regMatches = reg.Execute(strIP)
    i = 3
    lgIP = 0
    For Each regMatch In regMatches
 
        lgIP = lgIP + CLng((CLng(regMatch.Value) * CLng(CLng(256) ^ i)))
        i = i - 1
 
    Next
Else
    ValidIp = False
End If
 
 
 
Set reg = Nothing
 
End Function

QQn aurait-il une solution ?
Rem : il s'agit d une macro VBA pour Excel.

24/05/2006, 10h58
ouskel'n'or

Hello,
Je procéderais d'une autre manière
Split te permet d'isoler tes 4 nombres et d'obtenir un tableau de tes nombres
- une vérif Ubound(letableau) = 4 te confirmerait la dimension de ton tableau,
- une vérif sur le caractère numérique des éléments du tableau
et enfin
- une vérif sur la valeur (<=255)
te permettraient de "suspecter" une adresse IP

Quant à la conversion en long de ton adresse IP, ne veux-tu pas dire en Hexa ?

A+
24/05/2006, 11h03
befb

Merci pour ta reponse

Ok pour la verifiaction, c,est en effet une autre manière de procéder.
pour la conversion, je souhaite obtenir mon adresse IP en décimal, c'est pourquoi je pensais a un long
24/05/2006, 11h17
befb

par exemple : 193.191.242.1 donne 3250582017
193*256*256*256+191*256*256+242*256+1
24/05/2006, 11h19
Catbull

Cela se résume à un problème de bijection.

Une adresse IP est codé sur 4 Octets.
Un long est codé sur 4 Octets.

Jusque là tout est OK, sauf qu'un long est signé (s'étend sur l'ensemble des positifs et négatifs). Donc la conversion d'une adresse IP en Long peut et doit donner des entiers négatifs. Si tu n'exploites pas l'ensemble des valeurs des Long, tu auras des dépassements de capacité.
24/05/2006, 11h22
befb

Oui, je suis bien d accord avec toi et avait identifié le problème..
malheuresuement, je n y ai pas trouvé de solution...
24/05/2006, 11h30
Catbull
Il faut séparer l'adresse IP en deux paquets :

Le paquet positif. Proposition adresse IP >= 128.0.0.0
Le paquet négatif. Proposition adresse IP < 128.0.0.0

Convention d'écriture IP1.IP2.IP3.IP4
Code:

1 2 3 4 5 6 Si IP1<128 Alors IPLong = -(IP1*128 *256 *256 + IP2*256 * 256 + IP3 *256 + IP4) Sinon IPLong = IP1*128 *256 *256 + IP2*256 * 256 + IP3 *256 + IP4 End If
Ca devrait fonctionner. A toi de traduire en VB. J'ai la flemme ;)
24/05/2006, 11h35
befb

Un grand merci pour ces deux solutions, elles semblent toutes les deux fonctionner.