Havoui
Messages postés9Date d'inscriptiondimanche 17 novembre 2002StatutMembreDernière intervention16 juin 2003
-
16 juin 2003 à 20:27
JoNasx86
Messages postés14Date d'inscriptionjeudi 19 mai 2005StatutMembreDernière intervention30 décembre 2006
-
3 déc. 2006 à 22:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
JoNasx86
Messages postés14Date d'inscriptionjeudi 19 mai 2005StatutMembreDernière intervention30 décembre 2006 3 déc. 2006 à 22:53
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à!
JoNasx86
Messages postés14Date d'inscriptionjeudi 19 mai 2005StatutMembreDernière intervention30 décembre 2006 3 déc. 2006 à 22:43
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...
cs_Warny
Messages postés473Date d'inscriptionmercredi 7 août 2002StatutMembreDernière intervention10 juin 2015 17 juin 2003 à 12:18
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)
cs_Cjulien
Messages postés7Date d'inscriptionmercredi 30 avril 2003StatutMembreDernière intervention10 juillet 2003 17 juin 2003 à 11:03
Voila encore du beau cryptage de César et en effet, je crois que havoui a raison il faut gérer cette possibilité, sinon, j'ai fais le même quand j'étais jeune, c'est bien on apprend des trucs
----
Bonne continuation
Havoui
Messages postés9Date d'inscriptiondimanche 17 novembre 2002StatutMembreDernière intervention16 juin 2003 16 juin 2003 à 20:27
Bonjour,
c un très bon principe sauf que ça ne doit pas marcher tout le temps.
si le charactère de msgclair en ascii + le charactère de la clef en ascii > 256
Mais le principe est là. N'ai pas peur de m'insulter si je me trompe ;)
3 déc. 2006 à 22:53
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à!
3 déc. 2006 à 22:43
Je suis désespéré, pourtant je type bien mes variables...
17 juin 2003 à 12:18
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)
17 juin 2003 à 11:03
17 juin 2003 à 08:46
----
Bonne continuation
16 juin 2003 à 20:27
c un très bon principe sauf que ça ne doit pas marcher tout le temps.
si le charactère de msgclair en ascii + le charactère de la clef en ascii > 256
Mais le principe est là. N'ai pas peur de m'insulter si je me trompe ;)