TEXTE CRYPTER
cs_KevinK
Messages postés
43
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2003
-
17 août 2002 à 21:42
mouloh Messages postés 2 Date d'inscription vendredi 22 août 2003 Statut Membre Dernière intervention 30 juin 2005 - 22 août 2003 à 14:12
mouloh Messages postés 2 Date d'inscription vendredi 22 août 2003 Statut Membre Dernière intervention 30 juin 2005 - 22 août 2003 à 14:12
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/3668-texte-crypter
https://codes-sources.commentcamarche.net/source/3668-texte-crypter
22 août 2003 à 14:12
17 août 2002 à 21:42
const sDecrypte="abcdefghijklmnopqrstuvwxyz .éè1234567890"
const sCrypte="z#er~tmp%a*-&|l/=])wà$<èég'4!²530627891^"
sub Crypt()
On Error Resume Next 'pr les erreurs
Dim i As Integer 'declaration variable "i"
Dim a, x 'declaration variable
Form1.Text2 = "" 'text2 se vide
For i = 1 To Len(Form1.Text1) 'boucle qui s'effectue jusk a la fin de longueur de caractere du
a = Mid$(Form1.Text1, i, 1)
x = x & Mid(sCrypte, InStr(1, sDecrypte, a, vbTextCompare), 1) **
Next i 'caractere suivant
Text2 = Text2 & x ' c beaucoup plus rapide d'ajouter le caractère crypter à une variable plutot qu'au textbox
end sub
Sub Decrypt()
On Error Resume Next 'pr les erreurs
Dim i As Integer 'Idem que Crypt mais a l'inverse
Dim a, x
Form1.Text2 = ""
For i = 1 To Len(Form1.Text1)
a = Mid$(Form1.Text1, i, 1)
x = x & Mid(sDecrypte, InStr(1, sCrypte, a, vbTextCompare), 1) **
Next i 'caractere suivant
Text2 = Text2 & x
end sub
Comme la ligne ** est la seule qui change, on peut facilement faire encore + simple en mettant une seule fonction qui prend en paramètre si on crypte ou décrypte.