Allow progressive writes to be encrypted.
[libdcp.git] / src / mxf_asset.cc
index d0e02c8bfd12718379707ab56428549492805501..54c204e7ec67ffa9bcd9af88c427fb77b7c8b95e 100644 (file)
 #include <iostream>
 #include <fstream>
 #include <boost/filesystem.hpp>
+#include <boost/lexical_cast.hpp>
+#include <libxml++/nodes/element.h>
 #include "AS_DCP.h"
+#include "KM_prng.h"
 #include "KM_util.h"
 #include "mxf_asset.h"
 #include "util.h"
 #include "metadata.h"
-
-using namespace std;
-using namespace boost;
+#include "exceptions.h"
+#include "kdm.h"
+
+using std::string;
+using std::list;
+using std::pair;
+using boost::shared_ptr;
+using boost::lexical_cast;
+using boost::dynamic_pointer_cast;
 using namespace libdcp;
 
-MXFAsset::MXFAsset (string directory, string file_name, sigc::signal1<void, float>* progress, int fps, int entry_point, int length)
+MXFAsset::MXFAsset (string directory, string file_name)
        : Asset (directory, file_name)
+       , _progress (0)
+       , _encrypted (false)
+       , _encryption_context (0)
+       , _decryption_context (0)
+{
+
+}
+
+MXFAsset::MXFAsset (string directory, string file_name, boost::signals2::signal<void (float)>* progress, int edit_rate, int intrinsic_duration, bool encrypted)
+       : Asset (directory, file_name, edit_rate, intrinsic_duration)
        , _progress (progress)
-       , _fps (fps)
-       , _entry_point (entry_point)
-       , _length (length)
+       , _encrypted (encrypted)
+       , _encryption_context (0)
+       , _decryption_context (0)
 {
-       
+       if (_encrypted) {
+               /* Generate an encryption key and a UUID for it */
+               _key_id = make_uuid ();
+               uint8_t key_buffer[ASDCP::KeyLen];
+               Kumu::FortunaRNG rng;
+               rng.FillRandom (key_buffer, ASDCP::KeyLen);
+               char key_string[ASDCP::KeyLen * 4];
+               Kumu::bin2hex (key_buffer, ASDCP::KeyLen, key_string, ASDCP::KeyLen * 4);
+               _key_value = key_string;
+                       
+               _encryption_context = new ASDCP::AESEncContext;
+               if (ASDCP_FAILURE (_encryption_context->InitKey (key_buffer))) {
+                       throw MiscError ("could not set up encryption context");
+               }
+
+               uint8_t cbc_buffer[ASDCP::CBC_BLOCK_SIZE];
+               
+               if (ASDCP_FAILURE (_encryption_context->SetIVec (rng.FillRandom (cbc_buffer, ASDCP::CBC_BLOCK_SIZE)))) {
+                       throw MiscError ("could not set up CBC initialization vector");
+               }
+       }
 }
 
-void
-MXFAsset::fill_writer_info (ASDCP::WriterInfo* writer_info) const
+MXFAsset::~MXFAsset ()
 {
-       writer_info->ProductVersion = Metadata::instance()->product_version;
-       writer_info->CompanyName = Metadata::instance()->company_name;
-       writer_info->ProductName = Metadata::instance()->product_name.c_str();
+       delete _encryption_context;
+}
 
-       writer_info->LabelSetType = ASDCP::LS_MXF_SMPTE;
+void
+MXFAsset::fill_writer_info (ASDCP::WriterInfo* writer_info, string uuid, bool interop, MXFMetadata const & metadata)
+{
+       writer_info->ProductVersion = metadata.product_version;
+       writer_info->CompanyName = metadata.company_name;
+       writer_info->ProductName = metadata.product_name.c_str();
+
+       if (interop) {
+               writer_info->LabelSetType = ASDCP::LS_MXF_INTEROP;
+       } else {
+               writer_info->LabelSetType = ASDCP::LS_MXF_SMPTE;
+       }
        unsigned int c;
-       Kumu::hex2bin (_uuid.c_str(), writer_info->AssetUUID, Kumu::UUID_Length, &c);
+       Kumu::hex2bin (uuid.c_str(), writer_info->AssetUUID, Kumu::UUID_Length, &c);
        assert (c == Kumu::UUID_Length);
+
+       if (_encrypted) {
+               Kumu::GenRandomUUID (writer_info->ContextID);
+               writer_info->EncryptedEssence = true;
+
+               unsigned int c;
+               Kumu::hex2bin (_key_id.c_str(), writer_info->CryptographicKeyID, Kumu::UUID_Length, &c);
+               assert (c == Kumu::UUID_Length);
+       }
 }
 
 bool
