CRYPTAGE DES

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