TCipherKey

type TCipherKey = record

public

  procedure Init;

  procedure Burn;

  case Integer of

    0: (

        ByteValues: array [0..15] of Byte;

      );

    1: (

        WordValues: array [0..7] of Word;

      );

    2: (

        Values: array [0..3] of LongWord;

      );

    3: (

        LongValues: array [0..1] of UInt64;

      );

end;