/*
 * File:	EncoreBootImageReader.cpp
 *
 * Copyright (c) Freescale Semiconductor, Inc. All rights reserved.
 * See included license file for license details.
 */

#include "EncoreBootImageReader.h"
#include "SHA1.h"
#include "rijndael.h"
#include "RijndaelCBCMAC.h"
#include <assert.h>
#include "EndianUtilities.h"
#include "Logging.h"

using namespace elftosb;

//! \post Stream head points to just after the image header.
//! \exception read_error Thrown if the image header is invalid.
void EncoreBootImageReader::readImageHeader()
{
    // seek to beginning of the stream/file and read the plaintext header
    m_stream.seekg(0, std::ios_base::beg);
    if (m_stream.read((char *)&m_header, sizeof(m_header)).bad())
    {
        throw read_error("failed to read image header");
    }

    m_header.m_flags = ENDIAN_LITTLE_TO_HOST_U16(m_header.m_flags);
    m_header.m_imageBlocks = ENDIAN_LITTLE_TO_HOST_U32(m_header.m_imageBlocks);
    m_header.m_firstBootTagBlock = ENDIAN_LITTLE_TO_HOST_U32(m_header.m_firstBootTagBlock);
    m_header.m_firstBootableSectionID = ENDIAN_LITTLE_TO_HOST_U32(m_header.m_firstBootableSectionID);
    m_header.m_keyCount = ENDIAN_LITTLE_TO_HOST_U16(m_header.m_keyCount);
    m_header.m_keyDictionaryBlock = ENDIAN_LITTLE_TO_HOST_U16(m_header.m_keyDictionaryBlock);
    m_header.m_headerBlocks = ENDIAN_LITTLE_TO_HOST_U16(m_header.m_headerBlocks);
    m_header.m_sectionCount = ENDIAN_LITTLE_TO_HOST_U16(m_header.m_sectionCount);
    m_header.m_sectionHeaderSize = ENDIAN_LITTLE_TO_HOST_U16(m_header.m_sectionHeaderSize);
    m_header.m_timestamp = ENDIAN_LITTLE_TO_HOST_U64(m_header.m_timestamp);

    //	m_header.m_componentVersion.m_major = ENDIAN_BIG_TO_HOST_U16(m_header.m_componentVersion.m_major);
    //	m_header.m_componentVersion.m_minor = ENDIAN_BIG_TO_HOST_U16(m_header.m_componentVersion.m_minor);
    //	m_header.m_componentVersion.m_revision = ENDIAN_BIG_TO_HOST_U16(m_header.m_componentVersion.m_revision);

    //	m_header.m_productVersion.m_major = ENDIAN_BIG_TO_HOST_U16(m_header.m_productVersion.m_major);
    //	m_header.m_productVersion.m_minor = ENDIAN_BIG_TO_HOST_U16(m_header.m_productVersion.m_minor);
    //	m_header.m_productVersion.m_revision = ENDIAN_BIG_TO_HOST_U16(m_header.m_productVersion.m_revision);

    // check header signature 1
    if (m_header.m_signature[0] != 'S' || m_header.m_signature[1] != 'T' || m_header.m_signature[2] != 'M' ||
        m_header.m_signature[3] != 'P')
    {
        throw read_error("invalid signature 1");
    }

    // check header signature 2 for version 1.1 and greater
    if ((m_header.m_majorVersion > 1 || (m_header.m_majorVersion == 1 && m_header.m_minorVersion >= 2)) &&
        (m_header.m_signature2[0] != 's' || m_header.m_signature2[1] != 'g' || m_header.m_signature2[2] != 't' ||
         m_header.m_signature2[3] != 'l'))
    {
        // 		throw read_error("invalid signature 2");
        Log::log(Logger::WARNING, "warning: invalid signature 2\n");
    }
}

//! \pre The image header must have already been read with a call to readImageHeader().
//!
void EncoreBootImageReader::computeHeaderDigest(sha1_digest_t &digest)
{
    CSHA1 hash;
    hash.Reset();
    hash.Update((uint8_t *)&m_header.m_signature, sizeof(m_header) - sizeof(sha1_digest_t));
    hash.Final();
    hash.GetHash(digest);
}

//! \pre The image header must have already been read.
//! \pre The DEK must have been found already.
//! \post The stream head is at the end of the digest.
void EncoreBootImageReader::readImageDigest()
{
    unsigned digestPosition = sizeOfCipherBlocks(m_header.m_imageBlocks - 2);
    m_stream.seekg(digestPosition, std::ios_base::beg);

    // read the two cipher blocks containing the digest, including padding
    cipher_block_t digestBlocks[2];
    if (m_stream.read((char *)&digestBlocks, sizeof(digestBlocks)).bad())
    {
        throw read_error("failed to read image digest");
    }

    // decrypt the digest
    if (isEncrypted())
    {
        Rijndael cipher;
        cipher.init(Rijndael::CBC, Rijndael::Decrypt, m_dek, Rijndael::Key16Bytes, m_header.m_iv);
        cipher.blockDecrypt((uint8_t *)&digestBlocks, sizeof(digestBlocks) * 8, (uint8_t *)&digestBlocks);
    }

    // copy the digest out of the padded blocks
    memcpy(m_digest, &digestBlocks, sizeof(m_digest));
}