-MXFAsset::equals (shared_ptr<const Asset> other, EqualityOptions opt, list<string>& notes) const
+MXFAsset::equals (shared_ptr<const Asset> other, EqualityOptions opt, boost::function<void (NoteType, string)> note) const
 {
-       shared_ptr<const MXFAsset> other_mxf = dynamic_pointer_cast<const MXFAsset> (other);
-       if (!other_mxf) {
-               notes.push_back ("comparing an MXF asset with a non-MXF asset");
-               return false;
-       }
-       
-       if (_file_name != other_mxf->_file_name) {
-               notes.push_back ("MXF names differ");
-               return false;
-       }
-
-       if (_fps != other_mxf->_fps) {
-               notes.push_back ("MXF frames per second differ");
+       if (!Asset::equals (other, opt, note)) {
                return false;
        }
        
-       if (_length != other_mxf->_length) {
-               notes.push_back ("MXF lengths differ");
+       shared_ptr<const MXFAsset> other_mxf = dynamic_pointer_cast<const MXFAsset> (other);
+       if (!other_mxf) {
+               note (ERROR, "comparing an MXF asset with a non-MXF asset");
                return false;
        }
        
-       if (opt.bitwise) {
-
-               if (digest() != other_mxf->digest()) {
-                       notes.push_back ("MXF digests differ");
-                       return false;
-               }
-               
-               if (filesystem::file_size (path()) != filesystem::file_size (other_mxf->path())) {
-                       notes.push_back (path().string() + " and " + other_mxf->path().string() + " sizes differ");
+       if (_file_name != other_mxf->_file_name) {
+               note (ERROR, "MXF names differ");
+               if (!opt.mxf_names_can_differ) {
                        return false;
                }
-               
-               ifstream a (path().string().c_str(), ios::binary);
-               ifstream b (other_mxf->path().string().c_str(), ios::binary);
-
-               int buffer_size = 65536;
-               char abuffer[buffer_size];
-               char bbuffer[buffer_size];
-
-               int n = filesystem::file_size (path ());
-
-               while (n) {
-                       int const t = min (n, buffer_size);
-                       a.read (abuffer, t);
-                       b.read (bbuffer, t);
+       }
+       
+       return true;
+}
 
-                       if (memcmp (abuffer, bbuffer, t) != 0) {
-                               notes.push_back (path().string() + " and " + other_mxf->path().string() + " content differs");
-                               return false;
-                       }
+void
+MXFAsset::add_typed_key_id (xmlpp::Element* parent) const
+{
+       xmlpp::Element* typed_key_id = parent->add_child("TypedKeyId");
+       typed_key_id->add_child("KeyType")->add_child_text(key_type ());
+       typed_key_id->add_child("KeyId")->add_child_text("urn:uuid:" + _key_id);
+}
 
-                       n -= t;
-               }
+void
+MXFAsset::write_to_cpl (xmlpp::Element* node, bool interop) const
+{
+       pair<string, string> const attr = cpl_node_attribute (interop);
+       xmlpp::Element* a = node->add_child (cpl_node_name ());
+       if (!attr.first.empty ()) {
+               a->set_attribute (attr.first, attr.second);
+       }
+       a->add_child ("Id")->add_child_text ("urn:uuid:" + _uuid);
+       a->add_child ("AnnotationText")->add_child_text (_file_name);
+       a->add_child ("EditRate")->add_child_text (lexical_cast<string> (_edit_rate) + " 1");
+       a->add_child ("IntrinsicDuration")->add_child_text (lexical_cast<string> (_intrinsic_duration));
+       a->add_child ("EntryPoint")->add_child_text (lexical_cast<string> (_entry_point));
+       a->add_child ("Duration")->add_child_text (lexical_cast<string> (_duration));
+       if (_encrypted) {
+               a->add_child("KeyId")->add_child_text ("urn:uuid:" + _key_id);
        }
-
-       return true;
 }
 
-int
-MXFAsset::length () const
+void
+MXFAsset::set_kdm_cipher (KDMCipher cipher)
 {
-       return _length;
+       _decryption_context = new ASDCP::AESDecContext;
+       if (ASDCP_FAILURE (_decryption_context->InitKey (cipher.key_raw ()))) {
+               throw MiscError ("could not set up decryption context");
+       }
 }