Générateur ip

Soyez le premier à donner votre avis sur cette source.

Vue 17 764 fois - Téléchargée 1 047 fois

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....

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Spylover
Messages postés
110
Date d'inscription
mercredi 24 avril 2002
Statut
Membre
Dernière intervention
12 août 2010
-
Peux tu s'il te plait me mettre un exe dans ton zip et une capture aussi.

Car ton soft me parait très intéressant

Merci
cs_TetSuo
Messages postés
14
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
30 juillet 2002
-
Pas de problème Spylover, je te mets l'exe et une capture du logiciel.....

a+

ps: merci pour la critique et le compliment.....
cs_TetSuo
Messages postés
14
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
30 juillet 2002
-
Pas de problème Spylover, je te mets l'exe et une capture du logiciel.....

a+

ps: merci pour la critique et le compliment.....
ramiel
Messages postés
1
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
30 novembre 2003
-
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_caimann
Messages postés
2
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
13 décembre 2005
-
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.

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.