swiSHA1context

type swiSHA1context = packed record

public

type

  TSHA_Block = procedure(

  var ctx: swiSHA1context;

  src: pointer;

  len: size_t

);

  PSHA_Block = ^TSHA_Block;

public

  state: array [0..4] of cuint32;

  total: array [0..1] of cuint32;

  buffer: array [0..63] of cuint8;

  fragment_size: cuint32;

  sha_block: PSHA_Block;

end;