//! \pre The image header must have already been read with a call to readImageHeader().
//! \post The stream head is at the end of the image minus the last two cipher blocks.
//! \param digest Where to store the resulting digest.
//! \exception read_error Thrown if the image header is invalid.
void EncoreBootImageReader::computeImageDigest(sha1_digest_t &digest)
{
    m_stream.seekg(0, std::ios_base::beg);

    CSHA1 hash;
    hash.Reset();

    unsigned blockCount = m_header.m_imageBlocks - 2; // exclude digest at end of image
    while (blockCount--)
    {
        cipher_block_t block;
        if (m_stream.read((char *)&block, sizeof(block)).bad())
        {
            throw read_error("failed to read block while computing image digest");
        }
        hash.Update(block, sizeof(block));
    }

    hash.Final();
    hash.GetHash(digest);
}

//! \pre Image header must have been read before this method is called.
//!
void EncoreBootImageReader::readSectionTable()
{
    // seek to the table
    m_stream.seekg(sizeOfCipherBlocks(m_header.m_headerBlocks), std::ios_base::beg);

    unsigned sectionCount = m_header.m_sectionCount;
    while (sectionCount--)
    {
        EncoreBootImage::section_header_t header;
        if (m_stream.read((char *)&header, sizeof(header)).bad())
        {
            throw read_error("failed to read section header");
        }

        // swizzle section header
        header.m_tag = ENDIAN_LITTLE_TO_HOST_U32(header.m_tag);
        header.m_offset = ENDIAN_LITTLE_TO_HOST_U32(header.m_offset);
        header.m_length = ENDIAN_LITTLE_TO_HOST_U32(header.m_length);
        header.m_flags = ENDIAN_LITTLE_TO_HOST_U32(header.m_flags);

        m_sections.push_back(header);
    }
}

//! Requires that an OTP key has been provided as the sole argument. Passing the
//! key into this method lets the caller search the key dictionary for any number
//! of keys and determine which are valid. If \a kek is found in the dictionary,
//! the decrypted DEK is saved and true is returned. A result of false means
//! that \a kek was not found.
//!
//! \pre The image header and section table must have been read already.
//! \post The stream head points somewhere inside the key dictionary, or just after it.
//! \post If the search was successful, the #m_dek member will contain the decrypted
//!		session key. Otherwise #m_dek is not modified.
//! \param kek Search for this KEK in the dictionary.
//! \retval true The DEK was found and decrypted. True is also returned when the
//!		image is not encrypted at all.
//! \retval false No matching key entry was found. The image cannot be decrypted.
bool EncoreBootImageReader::readKeyDictionary(const AESKey<128> &kek)
{
    // do nothing if the image is not encrypted
    if (!isEncrypted())
    {
        return true;
    }

    // first compute a CBC-MAC over the image header with our KEK
    RijndaelCBCMAC mac(kek);
    mac.update((const uint8_t *)&m_header, sizeof(m_header));

    // run the CBC-MAC over each entry in the section table too
    section_array_t::iterator it = m_sections.begin();
    for (; it != m_sections.end(); ++it)
    {
        mac.update((const uint8_t *)&(*it), sizeof(EncoreBootImage::section_header_t));
    }

    // get the CBC-MAC result
    mac.finalize();
    const RijndaelCBCMAC::block_t &macResult = mac.getMAC();

    // seek to the key dictionary
    m_stream.seekg(sizeOfCipherBlocks(m_header.m_keyDictionaryBlock), std::ios_base::beg);

    // decipher each key entry
    unsigned entries = m_header.m_keyCount;
    while (entries--)
    {
        // read the entry
        EncoreBootImage::dek_dictionary_entry_t entry;
        if (m_stream.read((char *)&entry, sizeof(entry)).bad())
        {
            throw read_error("failed to read key dictionary entry");
        }

        // compare the CBC-MAC we computed with the one in this entry
        if (memcmp(macResult, entry.m_mac, sizeof(cipher_block_t)) == 0)
        {
            // it's a match! now decrypt this entry's key in place
            Rijndael cipher;
            cipher.init(Rijndael::CBC, Rijndael::Decrypt, kek, Rijndael::Key16Bytes, m_header.m_iv);
            cipher.blockDecrypt(entry.m_dek, sizeof(entry.m_dek) * 8, entry.m_dek);

            m_dek = entry.m_dek;
            memset(entry.m_dek, 0, sizeof(entry.m_dek)); // wipe the key value from memory
            return true;
        }
    }

    // if we exit the loop normally then no matching MAC was found
    return false;
}

