Cryptage des

Contenu du snippet

Petit bout de code montrant comment crypter en DES des données (ici bytes) avec VB.NET

Avec quelques adaptations, vous pouvez utiliser les autres algorithmes de cryptage intégrés dans .NET ...

Source / Exemple :


Public Function DES(ByVal Key() As Byte, ByVal data() As Byte)
    Dim memoryStream As IO.MemoryStream = New IO.MemoryStream()
    Dim cryptoProvider As DESCryptoServiceProvider = New DESCryptoServiceProvider()
    Dim cryptoStream As CryptoStream = New CryptoStream(memoryStream, cryptoProvider.CreateEncryptor(Key, Key), CryptoStreamMode.Write)
    Dim writer As IO.StreamWriter = New IO.StreamWriter(cryptoStream)
    writer.Write(data)
    writer.Flush()
    cryptoStream.FlushFinalBlock()
    writer.Flush()

    Return memoryStream.GetBuffer()
End Function

Conclusion :


Pour utiliser le code avec des strings, vous pouvez faire avec System.Text.UTF8Encoding.UTF8.GetBytes("MyString")

Avec quelques modifications minimes, le code peut fonctionner avec le cryptage RC2 et TripleDES. Il suffit de modifier "DESCryptoServiceProvider" en "RC2CryptoServiceProvider"

A voir également

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.