struct {
    HeartbeatMessageType type;  // 1 байт: запрос или ответ
    uint16 payload_length;      // 2 байта: длина полезной нагрузки
    opaque payload[HeartbeatMessage.payload_length];
    opaque padding[padding_length];
} HeartbeatMessage;

/* Выделить память для ответа, размер: 1 байт
 * тип сообщения, плюс 2 байта длины полезной нагрузки, плюс
 * полезная нагрузка, плюс дополнение
*/

unsigned int payload;
unsigned int padding = 16; /* Использовать минимальное дополнение */

// Сначала прочитать поле типа
hbtype = *p++; /* После этой инструкции указатель
                * p будет указывать на поле payload_length */

// Прочитать поле payload_length из запроса
n2s(p, payload); /* Функция n2s(p, payload) читает 16 бит
                  * из указателя p и сохраняет значение
                  * в переменную INT "payload". */

pl = p; // pl указывает на начало содержимого полезной нагрузки

if (hbtype == TLS1_HB_REQUEST)
{
    unsigned char *buffer, *bp;
    int r;

    /* Выделить память для ответа, размер: 1 байт
     * тип сообщения, плюс 2 байта длины полезной нагрузки, плюс
     * полезная нагрузка, плюс дополнение
     */

    buffer = OPENSSL_malloc(1 + 2 + payload + padding);
    bp = buffer;

    // Ввести тип ответа, длину и скопировать полезную нагрузку *bp++ = TLS1_HB_RESPONSE;
    s2n(payload, bp);

    // скопировать полезную нагрузку
    memcpy(bp, pl, payload);   /* pl — указатель, который
                                * указывает на начало
                                * содержимого полезной нагрузки */
    bp += payload;

    // Случайное дополнение
    RAND_pseudo_bytes(bp, padding);

    // Эта функция скопирует 3+payload+padding байт
    // из буфера и поместит их в ответный пакет heartbeat,
    // который будет отправлен обратно клиенту, отправившему запрос.
    OPENSSL_free(buffer);
    r = ssl3_write_bytes(s, TLS1_RT_HEARTBEAT, buffer, 3 + payload + padding);
}

    // скопировать полезную нагрузку
    memcpy(bp, pl, payload);