1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Réseau & Internet
  5. Générateur ip

Générateur ip

5/5 (7 avis)

Vue 18 348 fois - Téléchargée 1 072 fois

Télécharger le projet
Commenter

Description

Ce code permet de générer des adresses IP suivant le type de classe réseau (Classe A,B ou encore C).
Ce programme a été fait à partir d'un algo que l'on ma demandé de faire pour mon école...

Source / Exemple : 


Public Nbpostes As Long
Public ClasseIp As String
Private Sub Command1_Click()
If TxtTypeReseau.Text <> "a" Then
    If TxtTypeReseau.Text <> "b" Then
        If TxtTypeReseau.Text <> "c" Then
            MsgBox "Type de réseau non reconnu", vbCritical + vbOKOnly
            TxtTypeReseau.Text = ""
            TxtNbMachine.Text = ""
        End If
    End If
End If
Nbpostes = CLng(TxtNbMachine.Text)
ClasseIp = TxtTypeReseau
VerifClasse Nbpostes, ClasseIp
End Sub
Private Sub VerifClasse(Nposts As Long, ClassIp As String)
Select Case ClassIp
    Case "a"
            If Nposts <= 16777214 And Nposts > 65534 Then
                MsgBox "Nombre de poste correct ", vbInformation + vbOKOnly
                CalcClasseA (Nposts)
            Else
                MsgBox "Nombre de poste incorrect!", vbCritical + vbOKOnly
            End If
    Case "b"
            If Nposts <= 65534 And Nposts > 254 Then
                MsgBox "Nombre de poste correct ", vbInformation + vbOKOnly
                CalcClasseB (Nposts)
            Else
                MsgBox "Nombre de poste incorrect!", vbCritical + vbOKOnly
            End If
    Case "c"
            If Nposts <= 254 And Nposts > 1 Then
                MsgBox "Nombre de poste correct ", vbInformation + vbOKOnly
                CalcClasseC (Nposts)
            Else
                MsgBox "Nombre de poste incorrect!", vbCritical + vbOKOnly
            End If
End Select
End Sub
Private Sub CalcClasseA(posts As Long)
Dim CalcIp1 As Integer
Dim CalcIp2 As Integer
Dim CalcIp3 As Integer
Dim ip As String
Dim ConteurPoste As Long
posts = Nbpostes
ref = InputBox("Entrez la première partie de l'adresse IP")
Do While ref < 1 Or ref > 126
    ref = InputBox("Entrez la première partie de l'adresse IP")
Loop
CalcIp3 = 0
CalcIp2 = 0
CalcIp1 = 0
ConteurPoste = 0
Do While CalcIp3 < 255 And posts > ConteurPoste
    If CalcIp2 >= 255 Then
    CalcIp3 = CalcIp3 + 1
    CalcIp2 = 0
    End If
    Do While CalcIp2 < 255 And posts > ConteurPoste
         If CalcIp1 >= 255 Then
         CalcIp2 = CalcIp2 + 1
         CalcIp1 = 0
         End If
         Do While CalcIp1 < 255 And posts > ConteurPoste
               CalcIp1 = CalcIp1 + 1
               ip = ref & "." & CalcIp3 & "." & CalcIp2 & "." & CalcIp1
               List1.AddItem ip
               ConteurPoste = ConteurPoste + 1
         Loop
    Loop
Loop
End Sub
Public Function CalcClasseB(posts As Long)
Dim CalcIp1 As Integer
Dim CalcIp2 As Integer
Dim ip As String
Dim ConteurPoste As Long
posts = Nbpostes
ref = InputBox("Entrez la première partie de l'adresse IP")
Do While ref < 128 Or ref > 191
    ref = InputBox("Entrez la première partie de l'adresse IP")
Loop
ref2 = InputBox("Entrez la deuxième partie de l'adresse IP")
Do While ref2 < 1 Or ref2 > 254
    ref2 = InputBox("Entrez la deuxième partie de l'adresse IP")
Loop
CalcIp2 = 0
CalcIp1 = 0
ConteurPoste = 0
    Do While CalcIp2 < 255 And posts > ConteurPoste
         If CalcIp1 >= 255 Then
         CalcIp2 = CalcIp2 + 1
         CalcIp1 = 0
         End If
         Do While CalcIp1 < 255 And posts > ConteurPoste
               CalcIp1 = CalcIp1 + 1
               ip = ref & "." & ref2 & "." & CalcIp2 & "." & CalcIp1
               List1.AddItem ip
               ConteurPoste = ConteurPoste + 1
         Loop
    Loop
End Function
Public Function CalcClasseC(posts As Long)
Dim CalcIp1 As Integer
Dim ip As String
Dim ConteurPoste As Long
posts = Nbpostes
ref = InputBox("Entrez la première partie de l'adresse IP")
Do While ref < 192 Or ref > 223
    ref = InputBox("Entrez la première partie de l'adresse IP")
Loop
ref1 = InputBox("Entrez la deuxième partie de l'adresse IP")
Do While ref1 < 0 Or ref1 > 255
    ref1 = InputBox("Entrez la deuxième partie de l'adresse IP")
Loop
ref2 = InputBox("Entrez la troisième partie de l'adresse IP")
Do While ref2 < 1 Or ref2 > 254
    ref2 = InputBox("Entrez la troisième partie de l'adresse IP")
Loop
CalcIp1 = 0
ConteurPoste = 0
         Do While CalcIp1 < 255 And posts > ConteurPoste
               CalcIp1 = CalcIp1 + 1
               ip = ref & "." & ref1 & "." & ref2 & "." & CalcIp1
               List1.AddItem ip
               ConteurPoste = ConteurPoste + 1
         Loop
End Function
Private Sub Command2_Click()
    End
End Sub

Conclusion :


Vous pouvez télécharger le ZIP....

Ps: j'ai modifié deux trois trucs qui posaient problème....
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
thedemons Messages postés 4 Date d'inscription dimanche 7 décembre 2008 Statut Membre Dernière intervention 8 décembre 2008
7 déc. 2008 à 15:06
Ton générateur ne fonctionne pas avec windows xp, serait'il possible de le modifier pour que cela fonctionne

merci
cs_le_marnais Messages postés 10 Date d'inscription mercredi 16 novembre 2005 Statut Membre Dernière intervention 17 décembre 2008
7 mai 2006 à 09:08
salut joli taff
mais ton truc sert aussi a flooder les chans de l irc ?? et comment ont peut contrer ces dites personnes qui l utilise hein???
il reviennent sans arrêt !
merci
cs_caimann Messages postés 2 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 13 décembre 2005
13 déc. 2005 à 15:01
Bonjour, je m'appel Thomas et j'ai un petit souci par rapport au dhcp, j'ai cherche un peu partout sur le net afin de trouver un test sur le dhcp(cad, je cherche un moyen de savoir si mon server dhcp fonctionne correctement mais je ne sais comment m'y prendre )mais sans succes.
si vous avez une idee ou encore me mettre sur la voie n'hesitez pas à me repondre.
Merci d'avance.
ramiel Messages postés 1 Date d'inscription dimanche 30 novembre 2003 Statut Membre Dernière intervention 30 novembre 2003
30 nov. 2003 à 13:53
Avec un générateur ip peut-on éviter de se faire repérer et identifier en téléchergeant sur Kazaa ou autre????
cs_TetSuo Messages postés 14 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 30 juillet 2002
7 nov. 2002 à 19:07
Pas de problème Spylover, je te mets l'exe et une capture du logiciel.....

a+

ps: merci pour la critique et le compliment.....
Afficher les 7 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_TetSuo)