CRYPTER / DECRYPTER UNE ADRESSE IPV4 SOUS FORMAT HEXADECIMAL

Signaler
Messages postés
225
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
25 août 2008
-
Messages postés
21
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
7 décembre 2004
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/28013-crypter-decrypter-une-adresse-ipv4-sous-format-hexadecimal

Messages postés
21
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
7 décembre 2004

tu écris :

Dim quatre As String

et après :
If (quatre 255) Then tmp "Adresse broadcast"

Ca ne peux pas marcher, jamais ta string ne sera égale à un integer. Pareil pour les autres variables.
Au pire tu fait :
If (quatre "255") Then tmp "Adresse broadcast"
ou
tu redéclare tes variables comme il faut.

Tu fait des on Errror Resume Next, mais tu ne gère pas tes erreurs....
En bref bon courage pour l'apprentissage.
Et puis aprends à commenter ton code c'est important.
Messages postés
21
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
7 décembre 2004

Il manque un "then" au minimum dans ta sub...

Private Sub tim_Timer()
if (pg.Value = pg.max)
pg.Value = pg.Value + 1
End Sub
Messages postés
225
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
25 août 2008

cett methode est plus securisée oui mais facilement decryptable

parcequ'il suffit de faire un ping l'adresse cryptée et on voit s'afficher en clair l'adresse ip normale.