type
{ Тип TMD5Digest используется для получения
результата функций вычисления хеш-суммы.
Содержимое записи можно использовать
как набор из 4 целых чисел, или как
массив из 16 байт }
PMD5Digest = ^TMD5Digest;
TMD5Digest = record
case Integer of
0: (A, B, C, D: LongInt);
1: (v: array[0..15] of Byte);
end;