CRYPTAGE PAR MASQUE JETABLE
The Meteorologist
Messages postés
232
Date d'inscription
jeudi 18 janvier 2007
Statut
Membre
Dernière intervention
3 novembre 2011
-
27 juin 2009 à 16:10
marthieu Messages postés 1 Date d'inscription dimanche 14 août 2005 Statut Membre Dernière intervention 27 juin 2009 - 27 juin 2009 à 20:00
marthieu Messages postés 1 Date d'inscription dimanche 14 août 2005 Statut Membre Dernière intervention 27 juin 2009 - 27 juin 2009 à 20:00
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/50227-cryptage-par-masque-jetable
https://codes-sources.commentcamarche.net/source/50227-cryptage-par-masque-jetable
27 juin 2009 à 20:00
Merci
27 juin 2009 à 16:25
Dim s1 As String = "Bonjour"
Dim s2 As String = "1d2d3q4"
If s1.Length = s2.Length Then
Dim sb As New System.Text.StringBuilder(s1.Length)
For i As Integer = 0 To s1.Length - 1
sb.Append(Convert.ToChar(Convert.ToInt32(s1.Chars(i)) Xor Convert.ToInt32(s2.Chars(i))))
Next
' Résultat : sb.ToString.
' N.B. Il vaut mieux utiliser un tableau d'octets car si la chaîne contient la caractère 0, elle sera tronquée.
End If
++
Simon
27 juin 2009 à 16:10