[DÉBUTANTS] CRYPTAGE, DÉCRYPTAGE FACILE

elguevel Messages postés 718 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 22 novembre 2016 - 5 nov. 2008 à 22:22
laaraj11 Messages postés 6 Date d'inscription vendredi 1 septembre 2006 Statut Membre Dernière intervention 13 janvier 2013 - 30 juil. 2011 à 19:15
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/47637-debutants-cryptage-decryptage-facile

laaraj11 Messages postés 6 Date d'inscription vendredi 1 septembre 2006 Statut Membre Dernière intervention 13 janvier 2013
30 juil. 2011 à 19:15
Merci pour le script !
je me demande si on peut crypter en DES sans utilisé de vecteur d'initialisation ?
cs_boutemine Messages postés 78 Date d'inscription dimanche 8 mai 2005 Statut Membre Dernière intervention 21 mars 2018 2
5 nov. 2008 à 22:28
Merci, j'ai oubliée, le code source sera mis ajour
elguevel Messages postés 718 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 22 novembre 2016 3
5 nov. 2008 à 22:22
Très bon exemple.

Par contre fais gaffe tu ne fermes pas tes flux (stream).

Utilises la methode ".Close" ou alors le mot clé "Using"

ex:

Public Function Encrypt(ByVal value As String) As String

Dim Resultat As String = ""

If (Not value.Equals("")) Then

Dim cryptoProvider As DESCryptoServiceProvider = New DESCryptoServiceProvider()

Using ms As MemoryStream = New MemoryStream()

Using cs As CryptoStream = New CryptoStream(ms, cryptoProvider.CreateEncryptor(KEY_64, IV_64), CryptoStreamMode.Write)

Using sw As StreamWriter = New StreamWriter(cs)

sw.Write(value)
sw.Flush()
cs.FlushFinalBlock()
ms.Flush()

Resultat = Convert.ToBase64String(ms.GetBuffer(), 0, ms.Length)

End Using

End Using

End Using

End If

Return Resultat

End Function