Générateur ip

Soyez le premier à donner votre avis sur cette source.

Vue 17 839 fois - Téléchargée 1 050 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

Signaler
thedemons
Messages postés
4
Date d'inscription
dimanche 7 décembre 2008
Statut
Membre
Dernière intervention
8 décembre 2008
 -
Ton générateur ne fonctionne pas avec windows xp, serait'il possible de le modifier pour que cela fonctionne

merci
Signaler
cs_le_marnais
Messages postés
11
Date d'inscription
mercredi 16 novembre 2005
Statut
Membre
Dernière intervention
17 décembre 2008
 -
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
Signaler
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.
Signaler
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????
Signaler
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.....
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)