CRYPTAGE/DECRYPTAGE

Signaler
Messages postés
9
Date d'inscription
dimanche 17 novembre 2002
Statut
Membre
Dernière intervention
16 juin 2003
-
Messages postés
14
Date d'inscription
jeudi 19 mai 2005
Statut
Membre
Dernière intervention
30 décembre 2006
-
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/7491-cryptage-decryptage

Messages postés
14
Date d'inscription
jeudi 19 mai 2005
Statut
Membre
Dernière intervention
30 décembre 2006

J'ai enfin trouvé! Je remercie au passage le cache Google qui m'a permis de trouver l'ancienne page du MSDN qui contenait ma réponse!

Il faut rajouter ByVal devant sa variable dans la fonction! Une sombre histoire de pointeur, en tout cas ça marche!

Voici la solution en code:
dans un module :

public function crypt(ByVal msgclair as String)
[...]
end function

dans une form:

private sub button1_click()
passwordCrypte=crypt(txtb_password.text)
end sub

Voilà!
Messages postés
14
Date d'inscription
jeudi 19 mai 2005
Statut
Membre
Dernière intervention
30 décembre 2006

J'ai pas de chance... Sur toutes les fonctions de cryptage/decryptage que j'utilise VB6 me renvoit "ByRef argument type mismatch".....

Je suis désespéré, pourtant je type bien mes variables...
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015

Salut,
Pour crazyjoe -> le cryptage de césar décale tous les caractère avec le même décallage. Ici c'est un peu plus complèxe puisque les caractère ont un décallage différent.
Pour CJulien -> Utilise la fonction mod (modulo) pour faire tes décalages. Mais il y a plus simple, crypte avec la fonction xor et tu pourra décrypter avec la MÊME fonction.
Sinon, ce cryptage n'est efficace que si la clef est de même longueur que le message, sinon une bête équation peu me donner le décryptage (ca me prendra un peu de temps mais pas beaucoup quand même)
Messages postés
7
Date d'inscription
mercredi 30 avril 2003
Statut
Membre
Dernière intervention
10 juillet 2003

Merci beaucoup pour vos suggestion
Afficher les 6 commentaires