Tumac128_ctx

type Tumac128_ctx = record

  l1_key: array [0..((1024div4)+(4*(4-1)))-1] of Tuint32_t;

  l2_key: array [0..(6*4)-1] of Tuint32_t;

  l3_key1: array [0..(8*4)-1] of Tuint64_t;

  l3_key2: array [0..3] of Tuint32_t;

  pdf_key: Taes128_ctx;

  l2_state: array [0..(3*4)-1] of Tuint64_t;

  nonce: array [0..15] of Tuint8_t;

  nonce_length: Tcushort;

  index: Tcunsigned;

  count: Tuint64_t;

  block: array [0..1023] of Tuint8_t;

end;