Private Shared Sub EncryptData(ByVal FichierSource As String, ByVal FichierDestination As String, ByVal Key() As Byte, ByVal IV() As Byte)
   Dim oFichierSource As New IO.FileStream(FichierSource, IO.FileMode.Open, IO.FileAccess.Read)
   Dim oFichierDestination As New IO.FileStream(FichierDestination, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)oFichierDestination.SetLength(0)
   Dim Buffer(4096) As Byte
   Dim RandLen As Long = 0
   Dim TailleTotal As Long = oFichierSource.Length
   Dim Taille As Integer
   Dim DES As New Security.Cryptography.DESCryptoServiceProvider()
   Dim EncodStream As New Security.Cryptography.CryptoStream(oFichierDestination, DES.CreateEncryptor(Key, IV), Security.Cryptography.CryptoStreamMode.Write)
   While RandLen < TailleTotal
      Taille = oFichierSource.Read(Buffer, 0, 4096)
      EncodStream.Write(Buffer, 0, Taille)
      RandLen = Convert.ToInt32(RandLen + Taille / des.BlockSize * des.BlockSize)
   End While
   EncodStream.Close()
End Sub

 Antoine