Salut. Ouais, encore un code de cryptage... Mais franchement, y vaut le coup. Je vous conseille de télécharger le zip plutôt ke de faire du copier - coller avec le code ci-dessous, mais si vous voulez le code et ke vous êtes pas connecté (ce ki m'arrive souvent), vous pourrez kan même avoir le code.
Ah ouais, il vous faut :
1. Une zone de texte pour le texte à crypter ou à décrypter (ici TxtNcrypt)
2. Une autre zone de texte pour mettre le texte crypté ou décrypter (ici TxtCrypt)
3. Un dernière zone de texte pour mettre le mot de passe (TxtMDP)
4. 2 boutons pour crypter et décrypter (CmdCrypter et CmdDecrypter)
5. 1 bouton pour quitter... (CmdQuitter)
Source / Exemple :
Private Sub CmdQuitter_Click()
Unload Me
End Sub
Private Sub CmdDecrypter_Click()
TxtCrypt.Text = ""
If TxtMDP.Text = "" Then
MsgBox "Il faut d'abord mettre un mot de passe !", vbExclamation, "Erreur !"
Exit Sub
End If
Call decryptage(TxtNcrypt.Text, TxtMDP.Text)
End Sub
Private Sub CmdCrypter_Click()
TxtCrypt.Text = ""
If TxtMDP.Text = "" Then
MsgBox "Il faut d'abord mettre un mot de passe !", vbExclamation, "Erreur !"
TxtCrypt.Text = ""
Private Sub Cryptage(Textnoncrypter, Motdepasse)
Dim a, b, Textcrypter, Incr, Text, okm, z, w
z = 0
For Incr = 1 To Len(Textnoncrypter)
'C'a, c pour effectuer le code suivant le nombre de
'caractère ke contient le texte
Text = Mid$(Textnoncrypter, Incr, 1)
'Là, c pour lire le caractère du texte
a = Asc(Text)
'Je transforme le caractère alphabétique en
'caractère ASCII
z = z + 1
If z > Len(Motdepasse) Then
z = 1
'Kan le mot de passe a été lu, on recommence à
'son premier caractère
End If
okm = Mid$(Motdepasse, z, 1)
'On lit le caractère du mot de passe
b = Asc(okm)
'On prend son code ASCII
w = a + b
'On additionne le code ASCII du texte et du mot de passe
If w > 255 Then
w = w - 255
'Au cas où l'addition dépasserai 255, on retire 255
End If
Textcrypter = Textcrypter + Chr(w)
'On additionne les lettres cryptés ki sont
'retransformées en caractère "lisible" mais crypté
Next Incr
'on fait de même pour la lettre suivante du texte à crypter
TxtCrypt.Text = Textcrypter
'Et on affiche le texte crypté ki ne ve plus rien dire
End Sub
'Le décryptage est le même avec la démarche inverse
'on part du texte crypté, on le transforme en ASCII
'On enlève l'ASCII du mot de passe et on obtient
'l'ASCII du texte décrypté kon rechange en caractère lisible.
Public Sub decryptage(Textcrypte, Motdepasse)
Dim a, b, Textdecrypter, Incr, Text, okm, z, w
z = 0
For Incr = 1 To Len(Textcrypte)
Text = Mid$(Textcrypte, Incr, 1)
a = Asc(Text)
z = z + 1
If z > Len(Motdepasse) Then
z = 1
End If
okm = Mid$(Motdepasse, z, 1)
b = Asc(okm)
w = a - b
If w < 0 Then
w = w + 255
End If
Textdecrypter = Textdecrypter + Chr(w)
Next Incr
TxtCrypt.Text = Textdecrypter
End Sub
Exit Sub
End If
Call Cryptage(TxtNcrypt.Text, TxtMDP.Text)
End Sub
Conclusion :
Vu les critiques - que j'admet sans problèmes -, je préfère changer le titre de ma source.
N'hésitez pas à continuer.
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.