685
685
pack(Data0, #ssh{encrypt_block_size = BlockSize,
686
686
send_sequence = SeqNum, send_mac = MacAlg,
689
689
{Ssh1, Data} = compress(Ssh0, Data0),
690
690
PL = (BlockSize - ((4 + 1 + size(Data)) rem BlockSize)) rem BlockSize,
691
691
PaddingLen = if PL < 4 -> PL + BlockSize;