Private Sub decrypt(ByVal file As Byte(), ByVal destination As String, _
      ByVal key As String, ByVal iv As String)
 
        Dim AES As New Security.Cryptography.AesCryptoServiceProvider
 
        With AES
            .Key = System.Text.Encoding.ASCII.GetBytes(key)
            .IV = System.Text.Encoding.ASCII.GetBytes(iv)
        End With
 
        Dim fstream As New IO.FileStream(destination, IO.FileMode.Create, _
          IO.FileAccess.Write)
 
        Dim cryptostr As New Security.Cryptography.CryptoStream(fstream, _
          AES.CreateDecryptor, Security.Cryptography.CryptoStreamMode.Write)
 
        cryptostr.Write(file, 0, file.Length)
 
        cryptostr.Close()
 
    End Sub