Accueil > > > CALCULATEUR DE SOUS RESEAUX IP.
CALCULATEUR DE SOUS RESEAUX IP.
Information sur la source
Description
Programme qui permet a partir d'une ip est d'un masque de caculer (reelement avec operation logique et décalage) l' adresse de reseau, l'adresse de broadcast, le nombre de sous reseau possible et le nombre d'hote. il n'y a pas de switch case, c'est vraiment une methode de calcul en vb. le code est super simple, la methode est sur commenté. tout pour comprendre comment fonctionne les calculs de masque ! application stricte d'un cours ip v4.
Source
- Public Class IPSubNetCalculateur
-
- ''' <summary>
- ''' Calculateur Ip.
- ''' Source libre de droit (Domaine Publique)
- ''' VB.NET 2008 Framework 3.5; je pense que cela compile avec n'importe quel VB.NET
- ''' la source est longue mais elle est sur commenté, c'etait une explication pour un pote.
- ''' </summary>
- ''' <remarks>jyropp#nospam#(at)hotmail.fr</remarks>
- '''
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
-
- Dim ip1, ip2, ip3, ip4, mask1, mask2, mask3, mask4 As Byte
- Dim sub1, sub2, sub3, sub4, iplast1, iplast2, iplast3, iplast4 As Byte
- ' en VB les byte sont non signé, cela tombe bien...
- ' par exemple en C il aurait fallut metre Ubyte (unsigned).
-
- Dim masque, ip As String
- Dim total, tmp As Integer
-
- Subnet.Text = ""
- iplast.Text = ""
- IP_1.Text = ""
- nbhosts.Text = "0"
- nbsubnet.Text = "0"
-
- Try
- ' convertit le MaskedTextBox IP (192.168.0.1) > ip1=192 ; ip2=168 ; ip3=19 ; ip4=34
- ip = MaskedTextBox1.Text
- ip1 = CByte(ip.Substring(0, 3))
- ip2 = CByte(ip.Substring(4, 3))
- ip3 = CByte(ip.Substring(8, 3))
- ip4 = CByte(ip.Substring(12, 3))
-
- ' convertit le MasquedTextBox masq. > 255.255.240.0 > mask1=255 ; mask2=255; mask3=240 ; mask4 =0
- masque = MaskedTextBox2.Text
- mask1 = CByte(masque.Substring(0, 3))
- mask2 = CByte(masque.Substring(4, 3))
- mask3 = CByte(masque.Substring(8, 3))
- mask4 = CByte(masque.Substring(12, 3))
-
- 'calcul du subnet
- ' ex : 192.168.019.34
- ' masq : 255.255.240.0
- ' AND ----------------
- ' = 192.168.016.0
-
- sub1 = ip1 And mask1
- sub2 = ip2 And mask2
- sub3 = ip3 And mask3
- sub4 = ip4 And mask4
-
- Subnet.Text = sub1.ToString + "." + sub2.ToString + "." + sub3.ToString + "." + sub4.ToString
-
- 'affiche la premiere ip ( subnet + 1)
- ' 192.168.016.0 + 1 = 192.168.016.1
-
- IP_1.Text = sub1.ToString + "." + sub2.ToString + "." + sub3.ToString + "." + CStr(sub4 + CByte(1))
-
- 'calcul de la derniere ip :
- 'ip du subnet : 192.168.016.000
- ' not masque : 000.000.015.255
- ' + -------------
- ' = 192.168.31.255
- ' - 1 = 192.168.31.254
-
- iplast1 = sub1 + (Not mask1)
- iplast2 = sub2 + (Not mask2)
- iplast3 = sub3 + (Not mask3)
- iplast4 = sub4 + (Not mask4) - CByte(1)
-
- iplast.Text = iplast1.ToString + "." + iplast2.ToString + "." + iplast3.ToString + "." + iplast4.ToString
-
- 'nb de sous reseau possible :
- 'ex: mask 240 = 11110000
- 'décalage = 00001111 = 15
- '-1 = 14 et hop ;) on peut faire +1 si on veut comptabilisé l'adresse de reseau et le broadcast
- 'perso j'aime bien la jouer a l'ancienne.
- 'attention, si le mask n'est pas correcte : du genre 255.255.0.255 ; resultat incoherent.
- 'il faudrait metre plus de controle d'erreur de saisie mais bon quant on a besoins
- 'de calculer les subnets on est grand...
-
- If mask1 > 0 And mask2 = 0 Then nbsubnet.Text = CStr(nbnet(mask1))
- If mask2 > 0 And mask3 = 0 Then nbsubnet.Text = CStr(nbnet(mask2))
- If mask3 > 0 And mask4 = 0 Then nbsubnet.Text = CStr(nbnet(mask3))
- If mask4 > 0 And mask4 <= 255 Then nbsubnet.Text = CStr(nbnet(mask4))
-
- ' Nb hotes possible par sous reseaux
- ' on reconstitue le mask par decalage :
- ' ---------- MASK1 --- MASK2 --MASK3----MASK4
- ' Integer = 11111111 11111111 11110000 00000000
- ' ensuite on complente a 1
- ' 00000000 00000000 00001111 11111111
- ' on retire 1 et nous avons notre nb d'hote.
-
- total = Not (mask1)
- total = total << 24
-
- tmp = Not (mask2)
- tmp = tmp << 16
- total = total Or tmp
-
- tmp = Not (mask3)
- tmp = tmp << 8
- total = total Or tmp
- total = total Or (Not mask4)
- nbhosts.Text = CStr(total - 1)
-
- ' en cas d"exception c'est que vous vous ête gouré dans les valeurs de masque et d'ip....
- ' un peut simpliste comme methode mais bon... pour une source de demo. ;)
-
- Catch
- MsgBox("Erreur d' @IP et/ou de masque." _
- & vbCrLf & " valeur ok : de 0.0.0.0 a 255.255.255.255", _
- MsgBoxStyle.Critical)
-
- End Try
-
- End Sub
- Function nbnet(ByVal mask As Byte) As Integer
- ' provoque le décalage des bit de poid fort pour les transformer en bit de poid faible.
- ' ensuite, on retire 1 est on a notre nb de reseau possible...
- ' 254 = 1111 1110 > 0111 1111 = 127 - 1 return 126
-
- While (CByte(mask And 1) = 0)
- mask = mask >> 1
- End While
-
- 'ex: avec 240 (11110000)
- ' tant que 1111 0000 AND 0000 0001 = FALSE
- ' décale les bit vers la droite de 1.
- ' donc : 0111 1000
- ' puis : 0011 1100
- ' 0001 1110
- ' 0000 1111 = TRUE = Fin de boucle !
-
- 'ensuite 15 - 1 = 14 et renvoie cette valeur.
- Return (mask - CByte(1))
- End Function
-
-
- End Class
Public Class IPSubNetCalculateur
''' <summary>
''' Calculateur Ip.
''' Source libre de droit (Domaine Publique)
''' VB.NET 2008 Framework 3.5; je pense que cela compile avec n'importe quel VB.NET
''' la source est longue mais elle est sur commenté, c'etait une explication pour un pote.
''' </summary>
''' <remarks>jyropp#nospam#(at)hotmail.fr</remarks>
'''
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ip1, ip2, ip3, ip4, mask1, mask2, mask3, mask4 As Byte
Dim sub1, sub2, sub3, sub4, iplast1, iplast2, iplast3, iplast4 As Byte
' en VB les byte sont non signé, cela tombe bien...
' par exemple en C il aurait fallut metre Ubyte (unsigned).
Dim masque, ip As String
Dim total, tmp As Integer
Subnet.Text = ""
iplast.Text = ""
IP_1.Text = ""
nbhosts.Text = "0"
nbsubnet.Text = "0"
Try
' convertit le MaskedTextBox IP (192.168.0.1) > ip1=192 ; ip2=168 ; ip3=19 ; ip4=34
ip = MaskedTextBox1.Text
ip1 = CByte(ip.Substring(0, 3))
ip2 = CByte(ip.Substring(4, 3))
ip3 = CByte(ip.Substring(8, 3))
ip4 = CByte(ip.Substring(12, 3))
' convertit le MasquedTextBox masq. > 255.255.240.0 > mask1=255 ; mask2=255; mask3=240 ; mask4 =0
masque = MaskedTextBox2.Text
mask1 = CByte(masque.Substring(0, 3))
mask2 = CByte(masque.Substring(4, 3))
mask3 = CByte(masque.Substring(8, 3))
mask4 = CByte(masque.Substring(12, 3))
'calcul du subnet
' ex : 192.168.019.34
' masq : 255.255.240.0
' AND ----------------
' = 192.168.016.0
sub1 = ip1 And mask1
sub2 = ip2 And mask2
sub3 = ip3 And mask3
sub4 = ip4 And mask4
Subnet.Text = sub1.ToString + "." + sub2.ToString + "." + sub3.ToString + "." + sub4.ToString
'affiche la premiere ip ( subnet + 1)
' 192.168.016.0 + 1 = 192.168.016.1
IP_1.Text = sub1.ToString + "." + sub2.ToString + "." + sub3.ToString + "." + CStr(sub4 + CByte(1))
'calcul de la derniere ip :
'ip du subnet : 192.168.016.000
' not masque : 000.000.015.255
' + -------------
' = 192.168.31.255
' - 1 = 192.168.31.254
iplast1 = sub1 + (Not mask1)
iplast2 = sub2 + (Not mask2)
iplast3 = sub3 + (Not mask3)
iplast4 = sub4 + (Not mask4) - CByte(1)
iplast.Text = iplast1.ToString + "." + iplast2.ToString + "." + iplast3.ToString + "." + iplast4.ToString
'nb de sous reseau possible :
'ex: mask 240 = 11110000
'décalage = 00001111 = 15
'-1 = 14 et hop ;) on peut faire +1 si on veut comptabilisé l'adresse de reseau et le broadcast
'perso j'aime bien la jouer a l'ancienne.
'attention, si le mask n'est pas correcte : du genre 255.255.0.255 ; resultat incoherent.
'il faudrait metre plus de controle d'erreur de saisie mais bon quant on a besoins
'de calculer les subnets on est grand...
If mask1 > 0 And mask2 = 0 Then nbsubnet.Text = CStr(nbnet(mask1))
If mask2 > 0 And mask3 = 0 Then nbsubnet.Text = CStr(nbnet(mask2))
If mask3 > 0 And mask4 = 0 Then nbsubnet.Text = CStr(nbnet(mask3))
If mask4 > 0 And mask4 <= 255 Then nbsubnet.Text = CStr(nbnet(mask4))
' Nb hotes possible par sous reseaux
' on reconstitue le mask par decalage :
' ---------- MASK1 --- MASK2 --MASK3----MASK4
' Integer = 11111111 11111111 11110000 00000000
' ensuite on complente a 1
' 00000000 00000000 00001111 11111111
' on retire 1 et nous avons notre nb d'hote.
total = Not (mask1)
total = total << 24
tmp = Not (mask2)
tmp = tmp << 16
total = total Or tmp
tmp = Not (mask3)
tmp = tmp << 8
total = total Or tmp
total = total Or (Not mask4)
nbhosts.Text = CStr(total - 1)
' en cas d"exception c'est que vous vous ête gouré dans les valeurs de masque et d'ip....
' un peut simpliste comme methode mais bon... pour une source de demo. ;)
Catch
MsgBox("Erreur d' @IP et/ou de masque." _
& vbCrLf & " valeur ok : de 0.0.0.0 a 255.255.255.255", _
MsgBoxStyle.Critical)
End Try
End Sub
Function nbnet(ByVal mask As Byte) As Integer
' provoque le décalage des bit de poid fort pour les transformer en bit de poid faible.
' ensuite, on retire 1 est on a notre nb de reseau possible...
' 254 = 1111 1110 > 0111 1111 = 127 - 1 return 126
While (CByte(mask And 1) = 0)
mask = mask >> 1
End While
'ex: avec 240 (11110000)
' tant que 1111 0000 AND 0000 0001 = FALSE
' décale les bit vers la droite de 1.
' donc : 0111 1000
' puis : 0011 1100
' 0001 1110
' 0000 1111 = TRUE = Fin de boucle !
'ensuite 15 - 1 = 14 et renvoie cette valeur.
Return (mask - CByte(1))
End Function
End Class
Conclusion
Bonne lecture, bonne revision. esperant avoir été util. A+
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Masque de sous-reseaux [ par Seth77 ]
Slu comment peut on le recupere sous vb6 ?Herve
masque de saisie pou ip [ par bendsiham ]
bonjour je voudrais savoir comment je peux faire un masque de saisie dans un textbox pour saisir une [u][b]adresse ip[/b][/u] sous vb.net Merci d'
Récuperer IP d'un site webbrowser [ par Nitrakz ]
Bonjour, Je suis en train de develloper un web browser en VB .NET mais j'ai un petit soucis, je voudrait récupérer l'ip du site web sur lequel je suis
"Formulaire" de remplissage.... [ par Anakin79 ]
Bonjour, Bonjour, Voila, je vous explique mon problème. Depuis maintenant 2 mois, je créer un logiciel de connexion à une base de donné sql. Jusqu
Winsock et Antivirus [ par Doktos ]
Bonjour, Je communique avec des balances via le port ethernet de mon PC (sous windows XP). Tout marche bien tant que mon antivirus (kaspersky) est ac
.bat => Script modification tcp/ip => Configuration alternative [ par Weiling ]
Bonjour à tous. Je viens vers vous car même après plusieurs recherches, je n'ai toujours pas réussi à trouver ce que je voulais :( Je m'explique, j'
ip des serveurs "ping" [ par le1scorpion1noir ]
salut comment savoir lip du serveur ?[^^yeuxenlair] par exemple pour WWW.GOOGLE.COM cest : 66.249.92.104 cest par la commande ping sur linvité du com
XMP-RPC Au secours !!! [ par radsie ]
Bonjour a tous et à toute Voila, je développe des applis avec Visual Studio 2010, et principalement des applis qui communiquent avec des cartes éléct
XML et Visual studio !!! [ par radsie ]
Bonjour a tous et à toute Voila, je développe des applis avec Visual Studio 2010, et principalement des applis qui communiquent avec des cartes élé
utiliser proxy [ par dognico ]
Boujour a tt le monde. Je voudrai avoir un code pour utiliser un proxy (ip + port) pour pouvoir acceder au site web sans passer avec mon adresse ip c
|
Derniers Blogs
MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril SHAREPOINT 15 TECHNICAL PREVIEW MANAGED OBJECT MODEL SOFTWARE DEVELOPMENT KITSHAREPOINT 15 TECHNICAL PREVIEW MANAGED OBJECT MODEL SOFTWARE DEVELOPMENT KIT par Matthew
http://www.microsoft.com/download/en/details.aspx?id=28768&utm_source=feedburner&utm_medium=feed&utm_campaign=Feed%3A+MicrosoftDownloadCenter+(Microsoft+Download+Center) ...
Cliquez pour lire la suite de l'article par Matthew
Logiciels
Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|