//! Before the boot tag is added to the #m_bootTags member, some basic checks are performed.
//! The command tag field is checked to make sure it matches #ROM_TAG_CMD. And
//! the checksum field is verified to be sure it's correct.
//!
//! After the call to this method returns, the array of boot tags is accessible
//! with the getBootTags() method. The array is sorted in the order in which
//! the boot tags appeared in the image.
//!
//! \pre Image header must have been read.
//! \pre Key dictionary must have been read and a valid DEK found.
//! \post The stream head is left pointing just after the last boot tag.
//! \exception read_error A failure to read the boot tag, or a failure on one
//!		of the consistency checks will cause this exception to be thrown.
void EncoreBootImageReader::readBootTags()
{
    assert(m_header.m_firstBootTagBlock != 0);

    unsigned bootTagOffset = m_header.m_firstBootTagBlock;

    while (1)
    {
        // seek to this boot tag and read it into a temporary buffer
        EncoreBootImage::boot_command_t header;
        m_stream.seekg(sizeOfCipherBlocks(bootTagOffset), std::ios_base::beg);
        if (m_stream.read((char *)&header, sizeof(header)).bad())
        {
            throw read_error("failed to read boot tag");
        }

        // swizzle to command header
        header.m_flags = ENDIAN_LITTLE_TO_HOST_U16(header.m_flags);
        header.m_address = ENDIAN_LITTLE_TO_HOST_U32(header.m_address);
        header.m_count = ENDIAN_LITTLE_TO_HOST_U32(header.m_count);
        header.m_data = ENDIAN_LITTLE_TO_HOST_U32(header.m_data);

        // decrypt in place
        if (isEncrypted())
        {
            Rijndael cipher;
            cipher.init(Rijndael::CBC, Rijndael::Decrypt, m_dek, Rijndael::Key16Bytes, m_header.m_iv);
            cipher.blockDecrypt((uint8_t *)&header, sizeof(header) * 8, (uint8_t *)&header);
        }

        // perform some basic checks
        if (header.m_tag != EncoreBootImage::ROM_TAG_CMD)
        {
            throw read_error("boot tag is wrong command type");
        }

        uint8_t checksum = calculateCommandChecksum(header);
        if (checksum != header.m_checksum)
        {
            throw read_error("boot tag checksum is invalid");
        }

        // save this boot tag
        m_bootTags.push_back(header);

        // and finally, update offset and break out of loop
        bootTagOffset += header.m_count + 1; // include this boot tag in offset
        if (header.m_flags & EncoreBootImage::ROM_LAST_TAG || bootTagOffset >= m_header.m_imageBlocks - 2)
        {
            break;
        }
    }
}

uint8_t EncoreBootImageReader::calculateCommandChecksum(EncoreBootImage::boot_command_t &header)
{
    uint8_t *bytes = reinterpret_cast<uint8_t *>(&header);
    uint8_t checksum = 0x5a;
    int i;

    // start at one to skip checksum field
    for (i = 1; i < sizeof(header); ++i)
    {
        checksum += bytes[i];
    }

    return checksum;
}

//! \param index The index of the section to read.
//!
//! \pre Both the image header and section table must have been read already before
//!		calling this method.
//! \exception read_error This exception is raised if the stream reports an error while
//!		trying to read from the section.
EncoreBootImage::Section *EncoreBootImageReader::readSection(unsigned index)
{
    // look up section header
    assert(index < m_sections.size());
    EncoreBootImage::section_header_t &header = m_sections[index];

    // seek to the section
    m_stream.seekg(sizeOfCipherBlocks(header.m_offset), std::ios_base::beg);

    uint8_t *contents = NULL;
    try
    {
        // allocate memory for the section contents and read the whole thing
        unsigned contentLength = sizeOfCipherBlocks(header.m_length);
        contents = new uint8_t[contentLength];
        if (m_stream.read((char *)contents, contentLength).bad())
        {
            throw read_error("failed to read section");
        }

        // decrypt the entire section at once, if the image is encrypted and
        // the cleartext flag is not set
        if (isEncrypted() && (header.m_flags & EncoreBootImage::ROM_SECTION_CLEARTEXT) == 0)
        {
            Rijndael cipher;
            cipher.init(Rijndael::CBC, Rijndael::Decrypt, m_dek, Rijndael::Key16Bytes, m_header.m_iv);
            cipher.blockDecrypt(contents, contentLength * 8, contents);
        }

        // create section object
        EncoreBootImage::Section *resultSection = NULL;
        if (header.m_flags & EncoreBootImage::ROM_SECTION_BOOTABLE)
        {
            // a boot command section.
            EncoreBootImage::BootSection *bootSection = new EncoreBootImage::BootSection(header.m_tag);

            bootSection->fillFromData((cipher_block_t *)contents, header.m_length);

            resultSection = bootSection;
        }
        else
        {
            // this is a raw data section
            EncoreBootImage::DataSection *dataSection = new EncoreBootImage::DataSection(header.m_tag);
            dataSection->setDataNoCopy(contents, contentLength);
            contents = NULL;
            resultSection = dataSection;
        }

        return resultSection;
    }
    catch (...)
    {
        if (contents)
        {
            delete[] contents;
        }
        throw;
    }
}
