PETIT CRYPTAGE DÉCRYPTAGE AVEC XOR
SibosisITS
Messages postés
72
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
20 juin 2003
-
23 avril 2002 à 15:25
mightykay Messages postés 10 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 17 mai 2004 - 6 sept. 2003 à 00:38
mightykay Messages postés 10 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 17 mai 2004 - 6 sept. 2003 à 00:38
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/3090-petit-cryptage-decryptage-avec-xor
https://codes-sources.commentcamarche.net/source/3090-petit-cryptage-decryptage-avec-xor
6 sept. 2003 à 00:38
Public Function Crypt(ByRef str As String, ByRef key As String) As String
Dim Cr As String
Dim i As Integer
Dim carac As String
Cr = ""
For i = 1 To Len(str)
carac = Chr(Asc(Mid(str, i, 1)) Xor (key - i))
Cr = Cr + carac
Next i
Crypt = Cr
End Function
6 sept. 2003 à 00:35
23 avril 2002 à 15:25
Dans l'état actuel, ça n'a aucun intérêt : n'importe qui peut décrypter le message s'il connaît la fonction...
L'intérêt d'un algo de cryptage, c'est de permettre un cryptage facile, mais un décryptage impossible pour qui n'a pas la clé.
Sinon, je pense que l'idée est à creuser...
Sibo